checkinput.pas.~1~

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

unit checkinput;

interface

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

type
  Tcheckinputfrm = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    save_btn: TButton;
    cancel_btn: TButton;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    look_btn: TButton;
    modify_btn: TButton;
    delete_btn: TButton;
    Label28: TLabel;
    procedure cancel_btnClick(Sender: TObject);
    procedure save_btnClick(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure Edit11KeyPress(Sender: TObject; var Key: Char);
    procedure Edit12KeyPress(Sender: TObject; var Key: Char);
    procedure Edit13KeyPress(Sender: TObject; var Key: Char);
    procedure Edit14KeyPress(Sender: TObject; var Key: Char);
    procedure look_btnClick(Sender: TObject);
    procedure modify_btnClick(Sender: TObject);
    procedure delete_btnClick(Sender: TObject);
  private
   checkinfo:Tcheckinfo;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  checkinputfrm: Tcheckinputfrm;

implementation

{$R *.dfm}

procedure Tcheckinputfrm.cancel_btnClick(Sender: TObject);
begin
edit1.Text :='';  edit2.Text :='';edit3.Text :='';edit4.Text :='';
edit5.Text :='';edit6.Text :='';edit7.Text :='';edit8.Text :='';
edit9.Text :='';edit10.Text :='';edit11.Text :='';edit12.Text :='';
edit13.Text :='';edit14.Text :='';memo1.Text :='';
checkinputfrm.Close;
end;

procedure Tcheckinputfrm.save_btnClick(Sender: TObject);
var
 a1:integer;
 insertsql:string;
begin
//创建实例
checkinfo:=Tcheckinfo.create ;
//判断是否输入关键字段
if (edit1.Text ='') or (edit3.Text='') then
begin
showmessage('对不起，员工编号和月份编号不能为空！');
edit1.SetFocus;
exit;
end;
//调用类中方法查询记录是否存在
if checkinfo.CheckInfoRec(edit1.Text,edit3.Text)  then
begin
showmessage('对不起，该记录已经存在，请重新输入！');
edit1.SetFocus ;
exit;
end;
//以下通过异常处理判断输入值类型是否正确
try
  strtoint(edit4.Text);
  except
  showmessage('本月天数输入有误！');
  exit;
  end;

try
  strtoint(edit5.Text);
  except
  showmessage('出差天数输入有误！');
  exit;
  end;

try
  strtoint(edit6.Text);
  except
  showmessage('出差天数输入有误！');
  exit;
  end;

try
  strtoint(edit7.Text);
  except
  showmessage('公休假天数输入有误！');
  exit;
  end;

try
  strtoint(edit8.Text);
  except
  showmessage('应出勤天数输入有误！');
  exit;
  end;

try
  strtoint(edit9.Text);
  except
  showmessage('出勤天数输入有误！');
  exit;
  end;

try
  strtoint(edit10.Text);
  except
  showmessage('请假次数输入有误！');
  exit;
  end;

try
  strtoint(edit11.Text);
  except
  showmessage('迟到次数输入有误！');
  exit;
  end;

try
  strtoint(edit12.Text);
  except
  showmessage('早退次数输入有误！');
  exit;
  end;

try
  strtoint(edit13.Text);
  except
  showmessage('节假日加班时间输入有误！');
  exit;
  end;

try
  strtoint(edit14.Text);
  except
  showmessage('其它加班时间输入有误！');
  exit;
  end;
//赋值插入语句
insertsql:='insert into CHECK_INFO(WORKER_ID,'
+'WORKER_NAME,MONTHS,MONTH_DAYS,BUSINESS_DAYS,ABSENT_DAYS,'
+'HOLIDAYS,REAL_WORK_DAYS,WORK_DAYS,LEAVE_TIMES,LATE_TIMES,'
+'LEAVE_EARLY_TIMES,HOLIDAY_OVERTIME,OTHER_OVERTIME,REMARK'
+' )VALUES('''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''''
+' ,'''+edit4.Text+''','''+edit5.Text+''','''+edit6.Text+''''
+','''+edit7.Text+''','''+edit8.Text+''','''+edit9.Text+''''
+','''+edit10.Text+''','''+edit11.Text+''','''+edit12.Text+''''
+','''+edit13.Text+''','''+edit14.Text+''','''+memo1.Text+''')';
 //执行类中插入方法
 checkinfo.RecInsert(insertsql);
showmessage('保存完毕！');
//释放类的实例
checkinfo.Free;
end;

procedure Tcheckinputfrm.Edit4KeyPress(Sender: TObject; var Key: Char);
var
 a:boolean;
begin
a:= ((key>=#48) and (key<=#57)) or (key=#8);
if a=false then
begin
showmessage('输入不是数字！');
exit;
end;

end;

procedure Tcheckinputfrm.Edit5KeyPress(Sender: TObject; var Key: Char);

var
 a:boolean;
begin
a:= ((key>=#48) and (key<=#57)) or (key=#8);
if a=false then
begin
showmessage('输入不是数字！');
exit;
end;

end;


procedure Tcheckinputfrm.Edit6KeyPress(Sender: TObject; var Key: Char);

var
 a:boolean;
begin
a:= ((key>=#48) and (key<=#57)) or (key=#8);
if a=false then
begin
showmessage('输入不是数字！');
exit;
end;

end;


procedure Tcheckinputfrm.Edit7KeyPress(Sender: TObject; var Key: Char);

var
 a:boolean;
begin
a:= ((key>=#48) and (key<=#57)) or (key=#8);
if a=false then
begin
showmessage('输入不是数字！');
exit;
end;

end;


procedure Tcheckinputfrm.Edit8KeyPress(Sender: TObject; var Key: Char);

var
 a:boolean;
begin
a:= ((key>=#48) and (key<=#57)) or (key=#8);
if a=false then
begin
showmessage('输入不是数字！');
exit;
end;

end;


procedure Tcheckinputfrm.Edit9KeyPress(Sender: TObject; var Key: Char);

var
 a:boolean;
begin
a:= ((key>=#48) and (key<=#57)) or (key=#8);
if a=false then
begin
showmessage('输入不是数字！');
exit;
end;

end;


procedure Tcheckinputfrm.Edit10KeyPress(Sender: TObject; var Key: Char);
var
 a:boolean;
begin
a:= ((key>=#48) and (key<=#57)) or (key=#8);
if a=false then
begin
showmessage('输入不是数字！');
exit;
end;

end;

procedure Tcheckinputfrm.Edit11KeyPress(Sender: TObject; var Key: Char);
var
 a:boolean;
begin
a:= ((key>=#48) and (key<=#57)) or (key=#8);
if a=false then
begin
showmessage('输入不是数字！');
exit;
end;

end;

procedure Tcheckinputfrm.Edit12KeyPress(Sender: TObject; var Key: Char);
var
 a:boolean;
begin
a:= ((key>=#48) and (key<=#57)) or (key=#8);
if a=false then
begin
showmessage('输入不是数字！');
exit;
end;

end;

procedure Tcheckinputfrm.Edit13KeyPress(Sender: TObject; var Key: Char);
var
 a:boolean;
begin
a:= ((key>=#48) and (key<=#57)) or (key=#8);
if a=false then
begin
showmessage('输入不是数字！');
exit;
end;

end;

procedure Tcheckinputfrm.Edit14KeyPress(Sender: TObject; var Key: Char);
var
 a:boolean;
begin
a:= ((key>=#48) and (key<=#57)) or (key=#8);
if a=false then
begin
showmessage('输入不是数字！');
exit;
end;

end;

procedure Tcheckinputfrm.look_btnClick(Sender: TObject);
begin
//创建类的实例
checkinfo:=Tcheckinfo.create ;
//判断是否输入关键字段
if (edit1.Text ='') or  (edit3.Text ='')  then
begin
showmessage('请根据员工编号和月份编号查看！');
edit1.SetFocus ;
exit;
end;
//调用类中查询方法判断记录是否存在
if  checkinfo.CheckInfoRec(edit1.Text,edit3.Text)=false  then
begin
showmessage('该记录信息不存在，请重新输入！');
edit1.SetFocus ;
exit;
end;
//如果存在，调用类中方法取出对应值在文本框中显示出来
edit2.Text :=checkinfo.GetWorkerName(edit1.Text,edit3.Text) ;
edit4.Text :=checkinfo.GetMonthDays(edit1.Text,edit3.Text);
edit5.Text :=checkinfo.GetBusinessDays(edit1.Text,edit3.Text) ;
edit6.Text :=checkinfo.GetAbsentDays(edit1.Text,edit3.Text);
edit7.Text :=checkinfo.GetHolidays(edit1.Text,edit3.Text) ;
edit8.Text :=checkinfo.GetReWorkDays (edit1.Text,edit3.Text) ;
edit9.Text :=checkinfo.GetWorkDays (edit1.Text,edit3.Text) ;
edit10.Text :=checkinfo.GetLeaveTimes (edit1.Text,edit3.Text) ;
edit11.Text :=checkinfo.GetLateTimes (edit1.Text,edit3.Text) ;
edit12.Text :=checkinfo.GetLeaEarTimes (edit1.Text,edit3.Text) ;
edit13.Text :=checkinfo.GetHOliOverTimes (edit1.Text,edit3.Text) ;
edit14.Text :=checkinfo.GetOtherOverTimes (edit1.Text,edit3.Text) ;
memo1.Text  :=checkinfo.GetRemark(edit1.Text,edit3.Text) ;

end;

procedure Tcheckinputfrm.modify_btnClick(Sender: TObject);
var
  modsql:string;
begin
if  application.MessageBox('确实要修改吗？','提示:',mb_yesno+mb_iconquestion)=idyes then
begin
//创建类的实例
checkinfo:=Tcheckinfo.create ;
//判断是否输入关键字
if (edit1.Text ='')  or (edit3.text='') then
begin
showmessage('请根据员工编号和月份编号查看后再修改！');
edit1.SetFocus ;
exit;
end;
//调用类中方法查询要修改的记录是否存在
if  checkinfo.CheckInfoRec(edit1.Text,edit3.Text)=false  then
begin
showmessage('该记录信息不存在，修改失败！');
edit1.SetFocus ;
exit;
end;

try
  strtoint(edit4.Text);
  except
  showmessage('本月天数输入有误！');
  exit;
  end;

try
  strtoint(edit5.Text);
  except
  showmessage('出差天数输入有误！');
  exit;
  end;

try
  strtoint(edit6.Text);
  except
  showmessage('出差天数输入有误！');
  exit;
  end;

try
  strtoint(edit7.Text);
  except
  showmessage('公休假天数输入有误！');
  exit;
  end;

try
  strtoint(edit8.Text);
  except
  showmessage('应出勤天数输入有误！');
  exit;
  end;

try
  strtoint(edit9.Text);
  except
  showmessage('出勤天数输入有误！');
  exit;
  end;

try
  strtoint(edit10.Text);
  except
  showmessage('请假次数输入有误！');
  exit;
  end;

try
  strtoint(edit11.Text);
  except
  showmessage('迟到次数输入有误！');
  exit;
  end;

try
  strtoint(edit12.Text);
  except
  showmessage('早退次数输入有误！');
  exit;
  end;

try
  strtoint(edit13.Text);
  except
  showmessage('节假日加班时间输入有误！');
  exit;
  end;

try
  strtoint(edit14.Text);
  except
  showmessage('其它加班时间输入有误！');
  exit;
  end;
//赋值修改语句
modsql:='update CHECK_INFO set WORKER_NAME='''+EDIT2.Text+''','
+'MONTH_DAYS='''+EDIT4.Text+''','
+'BUSINESS_DAYS='''+EDIT5.Text+''',ABSENT_DAYS='''+EDIT6.Text+''','
+'HOLIDAYS='''+EDIT7.Text+''',WORK_DAYS='''+EDIT8.Text+''','
+'REAL_WORK_DAYS='''+EDIT9.Text+''',LEAVE_TIMES='''+EDIT10.Text+''','
+'LATE_TIMES='''+EDIT11.Text+''',LEAVE_EARLY_TIMES='''+EDIT12.Text+''','
+'HOLIDAY_OVERTIME='''+EDIT13.Text+''',OTHER_OVERTIME='''+EDIT14.Text+''','
+'REMARK='''+MEMO1.Text+''' where worker_id='''+edit1.Text+''' and '
+' months='''+edit3.Text+'''';
//调用类中修改操作过程
checkinfo.RecUpdate(modsql);
showmessage('修改完成！');
//释放类的实例
checkinfo.Free;
end;
end;

procedure Tcheckinputfrm.delete_btnClick(Sender: TObject);
begin
if  application.MessageBox('确实要删除吗？','警告:',mb_yesno+mb_iconquestion)=idyes then
begin
//创建类的实例
checkinfo:=Tcheckinfo.create ;
if (edit1.Text ='') or  (edit3.Text='') then
begin
showmessage('请输入要删除记录的员工编号和月份编号！');
edit1.SetFocus ;
exit;
end;
//调用类中方法查询要删除的记录是否存在
if  checkinfo.CheckInfoRec(edit1.Text,edit3.Text)=false  then
begin
showmessage('该记录信息不存在，删除失败！');
edit1.SetFocus ;
exit;
end;
//执行删除操作过程
checkinfo.RecDel(edit1.Text,edit3.Text);
showmessage('删除完成！');
edit1.Text :='';  edit2.Text :='';edit3.Text :='';edit4.Text :='';
edit5.Text :='';edit6.Text :='';edit7.Text :='';edit8.Text :='';
edit9.Text :='';edit10.Text :='';edit11.Text :='';edit12.Text :='';
edit13.Text :='';edit14.Text :='';memo1.Text :='';
end;
end;

end.