开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
Week.cpp
资源名称：c++builder6编程实例.ZIP　[点击查看]
上传用户：lulishicai
上传日期：2010-03-01
资源大小：13202k
文件大小：5k
源码类别：

Delphi/CppBuilder

开发平台：

C++ Builder

Week.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Week.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma link "CCALENDR"
  9. #pragma link "CSPIN"
  10. #pragma resource "*.dfm"
  11. TForm1 *Form1;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  19. void __fastcall TForm1::FormCreate(TObject *Sender)
  20. {
  21. Form1->Edit1->Text="请输入年份";
  22. Form1->Edit2->Text="请输入月份";
  23. Form1->Edit3->Text="请输入日期";
  24. //文本控件的初始化
  25. Form1->CCalendar1->Year=1977;
  26. Form1->CCalendar1->Month=1;
  27. Form1->CCalendar1->Day=19;
  28. //CCalendar控件的初始化
  29. Form1->CCalendar1->Enabled=false;
  30. Form1->Edit1->Enabled=false;
  31. Form1->Edit2->Enabled=false;
  32. Form1->Edit3->Enabled=false;
  33. Form1->CSpinButton1->Enabled=false;
  34. Form1->CSpinButton2->Enabled=false;
  35. Form1->CSpinButton3->Enabled=false;
  36. Form1->Timer1->Enabled=false;
  37. //设置控件的有效状态
  38. }
  39. //---------------------------------------------------------------------------
  41. void __fastcall TForm1::Button1Click(TObject *Sender)
  42. {
  43. Form1->CCalendar1->Enabled=true;
  44. Form1->Edit1->Enabled=true;
  45. Form1->Edit2->Enabled=true;
  46. Form1->Edit3->Enabled=true;
  47. Form1->CSpinButton1->Enabled=true;
  48. Form1->CSpinButton2->Enabled=true;
  49. Form1->CSpinButton3->Enabled=true;
  50. Form1->Timer1->Enabled=true;
  51. //设置控件的有效状态
  52. Form1->CCalendar1->Year=StrToInt(Form1->Edit1->Text);
  53. Form1->CCalendar1->Month=StrToInt(Form1->Edit2->Text);
  54. Form1->CCalendar1->Day=StrToInt(Form1->Edit3->Text);
  55. //查询文本框中显示的日期
  56. }
  57. //---------------------------------------------------------------------------
  59. void __fastcall TForm1::CCalendar1Change(TObject *Sender)
  60. {
  61. Form1->Edit1->Text=IntToStr(Form1->CCalendar1->Year);
  62. Form1->Edit2->Text=IntToStr(Form1->CCalendar1->Month);
  63. Form1->Edit3->Text=IntToStr(Form1->CCalendar1->Day);
  64. //在文本框中显示日期信息
  65. }
  66. //---------------------------------------------------------------------------
  68. void __fastcall TForm1::CSpinButton1DownClick(TObject *Sender)
  69. {
  70. if (StrToInt(Form1->Edit1->Text)>1)
  71. Form1->Edit1->Text=IntToStr(StrToInt(Form1->Edit1->Text)-1);
  72. //年数减一
  73. /*或者用下面的方法：
  74.  Form1->CCalendar1->PrevYear;*/
  75. }
  76. //---------------------------------------------------------------------------
  78. void __fastcall TForm1::CSpinButton1UpClick(TObject *Sender)
  79. {
  80. if (StrToInt(Form1->Edit1->Text)<9999)
  81. Form1->Edit1->Text=IntToStr(StrToInt(Form1->Edit1->Text)+1);
  82. //年数加一
  83. /*或者用下面的方法：
  84.  Form1->CCalendar1->NextYear;*/
  85. }
  86. //---------------------------------------------------------------------------
  88. void __fastcall TForm1::CSpinButton2DownClick(TObject *Sender)
  89. {
  90. if (StrToInt(Form1->Edit2->Text)>1)
  91. Form1->Edit2->Text=IntToStr(StrToInt(Form1->Edit2->Text)-1);
  92. //月份减一
  93. /*或者用下面的方法
  94.  Form1->CCalendar1->PrevMonth;*/
  95. }
  96. //---------------------------------------------------------------------------
  97. void __fastcall TForm1::CSpinButton2UpClick(TObject *Sender)
  98. {
  99. if (StrToInt(Form1->Edit2->Text)<12)
  100. Form1->Edit2->Text=IntToStr(StrToInt(Form1->Edit2->Text)+1);
  101. //月份加一
  102. /*或者用下面的方法
  103.  Form1->CCalendar1->NextMonth;*/
  104. }
  105. //---------------------------------------------------------------------------
  106. void __fastcall TForm1::CSpinButton3DownClick(TObject *Sender)
  107. {
  108. if (StrToInt(Form1->Edit3->Text)>1)
  109. Form1->Edit3->Text=IntToStr(StrToInt(Form1->Edit3->Text)-1);
  110. //日期减一
  111. }
  112. //---------------------------------------------------------------------------
  113. void __fastcall TForm1::CSpinButton3UpClick(TObject *Sender)
  114. {
  115. if (StrToInt(Form1->Edit3->Text)<31)
  116. Form1->Edit3->Text=IntToStr(StrToInt(Form1->Edit3->Text)+1);
  117. //日期加一
  118. }
  119. //---------------------------------------------------------------------------
  120. void __fastcall TForm1::Timer1Timer(TObject *Sender)
  121. {
  122. Form1->Edit4->Text=TimeToStr(Time());
  123. //动态显示系统时间
  124. }
  125. //---------------------------------------------------------------------------
  127. void __fastcall TForm1::Edit1Change(TObject *Sender)
  128. {
  129. Form1->CCalendar1->Year=StrToInt(Form1->Edit1->Text);
  130. //年数改变
  131. }
  132. //---------------------------------------------------------------------------
  134. void __fastcall TForm1::Edit2Change(TObject *Sender)
  135. {
  136. Form1->CCalendar1->Month=StrToInt(Form1->Edit2->Text);
  137. //月份改变
  138. }
  139. //---------------------------------------------------------------------------
  141. void __fastcall TForm1::Edit3Change(TObject *Sender)
  142. {
  143. Form1->CCalendar1->Day=StrToInt(Form1->Edit3->Text);
  144. //日期改变
  145. }
  146. //---------------------------------------------------------------------------