seekdata.~pas

这是一个小型的工资管理系统

unit seekdata;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIButton, Grids, DBGrids, DB, DBTables, StdCtrls, Mask,
  SUIImagePanel, SUIGroupBox, SUIRadioGroup, ExtCtrls, SUIForm;

type
  Tseekform = class(TForm)
    suiForm1: TsuiForm;
    suiRadioGroup1: TsuiRadioGroup;
    suiRadioButton1: TsuiRadioButton;
    suiRadioButton2: TsuiRadioButton;
    suiRadioButton3: TsuiRadioButton;
    suiRadioButton4: TsuiRadioButton;
    suiRadioButton5: TsuiRadioButton;
    MaskEdit1: TMaskEdit;
    Label1: TLabel;
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    Label2: TLabel;
    MaskEdit2: TMaskEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormActivate(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure suiRadioButton1Click(Sender: TObject);
    procedure suiRadioButton2Click(Sender: TObject);
    procedure suiRadioButton3Click(Sender: TObject);
    procedure suiRadioButton5Click(Sender: TObject);
    procedure suiRadioButton4Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  seekform: Tseekform;

implementation

{$R *.dfm}

procedure Tseekform.FormActivate(Sender: TObject);
begin
 table1.DatabaseName:='DBMS';
 table1.TableName:='salary';
 table1.Active:=false;
 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;
 suiradiobutton1.Checked:=true;



 
end;

procedure Tseekform.suiButton2Click(Sender: TObject);
begin
table1.Active:=false;
close;
end;

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

end;

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

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

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

procedure Tseekform.suiRadioButton4Click(Sender: TObject);
begin
 label1.Visible:=true;
 label2.Visible:=true;

 edit1.Visible:=false;
 maskedit1.Text:=' ';
 maskedit1.Visible:=true;

 edit2.Visible:=false;
 maskedit2.Text:=' ';
 maskedit2.Visible:=true;


end;

procedure Tseekform.suiButton1Click(Sender: TObject);
begin
if suiradiobutton1.Checked then
   table1.CancelRange
   else  if  suiradiobutton2.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  suiradiobutton3.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  suiradiobutton4.Checked  then
             begin
                table1.Active:=false;
                table1.AddIndex('','number',[ixprimary]);
                table1.AddIndex('','birthdate',[]);
                table1.IndexFieldNames:='birthdate';
                table1.Active:=true;
                table1.SetRangeStart;
                table1.FieldByName('birthdate').asstring:=edit1.Text;
                table1.SetRangeEnd;
                table1.FieldByName('birthdate').asstring:=edit1.Text;
                table1.ApplyRange;
             end
             else  if  suiradiobutton5.Checked  then
             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(edit1.Text);
                table1.ApplyRange;
             end
end;

end.