savelistsearch.~pas

采用Delphi7+Oracle. 该软件是由交警人员对各个路口闯红灯违法照片进行有效保存

unit SaveListSearch;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, SjfyFrm,ADODB, DB;

type
  TfrmSaveListSearch = class(TForm)
    GroupBox1: TGroupBox;
    chk1: TCheckBox;
    cobHead: TComboBox;
    edtHbody: TEdit;
    chk2: TCheckBox;
    cobHpzl: TComboBox;
    chk3: TCheckBox;
    chk4: TCheckBox;
    dtStart: TDateTimePicker;
    dtEnd: TDateTimePicker;
    chk5: TCheckBox;
    Button1: TButton;
    TFrmSjfy1: TFrmSjfy;
    cobLRR: TComboBox;
    ADODataSet1: TADODataSet;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure TFrmSjfy1btnFirstClick(Sender: TObject);
  private
    { Private declarations }
  public
    function GetSQL:string;
    { Public declarations }
  end;

var
  frmSaveListSearch: TfrmSaveListSearch;

implementation

uses dbConn;



{$R *.dfm}

procedure TfrmSaveListSearch.FormShow(Sender: TObject);
var
  sql :String;
  sqlsql:String;
begin
      //load data
      dbConn.LoadCombobox(cobHpzl,'1');    //hpzl
     //dbconn.LoadCombobox(cobHead,'2');   //hphead
     sqlsql:='';
     sqlsql:='SELECT USERID,USERNAME FROM photocheck.P_USER';
     dbconn.loadCombox(cobLRR,sqlsql,false);
     cobLRR.ItemIndex := 1;
     sql:='';
     sql:='SELECT DMZ FROM photocheck.P_CODE where dmlb=''2''';
     dbconn.loadCombox(cobHead,sql,true);
     cobHead.ItemIndex := 1;
end;

function TfrmSaveListSearch.GetSQL:string;
var
  sql : String;
begin
  sql := 'select  s.hphm 号牌号码, s.hpzl 号牌种类,s.lrsj 录入时间,S.LRR 录入人,s.bz 备注,rownum from photocheck.P_SAVELIST s where ';
   if chk1.Checked then
  begin
      sql := sql + 'hphm like ''' + cobHead.Text+edtHbody.Text  + ''' and ';
  end;
  if chk2.Checked then
  begin
      sql := sql + 'hpzl = ''' + getdm(cobHpzl.Text) + ''' and ';
  end;
  if chk5.Checked then
  begin
      sql := sql + 'lrr = ''' + getdm(cobLRR.Text) + ''' and ';
  end;


  if chk3.Checked then
  begin
       sql := sql + ' lrsj >= to_date(''' + FormatDateTime('yyyy-mm-dd 00:00:00',dtStart.DateTime ) + ''',''yyyy-mm-dd HH24:mi:ss'')  and ';
  end;
  if chk4.Checked then
  begin
         sql := sql + ' lrsj <= to_date(''' + FormatDateTime('yyyy-mm-dd 23:59:59',dtEnd.datetime ) + ''',''yyyy-mm-dd HH24:mi:ss'')  and ';
  end;
  sql := sql + '1 = 1 order by 号牌号码';
  result := sql;
end;

procedure TfrmSaveListSearch.Button1Click(Sender: TObject);
begin
    if not ((chk1.Checked) or (chk2.Checked) or (chk3.Checked) or
    (chk4.Checked) or (chk5.Checked)) then
    begin
        MessageBox(0,'请选定查询条件进行查询', '保护信息', 64);
        exit;
    end;
    TFrmSjfy1.beginQuery(GetSQL,10);
end;

procedure TfrmSaveListSearch.FormActivate(Sender: TObject);
begin
      //dataset's conn
      TFrmSjfy1.ADODataSet1.Connection := cn_public;

end;

procedure TfrmSaveListSearch.TFrmSjfy1btnFirstClick(Sender: TObject);
begin
  TFrmSjfy1.btnFirstClick(Sender);

end;

end.