caleclock.pas

感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡记录器所具有的对持卡人刷卡卡号、时间、次数进行读取贮存等功能

unit CaleClock;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, CnCalendar, ExtCtrls, StdCtrls, Mask, ComCtrls, Menus;

type
  TfrmCaleClock = class(TForm)
    CnCalendar1: TCnCalendar;
    Panel1: TPanel;
    Panel2: TPanel;
    dpDate: TDateTimePicker;
    Label3: TLabel;
    panCnToday: TPanel;
    Label4: TLabel;
    Label5: TLabel;
    lblCnYear0: TStaticText;
    lblCnMonth0: TStaticText;
    lblCnDay0: TStaticText;
    lblWeek0: TStaticText;
    Label6: TLabel;
    lblDate0: TStaticText;
    Timer1: TTimer;
    lblCurTime: TStaticText;
    procedure Timer1Timer(Sender: TObject);
    procedure CnCalendar1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dpDateChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCaleClock: TfrmCaleClock;

implementation

{$R *.DFM}

procedure TfrmCaleClock.Timer1Timer(Sender: TObject);
begin
	lblCurTime.Caption :=FormatDatetime('hh:nn:ss', Time());
end;

procedure TfrmCaleClock.CnCalendar1Change(Sender: TObject);
begin
	dpDate.Date :=CnCalendar1.CalendarDate;
end;

procedure TfrmCaleClock.FormCreate(Sender: TObject);
begin
	CnCalendar1.CalendarDate := Date();
    Timer1.OnTimer(nil);
    
    lblDate0.Caption :=FormatDatetime('yyyy-mm-dd', CnCalendar1.CalendarDate);
    lblWeek0.Caption :='琍戳' +CnCalendar1.CnDayOfWeek;
    lblCnYear0.Caption :=CnCalendar1.CnYear;
    lblCnMonth0.Caption :=CnCalendar1.CnMonth;
    lblCnDay0.Caption :=CnCalendar1.CnDay;
end;

procedure TfrmCaleClock.dpDateChange(Sender: TObject);
var dDate :TDate;
begin
    dDate :=dpDate.Date;
	CnCalendar1.CalendarDate :=dDate;
end;

end.