datechoice_unit.pas

学校班级教学管理系统 DELPHI7下的

unit DateChoice_Unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base_Unit, ComCtrls, Menus, StdActns, ActnList;

type
  TfrmDateChoice = class(TfrmBase)
    MonthCalendar1: TMonthCalendar;
    procedure FormShow(Sender: TObject);
    procedure MonthCalendar1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDateChoice: TfrmDateChoice;

implementation
uses
  Common_Unit, StudentSet_Unit, StudentScore_Unit, PracticeSet_Unit;
{$R *.dfm}

procedure TfrmDateChoice.FormShow(Sender: TObject);
begin
  inherited;
  MonthCalendar1.Date :=Date;
end;

procedure TfrmDateChoice.MonthCalendar1Click(Sender: TObject);
begin
  inherited;
  Close;
end;

end.