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

           end;

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

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