yggzjs.~pas

毕业设计时候开发的人事管理系统

unit yggzjs;

interface

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

type
  Tfrmyggzjs = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    StaticText1: TStaticText;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    BitBtn3: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmyggzjs: Tfrmyggzjs;

implementation

uses datarsgl;

{$R *.dfm}

procedure Tfrmyggzjs.FormCreate(Sender: TObject);
begin
bitbtn1.Enabled:=false;
with dmrsgl.adogzffbzqry do
begin
close;
sql.Clear;
sql.Add('select * from gzffbz');
open;
first;
while not eof do
begin
combobox1.Items.Add(fieldbyname('number').AsString);
next;
end;
end;
end;

procedure Tfrmyggzjs.ComboBox1Change(Sender: TObject);
begin
with dmrsgl.ygkqywtbqry do
begin
close;
sql.Clear;
sql.Add('select * from ygkqywtb where number='+quotedstr(combobox1.Text));
open;
edit1.Text:=inttostr(fieldbyname('ygcdcs').AsInteger);
edit2.Text:=inttostr(fieldbyname('ygztcs').AsInteger);
edit3.Text:=inttostr(fieldbyname('ygkgcs').AsInteger);
edit4.Text:=inttostr(fieldbyname('ygqjcs').AsInteger);
end;
end;

procedure Tfrmyggzjs.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tfrmyggzjs.BitBtn3Click(Sender: TObject);
var gz,jj,cdcs,ztcs,kgcs,qjcs,cdfj,ztfj,kgfj,qjfj:integer;
begin
with dmrsgl.adogzffbzqry do
begin
close;
sql.Clear;
sql.Add('select * from gzffbz where number='+quotedstr(combobox1.Text));
open;
if recordcount=0 then
begin
messagedlg('该员工的工资标准还没定.',mterror,[mbyes],0);
exit;
bitbtn1.Enabled:=false;
end
else
gz:=fieldbyname('yggz').AsInteger;
jj:=fieldbyname('ygjj').AsInteger;
cdcs:=strtoint(edit1.Text);
ztcs:=strtoint(edit2.Text);
kgcs:=strtoint(edit3.Text);
qjcs:=strtoint(edit4.Text);
edit5.Text:=inttostr(gz+jj);
cdfj:=cdcs*10;
ztfj:=ztcs*15;
kgfj:=kgcs*50;
qjfj:=qjcs*gz div 30;
edit6.Text:=inttostr(cdfj+ztfj+kgfj+qjfj);
edit7.Text:=inttostr(strtoint(edit5.Text)-strtoint(edit6.Text));
bitbtn1.Enabled:=true;
bitbtn3.Enabled:=false;
end;
end;

procedure Tfrmyggzjs.BitBtn1Click(Sender: TObject);
begin
with dmrsgl.ygmonthgzqry do
begin
close;
sql.Clear;
sql.Add('select * from monthgz where number='+quotedstr(combobox1.Text));
open;
edit;
fieldbyname('gzze').AsInteger:=strtoint(edit5.Text);
fieldbyname('kcgz').AsInteger:=strtoint(edit6.Text);
fieldbyname('sjgz').asinteger:=strtoint(edit7.Text);
if messagedlg('请问保存好已核算的工资吗?',mtinformation,[mbyes,mbno],0)=mryes then
begin
post;
combobox1.Text:='';
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
combobox1.SetFocus;
bitbtn1.Enabled:=false;
bitbtn3.Enabled:=true;
end
else
cancel;
combobox1.Text:='';
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
combobox1.SetFocus;
bitbtn3.Enabled:=true;
bitbtn1.Enabled:=false;
end;
end;

end.