loads.~pas

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

unit loads;

interface

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

type
  TOKBottomDlg = class(TForm)
    GroupBox1: TGroupBox;
    ComboBox1: TComboBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    ComboBox2: TComboBox;
    CheckBox3: TCheckBox;
    ComboBox3: TComboBox;
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    CheckBox4: TCheckBox;
    SpeedButton1: TSpeedButton;
    CheckBox5: TCheckBox;
    ComboBox4: TComboBox;
    CheckBox6: TCheckBox;
    ComboBox5: TComboBox;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    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 ComboBox4KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
  private
    { Private declarations }
    i:integer;
    tmpp:string;
  public
    { Public declarations }
  end;

var
  OKBottomDlg: TOKBottomDlg;

implementation

uses cgmain, indata;

{$R *.dfm}

procedure TOKBottomDlg.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin

       OKBottomDlg.Close;
       form2.CTALLBUT();
    end;
    if key=#27 then  OKBottomDlg.close;
end;

procedure TOKBottomDlg.FormShow(Sender: TObject);
begin
    checkbox1.Checked:=false;
    checkbox2.Checked:=false;
    checkbox3.Checked:=false;
    checkbox4.Checked:=false;
    checkbox5.Checked:=false;
    checkbox6.Checked:=false;
    combobox4.clear;
    combobox5.clear;
end;

procedure TOKBottomDlg.CheckBox1Click(Sender: TObject);
begin
    if checkbox1.Checked then
     combobox1.Enabled:=true
     else
     combobox1.Enabled:=false;
     
end;

procedure TOKBottomDlg.CheckBox2Click(Sender: TObject);
begin
  if checkbox2.Checked then
     combobox2.Enabled:=true
     else
     combobox2.Enabled:=false;
end;

procedure TOKBottomDlg.CheckBox3Click(Sender: TObject);
begin
   if checkbox3.Checked then
     combobox3.Enabled:=true
     else
     combobox3.Enabled:=false;
end;

procedure TOKBottomDlg.CheckBox4Click(Sender: TObject);
begin
   if checkbox4.Checked then
     begin
     combobox4.Clear;
     combobox4.Enabled:=true;
     end
     else
     begin
     combobox4.Clear;
     combobox4.Enabled:=false;
     end;
end;

procedure TOKBottomDlg.CheckBox5Click(Sender: TObject);
begin
  if (checkbox5.Checked=true) then
     begin
     datetimepicker1.Enabled:=true;
     datetimepicker2.Enabled:=true;
     end
     else
     begin
     datetimepicker1.Enabled:=false;
     datetimepicker2.Enabled:=false;
     end
end;

procedure TOKBottomDlg.ComboBox1Change(Sender: TObject);
begin
   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;
end;

procedure TOKBottomDlg.ComboBox2Change(Sender: TObject);
begin
  i:=0;

   while i<combobox2.Items.Count do
   begin
   if  combobox2.Text=combobox2.Items[i] then
   break;
   inc(i);
   end;
   if i>=combobox2.Items.Count then begin application.MessageBox('条件选择不对','提示',mb_ok);combobox2.Text:=tmpp;combobox2.SetFocus;exit; end;
end;

procedure TOKBottomDlg.ComboBox3Change(Sender: TObject);
begin
  i:=0;

   while i<combobox3.Items.Count do
   begin
   if  combobox3.Text=combobox3.Items[i] then
   break;
   inc(i);
   end;
   if i>=combobox3.Items.Count then begin application.MessageBox('条件选择不对','提示',mb_ok);combobox3.Text:=tmpp;combobox3.SetFocus;exit; end;
end;

procedure TOKBottomDlg.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  tmpp:=combobox1.Text;
end;

procedure TOKBottomDlg.ComboBox2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  tmpp:=combobox2.Text;
end;

procedure TOKBottomDlg.ComboBox3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   tmpp:=combobox3.Text;
end;

procedure TOKBottomDlg.ComboBox4KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);

 var
strsql:string;
begin
     strsql:='select distinct wfdd from  wf_zl_info  where   WFDD like '''+'%'+trim(combobox4.Text)+'%'+''' order by  wfdd ';
    form1.query4.Close;
    form1.query4.SQL.Clear;
    form1.Query4.UnPrepare;
    form1.query4.SQL.Add(strsql);
    form1.query4.open;
    form1.Query4.First;
     combobox4.Clear;

    while not form1.Query4.Eof do
    begin
     combobox4.Items.Add(form1.Query4['wfdd']);
      form1.Query4.Next;
    end;
    combobox4.ItemIndex:=0;
end;

procedure TOKBottomDlg.SpeedButton1Click(Sender: TObject);
var
strsql:string;
scstr,qrstr:string;
begin

      ////////////////////////////////////////////////////
    if not ((checkbox1.Checked=true) or (checkbox2.Checked=true) or (checkbox3.Checked=true) or (checkbox4.Checked=true) or (checkbox5.Checked=true)or (checkbox6.Checked=true)) then
      begin
      application.MessageBox('请选择条件','提示',MB_OK);
      exit;
      end;
      strsql:= 'select * from "wf_zl_info" a,"cl" b where a.clzl=b.clbm';
     if (checkbox1.Checked=true) then
      begin
        if (combobox1.Text='已上传') then  strsql:=strsql+' and scbz='''+'Y'+''''
        else  strsql:=strsql+' and scbz='''+'N'+'''';
      end;
     if (checkbox2.Checked=true) then
      begin
         strsql:=strsql+' and cffs='''+combobox2.Text+'''';
      end;
     if (checkbox3.Checked=true) then
      begin
         if (combobox3.Text='已处罚') then  strsql:=strsql+' and cfqr='''+'Y'+''''
         else  strsql:=strsql+' and cfqr='''+'N'+'''';
      end;
      if (checkbox4.Checked=true) then
      begin
         strsql:=strsql+' and wfdd='''+trim(combobox4.Text)+'''';
      end;
      if (checkbox6.Checked=true) then
      begin
         strsql:=strsql+' and zfbm='''+trim(combobox5.Text)+'''';
      end;
      if (checkbox5.Checked=true) then
      begin
        // strsql:=strsql+' and a.wfsj>=cast('''+datetostr(OKBottomDlg.datetimepicker1.Date)+''''+' as date)'+' and a.wfsj<=cast('''+datetostr(OKBottomDlg.datetimepicker2.Date)+''''+' as date)' ;
        strsql:=strsql+' and a.wfsj between :p1 and :p2' ;
      end;
      
      strsql:=strsql+' order by  a.TZSHM ';
      form1.query1.Close;
      form1.query1.SQL.Clear;
      form1.Query1.UnPrepare;
      form1.query1.SQL.Add(strsql);
       if (checkbox5.Checked=true) then
      begin
       form1.Query1.Params.ParamByName('p1').Value:=datetostr(OKBottomDlg.datetimepicker1.Date);
       form1.Query1.Params.ParamByName('p2').Value:=datetostr(OKBottomDlg.datetimepicker2.Date);
      end;
      form1.query1.open;  
end;

procedure TOKBottomDlg.CheckBox6Click(Sender: TObject);
begin
      if checkbox6.Checked then
      combobox5.Enabled:=true
      else
      combobox5.Enabled:=false;
      combobox5.Clear;
      combobox5.Items.LoadFromFile(extractfilepath(paramstr(0))+'\zfzd.ini');
      combobox5.ItemIndex:=0;
end;

end.