u_pylx.pas

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

unit U_pylx;

interface

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

type
  Tfrm_pylx = 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;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_pylx: Tfrm_pylx;

implementation

uses U_data;

{$R *.dfm}

procedure Tfrm_pylx.FormShow(Sender: TObject);
begin
{with data1.ADOQYpylx do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 聘用类型表');
      open;
   end;
   data1.ADOQYpylx.Active:=true; }
end;

procedure Tfrm_pylx.SpeedButton1Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit1.ReadOnly:=false;
edit2.ReadOnly:=false;
speedbutton4.Enabled:=true;
speedbutton5.Enabled:=true;
end;

procedure Tfrm_pylx.SpeedButton5Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit1.ReadOnly:=true;
edit2.ReadOnly:=true;
speedbutton4.Enabled:=false;
speedbutton5.Enabled:=false;
end;

procedure Tfrm_pylx.SpeedButton4Click(Sender: TObject);
begin
{with data1.ADOQYpylx do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 聘用类型表 where 编号=:a');
      parameters.ParamByName('a').Value:=trim(edit1.Text);
      open;
   end;
   if data1.ADOQYpylx.RecordCount>0 then
      begin
         application.MessageBox('编号不能重复，请重新输入','提示',64);
         edit1.SetFocus;
      end
   else
      try
      with data1.ADOQYpylx do
      begin
         close;
         sql.Clear;
         sql.Add('insert 聘用类型表 values (:a,:b)');
         parameters.ParamByName('a').Value:=trim(edit1.Text);
         parameters.ParamByName('b').Value:=trim(edit2.Text);
         execsql;
      end;
         edit1.Clear;
         edit2.Clear;
         self.OnShow(sender);
      except
         application.MessageBox('系统出错！','提示',64);
      end; }
end;

end.