uform_fw_limit.~pas

来自「这个程序虽然不怎么多」· ~PAS 代码 · 共 70 行

unit Uform_fw_limit;

interface

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

type
  Tform_fw_limit = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label2: TLabel;
    Label1: TLabel;
    Bevel1: TBevel;
    Image2: TImage;
    DateTimePicker2: TDateTimePicker;
    Label6: TLabel;
    Label5: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label4: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    sdate:tdate;
    edate:tdate;
    yesno:boolean;
  end;

var
  form_fw_limit: Tform_fw_limit;

implementation

{$R *.dfm}

procedure Tform_fw_limit.FormShow(Sender: TObject);
begin
   yesno:=false;
   datetimepicker1.DateTime :=now;
   datetimepicker2.DateTime :=now;
end;

procedure Tform_fw_limit.BitBtn3Click(Sender: TObject);
begin
   close;
end;

procedure Tform_fw_limit.BitBtn2Click(Sender: TObject);
begin
   if datetimepicker1.Date >datetimepicker2.Date then
   begin
      showmessage('开始日期大于终止日期');
      datetimepicker1.SetFocus ;
      exit;
   end;
   yesno:=true;
   edate:=datetimepicker2.Date;
   sdate:=datetimepicker1.Date;
   close;
end;

end.