break;
end;
if (strtodatetime(DBExj.Text)<=strtodatetime((datetostr(now())+' '+DBEshangji.Text))) then
begin
DM.ADOTjggl.Prior;
DM.ADOTgl.FieldByName('结算').AsFloat:=moneyall+sswu(jgjs(datetostr(now())+' '+DBEshangji.Text,datetostr(now())+' '+DBExiaji.Text,DBEsdjg.Text))+sswu(jgjs(datetostr(now())+' '+DBExiaji.Text,DBExj.Text,DBEmrjg.Text));
ok:='ok';
break;
end;
DM.ADOTjggl.Prior;
ss:=datetostr(now())+' '+DBExiaji.Text;
DM.ADOTjggl.Next;
xx:=datetostr(now())+' '+DBEshangji.Text;
DM.ADOTjggl.Prior;
moneyall:=moneyall+sswu(jgjs(datetostr(now())+' '+DBEshangji.Text,datetostr(now())+' '+DBExiaji.Text,DBEsdjg.Text))+sswu(jgjs(ss,xx,DBEmrjg.Text));
DM.ADOTjggl.Next;
end;
&n
首页 上一页 8 9 10 11 12 13 14 下一页 尾页 11/14/14
delphi网吧管理系统[开题报告+文档+源代码+答辩ppt+外文翻译](十一)由毕业论文网(www.huoyuandh.com)会员上传。