delphi网吧管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译]

='ok';
                         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;

首页上一页 8 9 10 11 12 13 14 下一页尾页 11/14/14

delphi网吧管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](十一)