ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 保存功能

保存功能

原创 Linux操作系统 作者:zaorv 时间:2019-04-15 16:51:06 0 删除 编辑


procedure THolidayRequisitionForm.SaveBtnClick(Sender: TObject);
var
csql,csql2:string;
begin
csql2:='select * from holidayReq where deptNo='+quotedstr(trim(deptNocbm.text));
csql2:=csql2+' and empNo='+quotedstr(trim(EmpNocbm.text))+' and startTime='+quotedstr(trim(StartTimeEdt.text));
with udm.Qry_holidayReq do
begin
close;
sql.Clear;
sql.Add(csql2);
open;
end;
if udm.Qry_holidayReq.RecordCount>0 then
begin
application.MessageBox('本次请假开始时间已经存在!','提示',0+64);
exit;
end;

try
csql:='insert into holidayReq (deptNo,deptName,empNo,empName,holidayNo,holidayName,StartTime,EndTime,checkFlag,reMark) values ';
csql:=csql+ '('+quotedstr(trim(deptNocbm.text))+','+quotedstr(trim(deptNameEdt.Text)) + ','+ quotedstr(trim(empNOcbm.Text))+',';
csql:=csql +quotedstr(trim(empNameEdt.text))+','+quotedstr(trim(holidayNoCbm.text))+','+QUOTEDSTR(trim(holidayNameEdt.text));
csql:=csql+ ','+quotedstr(startTimeEdt.text)+ ','+ quotedstr(endTimeEdt.Text)+','+'0'+','+quotedstr(remarkEdt.text) +')';
with udm.qry_holiday do
begin
close;
sql.Clear;
sql.Add(CSQL);
execSQL;
end;
showMessage('保存成功');
except
showMessage('保存失败。');
exit;
end;

//显示
with udm.Qry_holidayReq do
begin
close;
sql.Clear;
sql.Add('select * from holidayReq where deptNo ='+quotedstr(trim(deptNOCbm.Text))+' and startTime='+quotedstr(trim(startTimeEdt.text)) );
open;
end;
end;


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/729024/viewspace-564880/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2018-09-12

  • 博文量
    168
  • 访问量
    122478