seekdata.pas

《Delphi 7数据库应用技术与实例》源代码__工资管理系统.rar《Delphi 7数据库应用技术与实例》源代码__工资管理系统.rar

unit SeekData;

interface

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

type
  TSeekForm = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Label1: TLabel;
    Edit1: TEdit;
    MaskEdit1: TMaskEdit;
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Table1number: TStringField;
    Table1name: TStringField;
    Table1sex: TStringField;
    Table1id: TStringField;
    Table1birthdate: TDateField;
    Table1workdate: TDateField;
    Table1operatordate: TDateField;
    Table1job: TStringField;
    Table1office: TStringField;
    Table1operator: TStringField;
    Table1base_salary: TFloatField;
    Table1float_salary: TFloatField;
    Table1allowance_salary: TFloatField;
    Table1age_salary: TFloatField;
    Table1award: TFloatField;
    Table1addition_award: TFloatField;
    Table1rest: TFloatField;
    Table1insurance: TFloatField;
    Table1rent: TFloatField;
    Table1detain: TFloatField;
    Table1sum: TFloatField;
    Table1real_salary: TFloatField;
    Table1tax: TFloatField;
    Table1note: TStringField;
    Table1Enabled: TBooleanField;
    Label2: TLabel;
    Edit2: TEdit;
    MaskEdit2: TMaskEdit;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SeekForm: TSeekForm;

implementation

{$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;
      Table1.Active:=true;
      RadioButton1.Checked:=true;
end;

procedure TSeekForm.BitBtn1Click(Sender: TObject);
begin
    Table1.Active:=false;
    Close;
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.RadioButton4Click(Sender: TObject);
begin
      Label1.Caption:='输入查询条件';
      Edit1.visible:=false;
      maskedit1.Visible:=true;
      label2.Visible:=true;
      maskedit2.Visible:=true;
      edit2.Visible:=false;
      maskedit1.Text:='';
      maskedit2.Text:='';
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.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.RadioButton5Click(Sender: TObject);
begin
      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.BitBtn2Click(Sender: TObject);
begin
        if Radiobutton1.Checked then
              Table1.CancelRange
        else if Radiobutton2.Checked then
        begin
              table1.active:=false;
              table1.addindex('','number',[ixprimary]);
              Table1.AddIndex('','office',[]);
              Table1.IndexFieldNames:='office';
              table1.Active:=true;
              Table1.SetRangeStart;
              Table1.FieldByName('office').AsString:=edit1.text;
              table1.SetRangeEnd;
              Table1.FieldByName('office').AsString:=edit1.text;
              table1.ApplyRange;
        end
        else if Radiobutton3.Checked then
        begin
              table1.active:=false;
              table1.addindex('','number',[ixprimary]);
              Table1.AddIndex('','job',[]);
              Table1.IndexFieldNames:='job';
              table1.Active:=true;
              Table1.SetRangeStart;
              Table1.FieldByName('job').AsString:=edit1.text;
              table1.SetRangeEnd;
              Table1.FieldByName('job').AsString:=edit1.text;
              table1.ApplyRange;
        end
        else if radiobutton4.checked then
        begin
              table1.active:=false;
              table1.addindex('','number',[ixprimary]);
              Table1.AddIndex('','birthdate',[]);
              Table1.IndexFieldNames:='birthdate';
              table1.Active:=true;
              Table1.SetRangeStart;
              Table1.FieldByName('birthdate').AsDatetime:=StrToDate(maskedit1.text);
              table1.SetRangeEnd;
              Table1.FieldByName('birthdate').AsDateTime:=StrToDate(maskedit2.text);
              table1.ApplyRange;
        end
        else
        begin
              table1.active:=false;
              table1.addindex('','number',[ixprimary]);
              Table1.AddIndex('','sum',[]);
              Table1.IndexFieldNames:='sum';
              table1.Active:=true;
              Table1.SetRangeStart;
              Table1.FieldByName('sum').AsFloat:=StrToFloat(edit1.text);
              table1.SetRangeEnd;
              Table1.FieldByName('sum').AsFloat:=StrToFloat(edit2.text);
              table1.ApplyRange;
        end;
end;

end.