creatsalarytable.pas

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

unit creatsalarytable;

interface

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

type
  Tsettaxratetableform = class(TForm)
    salarytable: TsuiForm;
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    suiEdit1: TsuiEdit;
    suiEdit2: TsuiEdit;
    suiEdit3: TsuiEdit;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiButton3: TsuiButton;
    suiButton4: TsuiButton;
 procedure FormActivate(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
 procedure readfromtable;
  end;

var
  settaxratetableform: Tsettaxratetableform;

implementation

{$R *.dfm}

//模块启动时,从税率表中读数据至datagrid中
procedure Tsettaxratetableform.FormActivate(Sender: TObject);
begin
  table1.DatabaseName:='DBMS';
  table1.TableName:='tax';
  table1.Active:=true;
  readfromtable;
end;
//随数据表的指针的移动,编辑筐中对应的数据进行更新

procedure Tsettaxratetableform.Table1AfterScroll(DataSet: TDataSet);
begin
   readfromtable;
end;
//增加一条新纪录

procedure Tsettaxratetableform.suiButton1Click(Sender: TObject);
begin
   table1.Append;
   suiedit1.text:='';
   suiedit2.text:='';
   suiedit3.Text:='';
   suiedit1.SetFocus;
end;
 //退出
 
procedure Tsettaxratetableform.suiButton4Click(Sender: TObject);
begin
  table1.Active:=false;
  close;
end;
//修改数据

procedure Tsettaxratetableform.suiButton3Click(Sender: TObject);
begin
  table1.Edit;
  table1.FieldByName('division').AsInteger:=strtoint(suiedit1.Text);
  table1.FieldByName('rate').AsFloat:=strtofloat(suiedit2.Text);
  table1.FieldByName('note').AsString:=suiedit3.Text;
  table1.Post;
end;
 //删除数据
 
procedure Tsettaxratetableform.suiButton2Click(Sender: TObject);
begin
  table1.Delete;
  table1.First;
  readfromtable;
end;
 //读当前记录至编辑框中
procedure Tsettaxratetableform.readfromtable;
begin
  suiedit1.Text :=inttostr(table1.fieldbyname('division').AsInteger);
  suiedit2.Text:=floattostr(table1.fieldbyname('rate').AsFloat);
  suiedit3.Text :=table1.fieldbyname('note').AsString;
  end;
end.