seek.~pas

本系统采用A. 系统需求分析报告(设计方法/数据流图/数据字典) B. 数据库的信息要求报告（E—R图及关系数据模型） C. 数据库的操作和应用要求报告（模块结构图<概念结构设计及逻辑结构设计&

unit seek;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Mask, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids;

type
  Tseekform = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Label1: TLabel;
    Edit1: TEdit;
    MaskEdit1: TMaskEdit;
    Label2: TLabel;
    Edit2: TEdit;
    MaskEdit2: TMaskEdit;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    ADODataSet1: TADODataSet;
    ADOConnection1: TADOConnection;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  seekform: Tseekform;

implementation

uses main;

{$R *.dfm}

procedure Tseekform.FormActivate(Sender: TObject);
begin
  label1.caption:='输入查询条件';
  label1.visible:=false;
  label2.visible:=false;
  edit1.text:='';
  edit1.Visible:=false;
  maskedit1.text:='';
  maskedit1.Visible:=false;
  edit2.text:='';
  edit2.Visible:=false;
  maskedit2.Text:='';
  maskedit2.Visible:=false;
  dbgrid1.datasource:=datasource1;
  datasource1.dataset:=adodataset1;
  adodataset1.connection:=adoconnection1;
  adodataset1.Close;
  adodataset1.commandtype:=cmdtext;
  adodataset1.commandtext:='select * from salary';
  adodataset1.Open;
  radiobutton1.checked:=true;
end;

procedure Tseekform.Button1Click(Sender: TObject);
begin
  close;
end;

procedure Tseekform.RadioButton1Click(Sender: TObject);
begin
  label1.visible:=false;
  label2.visible:=false;
  edit1.Visible:=false;
  maskedit1.visible:=false;
  edit2.visible:=false;
  maskedit2.visible:=false;
end;

procedure Tseekform.RadioButton2Click(Sender: TObject);
begin
      Label1.Caption:='输入查询条件';
      label1.Visible:=true;
      Edit1.Text:='';
      edit1.Visible:=true;
      maskedit1.Visible:=false;
      edit2.Visible:=false;
      maskedit2.Visible:=false;
      label2.Visible:=false;
end;

procedure Tseekform.RadioButton3Click(Sender: TObject);
begin
      label1.Visible:=true;
      label2.Visible:=false;
      edit1.Visible:=true;
      edit1.Text:='';
      Maskedit1.Visible:=false;
      edit2.Visible:=false;
      maskedit2.Visible:=false;
end;

procedure Tseekform.RadioButton4Click(Sender: TObject);
begin
      Label1.Caption:='输入查询条件';
      label2.Caption:='到 ';
      Edit1.visible:=false;
      maskedit1.Visible:=true;
      label2.Visible:=true;
      maskedit2.Visible:=true;
      edit2.Visible:=false;
      maskedit1.Text:='';
      maskedit2.Text:='';
end;

procedure Tseekform.RadioButton5Click(Sender: TObject);
begin
      Label1.Caption:='输入查询条件';
      label2.Caption:='到';
      label1.Visible:=true;
      label2.Visible:=true;
      edit1.Visible:=true;
      edit1.Text:='';
      Maskedit1.Visible:=false;
      edit2.Visible:=true;
      edit2.text:='';
      maskedit2.Visible:=false;
end;

procedure Tseekform.BitBtn1Click(Sender: TObject);
begin
  if radiobutton1.Checked then
  begin
    adodataset1.Close;
    adodataset1.commandtype:=cmdtext;
    adodataset1.commandtext:='select * from salary';
    adodataset1.Open;
  end
  else if radiobutton2.checked then
  begin
    adodataset1.Close;
    adodataset1.commandtype:=cmdtext;
    adodataset1.commandtext:='select * from salary where office=:s0';
    adodataset1.Parameters.clear;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[0].Name:='s0';
    adodataset1.parameters[0].datatype:=ftstring;
    adodataset1.parameters[0].direction:=pdinput;
    adodataset1.parameters[0].value:=edit1.text;
    adodataset1.Open;
  end
  else if radiobutton3.checked then
  begin
    adodataset1.Close;
    adodataset1.commandtype:=cmdtext;
    adodataset1.commandtext:='select * from salary where job=:s0';
    adodataset1.Parameters.clear;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[0].Name:='s0';
    adodataset1.parameters[0].datatype:=ftstring;
    adodataset1.parameters[0].direction:=pdinput;
    adodataset1.parameters[0].value:=edit1.text;
    adodataset1.Open;
  end
  else if radiobutton4.checked then
  begin
    adodataset1.Close;
    adodataset1.commandtype:=cmdtext;
    adodataset1.commandtext:='select * from salary where birthdate>=:s0 and birthdate<=:s1';
    adodataset1.Parameters.clear;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[0].Name:='s0';
    adodataset1.parameters[0].datatype:=ftdate;
    adodataset1.parameters[0].direction:=pdinput;
    adodataset1.parameters[0].value:=strtodate(maskedit1.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[1].Name:='s1';
    adodataset1.parameters[1].datatype:=ftdate;
    adodataset1.parameters[1].direction:=pdinput;
    adodataset1.parameters[1].value:=strtodate(maskedit2.text);
    adodataset1.Open;
  end
  else
  begin
    adodataset1.Close;
    adodataset1.commandtype:=cmdtext;
    adodataset1.commandtext:='select * from salary where total>=:s0 and total<=:s1';
    adodataset1.Parameters.clear;
    adodataset1.parameters.addparameter;
    adodataset1.parameters[0].Name:='s0';
    adodataset1.parameters[0].datatype:=ftfloat;
    adodataset1.parameters[0].direction:=pdinput;
    adodataset1.parameters[0].value:=strtofloat(edit1.text);
    adodataset1.parameters.addparameter;
    adodataset1.parameters[1].Name:='s1';
    adodataset1.parameters[1].datatype:=ftfloat;
    adodataset1.parameters[1].direction:=pdinput;
    adodataset1.parameters[1].value:=strtofloat(edit2.text);
    adodataset1.Open;
  end;
end;

end.