wageinput.pas

工资管理系统 可以用语SQL数据库课程设计

unit wageinput;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, ADODB,wageinfo_unit,basedata_unit,workage_unit,
  protitle_unit,rewardpun_unit,checkinfo_unit,wagefind;

type
  Twageinputfrm = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    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;
    Label17: TLabel;
    give_dateed: TEdit;
    real_wageed: TEdit;
    Wage_Save: TButton;
    modify_btn: TButton;
    cancel_btn: TButton;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    worker_ided: TComboBox;
    overtime_moneyed: TLabel;
    deduct_checked: TLabel;
    worker_nameed: TLabel;
    base_wageed: TLabel;
    allowance2ed: TLabel;
    allowance1ed: TComboBox;
    aged_moneyed: TComboBox;
    compo_moneyed: TComboBox;
    housing_moneyed: TComboBox;
    medical_moneyed: TComboBox;
    unemploy_moneyed: TComboBox;
    rewarded: TLabel;
    income_taxed: TLabel;
    procedure cancel_btnClick(Sender: TObject);
    procedure Wage_SaveClick(Sender: TObject);
    procedure give_dateedExit(Sender: TObject);
    procedure base_wageedExit(Sender: TObject);
    procedure allowance1edExit(Sender: TObject);
    procedure allowance2edExit(Sender: TObject);
    procedure rewardedExit(Sender: TObject);
    procedure aged_moneyedExit(Sender: TObject);
    procedure overtime_moneyedExit(Sender: TObject);
    procedure compo_moneyedExit(Sender: TObject);
    procedure deduct_checkedExit(Sender: TObject);
    procedure housing_moneyedExit(Sender: TObject);
    procedure medical_moneyedExit(Sender: TObject);
    procedure income_taxedExit(Sender: TObject);
    procedure unemploy_moneyedExit(Sender: TObject);
    procedure real_wageedExit(Sender: TObject);
    procedure modify_btnClick(Sender: TObject);
    procedure real_wageedClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure worker_idedChange(Sender: TObject);
  private
    wageinfo:Twageinfo;
    basedata:Tbasedata;
    workage:Tworkage;
    protitle:Tprotitle;
    rewardpun:Trewardpun;
    checkinfo:Tcheckinfo;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  wageinputfrm: Twageinputfrm;

implementation
  var
    gongling,zhicheng:real;

{$R *.dfm}

procedure Twageinputfrm.cancel_btnClick(Sender: TObject);
begin                                              {
worker_ided.Text:='';worker_nameed.Caption :='';
give_dateed.Text :='';base_wageed.Text:='';
allowance1ed.Text :=''; allowance2ed.Text :='';
rewarded.Text :='';aged_moneyed.Text :='';
overtime_moneyed.Text :='';compo_moneyed.Text:='';
deduct_checked.Text :='';housing_moneyed.Text :='';
medical_moneyed.Text :='';income_taxed.Text :='';
unemploy_moneyed.Text :='';real_wageed.Text :=''; }
wageinputfrm.Close;
end;

procedure Twageinputfrm.Wage_SaveClick(Sender: TObject);
var
  insertsql:string;
begin
//判断必须输入的项是否为空
if (worker_ided.Text ='')  or (give_dateed.Text='') then
begin
showmessage('员工编号和月份编号不能为空！');
exit;
end;
//判断输入的记录是否已经存在
if wageinfo.WageInfoRec(worker_ided.Text,give_dateed.Text)  then
begin
showmessage('该记录已经存在，请重新输入!');
exit;
end;
//赋值插入操作SQL语句
insertsql:='insert into wage_info(worker_id,worker_name,give_date,base_wage,'
+'allowance1,allowance2,reward,aged_money,overtime_money,compo_money,'
+'deduct_check,housing_money,medical_money,income_tax,unemploy_money,'
+'real_wage)values('''+worker_ided.Text+''','''+worker_nameed.Caption+''','
+''''+give_dateed.Text+''','''+base_wageed.Caption +''','''+allowance1ed.Text+''','
+''''+allowance2ed.Caption+''','''+rewarded.Caption+''','''+aged_moneyed.Text+''','
+''''+overtime_moneyed.Caption+''','''+compo_moneyed.Text+''','''+deduct_checked.Caption+''','
+''''+housing_moneyed.Text+''','''+medical_moneyed.Text+''','''+income_taxed.Caption+''','
+''''+unemploy_moneyed.Text+''','''+real_wageed.Text+''')';
//执行插入操作过程
wageinfo.RecInsert(insertsql);
showmessage('保存完毕！');
end;

