【delphi开源代码栏目提醒】:本文主要为网学会员提供checkinput.pas,希望对需要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='''+
上一篇:
DlgLevel.cpp
下一篇:
让我掉下眼泪的