search.pas

人事管理系统 开发工具是VB+access 比较简单

unit search;

interface

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

type
  TForm4 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    CheckBox3: TCheckBox;
    GroupBox3: TGroupBox;
    Label3: TLabel;
    Edit3: TEdit;
    GroupBox4: TGroupBox;
    Label4: TLabel;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker1: TDateTimePicker;
    CheckBox7: TCheckBox;
    GroupBox5: TGroupBox;
    Label5: TLabel;
    Edit4: TEdit;
    CheckBox8: TCheckBox;
    GroupBox6: TGroupBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation
 uses DMFrom,count;
{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var fcount:TForm2;
s:string;
begin
s:=' where 1  ';
dm.temp.Close;
dm.temp.SQL.Clear;
dm.temp.SQL.Add('select *');
dm.temp.SQL.Add('from self');
if CheckBox1.Checked then
s:=s+' and  name=:na  ';
if CheckBox3.Checked then
s:=s+'  and sex=:sex  ';
if CheckBox7.Checked then
s:=s+' and xuli:=xuli  ';
if CheckBox2.Checked then
s:=s+' and work=:pa ';
if CheckBox4.Checked then
if CheckBox5.Checked then
s:=s+' and birthday>:sda ';

if CheckBox4.Checked then
if CheckBox6.Checked then
s:=s+ ' and birthday<:eda';

dm.temp.SQL.Add(s);
s:=''                    ;
if CheckBox8.Checked then
if CheckBox10.Checked then
if CheckBox9.checked then
s:='order by work,'
else
s:= 'order by  work';

if CheckBox8.Checked then
if CheckBox9.Checked then
if CheckBox10.Checked then
s:=s+'name'
else
s:=s+'order by name'  ;
dm.temp.SQL.Add(s);


if CheckBox1.Checked then
dm.temp.Parameters.ParamValues['na']:=Edit1.Text;
if CheckBox3.Checked then
dm.temp.Parameters.ParamValues['sex']:=Edit3.Text;
if CheckBox7.Checked then
dm.temp.Parameters.ParamValues['xuli']:=Edit4.Text;
if CheckBox2.Checked then
dm.temp.Parameters.ParamValues['pa']:=Edit2.Text;
if CheckBox4.Checked then
if CheckBox5.Checked then
dm.temp.Parameters.ParamValues['sda']:=DateToStr(DateTimePicker1.Date);
if CheckBox4.Checked then
if CheckBox6.Checked then
dm.temp.Parameters.ParamValues['eda']:=DateToStr(DateTimePicker3.Date);
//ShowMessage(dm.temp.SQL.text);
DM.temp.Prepared;
dm.temp.ExecSQL;
dm.temp.Open;




dm.temp.Open;
fcount:=TForm2.Create(owner);
fcount.ShowModal;
fcount.Free;

end;

procedure TForm4.CheckBox4Click(Sender: TObject);
begin
GroupBox4.Enabled:=CheckBox4.Checked;
CheckBox5.Checked:=CheckBox4.Checked;
CheckBox6.Checked:=CheckBox4.Checked;
end;

procedure TForm4.CheckBox2Click(Sender: TObject);
begin
GroupBox2.Enabled:=CheckBox2.Checked;
end;

procedure TForm4.CheckBox7Click(Sender: TObject);
begin
GroupBox5.Enabled:=CheckBox7.Checked;
end;

procedure TForm4.CheckBox3Click(Sender: TObject);
begin
GroupBox3.Enabled:=CheckBox3.Checked;
end;

procedure TForm4.CheckBox1Click(Sender: TObject);
begin
GroupBox1.Enabled:=CheckBox1.Checked;
end;

procedure TForm4.FormShow(Sender: TObject);
begin
GroupBox1.Enabled:=CheckBox1.Checked;
GroupBox3.Enabled:=CheckBox3.Checked;
GroupBox5.Enabled:=CheckBox7.Checked;
GroupBox2.Enabled:=CheckBox2.Checked;
GroupBox4.Enabled:=CheckBox4.Checked;
CheckBox5.Checked:=CheckBox4.Checked;
CheckBox6.Checked:=CheckBox4.Checked;
GroupBox6.Enabled:=CheckBox8.Checked;
CheckBox9.Checked:=CheckBox8.Checked;
CheckBox10.Checked:= CheckBox8.Checked;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm4.CheckBox8Click(Sender: TObject);
begin
GroupBox6.Enabled:=CheckBox8.Checked;
CheckBox9.Checked:=CheckBox8.Checked;
CheckBox10.Checked:= CheckBox8.Checked;
end;

end.