pickdate.pas

来自「制衣企业工资管理系统 这种就不用多说了 管理系统的应用是比较多」· PAS 代码 · 共 83 行

unit Pickdate;

interface

uses Windows, Classes, Graphics, Forms, Controls, Buttons,
  SysUtils, StdCtrls, Grids, Calendar, ExtCtrls;

type
  TBrDateForm = class(TForm)
    Calendar1: TCalendar;
    OkBtn: TButton;
    CancelBtn: TButton;
    TitleLabel: TLabel;
    PrevMonthBtn: TSpeedButton;
    NextMonthBtn: TSpeedButton;
    Bevel1: TBevel;
    Image1: TImage;
    sbPrevMonth: TSpeedButton;
    sbNextMonth: TSpeedButton;
    TitleLabel1: TLabel;
    procedure PrevMonthBtnClick(Sender: TObject);
    procedure NextMonthBtnClick(Sender: TObject);
    procedure Calendar1Change(Sender: TObject);
    procedure sbPrevMonthClick(Sender: TObject);
    procedure sbNextMonthClick(Sender: TObject);
    procedure Calendar1DblClick(Sender: TObject);
  private
    procedure SetDate(Date: TDateTime);
    function GetDate: TDateTime;
  public
    property Date: TDateTime read GetDate write SetDate;
  end;

var
  BrDateForm: TBrDateForm;

implementation

{$R *.DFM}

procedure TBrDateForm.SetDate(Date: TDateTime);
begin
 Calendar1.CalendarDate := Date;
end;

function TBrDateForm.GetDate: TDateTime;
begin
  Result := Calendar1.CalendarDate;
end;
         
procedure TBrDateForm.PrevMonthBtnClick(Sender: TObject);
begin
  Calendar1.PrevYear;
end;

procedure TBrDateForm.NextMonthBtnClick(Sender: TObject);
begin
  Calendar1.NextYear;
end;

procedure TBrDateForm.Calendar1Change(Sender: TObject);
begin
  TitleLabel.Caption := FormatDateTime('yyyy'+'" 年"', Calendar1.CalendarDate);
  TitleLabel1.Caption := FormatDateTime('mm'+'" 月"', Calendar1.CalendarDate);
end;

procedure TBrDateForm.sbPrevMonthClick(Sender: TObject);
begin
  Calendar1.PrevMonth;
end;

procedure TBrDateForm.sbNextMonthClick(Sender: TObject);
begin
  Calendar1.NextMonth;
end;

procedure TBrDateForm.Calendar1DblClick(Sender: TObject);
begin
  ModalResult := mrOK;
end;

end.