unperupdatafind.pas

设备巡检操作系统 本程序是专门为某电厂开发的设备巡检系统

unit UnPerUpdatafind;

interface

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

type
  TPerUpdatafind_frm = class(TForm)
    Date_Djrq: TDateTimePicker;
    Date_Djrq1: TDateTimePicker;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    RB1: TRadioButton;
    Rb2: TRadioButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Bevel1: TBevel;
    edt_1: TEdit;
    edt_2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure edt_1DblClick(Sender: TObject);
    procedure edt_2DblClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PerUpdatafind_frm: TPerUpdatafind_frm;
  PeruserFindstr:string;
implementation

uses UnFindPerPlan, UnFuntion, Undate;

{$R *.dfm}


procedure TPerUpdatafind_frm.BitBtn1Click(Sender: TObject);
var
  tmp_str:String;
begin
  PeruserFindstr:='';
  if RB1.Checked then
    tmp_str:=' udate ' else tmp_str:=' cdate ';
  if FindoutPerPlan_frm<>nil then exit;
  PeruserFind:=FindValues;          
  if CheckBox2.Checked then
    PeruserFindstr:=' and '+tmp_str+'>=to_date(' +
        quotedstr(edt_1.text)+','+quotedstr('yyyy-mm-dd hh24:mi:ss') +')'
          +' and '+tmp_str+'<=to_date('+quotedstr(edt_2.text)+','+quotedstr('yyyy-mm-dd hh24:mi:ss') +')';
  //if CheckBox1.Checked then
  //  PeruserFindstr:=PeruserFindstr+' and (tomsrvalue<dwv or msrvalue>uwv)';
  if FindoutPerPlan_frm=nil then
  FindoutPerPlan_frm:=TFindoutPerPlan_frm.Create(nil);
  FindoutPerPlan_frm.yc:=CheckBox1.Checked;
  FindoutPerPlan_frm.ListView1.Visible:=False;
  FindoutPerPlan_frm.Show;
  FindoutPerPlan_frm.Width:=1000;
  FindoutPerPlan_frm.Top:=5;
  FindoutPerPlan_frm.Left:=5;
  FindoutPerPlan_frm.Height:=580;
  Close;
end;

procedure TPerUpdatafind_frm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;PerUpdatafind_frm:=nil;
end;

procedure TPerUpdatafind_frm.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

procedure TPerUpdatafind_frm.Button1Click(Sender: TObject);
var
  pt:TPoint;
begin
  if date_frm=nil then
    date_frm:=Tdate_frm.Create(Application);
    date_frm.x:=edt_1.Handle;
    date_frm.Show;
   // SetWindowPos(date_frm.Handle,HWND_TOPMOST,date_frm.Left,date_frm.Top,date_frm.Width,date_frm.Height,0) ;
    pt.X:= edt_1.Left+Panel1.Left;  pt.Y:=edt_1.Top+edt_1.Height+Panel1.Top;
    pt:=ClientToScreen(pt);
    date_frm.Left:=pt.X;
    date_frm.Top:=pt.Y;
end;

procedure TPerUpdatafind_frm.edt_1DblClick(Sender: TObject);
begin
  edt_1.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',now);
end;

procedure TPerUpdatafind_frm.edt_2DblClick(Sender: TObject);
begin
  edt_2.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',now);
end;

procedure TPerUpdatafind_frm.Button2Click(Sender: TObject);
var
  pt:TPoint;
begin
  if date_frm=nil then
    date_frm:=Tdate_frm.Create(Application);
    date_frm.x:=edt_2.Handle;
    date_frm.Show;
   // SetWindowPos(date_frm.Handle,HWND_TOPMOST,date_frm.Left,date_frm.Top,date_frm.Width,date_frm.Height,0) ;
    pt.X:= edt_2.Left+Panel1.Left;  pt.Y:=edt_2.Top+edt_2.Height+Panel1.Top;
    pt:=ClientToScreen(pt);
    date_frm.Left:=pt.X;
    date_frm.Top:=pt.Y;
end;

procedure TPerUpdatafind_frm.CheckBox2Click(Sender: TObject);
begin
  RB1.Enabled:=CheckBox2.Checked;
  RB2.Enabled:=RB1.Enabled;
end;

procedure TPerUpdatafind_frm.FormCreate(Sender: TObject);
begin
  edt_1.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',now-1);
  edt_2.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',now);;
end;

end.