wagefind.pas

信息管理系统

unit wagefind;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls,wageinfo_unit,
  DBClient;

type
  Twagefindfrm = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label10: TLabel;
    Label3: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    worker_ided: TEdit;
    worker_nameed: TEdit;
    give_dateed: TEdit;
    real_wageed: TEdit;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    allowance1ed: TEdit;
    base_wageed: TEdit;
    allowance2ed: TEdit;
    rewarded: TEdit;
    overtime_moneyed: TEdit;
    GroupBox3: TGroupBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    deduct_checked: TEdit;
    medical_moneyed: TEdit;
    unemploy_moneyed: TEdit;
    aged_moneyed: TEdit;
    compo_moneyed: TEdit;
    housing_moneyed: TEdit;
    income_taxed: TEdit;
    Button4: TButton;
    ClientDataSet1: TClientDataSet;
    Edit1: TEdit;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button4Click(Sender: TObject);
  private
    wageinfo:Twageinfo   ;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  wagefindfrm: Twagefindfrm;

implementation

{$R *.dfm}

procedure Twagefindfrm.Button3Click(Sender: TObject);
begin
wagefindfrm.Close;
end;

procedure Twagefindfrm.Button2Click(Sender: TObject);
begin
//创建类的实例
wageinfo:=Twageinfo.create ;
//必须输入的查询条件
if (edit1.text='')  or  (give_dateed.Text='')  then
begin
  showmessage('请根据员工编号和月份编号来查找！');
  exit;
end;
//查询记录是否存在
if wageinfo.WageInfoRec(edit1.text,give_dateed.Text)=false  then
begin
showmessage('对不起，该记录不存在！');
exit;
end;
//如果存在的话取出对应的字段值在文本框中显示出来
worker_nameed.Text :=wageinfo.GetWorkerName(edit1.text,give_dateed.Text) ;
base_wageed.Text :=wageinfo.GetBaseWage(edit1.text,give_dateed.Text)  ;
allowance1ed.Text :=wageinfo.GetAllowance1(edit1.text,give_dateed.Text)   ;
allowance2ed.Text :=wageinfo.GetAllowance2(edit1.text,give_dateed.Text)  ;
rewarded.Text :=wageinfo.GetReward(edit1.text,give_dateed.Text)  ;
aged_moneyed.Text :=wageinfo.GetAgedMoney(edit1.text,give_dateed.Text)  ;
overtime_moneyed.Text :=wageinfo.GetOverTimeMoney(edit1.text,give_dateed.Text)  ;
compo_moneyed.Text :=wageinfo.GetCompoMoney(edit1.text,give_dateed.Text)  ;
deduct_checked.Text :=wageinfo.GetDeductCheck(edit1.text,give_dateed.Text);
housing_moneyed.Text :=wageinfo.GetHouseMoney(edit1.text,give_dateed.Text);
medical_moneyed.Text :=wageinfo.GetMedicalMoney(edit1.text,give_dateed.Text)  ;
income_taxed.Text :=wageinfo.GetIncomeTax(edit1.text,give_dateed.Text);
unemploy_moneyed.Text :=wageinfo.GetUnemployMoney (edit1.text,give_dateed.Text);
real_wageed.Text :=wageinfo.GetRealWage(edit1.text,give_dateed.Text) ;
end;

procedure Twagefindfrm.Button1Click(Sender: TObject);
var sql:string;
begin
//创建类的实例
wageinfo:=Twageinfo.create ;
//赋值查询语句
sql:='select RECORD_ID	记录编号 ,'
+'WORKER_ID		员工编号    ,'
+'WORKER_NAME		员工姓名   ,'
+'BASE_WAGE	基本工资        ,'
+'ALLOWANCE1		公共补贴   ,'
+'ALLOWANCE2		出差补贴    ,'
+'REWARD		奖金            ,'
+'OVERTIME_MONEY		加班费  ,'
+'DEDUCT_CHECK	扣考核      ,'
+'AGED_MONEY		养老保险     ,'
+'MEDICAL_MONEY		医疗保险   ,'
+'COMPO_MONEY	工伤保险       ,'
+'UNEMPLOY_MONEY		失业保险  ,'
+'HOUSING_MONEY		住房公积金  ,'
+'INCOME_TAX		所得税        ,'
+'REAL_WAGE		实发工资         ,'
+'GIVE_DATE		发放月份  FROM wage_info';
//执行查询方法并用列表显示出来
clientdataset1.data:=wageinfo.WagesRecs(sql);
//释放实例
wageinfo.Free;
end;

procedure Twagefindfrm.DBGrid1CellClick(Column: TColumn);
begin
//创建类的实例
wageinfo:=Twageinfo.create ;
//必须输入的查询条件
edit1.Text :=DBGrid1.Fields[0].AsString ;
give_dateed.Text :=DBGrid1.Fields[16].AsString ;
if (edit1.text='')  or  (give_dateed.Text='')  then
begin
  showmessage('请根据员工编号和月份编号来查找！');
  exit;
end;
//查询记录是否存在
if wageinfo.WageInfoRec(edit1.text,give_dateed.Text)=false  then
begin
showmessage('对不起，该记录不存在！');
exit;
end;
//如果存在的话取出对应的字段值在文本框中显示出来
worker_nameed.Text :=wageinfo.GetWorkerName(edit1.text,give_dateed.Text) ;
base_wageed.Text :=wageinfo.GetBaseWage(edit1.text,give_dateed.Text)  ;
allowance1ed.Text :=wageinfo.GetAllowance1(edit1.text,give_dateed.Text)   ;
allowance2ed.Text :=wageinfo.GetAllowance2(edit1.text,give_dateed.Text)  ;
rewarded.Text :=wageinfo.GetReward(edit1.text,give_dateed.Text)  ;
aged_moneyed.Text :=wageinfo.GetAgedMoney(edit1.text,give_dateed.Text)  ;
overtime_moneyed.Text :=wageinfo.GetOverTimeMoney(edit1.text,give_dateed.Text)  ;
compo_moneyed.Text :=wageinfo.GetCompoMoney(edit1.text,give_dateed.Text)  ;
deduct_checked.Text :=wageinfo.GetDeductCheck(edit1.text,give_dateed.Text);
housing_moneyed.Text :=wageinfo.GetHouseMoney(edit1.text,give_dateed.Text);
medical_moneyed.Text :=wageinfo.GetMedicalMoney(edit1.text,give_dateed.Text)  ;
income_taxed.Text :=wageinfo.GetIncomeTax(edit1.text,give_dateed.Text);
unemploy_moneyed.Text :=wageinfo.GetUnemployMoney (edit1.text,give_dateed.Text);
real_wageed.Text :=wageinfo.GetRealWage(edit1.text,give_dateed.Text) ;

end;

procedure Twagefindfrm.Button4Click(Sender: TObject);
begin                                    //对各个控件清空
edit1.Text:='';worker_nameed.Text :='';
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 :='';
end;

end.