mandd.pas

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

unit mandd;

interface

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

type
  TOKBottomDlg10 = class(TForm)
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    SpeedButton1: TSpeedButton;
    Edit2: TEdit;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    SpeedButton2: TSpeedButton;
    CheckBox3: TCheckBox;
    Label3: TLabel;
    Label4: TLabel;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    CheckBox4: TCheckBox;
    Bevel1: TBevel;
    procedure SpeedButton2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker3Change(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker4KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker2KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    tmpp:string;
  public
    { Public declarations }
  end;

var
  OKBottomDlg10: TOKBottomDlg10;

implementation

uses cgmain;

{$R *.dfm}

procedure TOKBottomDlg10.SpeedButton2Click(Sender: TObject);
begin
  close;
end;

procedure TOKBottomDlg10.CheckBox1Click(Sender: TObject);
begin
   if ((checkbox2.Checked=false)and(checkbox3.Checked=false)and (checkbox4.Checked=false)) then
   begin
   checkbox1.Checked:=true;
   edit2.Enabled:=true;
   edit1.Enabled:=false;
   combobox2.Enabled:=false;
   datetimepicker1.Enabled:=false;
   datetimepicker2.Enabled:=false;
   datetimepicker3.Enabled:=false;
   datetimepicker4.Enabled:=false;
   end
   else
   begin
     checkbox2.Checked:=false;
     checkbox3.Checked:=false;
     datetimepicker1.Enabled:=false;
     datetimepicker2.Enabled:=false;
     datetimepicker3.Enabled:=false;
     datetimepicker4.Enabled:=false;
   //  checkbox1.Checked:=true;
     edit2.Enabled:=true;
     edit1.Enabled:=false;
      combobox2.Enabled:=false;

   end;
   edit2.SetFocus;
end;

procedure TOKBottomDlg10.CheckBox2Click(Sender: TObject);
begin
     if ((checkbox1.Checked=false)and (checkbox3.Checked=false)and (checkbox4.Checked=false)) then
   begin
   checkbox2.Checked:=true;
   edit1.Enabled:=true;
   edit2.Enabled:=false;
   datetimepicker1.Enabled:=false;
   datetimepicker2.Enabled:=false;
   datetimepicker3.Enabled:=false;
   datetimepicker4.Enabled:=false;
   combobox2.Enabled:=true;
   end
   else
   begin
     checkbox1.Checked:=false;
     checkbox3.Checked:=false;
     datetimepicker1.Enabled:=false;
     datetimepicker2.Enabled:=false;
     datetimepicker3.Enabled:=false;
     datetimepicker4.Enabled:=false;
     edit1.Enabled:=true;
   edit2.Enabled:=false;
   combobox2.Enabled:=true;
   end;
   combobox2.SetFocus;
end;

procedure TOKBottomDlg10.ComboBox2Change(Sender: TObject);
var
i:integer;
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 TOKBottomDlg10.ComboBox2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  tmpp:=combobox2.Text;
end;

procedure TOKBottomDlg10.FormShow(Sender: TObject);
begin
  combobox2.Items.LoadFromFile(extractfilepath(paramstr(0))+'\cldh.ini');
   datetimepicker1.Date:=date-5;
   datetimepicker2.Date:=date;
   datetimepicker3.Date:=date;
   datetimepicker4.Date:=date;
   checkbox1.Checked:=false;
   checkbox2.Checked:=false;
   checkbox3.Checked:=true;
   checkbox4.Checked:=false;
   edit1.Clear;
   edit2.Clear;
   combobox2.ItemIndex:=0;
end;

procedure TOKBottomDlg10.SpeedButton1Click(Sender: TObject);
begin
  if  ((checkbox3.Checked=true)) 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 cfqr='''+'N'+''''+' and sfbz='''+'N'+''' and wfsj between :p2 and :p3 order by  a.TZSHM ');
    form1.query1.ParamByName('p2').Value:=datetostr(datetimepicker1.Date);
    form1.query1.ParamByName('p3').Value:=datetostr(datetimepicker2.Date);
    form1.Query1.Prepare;
    form1.query1.Open;
 end;
 if  ((checkbox4.Checked=true)) 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 cfqr='''+'N'+''''+' and sfbz='''+'N'+''' and wrsj between :p2 and :p3 order by  a.TZSHM ');
    form1.query1.ParamByName('p2').Value:=datetostr(datetimepicker3.Date);
    form1.query1.ParamByName('p3').Value:=datetostr(datetimepicker4.Date);
    form1.Query1.Prepare;
    form1.query1.Open;
 end;
 if (checkbox1.Checked=true) 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 sfbz='''+'N'+''''+' and a.tzshm='''+trim(edit2.Text)+'''order by  a.TZSHM ');
    form1.Query1.Prepare;
    form1.query1.Open;
 end;
 if (checkbox2.Checked=true) 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  sfbz='''+'N'+''''+' and a.cphm='''+trim(combobox2.Text)+'-'+trim(edit1.Text)+'''order by  a.TZSHM ');
    form1.Query1.Prepare;
    form1.query1.Open;
 end;
 close;
end;

procedure TOKBottomDlg10.CheckBox3Click(Sender: TObject);
begin
    if ((checkbox1.Checked=false)and (checkbox2.Checked=false)and (checkbox4.Checked=false)) then
   begin
   checkbox3.Checked:=true;
   datetimepicker1.Enabled:=true;
   datetimepicker2.Enabled:=true;
   datetimepicker3.Enabled:=false;
   datetimepicker4.Enabled:=false;
   edit1.Enabled:=false;
   edit2.Enabled:=false;
   combobox2.Enabled:=false;
   end
   else
   begin
    checkbox1.Checked:=false;
    checkbox2.Checked:=false;
    checkbox4.Checked:=false;
   datetimepicker1.Enabled:=true;
   datetimepicker2.Enabled:=true;
   datetimepicker3.Enabled:=false;
   datetimepicker4.Enabled:=false;
   edit1.Enabled:=false;
   edit2.Enabled:=false;
   combobox2.Enabled:=false;
   end;
   datetimepicker1.SetFocus;
end;

procedure TOKBottomDlg10.CheckBox4Click(Sender: TObject);
begin
   if ((checkbox1.Checked=false)and (checkbox2.Checked=false)and (checkbox3.Checked=false)) then
   begin
   checkbox4.Checked:=true;
   datetimepicker3.Enabled:=true;
   datetimepicker4.Enabled:=true;
   datetimepicker1.Enabled:=false;
   datetimepicker2.Enabled:=false;
   edit1.Enabled:=false;
   edit2.Enabled:=false;
   combobox2.Enabled:=false;
   end
   else
   begin
    checkbox1.Checked:=false;
    checkbox2.Checked:=false;
    checkbox3.Checked:=false;
   datetimepicker3.Enabled:=true;
   datetimepicker4.Enabled:=true;
   datetimepicker1.Enabled:=false;
   datetimepicker2.Enabled:=false;
   edit1.Enabled:=false;
   edit2.Enabled:=false;
   combobox2.Enabled:=false;
   end;
   datetimepicker3.SetFocus;
end;

procedure TOKBottomDlg10.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
       speedbutton1.Click;
end;

procedure TOKBottomDlg10.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
       speedbutton1.Click;
end;

procedure TOKBottomDlg10.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
      edit1.SetFocus;
end;

procedure TOKBottomDlg10.DateTimePicker3Change(Sender: TObject);
begin
   datetimepicker4.SetFocus;
end;

procedure TOKBottomDlg10.DateTimePicker1Change(Sender: TObject);
begin
datetimepicker2.SetFocus;
end;

procedure TOKBottomDlg10.DateTimePicker4KeyPress(Sender: TObject;
  var Key: Char);
begin
 if key=#13 then
       speedbutton1.Click;
end;

procedure TOKBottomDlg10.DateTimePicker2KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=#13 then
       speedbutton1.Click;
end;

procedure TOKBottomDlg10.DateTimePicker1KeyPress(Sender: TObject;
  var Key: Char);
begin
   if key=#13 then
   datetimepicker2.SetFocus;
end;

procedure TOKBottomDlg10.DateTimePicker3KeyPress(Sender: TObject;
  var Key: Char);
begin
if key=#13 then
   datetimepicker4.SetFocus;
end;

end.