choose_pas.~pas

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

unit choose_pas;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, RXCtrls, StdCtrls, ExtCtrls, Buttons;
 const wm_mymessage=wm_user+5;
type
  Tchoose_day = class(TForm)
    Panel1: TPanel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    OKBtn: TBitBtn;
    CancelBtn: TBitBtn;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure DateTimePicker2Exit(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
  procedure    threaddone(SENDER:TOBJECT);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  choose_day: Tchoose_day;
   flag:boolean;
implementation
uses menu,yxxx_view_pas,show_thread;
{$R *.DFM}
procedure Tchoose_day.OKBtnClick(Sender: TObject);
var
child:tyxxx_view;
begin
IF datetimepicker1.DateTime>datetimepicker2.DateTime then
begin
Application.MessageBox('起始日期不能大於截止日期,請重新輸入！','消息',MB_ICONINFORMATION);
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);
okbtn.Enabled:=false;
CancelBtn.Enabled:=false;
//self.hide;
self.Close;
//self.hide;
yxxx_view:=tyxxx_view.Create(self);
yxxx_view.ShowModal ;
yxxx_view.free;
//self.close;
end;
end;

procedure tchoose_day.threaddone(SENDER:TOBJECT);
begin
self.Close;
end;
procedure Tchoose_day.CancelBtnClick(Sender: TObject);
begin
close;
end;

procedure Tchoose_day.DateTimePicker2Exit(Sender: TObject);
begin
{IF datetimepicker1.DateTime>datetimepicker2.DateTime then
begin
Application.MessageBox('截至日期不能小於起始日期,請重新輸入！','消息',MB_ICONINFORMATION);
datetimepicker2.SetFocus;
//okbtn.ModalResult :=mrcancel;
exit;
end;}
end;
procedure Tchoose_day.Timer1Timer(Sender: TObject);
begin
{if not flag then
begin
statusbar1.panels[0].text:='正在進行資訊查詢，請等待！！！';
flag:=true;
end
else
begin
statusbar1.panels[0].text:='';
flag:=false;
end;}
//label1.Caption:=datetimetostr(now);
end;

procedure Tchoose_day.FormShow(Sender: TObject);
begin
DateTimePicker1.DateTime:=now;
datetimepicker2.DateTime:=now;
datetimepicker1.SetFocus ;
if (screen.Height<600) and( screen.Width<800) then
  begin
  //scaled:=true;
  height:=181;//round(height*longint(screen.height)*96 / 600/screen.pixelsperinch);
  width :=247;//round( width *longint(screen.width)*96 / 800/screen.pixelsperinch);
  left:=166;//round((screen.Width-Width)/2);
  top:=146;//round((screen.height-self.height)/2);
  //ScaleControls(screen.width, 800);
  //ScaleControls(96,screen.pixelsperinch);
  end
  else
  begin
  self.Width :=254;
  self.Height:=190;
end;
end;

procedure Tchoose_day.DateTimePicker1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
IF KEY=VK_RETURN THEN
DATETIMEPICKER2.SetFocus ;
end;

procedure Tchoose_day.DateTimePicker2KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
if key=vk_return then
OKBtn.SetFocus ;
end;

procedure Tchoose_day.BitBtn2Click(Sender: TObject);
begin
//close;
end;

procedure Tchoose_day.Button1Click(Sender: TObject);
begin
Application.MessageBox(pchar('width='+inttostr(self.width)+'--'+'height='+inttostr(self.height)+'--'+'left='+inttostr(self.left)+'--top='+inttostr(self.top)),'消息',MB_ICONINFORMATION);

end;

end.