u_tj.pas

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

unit U_tj;

interface

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

type
  Tfrm_cxtj = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_cxtj: Tfrm_cxtj;

implementation

uses U_data;

{$R *.dfm}

procedure Tfrm_cxtj.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_cxtj.BitBtn1Click(Sender: TObject);
var
b:string;          
begin
if (trim(combobox1.Text)<>'') and (trim(edit1.Text)<>'') then
begin
if combobox1.Text='姓名' then
b:='xm'
else
if combobox1.Text='编号' then
b:='bh';
with data1.ADOpublic do
   begin
      close;
      sql.Clear;
      sql.Add('select * from 人事表 where');
      sql.Add(b);
      sql.Add('= :a');
      parameters.ParamByName('a').Value:=trim(edit1.Text);
      open;
   end;
   data1.ADOpublic.Active:=true;
end
else
   application.MessageBox('请设置查询条件！','提示',0+64);
   
end;

end.