pub_choosedate.~pas

来自「完整的公司合同管理系统,基于ACSESS数据库开发,无须安装任何其他插件.附带源」· ~PAS 代码 · 共 51 行

unit Pub_ChooseDate;

interface

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

type
  TfrmPub_ChooseDate = class(TForm)
    Panel1: TPanel;
    MonthCalendar1: TMonthCalendar;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  function ChooseDate(var tDate : string) : boolean;
  var
  frmPub_ChooseDate: TfrmPub_ChooseDate;

implementation

{$R *.dfm}
function ChooseDate(var tDate : string) : boolean;
begin
  Application.CreateForm(TfrmPub_ChooseDate,frmPub_ChooseDate);
  with frmPub_ChooseDate do
       begin
         if ShowModal = mrok then
            begin
              tDate := DateToStr(MonthCalendar1.Date);
              result := true;
            end
         else
            result := false;
       end;
end;

procedure TfrmPub_ChooseDate.Button2Click(Sender: TObject);
begin
  close;
end;

end.