information.~pas

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

unit information;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  datamodal, StdCtrls, DBCtrls, ExtCtrls, Grids, DBGrids, ComCtrls,gvas,
  Mask, ToolEdit, RXCtrls, Buttons;

type
  TinformationForm = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Panel2: TPanel;
    DBLookupComboBox3: TDBLookupComboBox;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    DBLookupComboBox1: TDBLookupComboBox;
    btn_print: TBitBtn;
    BitBtn2: TBitBtn;
    Button3: TBitBtn;
    Edit1: TEdit;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox4: TDBLookupComboBox;
    DBLookupComboBox5: TDBLookupComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label3: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    BitBtn12: TBitBtn;
    BitBtn11: TBitBtn;
    DateEdit1: TDateEdit;
    DateEdit2: TDateEdit;
    procedure Button5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   procedure Button6Click(Sender: TObject);
    procedure CB_FILTERClick(Sender: TObject);
    procedure AdvanceQueryCBClick(Sender: TObject);
    procedure btn_printClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure DateEdit2Exit(Sender: TObject);
    procedure DateEdit1Exit(Sender: TObject);

  private
    { Private declarations }
    procedure SetButton;
  public
    { Public declarations }
  end;

var
  informationForm: TinformationForm;
  sql1,sql2:string;

implementation

uses   reports2, ql_data, receformm,menu,password_unit;
//delrecord, ql_data, czdlg, InfoQuery, reports2;

{$R *.DFM}
var
  filtervar:string;
procedure TinformationForm.Button5Click(Sender: TObject);
begin
  close;
end;

procedure TinformationForm.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;

procedure TinformationForm.FormCreate(Sender: TObject);
var
//s1,s2:string;
  ls,ms,rs:string;
begin
  getkeyset(ls,ms,rs);
  RadioButton1.Caption:=ls;
  RadioButton2.Caption :=ms;
  RadioButton3.Caption:=rs;
//  showmessage(ls+ms+rs);
//  if not assigned(lsreportForm)then
//application.createform(TlsreportForm,lsreportForm);
 // if not assigned(clearForm)then
//application.createform(TclearForm,clearForm);

  end;

procedure TinformationForm.Button2Click(Sender: TObject);
begin
    {	with  datamodule1.T_PATROLREC	do
  begin
  	if ISEMPTY		THEN
    begin
			Application.MessageBox('當前記錄無效','消息',MB_ICONINFORMATION);
    	EXIT;
    end;
  end;
  delrecordform:=tdelrecordform.create(self);
//  delrecordform.Edit3.enabled:=true;
//  delrecordform.edit4.enabled:=true;
  delrecordform.Button1.caption:='更改';
  delrecordform.ShowModal;
  delrecordform.free;    }
end;

procedure TinformationForm.Button3Click(Sender: TObject);
begin
	with  datamodule1.t_PATROLREC	do
  begin
  close;
  open;
      if recordcount=0 then 
    begin
    	Application.MessageBox('當前資料庫空！','消息',MB_ICONINFORMATION);
    	EXIT;
    end;
  end;
  clearform:=tclearform.create(self);
  clearform.showmodal;
  clearform.free;
end;

procedure TinformationForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
{  if datamodule1.T_PATROLREC.active=true then
     datamodule1.T_PATROLREC.close;
  infoqueryform.free; }
 // lsreportForm.Free;
  //clearForm.free;
  end;

procedure TinformationForm.Button6Click(Sender: TObject);
begin
 // datamodule1.T_PATROLREC.CancelRange;
 // datamodule1.T_PATROLREC.active:=false;
 // datamodule1.T_PATROLREC.indexname:='date1';
 // datamodule1.T_PATROLREC.Active:=true;
end;

procedure TinformationForm.CB_FILTERClick(Sender: TObject);
begin
{	with datamodule1.T_PATROLREC do
  begin
		if cb_filter.Checked then
	  begin
      if advancequerycb.Checked then begin filter:=filtervar;filtered:=true;exit;end;
			if cb_linename.text<>'' then
       	filter:='linename='+''''+cb_linename.text+''''+' and '+'pdate='
        +''''+datetostr(e_date.date)+''''
      else
        filter:='pdate='+''''+datetostr(e_date.date)+'''';
      filtered:=true;
//      first;

	  end	else begin
//  		filter:='';
			if filtered then  filtered:=false;
//    	first;
	  end;
  end;   }

