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

delphi网吧管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](十三) ;  end
                   else
                    begin
                      if (strtodatetime(DBExj.Text)<=strtodatetime((datetostr(now())+' '+DBEshangji.Text))) then
                        begin
                         DM.ADOTjggl.Prior;
                         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;
                        end;
                    end;
                 end;
            end;

      end;
        DM.ADOTjggl.Next;
      until DM.ADOTjggl.Eof;

      //情况1 **()
              if ok='' then
                begin
                 DM.ADOTgl.FieldByName('结算').AsFloat:=sswu(jgjs(DBEsj.Text,DBExj.Text,DBEmrjg.text));
                
                 ok:=''
                end;

      DM.ADOTgl.UpdateBatch;

       DM.ADOTgltemp.Locate('卡编号',edit1.Text,[]);
       DM.ADOTgltemp.Edit;
       DM.ADOTgltemp.Delete;
       DM.ADOTgltemp

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

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