pro_titlefind.~pas

本系统是结合行业管理中实际的人力资源、工资制度

unit pro_titlefind;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, DB, ADODB, Grids, DBGrids,
  DBClient,basedata_unit,protitle_unit;

type
  Tpro_titlefindfrm = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    DBGrid1: TDBGrid;
    titlefind_ds1: TDataSource;
    all_btn: TButton;
    cancel_btn: TButton;
    titlefind_cds1: TClientDataSet;
    Label2: TLabel;
    IdComb: TComboBox;
    Del_Btn: TButton;
    procedure cancel_btnClick(Sender: TObject);
    procedure one_btnClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure all_btnClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure IdCombChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Del_BtnClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    protitle:Tprotitle;
    basedata:Tbasedata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  pro_titlefindfrm: Tpro_titlefindfrm;
  id:string;
implementation

uses protitle;

{$R *.dfm}

procedure Tpro_titlefindfrm.cancel_btnClick(Sender: TObject);
begin
pro_titlefindfrm.Close;
end;

procedure Tpro_titlefindfrm.one_btnClick(Sender: TObject);
var
  sql:string;
begin

end;

procedure Tpro_titlefindfrm.DBGrid1CellClick(Column: TColumn);
begin
try
  id :=DBGrid1.Fields[0].AsString ;
except
  exit;
end;
end;

procedure Tpro_titlefindfrm.all_btnClick(Sender: TObject);
var
  sql:string;
begin

//赋值查询语句
sql:='select * from pro_title ';
//查询数据表中是否存在记录
if protitle.ProtitleRec1(sql)=false  then
begin
showmessage('数据库中没有记录信息！');
exit;
end;
//赋值查询语句
sql:='select worker_id 员工编号,worker_name 员工姓名,assess_title '
+'评定职称,assess_date 评定日期,assess_unit 评定单位,remark 备注 from pro_title';
//将查询结果在列表中显示出来
titlefind_cds1.Data :=protitle.ProtitleRecs(sql);

end;

procedure Tpro_titlefindfrm.FormActivate(Sender: TObject);
begin
  //创建类的实例
  protitle:=Tprotitle.create ;
  basedata:=Tbasedata.create ;
  //调用基本信息类中方法获取员工编号列表
  IdComb.Items:=basedata.GetIdLists();
end;

procedure Tpro_titlefindfrm.IdCombChange(Sender: TObject);
var
  sql:string;
begin
  //赋值查询SQL语句
  sql:='select worker_id 员工编号,worker_name 员工姓名,assess_title '
  +'评定职称,assess_date 评定日期,assess_unit 评定单位,remark  '
  +'备注 from pro_title where worker_id='''+IdComb.Text+'''';
  //将查询结果在列表中显示出来
  titlefind_cds1.Data :=protitle.ProtitleRecs(sql);
end;

procedure Tpro_titlefindfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  //释放类的实例
  protitle.Free;
end;

procedure Tpro_titlefindfrm.Del_BtnClick(Sender: TObject);
begin
if  application.MessageBox('要删除吗？','警告:',mb_yesno+mb_iconquestion)=idyes then
begin
//判断是否选中记录
if id=''  then
begin
showmessage('请选择要删除的记录！');
exit;
end;
//执行删除操作过程
protitle.RecDel(id);
showmessage('删除成功！');
end;
end;

procedure Tpro_titlefindfrm.DBGrid1DblClick(Sender: TObject);
begin
  pro_titlefrm.showmodal;
end;

end.