khxm.pas

实现人力资源的管理

unit khxm;

interface

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

type
  Tkhxmfrm = class(TForm)
    Panel1: TPanel;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    ComboBox2: TComboBox;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ComboBox3: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure editvalue;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  khxmfrm: Tkhxmfrm;

implementation

uses dbdata;

{$R *.dfm}

procedure Tkhxmfrm.FormShow(Sender: TObject);
begin
with data.ADOQYkhxm do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 考核项目表');
      open;
   end;
   data.ADOQYkhxm.Active:=true;
with data.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select 编号 from 人事表');
      open
   end;
while not data.ADOpublic.Eof do
   begin
      combobox3.Items.Add(data.ADOpublic.FieldByName('编号').Value);
      data.ADOpublic.Next;
   end;
end;

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

procedure Tkhxmfrm.editvalue;
begin
combobox3.Text:=data.ADOQYkhxm.fieldbyname('员工编号').Value;
edit2.Text:=data.ADOQYkhxm.fieldbyname('考核项目').Value;
combobox1.Text:=data.ADOQYkhgl.fieldbyname('考核期间').Value;
combobox2.Text:=data.ADOQYkhgl.fieldbyname('考核等级').Value;
end;

procedure Tkhxmfrm.SpeedButton1Click(Sender: TObject);
begin
combobox3.Text:='';
edit2.Clear;
combobox1.Text:='';
combobox2.Text:='';
combobox3.Enabled:=true;
edit2.ReadOnly:=false;
combobox1.Enabled:=true;
combobox2.Enabled:=true;
speedbutton4.Enabled:=true;
speedbutton5.Enabled:=true;
end;

procedure Tkhxmfrm.SpeedButton2Click(Sender: TObject);
begin
if messagebox(self.Handle,'确定要修改吗？','提示',mb_yesno+mb_iconquestion)= idyes then
begin
try
with data.ADOQYkhxm do
   begin
      edit;
      fieldbyname('员工编号').Value:=trim(combobox3.Text);
      fieldbyname('考核项目').Value:=trim(edit2.Text);
      fieldbyname('考核期间').Value:=trim(combobox1.Text);
      fieldbyname('考核等级').Value:=trim(combobox2.Text);
      post;
   end;
      application.MessageBox('修改成功','提示',64);
except
   application.MessageBox('修改失败','提示',64);
end;
   close;
end;
end;

procedure Tkhxmfrm.SpeedButton3Click(Sender: TObject);
begin
data.ADOQYkhxm.Delete;
end;

procedure Tkhxmfrm.SpeedButton4Click(Sender: TObject);
begin
with data.ADOQYkhxm do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 考核项目表 where 员工编号=:a');
      parameters.ParamByName('a').Value:=combobox3.Text;
      open;
   end;
      if data.ADOQYkhxm.RecordCount>0 then
         begin
         application.MessageBox('编号不能重复，请重新输入！','提示',64);
         combobox3.SetFocus;
         end
      else
         try
         with data.ADOQYkhxm do
         begin
            close;
            sql.Clear;
            sql.Add('insert 考核项目表 values (:a,:b,:c,:d)');
            parameters.ParamByName('a').Value:=trim(combobox3.Text);
            parameters.ParamByName('b').Value:=trim(edit2.Text);
            parameters.ParamByName('c').Value:=trim(combobox1.Text);
            parameters.ParamByName('d').Value:=trim(combobox2.Text);
            execsql;
         end;
            combobox3.Text:='';
            edit2.Clear;
            combobox1.Text:='';
            combobox2.Text:='';
            self.OnShow(sender);
         except
            application.MessageBox('系统出错','提示',64);
         end ;
end;

procedure Tkhxmfrm.SpeedButton5Click(Sender: TObject);
begin
combobox3.Text:='';
edit2.Clear;
combobox1.Text:='';
combobox2.Text:='';
end;

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

end.