unit1.pas

上课小作业,一个小小的日历

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, Calendar, Spin, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Timer1: TTimer;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    SpinButton1: TSpinButton;
    SpinButton2: TSpinButton;
    SpinButton3: TSpinButton;
    Calendar1: TCalendar;
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Calendar1Change(Sender: TObject);
    procedure SpinButton1DownClick(Sender: TObject);
    procedure SpinButton2DownClick(Sender: TObject);
    procedure SpinButton1UpClick(Sender: TObject);
    procedure SpinButton2UpClick(Sender: TObject);
    procedure SpinButton3DownClick(Sender: TObject);
    procedure SpinButton3UpClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Edit2Change(Sender: TObject);
//修改年份
begin
  form1.Calendar1.Year:=strtoint(form1.edit2.text);
end;

procedure TForm1.Edit3Change(Sender: TObject);
//修改月份
begin
  form1.Calendar1.Month:=strtoint(form1.edit3.text);
end;

procedure TForm1.Edit4Change(Sender: TObject);
//修改日期
begin
  form1.Calendar1.Day:=strtoint(form1.edit4.text);
end;

procedure TForm1.Calendar1Change(Sender: TObject);
//随着Calendar控件属性的变化更新Edit控件中的内容
begin
  form1.Edit2.text:=inttostr(form1.calendar1.year);
  form1.edit3.text:=inttostr(form1.calendar1.month);
  form1.edit4.text:=inttostr(form1.calendar1.day);
end;

procedure TForm1.SpinButton1DownClick(Sender: TObject);
//修改与其相对应的Edit控件中的内容
begin
  if(strtoint(form1.edit2.text)>1) then
  form1.edit2.text:=inttostr(strtoint(form1.edit2.text)-1);
  form1.Calendar1.PrevYear;
end;

procedure TForm1.SpinButton2DownClick(Sender: TObject);
//修改与其相对应的Edit控件中的内容
begin
if(strtoint(form1.edit3.text)>1) then
  form1.Edit3.text:=inttostr(strtoint(form1.edit3.text)-1);
  form1.Calendar1.prevmonth;
end;

procedure TForm1.SpinButton1UpClick(Sender: TObject);
//修改与其相对应的Edit控件中的内容
begin
if(strtoint(form1.edit2.text)<9999) then
form1.edit2.text:=inttostr(strtoint(form1.edit2.text)+1);
form1.Calendar1.NextYear;
end;

procedure TForm1.SpinButton2UpClick(Sender: TObject);
//修改与其相对应的Edit控件中的内容
begin
  if(strtoint(form1.edit3.text)<12) then
  form1.Edit3.text:=inttostr(strtoint(form1.edit3.text)+1);
  form1.calendar1.NextMonth;
end;

procedure TForm1.SpinButton3DownClick(Sender: TObject);
//修改与其相对应的Edit控件中的内容
begin
  if(strtoint(form1.edit4.text)>1) then
  form1.edit4.text:=inttostr(strtoint(form1.edit4.text)-1);
end;

procedure TForm1.SpinButton3UpClick(Sender: TObject);
//修改与其相对应的Edit控件中的内容
begin
  if(strtoint(form1.edit4.text)<31) then
  form1.edit4.text:=inttostr(strtoint(form1.edit4.text)+1);
end;

procedure TForm1.Button1Click(Sender: TObject);
//设置日历的日期
begin
  form1.Calendar1.enabled:=true;
  form1.Edit2.enabled:=true;
  form1.edit3.enabled:=true;
  form1.edit4.enabled:=true;
  form1.spinbutton1.enabled:=true;
  form1.spinbutton2.enabled:=true;
  form1.spinbutton3.enabled:=true;
  form1.timer1.enabled:=true;
  form1.Calendar1.year:=strtoint(form1.edit2.text);
  form1.Calendar1.month:=strtoint(form1.edit3.text);
  form1.calendar1.day:=strtoint(form1.edit4.text);
end;

procedure TForm1.FormCreate(Sender: TObject);
//初始化Edit控件中的内容
begin
  edit2.text:=inttostr(1999);
  edit3.text:=inttostr(5);
  edit4.text:=inttostr(16);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  form1.Label1.caption:=timetostr(time);
end;

end.