C++builder制作的日历.docxVIP

PAGE / NUMPAGES 添加组件有：1个CCalender、3个CSpinButton、1个Timer、2个Label、3个Edit、2个Button、 注意：必须在3个Edit中分别输入，“请输入年份”“请输入月份”“请输入日期”（要和代码中的完全一致，否则出错。当然也可以把相应的代码注释掉不使用。） 另外，为了避免在Edit组件中输入错误的字符，可以在代码中把Edit的Enabled属性一直设为false。（不在代码中写出来，直接在属性栏设置也可以。） Form1-Edit1-Enabled=false。 Form1-Edit2-Enabled=false。 Form1-Edit3-Enabled=false。 代码为： #include vcl.h #pragma hdrstop #include Unit1.h // #pragma package(smart_init) #pragma link CCALENDR #pragma link CSPIN #pragma resource *.dfm TForm1 *Form1。 // __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } // void __fastcall TForm1::FormCreate(TObject *Sender) { //文本组件初始化 Form1-Edit1-Text=请输入年份。 Form1-Edit2-Text=请输入月份。 Form1-Edit3-Text=请输入日期。 //CCalendar组件初始化 Form1-CCalendar1-Year =2013。 Form1-CCalendar1-Month=7。 Form1-CCalendar1-Day=1。 //各个组件的状态 Form1-CCalendar1-Enabled=false。 Form1-Edit1-Enabled=false。 Form1-Edit2-Enabled=false。 Form1-Edit3-Enabled=false。 Form1-CSpinButton1-Enabled=false。 Form1-CSpinButton2-Enabled=false。 Form1-CSpinButton3-Enabled=false。 Form1-Timer1-Enabled=false。 } // void __fastcall TForm1::CCalendar1Change(TObject *Sender) { //将组件CCalendar中的时间显示在文本框中。 Form1-Edit1-Text=IntToStr(Form1-CCalendar1-Year)。 Form1-Edit2-Text=IntToStr(Form1-CCalendar1-Month)。 Form1-Edit3-Text=IntToStr(Form1-CCalendar1-Day)。 } // void __fastcall TForm1::Edit1Change(TObject *Sender) { //当文本框中的数据改变时，CCalendar中相应的改变 Form1-CCalendar1-Year=StrToInt(Form1-Edit1-Text)。 } // void __fastcall TForm1::Edit2Change(TObject *Sender) { Form1-CCalendar1-Month=StrToInt(Form1-Edit2-Text)。 } // void __fastcall TForm1::Edit3Change(TObject *Sender) { Form1-CCalendar1-Day=StrToInt(Form1-Edit3-Text)。 } // void __fastcall TForm1::CSpinButton1DownClick(TObject *Sender) { //年数减一 if(StrToInt(Form1-Edit1-Text)1) Form1-Edit1-Text=IntToStr(StrToInt(Form1-Edit1-Text)-1)。 // Form1-CCalendar1-PrevYear。 } // void __fastcall TForm1::CSpinButton1UpClick(TObject *Sender) { //