unit20.~pas

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

unit Unit20;

interface

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

type
  Tyjgzguanli = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label18: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    GroupBox1: TGroupBox;
    Edit16: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DBGrid1: TDBGrid;
    Button5: TButton;
    Edit17: TEdit;
    Label17: TLabel;
    Button6: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1CloseUp(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yjgzguanli: Tyjgzguanli;

implementation

uses Unit1, Unit2, Unit3, Unit21, Unit22;

{$R *.dfm}

procedure Tyjgzguanli.FormCreate(Sender: TObject);
var
  Str1:String;
begin
edit1.Text:='GF-200801001';
edit15.Text:=datetostr(date);

try
    with dm.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      sql.Add('select 等级名称  from gzbiaozhun');
      Open;
    end;
    Repeat
    Str1 := dm.ADOQuery1.FieldByName('等级名称').AsString;
    ComboBox1.Items.Add(Str1);
    dm.ADOQuery1.Next;
    Until
    dm.ADOQuery1.Eof;
  Except
    Showmessage('读取数据失败！');
  end;


end;

procedure Tyjgzguanli.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select 姓名,加班费,扣考核  from ygjibenxinxi,kqkaohexinxi where ygjibenxinxi.员工id='''+edit2.Text+''' and ygjibenxinxi.员工id=kqkaohexinxi.员工id');
//sql.Add('select 姓名  from ygjibenxinxi where 员工id like'''+format('%',[trim(edit2.Text)])+'%''');
Open;
 edit17.Text:=FieldByName('姓名').AsString;
 edit8.Text:=FieldByName('扣考核').AsString;
 edit9.Text:=FieldByName('加班费').AsString;
end;
end;

procedure Tyjgzguanli.ComboBox1CloseUp(Sender: TObject);
begin
//s1:=0.2;
 with dm.ADOQuery1 do
begin
sql.Clear;
sql.Add('select *  from gzbiaozhun where 等级名称='''+ComboBox1.Text+'''');
//sql.Add('select 姓名  from ygjibenxinxi where 员工id like'''+format('%',[trim(edit2.Text)])+'%''');
Open;
 edit3.Text:=FieldByName('底薪').AsString;
 edit4.Text:=FieldByName('补贴').AsString;
 edit5.Text:=FieldByName('奖金').AsString;
 edit6.Text:=FieldByName('车补').AsString;
 edit7.Text:=FieldByName('房补').AsString;
 edit10.Text:=FieldByName('养老金').AsString;
 edit11.Text:=FieldByName('医疗保险').AsString;
 edit13.Text:=FieldByName('住房公积金').AsString;
 end;
//edit14.Text:=floattostr(strtofloat(edit3.Text)+strtofloat(edit4.Text)+strtofloat(edit5.Text)+strtofloat(edit6.Text)+strtofloat(edit7.Text)+strtofloat(edit9.Text)-strtofloat(edit8.Text)-strtofloat(edit10.Text)-strtofloat(edit11.Text)-strtofloat(edit13.Text));
//edit12.Text:=strtoint(edit14.Text)*s1;
//edit12.Text:=doubletostr(s2);
//edit16.Text:=inttostr(strtoint(edit14.Text));
end;
procedure Tyjgzguanli.Button4Click(Sender: TObject);
begin
yjgzguanli.Close;
end;

procedure Tyjgzguanli.Button6Click(Sender: TObject);
begin
 application.CreateForm(Tgzbiaozhun,gzbiaozhun);
gzbiaozhun.ShowModal;
gzbiaozhun.Free;
end;

end.