historyfind.pas

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

unit historyFind;

interface

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

type
  THistoryForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    Table1: TTable;
    DataSource1: TDataSource;
    Table1number: TStringField;
    Table1name: TStringField;
    Table1operator: TStringField;
    Table1base_salary: TFloatField;
    Table1float_salary: TFloatField;
    Table1allowance_salary: TFloatField;
    Table1age_salary: TFloatField;
    Table1award: TFloatField;
    Table1addition_award: TFloatField;
    Table1insurance: TFloatField;
    Table1rent: TFloatField;
    Table1detain: TFloatField;
    Table1sum: TFloatField;
    Table1note: TStringField;
    Table1operator_date: TDateField;
    Table1rest: TFloatField;
    Table1tax: TFloatField;
    Table1real_salary: TFloatField;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  HistoryForm: THistoryForm;

implementation

{$R *.dfm}

procedure THistoryForm.FormActivate(Sender: TObject);
begin
    Table1.DatabaseName:='gzgl';
    Edit1.Text:='';
    Edit2.Text:='';
    Edit3.Text:='';
    Edit1.SetFocus;
end;

procedure THistoryForm.BitBtn1Click(Sender: TObject);
begin
    Table1.active:=false;
    close;
end;

procedure THistoryForm.Edit3Exit(Sender: TObject);
var
  str:string;
begin
     str:='ls'+Edit3.Text;
     table1.active:=false;
     Table1.TableName:=str;
     if Table1.Exists then
     begin
        if Edit1.Text<>'' then
        begin
            Table1.addindex('','number',[ixprimary]);
            Table1.IndexFieldnames:='number';
            Table1.Active:=true;
            Table1.setRangeStart;
            Table1.FieldByName('number').asstring:=edit1.Text;
            Table1.setRangeEnd;
            Table1.FieldByName('number').asstring:=edit1.Text;
            Table1.ApplyRange;
        end
        else if Edit2.Text<>'' then
        begin
            Table1.addindex('','number',[ixprimary]);
            Table1.addindex('','name',[]);
            Table1.IndexFieldNames:='name';
            Table1.Active:=true;
            Table1.EditRangeStart;
            Table1.FieldByName('name').asstring:=edit2.Text;
            Table1.EditRangeEnd;
            Table1.FieldByName('name').asstring:=edit2.Text;
            Table1.ApplyRange;
        end
        else
        begin
            table1.Active:=true;
            Bitbtn1.SetFocus;
        end;
     end
     else
     begin
        Application.MessageBox('系统中没有你所要的年份的资料，请检查!','提示信息',mb_ok);
        bitbtn1.Setfocus;
     end;
end;

end.