year.pas

pasa人力资源考勤管理系统

unit year;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls;

type
  TFormyear = class(TForm)
    MonthCalendar1: TMonthCalendar;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formyear: TFormyear;

implementation

uses main;
{$R *.DFM}

procedure TFormyear.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    formyear:=nil;
    action:=cafree;
    formmain.statusbarpro1.Panels[0].text:='Ready';
end;

procedure TFormyear.FormActivate(Sender: TObject);
begin
  MonthCalendar1.Date :=date;
end;

end.