gzdasz.pas

实现人力资源的管理

unit gzdasz;

interface

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

type
  Tgzdaszfrm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    CheckBox1: TCheckBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure editvalue;
    procedure editclear;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gzdaszfrm: Tgzdaszfrm;

implementation

uses dbdata;

{$R *.dfm}

procedure Tgzdaszfrm.FormShow(Sender: TObject);
begin

with data.ADOQYgzdasz do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 工资模板');
      open;
   end;
data.ADOQYgzdasz.Active:=true;
if data.ADOQYgzdasz.FieldByName('员工编号').Value<>null then
   begin
   checkbox1.Checked:=false;
   editvalue;
   end
else
   checkbox1.Checked:=true;
with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 编号 from 人事表');
      open;
   end;
while not data.ADOpublic.Eof do
   begin
      combobox1.Items.Add(data.ADOpublic.FieldByName('编号').Value);
      data.ADOpublic.Next;
   end;
with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select distinct 姓名 from 人事表');
      open;
   end;
while not data.ADOpublic.Eof do
   begin
      combobox2.Items.Add(data.ADOpublic.FieldByName('姓名').Value);
      data.ADOpublic.Next;
   end;
   editclear;
end;

procedure Tgzdaszfrm.editvalue;
begin
combobox1.Text:=data.ADOQYgzdasz.FieldByName('员工编号').Value;
combobox2.Text:=data.ADOQYgzdasz.FieldByName('员工姓名').Value;
edit1.Text:=data.ADOQYgzdasz.FieldByName('基本工资').Value;
edit2.Text:=data.ADOQYgzdasz.FieldByName('全勤奖').Value;
edit3.Text:=data.ADOQYgzdasz.FieldByName('职务津贴').Value;
edit4.Text:=data.ADOQYgzdasz.FieldByName('扣税级别').Value;
edit5.Text:=data.ADOQYgzdasz.FieldByName('养老保险').Value;
edit6.Text:=data.ADOQYgzdasz.FieldByName('医疗保险').Value;
edit7.Text:=data.ADOQYgzdasz.FieldByName('失业保险').Value;
end;

procedure Tgzdaszfrm.editclear;
begin
combobox1.Text:='';
combobox2.Text:='';
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit7.Clear;
end;

procedure Tgzdaszfrm.DBGrid1CellClick(Column: TColumn);
begin
if dbgrid1.DataSource.DataSet<>nil then
   if dbgrid1.DataSource.DataSet.RecordCount>0 then
   editvalue;
end;

procedure Tgzdaszfrm.ComboBox1Change(Sender: TObject);
begin
with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 人事表 where 编号=:a');
      parameters.ParamByName('a').Value:=combobox1.Text;
      open;
   end;
combobox2.Text:=data.ADOpublic.FieldByName('姓名').Value;
end;

procedure Tgzdaszfrm.ComboBox2Change(Sender: TObject);
begin
with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 人事表 where 姓名=:b');
      parameters.ParamByName('b').Value:=combobox2.Text;
      open;
   end;
combobox1.Text:=data.ADOpublic.FieldByName('编号').Value;
end;

procedure Tgzdaszfrm.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true then
   groupbox2.Enabled:=true
else
   groupbox2.Enabled:=false;
end;

procedure Tgzdaszfrm.Edit1Change(Sender: TObject);
begin
if edit1.Text<>'' then
begin
with data.ADOQYsdszz do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 所得税税率表');
      open;
   end;
while not data.ADOQYsdszz.Eof do
   begin
      if (strtofloat(edit1.Text)>=data.ADOQYsdszz.FieldByName('应纳所得税金额下限').Value) and
      (strtofloat(edit1.Text)<data.ADOQYsdszz.FieldByName('应纳所得税金额上限').Value) then
         edit4.Text:=data.ADOQYsdszz.FieldByName('级别号').Value;
      data.ADOQYsdszz.Next;
   end;
end;
end;

procedure Tgzdaszfrm.SpeedButton1Click(Sender: TObject);
begin
if (combobox1.Text<>'') and (combobox2.Text<>'') and (edit1.Text<>'') and (edit2.Text<>'') and (edit3.Text<>'') then
   if (edit5.Text<>'0') and (edit6.Text<>'0') and (edit7.Text<>'0') then
   try
   with data.ADOQYgzdasz do
      begin
         close;
         sql.Clear;
         sql.Add('insert 工资模板 values (:a,:b,:c,:d,:e,:f,:g,:h,:i)');
         parameters.ParamByName('a').Value:=combobox1.Text;
         parameters.ParamByName('b').Value:=combobox2.Text;
         parameters.ParamByName('c').Value:=trim(edit1.Text);
         parameters.ParamByName('d').Value:=trim(edit2.Text);
         parameters.ParamByName('e').Value:=trim(edit3.Text);
         parameters.ParamByName('f').Value:=trim(edit4.Text);
         parameters.ParamByName('g').Value:=trim(edit5.Text);
         parameters.ParamByName('h').Value:=trim(edit6.Text);
         parameters.ParamByName('i').Value:=trim(edit7.Text);
         execsql;
      end;
         self.OnShow(sender);
         application.MessageBox('保存成功','提示',64);
         editclear;
   except
      application.MessageBox('保存失败','提示',64);
   end
   else
      application.MessageBox('请设置保险信息！','提示',64)
   else
      application.MessageBox('请详细填写工资信息！','提示',64);
end;

procedure Tgzdaszfrm.SpeedButton2Click(Sender: TObject);
begin
try
with data.ADOQYgzdasz do
   begin
      edit;
      fieldbyname('员工编号').Value:=combobox1.Text;
      fieldbyname('员工姓名').Value:=combobox2.Text;
      fieldbyname('基本工资').Value:=edit1.Text;
      fieldbyname('全勤奖').Value:=trim(edit2.Text);
      fieldbyname('职务津贴').Value:=trim(edit3.Text);
      fieldbyname('扣税级别').Value:=trim(edit4.Text);
      fieldbyname('养老保险').Value:=trim(edit5.Text);
      fieldbyname('医疗保险').Value:=trim(edit6.Text);
      fieldbyname('失业保险').Value:=trim(edit7.Text);
      post;
   end;
      //self.OnShow(sender);
      application.MessageBox('修改成功','提示',64);
except
   application.MessageBox('修改失败','提示',64);
end;
end;

procedure Tgzdaszfrm.SpeedButton3Click(Sender: TObject);
begin
if messagebox(self.Handle,'真的要删除吗？','提示',mb_yesno+mb_iconquestion)=idyes then
   data.ADOQYgzdasz.Delete;
   editclear;
end;

procedure Tgzdaszfrm.SpeedButton4Click(Sender: TObject);
begin
close;
end;

end.