end;

procedure TinformationForm.SetButton;
//var
 // pc1:pchar;
 // INIFile:string;
begin
{  try
    getmem(pc1,10);
    INIFile:=ExtractFileDir(Application.ExeName)+'\HdXGXT.INI';
    if FileExists(INIFile)  then
    begin
      GetPrivateProfileString('DISPLAY','Modify','0',pc1,5,pChar(INIFile));
    end
    else  begin
      pc1:='0';
    end;
    if pc1='1'  then
    begin
      button1.enabled:=true;
      button2.enabled:=true;
    end
    else  begin
      button1.enabled:=false;
      button2.enabled:=false;
    end;
  finally
    freemem(pc1);
  end;  }
end;

procedure TinformationForm.AdvanceQueryCBClick(Sender: TObject);
//var
 // ss,ss1,ss2:string;
  //i1,i2:integer;
begin
{  if not AdvanceQueryCB.checked then exit;

  try
    infoqueryform.CB_line.items:=cb_linename.Items;
    if infoqueryform.showmodal<>mrok then
    begin
      advancequerycb.checked:=false;
    	datamodule1.T_PATROLREC.filtered:=false;
      cb_filter.Checked:=false;
    exit;
    end;
  	with infoqueryform do
    begin
      i1:=0;
      ss:='';
    	if chkb_date.Checked then
      begin
        ss:='pdate>='+''''+datetostr(dtp_begin.date)+''''+' and '+'pdate<='+''''+datetostr(dtp_end.date)+'''';
        i1:=1;
      end;
      if chkb_line.Checked  then
      begin
       	ss1:='linename='+''''+cb_line.text+'''';
        if i1=1 then ss:=ss+' and '+ss1
        else ss:=ss1;
        i1:=1;
        if chkb_seq.checked and (strtointdef(edit_seq.text,10000)<>10000) then
        begin
          ss1:='lseq='+edit_seq.text;
          if i1=1 then ss:=ss+' and '+ss1
          else ss:=ss1;
          i1:=1
        end;
      end;
      if chkb_worker.Checked and (edit_worker.text<>'') then
      begin
        ss1:='workername='+''''+edit_worker.text+'''';
        if i1=1 then ss:=ss+' and '+ss1
        else ss:=ss1;
        i1:=1
      end;
      if chkb_pencode.Checked and (edit_pencode.text<>'') then
      begin
        if length(edit_pencode.text)=1 then edit_pencode.text:='0'+edit_pencode.text;
        ss1:='pencode='+''''+edit_pencode.text+'''';
        if i1=1 then ss:=ss+' and '+ss1
        else ss:=ss1;
        i1:=1
      end;
      if chkb_statu.Checked then
      begin
        i2:=0;
        ss1:='';
        if chkb_s1.Checked then
        begin
          ss1:='pstatu='+''''+chkb_s1.caption+'''';
          i2:=1;
        end;
        if chkb_s2.Checked then
        begin
          ss2:='pstatu='+''''+chkb_s2.caption+'''';
          if i2=1 then ss1:=ss1+' or '+ss2
          else ss1:=ss2;
          i2:=1
        end;
        if chkb_s3.Checked then
        begin
          ss2:='pstatu='+''''+chkb_s3.caption+'''';
          if i2=1 then ss1:=ss1+' or '+ss2
          else ss1:=ss2;
          i2:=1
        end;
        if i2=1 then
           if  i1=1 then ss:=ss+' and ('+ss1+')'
           else ss:=ss1;
      end;
      filtervar:=ss;
      cb_filter.Checked:=true;
    	with datamodule1.T_PATROLREC do
      begin
        filter:=ss;
        filtered:=true;
      end;
    end;
  finally
//    infoqueryform.free;
  end; }
end;

procedure TinformationForm.btn_printClick(Sender: TObject);
begin
 DataModule1.q_view.DisableControls;
 lsreportform:=tlsreportform.create(self);
 lsreportform.qrlabel15.caption:=password.combobox1.text;
     lsreportForm.QuickRep1.preview;
  lsreportForm.QuickRep1.qrprinter:=nil;
  DataModule1.q_view.enableControls;

  {lsreportform:=tlsreportform.create(self);
  lsreportform.quickrep1.dataset:=datamodule1.T_PATROLREC;
  with lsreportform do