checkinput.~pas

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

unit checkinput;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, DB, ADODB,checkinfo_unit,basedata_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;
    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;
    Check_Input: 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;
    Check_Mod: TButton;
    Check_Del: TButton;
    Label28: TLabel;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    UpDown3: TUpDown;
    UpDown4: TUpDown;
    UpDown5: TUpDown;
    UpDown6: TUpDown;
    UpDown7: TUpDown;
    UpDown8: TUpDown;
    UpDown9: TUpDown;
    UpDown10: TUpDown;
    UpDown11: TUpDown;
    IdComb: TComboBox;
    procedure cancel_btnClick(Sender: TObject);
    procedure Check_InputClick(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 Check_ModClick(Sender: TObject);
    procedure Check_DelClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure IdCombChange(Sender: TObject);
  private
   checkinfo:Tcheckinfo;
   basedata:Tbasedata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  checkinputfrm: Tcheckinputfrm;

implementation

{$R *.dfm}

procedure Tcheckinputfrm.cancel_btnClick(Sender: TObject);
begin
IdComb.Clear;  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.Check_InputClick(Sender: TObject);
var
 a1:integer;
 insertsql:string;
begin
//判断是否输入关键字段
if (IdComb.Text ='') or (edit3.Text='') then
begin
showmessage('对不起，员工编号和月份编号不能为空！');
exit;
end;
//调用类中方法查询记录是否存在
if checkinfo.CheckInfoRec(IdComb.Text,edit3.Text)  then
begin
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('''+IdComb.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('保存完毕！');
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.Check_ModClick(Sender: TObject);
var
  modsql:string;
begin
if  application.MessageBox('确实要修改吗？','提示:',mb_yesno+mb_iconquestion)=idyes then
begin
//判断是否输入关键字
if (IdComb.Text ='')  or (edit3.text='') then
begin
showmessage('请根据员工编号和月份编号查看后再修改！');
exit;
end;
//调用类中方法查询要修改的记录是否存在
if  checkinfo.CheckInfoRec(IdComb.Text,edit3.Text)=false  then
begin
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='''+IdComb.Text+''' and '
+' months='''+edit3.Text+'''';
//调用类中修改操作过程
checkinfo.RecUpdate(modsql);
showmessage('修改完成！');
end;
end;

procedure Tcheckinputfrm.Check_DelClick(Sender: TObject);
begin
if  application.MessageBox('确实要删除吗？','警告:',mb_yesno+mb_iconquestion)=idyes then
begin
if (IdComb.Text ='') or  (edit3.Text='') then
begin
showmessage('请输入要删除记录的员工编号和月份编号！');
exit;
end;
//调用类中方法查询要删除的记录是否存在
if  checkinfo.CheckInfoRec(IdComb.Text,edit3.Text)=false  then
begin
showmessage('该记录信息不存在，删除失败！');
exit;
end;
//执行删除操作过程
checkinfo.RecDel(IdComb.Text,edit3.Text);
showmessage('删除完成！');
end;
end;

procedure Tcheckinputfrm.FormActivate(Sender: TObject);
begin
//创建类的实例
basedata:=Tbasedata.create ;
checkinfo:=Tcheckinfo.create ;
//获取员工编号列表
IdComb.Items:=basedata.GetIdLists();
//自动获取当前月份编号
edit3.Text:=formatdatetime('yyyymm',now);
//调用类中方法取出对应值在文本框中显示出来
try
  edit2.Text :=checkinfo.GetWorkerName(IdComb.Text,edit3.Text) ;
  edit4.Text :=checkinfo.GetMonthDays(IdComb.Text,edit3.Text);
  edit5.Text :=checkinfo.GetBusinessDays(IdComb.Text,edit3.Text) ;
  edit6.Text :=checkinfo.GetAbsentDays(IdComb.Text,edit3.Text);
  edit7.Text :=checkinfo.GetHolidays(IdComb.Text,edit3.Text) ;
  edit8.Text :=checkinfo.GetReWorkDays (IdComb.Text,edit3.Text) ;
  edit9.Text :=checkinfo.GetWorkDays (IdComb.Text,edit3.Text) ;
  edit10.Text :=checkinfo.GetLeaveTimes (IdComb.Text,edit3.Text) ;
  edit11.Text :=checkinfo.GetLateTimes (IdComb.Text,edit3.Text) ;
  edit12.Text :=checkinfo.GetLeaEarTimes (IdComb.Text,edit3.Text) ;
  edit13.Text :=checkinfo.GetHOliOverTimes (IdComb.Text,edit3.Text) ;
  edit14.Text :=checkinfo.GetOtherOverTimes (IdComb.Text,edit3.Text) ;
  memo1.Text  :=checkinfo.GetRemark(IdComb.Text,edit3.Text) ;
except
  exit;
end;
end;

procedure Tcheckinputfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  //释放类的实例
  checkinfo.Free;
  basedata.Free;
 // IdComb.Clear;
end;

procedure Tcheckinputfrm.IdCombChange(Sender: TObject);
begin
  edit2.Text :=basedata.GetWorkerName(IdComb.Text);
end;

end.