u_khgl.pas

人力资源管理系统自动计算员工工资。自动生成员工工资报表。实现员工岗位调动操作。实现员工离职、复职操作。支持数据的模糊查询机制。运行环境 操作系统：Windows 2000/NT/XP/ME 开发工

unit U_khgl;

interface

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

type
  Tfrm_khgl = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    SpeedButton4: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label6: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label7: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label5: TLabel;
    GroupBox2: TGroupBox;
    Memo1: TMemo;
    Label1: TLabel;
    Label3: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    ComboBox2: TComboBox;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject); 
    procedure ComboBox1Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure editvalue;

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_khgl: Tfrm_khgl;

implementation

uses U_data, U_cxsz;

{$R *.dfm}

procedure Tfrm_khgl.FormShow(Sender: TObject);
begin
combobox1.Clear;
with data1.ADOQYkhgl do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 考核表');
      open;
   end;
   data1.ADOQYkhgl.Active:=true;
with data1.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select bh from 人事表');
      open
   end;
while not data1.ADOpublic.Eof do
   begin
      combobox1.Items.Add(data1.ADOpublic.FieldByName('bh').Value);
      data1.ADOpublic.Next;
   end;
end;

procedure Tfrm_khgl.SpeedButton6Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_khgl.ComboBox1Change(Sender: TObject);
begin
with data1.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 考勤表');
      open;
   end;
edit1.Text:=data1.ADOpublic.FieldByName('出勤天数').Value;
edit2.Text:=data1.ADOpublic.FieldByName('请假天数').Value;
edit3.Text:=data1.ADOpublic.FieldByName('迟到次数').Value;
edit4.Text:=data1.ADOpublic.FieldByName('早退次数').Value;
edit5.Text:=data1.ADOpublic.FieldByName('旷工天数').Value;
edit6.Text:=data1.ADOpublic.FieldByName('加班次数').Value;
end;

procedure Tfrm_khgl.SpeedButton4Click(Sender: TObject);
begin
try
with data1.ADOQYkhgl do
   begin
      close;
      sql.Clear;
      sql.Add('insert 考核表 values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l)');
      parameters.ParamByName('a').Value:=trim(combobox1.Text);
      parameters.ParamByName('b').Value:=trim(edit1.Text);
      parameters.ParamByName('c').Value:=trim(edit2.Text);
      parameters.ParamByName('d').Value:=trim(edit3.Text);
      parameters.ParamByName('e').Value:=trim(edit4.Text);
      parameters.ParamByName('f').Value:=trim(edit5.Text);
      parameters.ParamByName('g').Value:=trim(edit6.Text);
      parameters.ParamByName('h').Value:=trim(combobox2.Text);
      parameters.ParamByName('i').Value:=trim(edit7.Text);
      parameters.ParamByName('j').Value:=trim(edit8.Text);
      parameters.ParamByName('k').Value:=trim(edit9.Text);
      parameters.ParamByName('l').Value:=trim(memo1.Text);
      execsql;
   end;
      application.MessageBox('保存成功','提示',64);
      self.OnShow(sender);
except
   application.MessageBox('保存失败','提示',64)
end;
end;

procedure Tfrm_khgl.editvalue;
begin
combobox1.Text:=data1.ADOQYkhgl.fieldbyname('员工编号').Value;
edit1.Text:=data1.ADOQYkhgl.fieldbyname('出勤天数').Value;
edit2.Text:=data1.ADOQYkhgl.fieldbyname('请假天数').Value;
edit3.Text:=data1.ADOQYkhgl.fieldbyname('迟到次数').Value;
edit4.Text:=data1.ADOQYkhgl.fieldbyname('早退次数').Value;
edit5.Text:=data1.ADOQYkhgl.fieldbyname('旷工天数').Value;
edit6.Text:=data1.ADOQYkhgl.fieldbyname('加班时数').Value;
combobox2.Text:=data1.ADOQYkhgl.fieldbyname('考核等级').Value;
edit7.Text:=data1.ADOQYkhgl.fieldbyname('考核分值').Value;
edit8.Text:=data1.ADOQYkhgl.fieldbyname('考核人').Value;
edit9.Text:=data1.ADOQYkhgl.fieldbyname('考核月份').Value;
memo1.Text:=data1.ADOQYkhgl.fieldbyname('考核评价').Value;
end;

procedure Tfrm_khgl.SpeedButton1Click(Sender: TObject);
begin
with data1.ADOQYkhgl do
   begin
      edit;
      fieldbyname('员工编号').Value:=trim(combobox1.Text);
      fieldbyname('出勤天数').Value:=trim(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(combobox2.Text);
      fieldbyname('考核分值').Value:=trim(edit7.Text);
      fieldbyname('考核人').Value:=trim(edit8.Text);
      fieldbyname('考核月份').Value:=trim(edit9.Text);
      fieldbyname('考核评价').Value:=trim(memo1.Text);
      post;
   end;
application.MessageBox('修改成功','提示',64);
end;

procedure Tfrm_khgl.SpeedButton2Click(Sender: TObject);
begin
if messagebox(self.Handle,'真的要删除吗？','提示',mb_yesno+mb_iconquestion)=idyes then
data1.ADOQYkhgl.Delete;
end;

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

end.