selectdata.~pas

一个信息查询系统,主要功能文件上传下载,信息浏览,打印等

unit selectdata;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, Buttons, ComCtrls, XPMenu,
  Excel2000, OleServer,db;

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Panel5: TPanel;
    Label15: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Panel2: TPanel;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    GroupBox2: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Edit1: TEdit;
    Panel4: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Panel6: TPanel;
    ComboBox2: TComboBox;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    GroupBox3: TGroupBox;
    Label4: TLabel;
    DateTimePicker3: TDateTimePicker;
    Label5: TLabel;
    DateTimePicker4: TDateTimePicker;
    Panel7: TPanel;
    Label6: TLabel;
    ComboBox3: TComboBox;
    CheckBox2: TCheckBox;
    GroupBox4: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    DateTimePicker5: TDateTimePicker;
    DateTimePicker6: TDateTimePicker;
    Panel8: TPanel;
    Label9: TLabel;
    CheckBox3: TCheckBox;
    GroupBox5: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    DateTimePicker7: TDateTimePicker;
    DateTimePicker8: TDateTimePicker;
    Edit2: TEdit;
    Panel9: TPanel;
    Label12: TLabel;
    CheckBox4: TCheckBox;
    GroupBox6: TGroupBox;
    Label21: TLabel;
    Label22: TLabel;
    DateTimePicker9: TDateTimePicker;
    DateTimePicker10: TDateTimePicker;
    ComboBox4: TComboBox;
    Panel10: TPanel;
    Label23: TLabel;
    ComboBox5: TComboBox;
    Label24: TLabel;
    ComboBox6: TComboBox;
    Edit3: TEdit;
    SpeedButton4: TSpeedButton;
    ExcelWorkbook1: TExcelWorkbook;
    ExcelWorksheet1: TExcelWorksheet;
    ExcelApplication1: TExcelApplication;
    SaveDialog1: TSaveDialog;
    Panel11: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label25: TLabel;
    Label26: TLabel;
    CheckBox5: TCheckBox;
    combobox10: TComboBox;
    Panel12: TPanel;
    Label27: TLabel;
    CheckBox6: TCheckBox;
    GroupBox7: TGroupBox;
    Label28: TLabel;
    Label29: TLabel;
    DateTimePicker11: TDateTimePicker;
    DateTimePicker12: TDateTimePicker;
    ComboBox7: TComboBox;
    Panel13: TPanel;
    SpeedButton5: TSpeedButton;
    Panel14: TPanel;
    DateTimePicker13: TDateTimePicker;
    DateTimePicker14: TDateTimePicker;
    Label30: TLabel;
    Label31: TLabel;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    Panel15: TPanel;
    procedure SpeedButton2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Edit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Edit2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox5Change(Sender: TObject);
    procedure ComboBox6Change(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure combobox10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure combobox10Change(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure ComboBox7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox7Change(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
    i:integer;
    tmpp:string;
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses cgmain, selectkan, views, loads;

{$R *.dfm}

procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
   form3.panel1.Visible:=false;
   OKBottomDlg.Close;
end;

procedure TForm3.ComboBox1Change(Sender: TObject);
var
i:integer;

begin
   form3.CheckBox1.Checked:=false;
   form3.CheckBox1.Checked:=false;
   form3.CheckBox4.Checked:=false;
   form3.CheckBox4.Checked:=false;
   Form3.SpeedButton1.Visible:=true;
   i:=0;

   while i<combobox1.Items.Count do
   begin
   if  combobox1.Text=combobox1.Items[i] then
   break;
   inc(i);
   end;
   if i>=combobox1.Items.Count then begin application.MessageBox('条件选择不对','提示',mb_ok);combobox1.Text:=tmpp;combobox1.SetFocus;exit; end;
   if (combobox1.Text='陈述通知号')  then
    begin
       edit1.Visible:=true;
       edit1.Clear;
       edit1.SetFocus;
    end
    else
    edit1.Visible:=false;
    if (combobox1.Text='日期时间段')  then
    begin
       panel4.Visible:=true;
    end
    else
    panel4.Visible:=false;
    if (combobox1.Text='来源')  then
    begin
       form3.combobox2.Items.LoadFromFile(extractfilepath(paramstr(0))+'\zfzd.ini');
       panel6.Visible:=true;
    end
    else
    panel6.Visible:=false;
     if (combobox1.Text='处理方式')  then
    begin
     //  form3.combobox3.Items.LoadFromFile(extractfilepath(paramstr(0))+'\cffs.ini');
       panel7.Visible:=true;
    end
    else
    panel7.Visible:=false;
    if (combobox1.Text='路段')  then
    begin
       form3.Edit2.Clear;
       panel8.Visible:=true;
       Form3.SpeedButton1.Visible:=false;
    end
    else
    panel8.Visible:=false;
    if (combobox1.Text='材料情况')  then
    begin
       panel9.Visible:=true;
    end
    else
    panel9.Visible:=false;
    if (combobox1.Text='车牌号')  then
    begin
       form3.Edit3.Clear;
       form3.combobox5.Items.LoadFromFile(extractfilepath(paramstr(0))+'\cldh.ini');
       panel10.Visible:=true;
    end
    else
    panel10.Visible:=false;

     if (combobox1.Text='处罚情况')  then
    begin
      form3.combobox10.Items.LoadFromFile(extractfilepath(paramstr(0))+'\zfzd.ini');
       panel11.Visible:=true;
    end
    else
    panel11.Visible:=false;
    if (combobox1.Text='照片情况')  then
    begin
     // form3.combobox7.Items.LoadFromFile(extractfilepath(paramstr(0))+'\zfzd.ini');
       panel12.Visible:=true;
    end
    else
    panel12.Visible:=false;
     if (combobox1.Text='动态精确查询')  then
     panel13.Visible:=true
     else
     begin
     panel13.Visible:=false;
     OKBottomDlg.close;
     end;
     if (combobox1.Text='未上报到法院')or (combobox1.Text='已启用司法程序')  then
     begin
       panel14.Visible:=true ;
       end
     else
     begin
     panel14.Visible:=false;
     end;


end;

procedure TForm3.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var
  strsql:string;
begin
   { if edit1.Text='' then exit;
    strsql:='select * from "wf_zl_info" a,"cl" b where a.clzl=b.clbm  and TZSHM like '''+trim(edit1.Text)+'%'+''' order by  a.TZSHM ';
    form1.query1.Close;
    form1.query1.SQL.Clear;
    form1.Query1.UnPrepare;
    form1.query1.SQL.Add(strsql);
    form1.Query1.Prepare;
    form1.query1.Open;     }
end;

procedure TForm3.SpeedButton1Click(Sender: TObject);
var
  strsql:string;
  tmp:string;
begin

    if (trim(combobox1.Text)='') then
    begin
     form1.query1.Close;
    form1.query1.SQL.Clear;
    form1.Query1.UnPrepare;
    form1.query1.SQL.Add('select * from "wf_zl_info" a,"cl" b where a.clzl=b.clbm order by  a.TZSHM ');
    form1.Query1.Prepare;
    form1.query1.Open; 
    end;
  if (combobox1.Text='陈述通知号')  then
    begin
    tmp:=trim(edit1.Text)+'%'+''' order by  a.TZSHM ';
    strsql:='select * from "wf_zl_info" a,"cl" b where a.clzl=b.clbm  and TZSHM  like '''+tmp;
    form1.query1.Close;
    form1.query1.SQL.Clear;
    form1.Query1.UnPrepare;
    form1.query1.SQL.Add(strsql);
    form1.Query1.Prepare;
    form1.query1.Open;
    end ;
     if (combobox1.Text='日期时间段')  then
    begin
      form1.query1.Close;
    form1.query1.SQL.Clear;
    form1.Query1.UnPrepare;
    form1.query1.SQL.Add('select * from "wf_zl_info" a,"cl" b where a.clzl=b.clbm and a.wfsj between :p1 and :p2 order by  a.TZSHM ');
    form1.query1.ParamByName('p1').Value:=datetostr(form3.datetimepicker1.Date);
    form1.query1.ParamByName('p2').Value:=datetostr(form3.datetimepicker2.Date);
    form1.Query1.Prepare;
    form1.query1.Open;
    end;
    if (combobox1.Text='来源')  then
    begin