u_pxkc.pas

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

unit U_pxkc;

interface

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

type
  Tfrm_pxkc = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ToolButton1: TToolButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    ToolButton2: TToolButton;
    SpeedButton6: TSpeedButton;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    ComboBox2: TComboBox;
    CheckBox1: TCheckBox;
    Label7: TLabel;
    Label8: TLabel;
    Edit5: TEdit;
    Label9: TLabel;
    Edit6: TEdit;
    Label10: TLabel;
    Label11: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DataSource1: TDataSource;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure editvalue; 
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_pxkc: Tfrm_pxkc;

implementation

uses U_data;



{$R *.dfm}

procedure Tfrm_pxkc.SpeedButton1Click(Sender: TObject);
begin
edit1.ReadOnly:=false;
edit2.ReadOnly:=false;
edit3.ReadOnly:=false;
edit4.ReadOnly:=false;
edit5.ReadOnly:=false;
edit6.ReadOnly:=false;
combobox1.Enabled:=true;
combobox2.Enabled:=true;
combobox1.Text:='';
combobox2.Text:='';
checkbox1.Checked:=false;
datetimepicker1.Enabled:=true;
datetimepicker2.Enabled:=true;
datetimepicker1.DateTime:=now();
datetimepicker2.DateTime:=now();
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
speedbutton4.Enabled:=true;
speedbutton5.Enabled:=true;
end;

procedure Tfrm_pxkc.FormShow(Sender: TObject);
begin
{with data1.ADOQYpxkc do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 培训课程表');
      open;
   end;
data1.ADOQYpxkc.Active:=true;
if data1.ADOQYpxkc.FieldByName('课程编号').Value = null then
begin
application.MessageBox('数据表中没有数据，请向数据表中添加数据！','提示',64);
end
else
   editvalue  }
end;

procedure Tfrm_pxkc.editvalue;
begin
{if data1.ADOQYpxkc.Active then
begin
edit1.Text:=data1.ADOQYpxkc.FieldByName('课程编号').Value;
edit2.Text:=data1.ADOQYpxkc.FieldByName('课程名称').Value;
edit3.Text:=data1.ADOQYpxkc.FieldByName('主办单位').Value;
edit4.Text:=data1.ADOQYpxkc.FieldByName('授课对象').Value;
edit5.Text:=data1.ADOQYpxkc.FieldByName('授课时数').Value;
edit6.Text:=data1.ADOQYpxkc.FieldByName('费用').Value;
combobox1.Text:=data1.ADOQYpxkc.FieldByName('培训方式').Value;
combobox2.Text:=data1.ADOQYpxkc.FieldByName('授课方式').Value;
datetimepicker1.DateTime:=data1.ADOQYpxkc.FieldByName('开课时间').Value ;
datetimepicker2.DateTime:=data1.ADOQYpxkc.FieldByName('结束时间').Value ;
end;
if data1.ADOQYpxkc.FieldByName('是否认证').Value = '是' then
checkbox1.Checked:=true
else
checkbox1.Checked:=false;  }
end;

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

procedure Tfrm_pxkc.SpeedButton3Click(Sender: TObject);
begin
//data1.ADOQYpxkc.Delete;
end;

procedure Tfrm_pxkc.SpeedButton5Click(Sender: TObject);
begin
{edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
edit1.ReadOnly:=true;
edit2.ReadOnly:=true;
edit3.ReadOnly:=true;
edit4.ReadOnly:=true;
edit5.ReadOnly:=true;
edit6.ReadOnly:=true;
combobox1.Text:='';
combobox2.Text:='';
combobox1.Enabled:=false;
combobox2.Enabled:=false;
checkbox1.Checked:=false;
datetimepicker1.Enabled:=false;
datetimepicker2.Enabled:=false;
speedbutton4.Enabled:=false;
speedbutton5.Enabled:=false; }
end;

procedure Tfrm_pxkc.SpeedButton4Click(Sender: TObject);
begin
{with data1.ADOQYpxkc do
begin
   close;
   sql.Clear;
   sql.Add('select * from 培训课程表 where 课程编号=:a ');
   parameters.ParamByName('a').Value:=trim(edit1.Text);
   open;
end;
   if data1.ADOQYpxkc.RecordCount>0 then
   begin
      application.MessageBox('课程编号不能重复','提示',64);
      edit1.SetFocus;
   end
   else
      try
      with data1.ADOQYpxkc do
         begin
            close;
            sql.Clear;
            sql.Add('insert 培训课程表 values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k)');
            parameters.ParamByName('a').Value:=trim(edit1.Text);
            parameters.ParamByName('b').Value:=trim(edit2.Text);
            parameters.ParamByName('c').Value:=trim(edit3.Text);
            parameters.ParamByName('d').Value:=trim(combobox1.Text);
            parameters.ParamByName('e').Value:=trim(edit4.Text);
            parameters.ParamByName('f').Value:=trim(combobox2.Text);
            parameters.ParamByName('h').Value:=trim(edit5.Text);
            parameters.ParamByName('i').Value:=trim(edit6.Text);
            parameters.ParamByName('j').Value:=datetimepicker1.Date;
            parameters.ParamByName('k').Value:=datetimepicker2.Date;
            if checkbox1.Checked=true then
               parameters.ParamByName('g').Value:='是'
            else
               parameters.ParamByName('g').Value:='否';
            execsql;
         end;
            edit1.Clear;
            edit2.Clear;
            edit3.Clear;
            edit4.Clear;
            edit5.Clear;
            edit6.Clear;
            edit1.ReadOnly:=true;
            edit2.ReadOnly:=true;
            edit3.ReadOnly:=true;
            edit4.ReadOnly:=true;
            edit5.ReadOnly:=true;
            edit6.ReadOnly:=true;
            combobox1.Text:='';
            combobox2.Text:='';
            checkbox1.Checked:=false;
            datetimepicker1.Enabled:=false;
            datetimepicker2.Enabled:=false;
            self.OnShow(sender);
         except
            application.MessageBox('系统出错','提示',64);
         end ;  }
end;

procedure Tfrm_pxkc.DBGrid1CellClick(Column: TColumn);
begin
{ If DBGrid1.DataSource.DataSet<> Nil then
    if DBGrid1.DataSource.DataSet.RecordCount>0 then
      EditValue; }
end;


end.