procedure Twageinputfrm.give_dateedExit(Sender: TObject);
begin
if  length(give_dateed.Text)<>6 then
begin
showmessage('月份编号位数输入有误！');
give_dateed.SetFocus ;
exit;
end;
end;

procedure Twageinputfrm.base_wageedExit(Sender: TObject);
begin  {
try
  strtofloat(base_wageed.Text);
  except
  showmessage('基本工资值输入有误！');
  base_wageed.SetFocus ;
  exit;
  end;}
end;

procedure Twageinputfrm.allowance1edExit(Sender: TObject);
begin
try
  strtofloat(allowance1ed.Text);
  except
  showmessage('公共补贴输入有误！');
  allowance1ed.SetFocus ;
  exit;
  end;
end;

procedure Twageinputfrm.allowance2edExit(Sender: TObject);
begin  {
try
  strtofloat(allowance2ed.Text);
  except
  showmessage('出差补贴输入有误！');
  allowance2ed.SetFocus ;
  exit;
  end;}
end;

procedure Twageinputfrm.rewardedExit(Sender: TObject);
begin       {
try
  strtofloat(rewarded.Text);
  except
  showmessage('奖金输入有误！');
  rewarded.SetFocus ;
  exit;
  end;   }
end;

procedure Twageinputfrm.aged_moneyedExit(Sender: TObject);
begin
try
  strtofloat(aged_moneyed.Text);
  except
  showmessage('养老保险输入有误！');
  aged_moneyed.SetFocus ;
  exit;
  end;
end;

procedure Twageinputfrm.overtime_moneyedExit(Sender: TObject);
begin     {
try
  strtofloat(overtime_moneyed.Text);
  except
  showmessage('加班费输入有误！');
  overtime_moneyed.SetFocus ;
  exit;
  end; }
end;

procedure Twageinputfrm.compo_moneyedExit(Sender: TObject);
begin
try
  strtofloat(compo_moneyed.Text);
  except
  showmessage('工伤保险输入有误！');
  compo_moneyed.SetFocus ;
  exit;
  end;
end;

procedure Twageinputfrm.deduct_checkedExit(Sender: TObject);
begin      {
try
  strtofloat(deduct_checked.Text);
  except
  showmessage('扣考核输入有误！');
  deduct_checked.SetFocus ;
  exit;
  end;  }
end;

procedure Twageinputfrm.housing_moneyedExit(Sender: TObject);
begin
try
  strtofloat(housing_moneyed.Text);
  except
  showmessage('住房公积金输入有误！');
  housing_moneyed.SetFocus ;
  exit;
  end;
end;

procedure Twageinputfrm.medical_moneyedExit(Sender: TObject);
begin
try
  strtofloat(medical_moneyed.Text);
  except
  showmessage('医疗保险输入有误！');
  medical_moneyed.SetFocus ;
  exit;
  end;
end;

procedure Twageinputfrm.income_taxedExit(Sender: TObject);
begin       {
try
  strtofloat(income_taxed.Text);
  except
  showmessage('所得税输入有误！');
  income_taxed.SetFocus ;
  exit;
  end;   }
end;

procedure Twageinputfrm.unemploy_moneyedExit(Sender: TObject);
begin  {
try
  strtofloat(unemploy_moneyed.Text);
  except
  showmessage('失业保险输入有误！');
  unemploy_moneyed.SetFocus ;
  exit;
  end;   }
