rewardpunfrm.pas

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

unit rewardpunfrm;

interface

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

type
  Trewardfrm = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    sNew_Record: TButton;
    Record_Change: TButton;
    Remove_Record: TButton;
    cancel_btn: TButton;
    allow_unitedit: TEdit;
    record_contentedit: TEdit;
    record_reasonedit: TEdit;
    remarkmemo: TMemo;
    record_datepicker: TDateTimePicker;
    record_typecombobox: TComboBox;
    worker_idedit: TComboBox;
    worker_nameedit: TLabel;
    procedure cancel_btnClick(Sender: TObject);
    procedure sNew_RecordClick(Sender: TObject);
    procedure Remove_RecordClick(Sender: TObject);
    procedure Record_ChangeClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure worker_ideditChange(Sender: TObject);
  private
    rewardpun:Trewardpun;
    basedata:Tbasedata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rewardfrm: Trewardfrm;

implementation

{$R *.dfm}

procedure Trewardfrm.cancel_btnClick(Sender: TObject);
begin
worker_idedit.Text :='';worker_nameedit.Caption  :='';
record_contentedit.Text :='';record_reasonedit.Text :='';
allow_unitedit.Text :='';
remarkmemo.Text :='';record_typecombobox.Text :='';
rewardfrm.Close;
end;

procedure Trewardfrm.sNew_RecordClick(Sender: TObject);
var
 t1,insertsql:string;
begin
//转换类型
t1:=datetostr(record_datepicker.Date);
//赋值插入操作语句
insertsql:='insert into REWARD_PUN(WORKER_ID,WORKER_NAME,'
+'RECORD_DATE,RECORD_TYPE,RECORD_CONTENT,RECORD_REASON,'
+'ALLOW_UNIT,REMARK)values('''+worker_idedit.Text+''','
+''''+worker_nameedit.Caption  +''','''+t1+''','
+''''+record_typecombobox.Text+''','''+record_contentedit.Text+''','
+''''+record_reasonedit.Text+''','''+allow_unitedit.Text+''','
+''''+remarkmemo.Text+''')';
//执行插入操作
rewardpun.RecInsert(insertsql);
showmessage('保存完毕！');
end;

procedure Trewardfrm.Remove_RecordClick(Sender: TObject);
var
 t1:string;
begin
if application.MessageBox('要删除吗？','警告:',mb_yesno+mb_iconquestion)=idyes then
begin
//转换时间类型
t1:=datetostr(record_datepicker.Date);
//判断要删除的记录是否存在
if rewardpun.RewardPunRec(rewardfind.reid)=false  then
begin
showmessage('对不起，没有要删除的记录，删除失败！');
exit;
end;
//执行删除操作
rewardpun.RecDel(rewardfind.reid);
showmessage('该记录信息已成功删除！');
//清空文本框中的记录
worker_nameedit.Caption  :='';record_contentedit.Text :='';record_reasonedit.Text :='';
allow_unitedit.Text :='';remarkmemo.Text :='';record_typecombobox.Text:='';
end;
end;

procedure Trewardfrm.Record_ChangeClick(Sender: TObject);
var
 t1,modsql:string;
begin
if application.MessageBox('要修改吗?','提示',mb_yesno+mb_iconquestion)=idyes then
begin
//转换时间类型
t1:=datetostr(record_datepicker.Date);
//判断要修改的记录是否存在
if rewardpun.RewardPunRec(rewardfind.reid)=false  then
begin
showmessage('对不起，你要修改的记录不存在！');
exit;
end;
//赋值修改SQL语句
modsql:='update  reward_pun  set worker_name='''+worker_nameedit.Caption +''','
+'allow_unit='''+allow_unitedit.Text+''',record_reason='''+record_reasonedit.Text+''','
+'remark='''+remarkmemo.Text+''' where record_id='''+rewardfind.reid+'''';
//执行修改操作过程
rewardpun.RecUpdate(modsql);
showmessage('修改完成！');
end;
end;

procedure Trewardfrm.FormActivate(Sender: TObject);
begin
//创建类的实例
rewardpun:=Trewardpun.create ;
basedata:=Tbasedata.create ;
//获取员工编号列表
worker_idedit.Items:=basedata.GetIdLists();
//调用类中其它方法查询出对应的字段值
try
worker_idedit.Text:=rewardpun.GetWorkerId(rewardfind.reid);
worker_nameedit.Caption :=rewardpun.GetWorkerName(rewardfind.reid);
record_datepicker.DateTime:=strtodate(rewardpun.GetRecordDate(rewardfind.reid));
record_typecombobox.Text:=rewardpun.GetRecordType(rewardfind.reid);
allow_unitedit.Text:=rewardpun.GetAllowUnit(rewardfind.reid);
record_contentedit.Text:=rewardpun.GetRecCont(rewardfind.reid);
record_reasonedit.Text:=rewardpun.GetRecReason(rewardfind.reid);
remarkmemo.Text:=rewardpun.GetRemark(rewardfind.reid);
  except
    exit;
  end;
end;

procedure Trewardfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //释放例
  rewardpun.Free;
  basedata.Free;
end;

procedure Trewardfrm.worker_ideditChange(Sender: TObject);
begin
  //获取员工姓名
  worker_nameedit.Caption:=basedata.GetWorkerName(worker_idedit.Text);
end;

end.