wagefind.~pas

本系统是结合行业管理中实际的人力资源、工资制度

unit wagefind;

interface

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

type
  Twagefindfrm = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    give_dateed: TEdit;
    DBGrid1: TDBGrid;
    wagefind_ds1: TDataSource;
    wagefind_cds1: TClientDataSet;
    BitBtn1: TBitBtn;
    PriviewBtn: TBitBtn;
    FindBtn: TButton;
    worker_ided: TComboBox;
    DelBtn: TButton;
    HoldBtn: TButton;
    procedure FindBtnClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn1Click(Sender: TObject);
    procedure PriviewBtnClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DelBtnClick(Sender: TObject);
    procedure HoldBtnClick(Sender: TObject);
  private
    wageinfo:Twageinfo;
    basedata:Tbasedata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  wagefindfrm: Twagefindfrm;
  sql,workerid,givedate:string;


implementation

uses wageinput;
  var
    idnum:string;

{$R *.dfm}


procedure Twagefindfrm.FindBtnClick(Sender: TObject);
begin
//赋值查询语句
sql:='select record_id 记录号,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 实发工资 from wage_info '
+' where worker_id='''+worker_ided.Text+''' and give_date='''+give_dateed.Text+'''';
//将查询结果在列表中显示出来
wagefind_cds1.Data :=wageinfo.WagesRecs(sql);
end;

procedure Twagefindfrm.DBGrid1CellClick(Column: TColumn);
begin
  try
    //获取记录号
    idnum:=DBGrid1.Fields[0].AsString ;
    workerid:=DBGrid1.Fields[1].AsString ;
    givedate:=DBGrid1.Fields[3].AsString ;
  except
    exit;
  end;
end;

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

procedure Twagefindfrm.PriviewBtnClick(Sender: TObject);
begin
//判断数据库中是否有记录存在
if wageinfo.WageInfoRec1('select *  from wage_info')=false  then
begin
application.MessageBox('数据库中没有记录存在！','提示：',mb_ok);
exit;
end;
//赋值查询语句
sql:='select record_id 记录号,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 实发工资 from wage_info';
//将查询结果在列表中显示出来
wagefind_cds1.Data :=wageinfo.WagesRecs(sql);
end;

procedure Twagefindfrm.FormActivate(Sender: TObject);
begin
  //实例化类
  wageinfo:=Twageinfo.create ;
  basedata:=Tbasedata.create ;
  //获取所有员工编号列表
  worker_ided.Items:=basedata.GetIdLists();
  //以当前的月份为默认的月份编号
  give_dateed.Text:=formatdatetime('yyyymm',now);
end;

procedure Twagefindfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  //释放类的实例
  wageinfo.Free;
  basedata.Free;
end;

procedure Twagefindfrm.DelBtnClick(Sender: TObject);
begin
if application.MessageBox('要删除吗？','警告:',mb_yesno+mb_iconquestion)=idyes then
begin
//判断是否输入删除记录条件
if (workerid= '') or (givedate='')  then
begin
  showmessage('请选择要删除的记录！');
  exit;
end;
//执行删除操作
wageinfo.RecDel(workerid,givedate);
showmessage('删除成功！');
//触发预览按钮进行刷新
BitBtn3.OnClick(Sender);
end;
end;

procedure Twagefindfrm.HoldBtnClick(Sender: TObject);
begin
  wageinputfrm.showmodal;
end;

end.