unit22.~pas

一个完整的工资管理系统 主要走查询 添加 删除 管理等功能

unit Unit22;

interface

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

type
  Tgzbzxiugai = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DBGrid1: TDBGrid;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gzbzxiugai: Tgzbzxiugai;

implementation

uses Unit1, Unit2, Unit21;

{$R *.dfm}

procedure Tgzbzxiugai.Button3Click(Sender: TObject);
begin
gzbzxiugai.Close;
end;

procedure Tgzbzxiugai.Button2Click(Sender: TObject);
begin
 if application.MessageBox('确实要删除当前数据吗?','提示',mb_iconquestion+mb_yesno)=id_yes then
begin
try
 dm.ADOQuery1.Delete;
 dm.ADOQuery1.Refresh;

 application.MessageBox('删除成功!','提示',64);

 except
 application.MessageBox('系统出错!','提示',64);
 end;
 end;
end;

procedure Tgzbzxiugai.Button1Click(Sender: TObject);
begin
  with dm.ADOQuery1 do
begin
edit;
FieldByName('工资等级').AsString:=dbedit1.Text;
FieldByName('等级名称').AsString:=dbedit2.Text;
FieldByName('底薪').AsString:=dbedit3.Text;
FieldByName('补贴').AsString:=dbedit4.Text;
FieldByName('奖金').AsString:=dbedit5.Text;
FieldByName('车补').AsString:=dbedit6.Text;
FieldByName('房补').AsString:=dbedit7.Text;
FieldByName('养老金').AsString:=dbedit8.Text;
FieldByName('医疗保险').AsString:=dbedit9.Text;
FieldByName('住房公积金').AsString:=dbedit10.Text;
post;
end;
application.MessageBox('修改成功!','提示',64);
end;

procedure Tgzbzxiugai.FormCreate(Sender: TObject);
var
   i:integer;
begin
 with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from gzbiaozhun ');
Open;
dbgrid1.Columns[0].FieldName:='工资等级';
 dbgrid1.Columns[1].FieldName:='等级名称';
 dbgrid1.Columns[2].FieldName:='底薪';
 dbgrid1.Columns[3].FieldName:='补贴';
 dbgrid1.Columns[4].FieldName:='奖金';
 dbgrid1.Columns[5].FieldName:='车补';
 dbgrid1.Columns[6].FieldName:='房补';
 dbgrid1.Columns[7].FieldName:='养老金';
 dbgrid1.Columns[8].FieldName:='医疗保险';
 dbgrid1.Columns[9].FieldName:='住房公积金';
  for i:=0 to 9 do
  dbgrid1.Columns[i].Width:=80;
  dbedit1.DataField:='工资等级';
dbedit2.DataField:='等级名称';
dbedit3.DataField:='底薪';
dbedit4.DataField:='补贴';
dbedit5.DataField:='奖金';
dbedit6.DataField:='车补';
dbedit7.DataField:='房补';
dbedit8.DataField:='养老金';
dbedit9.DataField:='医疗保险';
dbedit10.DataField:='住房公积金';
 end;
end;

end.