unfindncpt.pas

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

unit UnFindNcpt;

interface

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

type
  TFrm_FindNCPT = class(TForm)
    CheckBox1: TCheckBox;
    Cbx_No: TComboBox;
    edt_1: TEdit;
    Button1: TButton;
    Bevel2: TBevel;
    edt_2: TEdit;
    Button2: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    CheckBox2: TCheckBox;
    BitBtn3: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_FindNCPT: TFrm_FindNCPT;

implementation

uses Undate, Undm, UnViewNcpt;

{$R *.dfm}

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

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

procedure TFrm_FindNCPT.FormCreate(Sender: TObject);
var
  adotmp:TADOQuery;
begin
  left:=323;width:=391;Height:=232;Top:=60;
  Cbx_No.Clear;
  adotmp:=TADOQuery.Create(self);
  try
  with adotmp do
  begin
    Connection:=DM.AdoConn;
    Close;
    SQL.Text:='select * from T_employee order by no';
    Open;
    while not eof do
    begin
      Cbx_no.Items.Add(fieldbyname('no').AsString+'-'+fieldbyname('username').AsString);
      Next;
    end;
    Free;
  end;
  except
    adotmp.Free;
  end;
    edt_1.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',now-1);
  edt_2.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',now);
end;

procedure TFrm_FindNCPT.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;  pt.Y:=edt_1.Top+edt_1.Height;
    pt:=ClientToScreen(pt);
    date_frm.Left:=pt.X;
    date_frm.Top:=pt.Y;
end;

procedure TFrm_FindNCPT.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;  pt.Y:=edt_2.Top+edt_2.Height;
    pt:=ClientToScreen(pt);
    date_frm.Left:=pt.X;
    date_frm.Top:=pt.Y;
end;

procedure TFrm_FindNCPT.BitBtn1Click(Sender: TObject);
var
  str:string;
begin
  str:='';
  if CheckBox1.Checked then
    str:='perno='+quotedstr(copy(cbx_no.Text,1,4));
  if CheckBox2.Checked then
    if str='' then
      str:='udate>='+quotedstr(edt_1.Text)+' and udate<='+quotedstr(edt_2.Text)
    else
      str:=str+' and udate>='+quotedstr(edt_1.Text)+' and udate<='+quotedstr(edt_2.Text);
  if str='' then
    str:='select * from view_ncpt'+' order by udate desc'
  else
    str:='select * from view_ncpt where '+str+' order by udate desc';
  if frm_ViewNcpt<>nil then exit;
  frm_ViewNcpt:=Tfrm_ViewNcpt.Create(nil);
  frm_ViewNcpt.addItem(str);
  //'select * from view_ncpt where';
  frm_ViewNcpt.Show;
  Close;
end;

procedure TFrm_FindNCPT.BitBtn3Click(Sender: TObject);
var
  str:string;
begin
  str:='';
  if CheckBox1.Checked then
    str:='perno='+quotedstr(copy(cbx_no.Text,1,4));
  if CheckBox2.Checked then
    if str='' then
      str:='udate>='+quotedstr(edt_1.Text)+' and udate<='+quotedstr(edt_2.Text)+' order by udate desc'
    else
      str:=str+' and udate>='+quotedstr(edt_1.Text)+' and udate<='+quotedstr(edt_2.Text)+' order by udate desc';
  if str='' then
    str:='select * from view_ncpt'
  else
    str:='select * from view_ncpt where '+str;

  with dm.AQ20 do
  begin
    SQL.Text:=str;
    Prepared:=True;
    Open;
  end;
  DM.RvP.ProjectFile:='DJREP.rav';
  DM.RvP.SelectReport('Rep_Ncpt',True);
  DM.RvP.Execute;

end;

end.