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

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

delphi网吧管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](十) Text)<=strtodatetime((datetostr(now())+' '+DBEshangji.Text)) then
begin

              //情况2   *(*)
              if (strtodatetime(DBExj.Text)>=strtodatetime((datetostr(now())+' '+DBEshangji.Text)))and(strtodatetime(DBExj.Text)<strtodatetime((datetostr(now())+' '+DBExiaji.Text))) then
                 begin
                   DM.ADOTgl.FieldByName('结算').AsFloat:=sswu(jgjs(DBEsj.Text,datetostr(now())+' '+DBEshangji.Text,DBEmrjg.text))+sswu(jgjs(datetostr(now())+' '+DBEshangji.Text,DBExj.Text,DBEsdjg.Text));
                   ok:='ok';
                   break;
                 end;
              //情况5 *（）*
              if (strtodatetime(DBExj.Text)>=strtodatetime((datetostr(now())+' '+DBExiaji.Text))) then
               begin
                moneyall:=0;
                moneyall:=sswu(jgjs(DBEsj.Text,datetostr(now())+' '+DBEshangji.Text,DBEmrjg.text));

while ok<>'ok' do
begin

DM.ADOTjggl.Next;

                      if DM.ADOTjggl.eof then
                        begin
                         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:

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

delphi网吧管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](十)由毕业论文网（www.huoyuandh.com）会员上传。