cndateunit.pas

来自「工资管理系统」· PAS 代码 · 共 81 行

unit CnDateUnit;

interface

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

type
  TCnDateForm = class(TForm)
    Cn: TCnCalendar;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CnChange(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CnDateForm: TCnDateForm;

implementation

{$R *.DFM}

procedure TCnDateForm.Button1Click(Sender: TObject);
begin
cn.NextMonth;
CnDateForm.Caption:='中国万年历--'+datetimetostr(cn.CalendarDate);

end;


procedure TCnDateForm.Button2Click(Sender: TObject);
begin
cn.PrevMonth;
CnDateForm.Caption:='中国万年历--'+datetimetostr(cn.CalendarDate);

end;

procedure TCnDateForm.CnChange(Sender: TObject);
begin
CnDateForm.Caption:='中国万年历--'+datetimetostr(cn.CalendarDate);

end;


procedure TCnDateForm.Button3Click(Sender: TObject);
begin
cn.Prevyear;
CnDateForm.Caption:='中国万年历--'+datetimetostr(cn.CalendarDate);

end;

procedure TCnDateForm.Button4Click(Sender: TObject);
begin
cn.NextYear;
 CnDateForm.Caption:='中国万年历--'+datetimetostr(cn.CalendarDate);

end;


procedure TCnDateForm.Button5Click(Sender: TObject);
begin
    Cn.UseCurrentDate:=true;
    CnDateForm.Caption:='中国万年历--'+datetimetostr(cn.CalendarDate);
end;


end.