protitle.~pas

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

unit protitle;

interface

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

type
  Tpro_titlefrm = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    save_btn: TButton;
    modify_btn: TButton;
    worker_nameed: TEdit;
    assess_united: TEdit;
    assess_datepk: TDateTimePicker;
    cancel_btn: TButton;
    assess_titleed: TComboBox;
    remarked: TMemo;
    worker_ided: TComboBox;
    procedure cancel_btnClick(Sender: TObject);
    procedure save_btnClick(Sender: TObject);
    procedure modify_btnClick(Sender: TObject);
    procedure delete_btnClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure worker_idedChange(Sender: TObject);
  private
    protitle:Tprotitle;
    basedata:Tbasedata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  pro_titlefrm: Tpro_titlefrm;

implementation

{$R *.dfm}

procedure Tpro_titlefrm.cancel_btnClick(Sender: TObject);
begin
pro_titlefrm.Close;
end;

procedure Tpro_titlefrm.save_btnClick(Sender: TObject);
var
 t1,insertsql:string;
begin

//判断关键字输入是否为空
if worker_ided.Text =''  then
begin
showmessage('员工编号不能为空！');
exit;
end;
//判断输入的员工编号是否存在
if protitle.ProtitleRec(worker_ided.Text)  then
begin
showmessage('该员工编号已经存在！');
exit;
end;
//转换时间类型
t1:=datetostr(assess_datepk.Date);
//赋值插入操作的SQL语句
insertsql:='insert into pro_title(worker_id,worker_name,'
+'assess_title,assess_date,assess_unit,remark)values('''+worker_ided.Text+''','
+''''+worker_nameed.Text+''','''+assess_titleed.Text+''','''+t1+''','
+''''+assess_united.Text+''','''+remarked.Text+''')';
//执行插入操作
protitle.RecInsert(insertsql);
showmessage('保存完毕！');

end;

procedure Tpro_titlefrm.modify_btnClick(Sender: TObject);
var
 t1,modsql:string;
begin
//创建类的实例
protitle:=Tprotitle.create ;
if  application.MessageBox('要修改吗？','提示:',mb_yesno+mb_iconquestion)=idyes then
begin
//判断修改记录的关键字是否存在
if worker_ided.Text =''  then
begin
showmessage('请先根据员工编号查看要修改的记录！');
exit;
end;
//判断要修改的记录是否存在
if protitle.ProtitleRec(worker_ided.Text)=false  then
begin
showmessage('该员工编号不存在！');
exit;
end;
//将时间类型转换
t1:=datetostr(assess_datepk.Date);
//赋值修改操作SQL语句
modsql:='update pro_title  set worker_name='''+worker_nameed.Text+''','
+'assess_title='''+assess_titleed.Text+''',assess_unit='''+assess_united.Text+''','
+'remark='''+remarked.Text+''',assess_date='''+t1+''' where worker_id='''+worker_ided.Text+'''';
//执行修改操作过程
protitle.RecUpdate(modsql);
showmessage('修改完成！');
end;
//释放实例
protitle.Free;
end;
procedure Tpro_titlefrm.delete_btnClick(Sender: TObject);
begin
if  application.MessageBox('要删除吗？','警告:',mb_yesno+mb_iconquestion)=idyes then
begin
//创建类的实例
protitle:=Tprotitle.create ;
//判断是否输入员工编号
if worker_ided.Text =''  then
begin
showmessage('请输入要删除的员工编号！');
exit;
end;
//查询要删除的记录是否存在
if protitle.ProtitleRec(worker_ided.Text)=false  then
begin
showmessage('该员工编号不存在，删除失败！');
exit;
end;
//执行删除操作过程
protitle.RecDel(worker_ided.Text);
showmessage('删除成功！');
//清除文本框内容，时间定位到当前日期

end;
//释放实例
protitle.Free;
end;

procedure Tpro_titlefrm.FormActivate(Sender: TObject);
begin
  //创建类的实例
  protitle:=Tprotitle.create ;
  basedata:=Tbasedata.create ;
  //获取所有员工编号列表并赋值
  worker_ided.Items:=basedata.GetIdLists();
  //取出对应的字段值值在文本框中显示
  try
    worker_ided.Text:=pro_titlefind.id ;
    worker_nameed.Text :=protitle.GetWorkerName(worker_ided.Text) ;
    assess_titleed.Text :=protitle.GetAssessUnit(worker_ided.Text)  ;
    assess_datepk.Date :=strtodate(protitle.GetAssessDate(worker_ided.Text) ) ;
    assess_united.Text :=protitle.GetAssessTitle(worker_ided.Text)  ;
    remarked.Text :=protitle.GetRemark(worker_ided.Text) ;
  except
    exit;
  end;
end;

procedure Tpro_titlefrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  //释放实例
  protitle.Free;
  basedata.Free;
  //清除并还原控件显示内容
  worker_ided.Clear;
  worker_nameed.Text :='';assess_united.Text :='';
  assess_datepk.Date :=strtodate(formatdatetime('yyyy-mm-dd',now));
  remarked.Text :='';
end;

procedure Tpro_titlefrm.worker_idedChange(Sender: TObject);
begin
  //根据选择的编号返回员工姓名
  worker_nameed.Text:=basedata.GetWorkerName(worker_ided.Text);
end;

end.