choose_day_pas.~pas

delphi6.0电子寻更源程序,用来计算保安有无查抄

unit choose_day_pas;

interface

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

type
  Tchoose_day = class(TForm)
    Panel3: TPanel;
    RxLabel3: TRxLabel;
    RxLabel5: TRxLabel;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker1: TDateTimePicker;
    Panel1: TPanel;
    OKBtn: TButton;
    CancelBtn: TButton;
    procedure OKBtnClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DateTimePicker2Exit(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  choose_day: Tchoose_day;

implementation

uses menu,yxxx_view_pas;

{$R *.DFM}

procedure Tchoose_day.OKBtnClick(Sender: TObject);
var
child:tyxxx_view;
begin
IF datetimepicker1.DateTime>datetimepicker2.DateTime then
begin
showmessage('起始日期不能大於截止日期,請重新輸入！');
datetimepicker2.SetFocus;
exit;
end
else
begin
mainform.Label2.Visible:=true;
mainform.Label3.Visible:=true;
mainform.Label2.Caption:=datetostr(datetimepicker1.datetime);
mainform.Label3.Caption:=datetostr(datetimepicker2.datetime);
showmessage(mainform.Label2.caption);
close;
child:=tyxxx_view.Create(application) ;
child.show;
mainform.n17.Enabled:=false;
mainform.ToolButton11.Enabled:=false;
end;
end;

procedure Tchoose_day.FormActivate(Sender: TObject);
begin
self.Top:=189;
self.Left:=284;
//self.left:=round((mainform.Width-self.Width)/2);
end;

procedure Tchoose_day.DateTimePicker2Exit(Sender: TObject);
begin
IF datetimepicker1.DateTime>datetimepicker2.DateTime then
begin
showmessage('截至日期不能小於起始日期,請重新輸入！');
datetimepicker2.SetFocus;
//okbtn.ModalResult :=mrcancel;
exit;
end

end;

procedure Tchoose_day.CancelBtnClick(Sender: TObject);
begin
close;
mainform.n17.Enabled:=true;
mainform.ToolButton11.Enabled:=true;
end;

end.