end;

procedure Twageinputfrm.real_wageedExit(Sender: TObject);
begin    {
try
  strtofloat(real_wageed.Text);
  except
  showmessage('失业保险输入有误！');
  real_wageed.SetFocus ;
  exit;
  end;  }
end;

procedure Twageinputfrm.modify_btnClick(Sender: TObject);
var
  modsql:string;
begin
if application.MessageBox('要修改吗？','提示:',mb_yesno+mb_iconquestion)=idyes then
//判断修改条件是否为空
begin
if (worker_ided.Text='')  or  (give_dateed.Text='')  then
begin
  showmessage('员工编号和月份编号不能为空！');
  exit;
end;
//判断要修改的记录是否存在
if wageinfo.WageInfoRec(worker_ided.Text,give_dateed.Text)=false  then
begin
showmessage('对不起，该记录不存在！');
exit;
end;
//赋值修改语句
modsql:='update wage_info set worker_name='''+worker_nameed.Caption+''','
+'base_wage='''+base_wageed.Caption+''',allowance1='''+allowance1ed.Text+''','
+'allowance2='''+allowance2ed.Caption+''',reward='''+rewarded.Caption+''','
+'aged_money='''+aged_moneyed.Text+''',overtime_money='''+overtime_moneyed.Caption+''','
+'compo_money='''+compo_moneyed.Text+''',deduct_check='''+deduct_checked.Caption+''','
+'housing_money='''+housing_moneyed.Text+''',medical_money='''+medical_moneyed.Text+''','
+'income_tax='''+income_taxed.Caption +''',unemploy_money='''+unemploy_moneyed.Text+''','
+'real_wage='''+real_wageed.Text+''' where  worker_id='''+worker_ided.Text+'''  '
+' and give_date='''+give_dateed.Text+'''';
//执行修改操作
wageinfo.RecUpdate(modsql);
showmessage('修改成功！');
end;

end;

procedure Twageinputfrm.real_wageedClick(Sender: TObject);
var
  jiangjin,shuiqian:real;
  a,b,c,d,e,f,g:integer;
  year,month:string;
begin
//判断是否输入员工编号和月份编号
if (worker_ided.Text='')  or  (give_dateed.Text='')  then
begin
showmessage('请输入员工编号和月份编号！');
exit;
end;
//获取年份信息
year:=copy(give_dateed.Text,1,4);
//获取月份信息
month:=copy(give_dateed.Text,5,2);
//获取奖金信息，如果奖励次数大于惩罚次数获取奖金最高
if (rewardpun.GetRewardCount(year,month)-rewardpun.GetPunCount(year,month) )>0  then
   jiangjin:=100
else if  (rewardpun.GetRewardCount(year,month)-rewardpun.GetPunCount(year,month))=0  then
   jiangjin:=50
else  jiangjin:=0;
rewarded.Caption :=floattostr(jiangjin);
//获取考核工资信息
a:=strtoint(checkinfo.GetAbsentDays(worker_ided.Text,give_dateed.Text) )*20; //旷工扣除
b:=strtoint(checkinfo.GetLeaveTimes(worker_ided.Text,give_dateed.Text) )*5; //请假扣除
c:=strtoint(checkinfo.GetLateTimes(worker_ided.Text,give_dateed.Text) )*5;//迟到扣除
d:=strtoint(checkinfo.GetLeaEarTimes(worker_ided.Text,give_dateed.Text) )*5;//早退扣除
//计算总的扣除考核
deduct_checked.Caption:=inttostr(a+b+c+d);
e:=strtoint(checkinfo.GetHOliOverTimes(worker_ided.Text,give_dateed.Text) )*40;//节假日加班
f:=strtoint(checkinfo.GetOtherOverTimes(worker_ided.Text,give_dateed.Text) )*20;//其它加班
//计算加班工资
overtime_moneyed.Caption:=inttostr(e+f);
//获取出差补助
g:=strtoint(checkinfo.GetBusinessDays(worker_ided.Text,give_dateed.Text) )*30;//出差
allowance2ed.Caption :=inttostr(g);
//计算税前工资
shuiqian:=gongling+jiangjin+zhicheng+e+f+30+g-a-b-c-d-150;
//计算所得税
income_taxed.Caption :=floattostr((shuiqian-800)*0.05);
//计算税后工资
real_wageed.Text:=floattostr(shuiqian-(shuiqian-800)*0.05);
end;

procedure Twageinputfrm.FormActivate(Sender: TObject);
begin
//创建类的实例
wageinfo:=Twageinfo.create ;
basedata:=Tbasedata.create ;
workage:=Tworkage.create ;
protitle:=Tprotitle.create ;
rewardpun:=Trewardpun.create ;
checkinfo:=Tcheckinfo.create ;
//获取员工编号列表
worker_ided.Items:=basedata.GetIdLists();
//如果存在的话取出对应的字段值在文本框中显示出来
if  (wagefind.workerid='') or  (wagefind.givedate='') then
begin
    give_dateed.Text:=formatdatetime('yyyymm',now);
end
else
begin
worker_ided.Text:=wagefind.workerid;
give_dateed.Text:=wagefind.givedate;
worker_nameed.Caption :=wageinfo.GetWorkerName(wagefind.workerid,wagefind.givedate) ;
base_wageed.Caption :=wageinfo.GetBaseWage(wagefind.workerid,wagefind.givedate)  ;
allowance1ed.Text :=wageinfo.GetAllowance1(wagefind.workerid,wagefind.givedate)   ;
allowance2ed.Caption :=wageinfo.GetAllowance2(wagefind.workerid,wagefind.givedate)  ;
rewarded.Caption :=wageinfo.GetReward(wagefind.workerid,wagefind.givedate)  ;
aged_moneyed.Text :=wageinfo.GetAgedMoney(wagefind.workerid,wagefind.givedate)  ;
overtime_moneyed.Caption  :=wageinfo.GetOverTimeMoney(wagefind.workerid,wagefind.givedate)  ;
compo_moneyed.Text :=wageinfo.GetCompoMoney(wagefind.workerid,wagefind.givedate)  ;
deduct_checked.Caption :=wageinfo.GetDeductCheck(wagefind.workerid,wagefind.givedate);
housing_moneyed.Text :=wageinfo.GetHouseMoney(wagefind.workerid,wagefind.givedate);
medical_moneyed.Text :=wageinfo.GetMedicalMoney(wagefind.workerid,wagefind.givedate)  ;
income_taxed.Caption  :=wageinfo.GetIncomeTax(wagefind.workerid,wagefind.givedate);
unemploy_moneyed.Text :=wageinfo.GetUnemployMoney (wagefind.workerid,wagefind.givedate);
real_wageed.Text :=wageinfo.GetRealWage(wagefind.workerid,wagefind.givedate) ;
end;
end;

procedure Twageinputfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//释放实例
wageinfo.Free ;
basedata.Free;
workage.Free;
protitle.Free ;
rewardpun.Free ;
checkinfo.Free;
end;

procedure Twageinputfrm.worker_idedChange(Sender: TObject);
begin
//获取员工名称
worker_nameed.Caption :=basedata.GetWorkerName(worker_ided.Text) ;
//获取职称工资
if protitle.GetAssessTitle(worker_ided.Text)='高级工程师'  then  zhicheng:=2000
else if  protitle.GetAssessTitle(worker_ided.Text)='工程师' then zhicheng:=1500
else zhicheng:=1000;
//获取员工工龄工资
gongling:=workage.GetSumWorTime(worker_ided.Text)*50;
//计算基本工资
base_wageed.Caption:=floattostr(gongling+zhicheng);//基本工资
end;

end.