久久久久久人妻精品一区二区三区 I 久久欧美一区二区三区性牲奴 I 久久综合在线观看 I 午夜精品电影你懂的 I 综合激情伊人 I 9久久精品 I www插插插无码免费视频网站 I 91免费视频入口 I 国产乱子伦精品免费女 I 波多野结衣紧身裙女教师 I 放荡的美妇在线播放 I 亚洲三级在线看 I 久久蜜桃网 I 久久一区二区免费视频 I 亚洲国产精品入口 I 99青青草 I 992tv国产精品免费观看 I www.日韩com I 欧美乱人伦视频在线观看 I 中文字幕天堂 I aaaaaaa欧美黄色大片 I 天天躁天天操 I 精品爽爽久久久久久蜜臀 I 无码精品人妻一区二区三区免费看 I 奇米狠狠 I 丰满人妻翻云覆雨呻吟视频 I 午夜视频久久久久一区 I 操操操操操操操 I 亚洲精品综合一区二区三 I 欧美精品久久久久 I 国产素人视频 I 无套白嫩进入乌克兰美女 I 亚洲制服丝袜一区 I 国产女烈大尺度sm受刑视频 I av网站一区二区三区

 if conf.CenterPay then  //中心收費模式  admin
  begin
    if not imgOpen.Enabled then Exit;
    if not bCanOpen then Exit;
    //先寫歷史停車記錄
    with qryRec do
    begin
        //////////////////
        //設備所在停車場查詢
        Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM JY_Park_Mech_info');
        SQL.Add('WHERE 編號=' + lbDev.Caption);
        Open;
        nPrkID := FieldByName('所屬停車場編號').AsInteger;

        //查詢是否已經收過費
        Close;
        SQL.Clear;
        SQL.Add('select * from JY_Park_IN_Info WHERE 卡號='''  + Edit1.Text + '''');
        Open;

       // if RecordCount>0 then
        if FieldByName('已結算').AsBoolean then
          begin  //也結算過的，必須重新采用插入新的出場記錄
             sID := GetID();
             Close;
             SQL.Clear;

             aCardID:=trim(Edit1.Text);
             SQL.Add('INSERT JY_Park_Rec_Info (編號,卡號,卡類,大小停車場)');
             SQL.Add('VALUES (''' + sID + ''',''' + aCardID + ''',' + IntToStr(2) + ','
                                + inttostr(nPrkID) + ')');
             try
                ExecSQL;
             except
                    SQL.SaveToFile(AppDir+'\logs\' + FormatDateTime('YYYYMMddHHmmss',now)+'.txt');
             end;
              Close;
            SQL.Clear;
            SQL.Add('UPDATE JY_Park_IN_Info SET');
            SQL.Add('出場時間=''' + DateTimeToStr(now) + ''',');

            SQL.Add('已結算= ' + sBool[True]);
            SQL.Add(' WHERE 卡號=''' + Edit1.Text +'''');

            try
            ExecSQL;
           except
           // SQL.SaveToFile(AppDir+'\logs\' + DateTimeToStr(now)+'.txt');
             DecodeDate(now, mdt.year, mdt.month, mdt.day);
             DecodeTime(now, mdt.hour, mdt.minute, mdt.second,t);
             str1:=floattostr(mdt.year)+'Y'+floattostr(mdt.month)+'M'+floattostr(mdt.day);
             str2:='D'+floattostr(mdt.hour)+'H'+floattostr(mdt.minute)+'M'+floattostr(mdt.second)+'S';
             SQL.SaveToFile(AppDir+'\logs\' + str1+str2+'.txt');//出錯了，怎么辦？
           end;

           Close;                  //更新記錄
           SQL.Clear;
           SQL.Add('UPDATE JY_Park_Rec_Info SET');
           SQL.Add('出場時間=''' + Edit5.Text + ''',');
           SQL.Add('停車費用=''' + Edit7.Text + ''',');
           //SQL.Add('出口編號=' + lbDev.Caption + ',');
           if czkout then
            SQL.Add('收費員=''' + spaceuser + '''')
           else
           SQL.Add('收費員=''' + LocalUser.Name + '''');

           SQL.Add('WHERE 編號=''' + sID + '''');
           try
            ExecSQL;
           except
            DecodeDate(now, mdt.year, mdt.month, mdt.day);
            DecodeTime(now, mdt.hour, mdt.minute, mdt.second,t);
            str1:=floattostr(mdt.year)+'Y'+floattostr(mdt.month)+'M'+floattostr(mdt.day);
            str2:='D'+floattostr(mdt.hour)+'H'+floattostr(mdt.minute)+'M'+floattostr(mdt.second)+'S';
            SQL.SaveToFile(AppDir+'\logs\' + str1+str2+'.txt');//出錯了，怎么辦？
           end;

           //end;
          //end;
          end else   //第一次來付費
           begin
           Close;
           SQL.Clear;
           SQL.Add('UPDATE JY_Park_Rec_Info SET');
           SQL.Add('出場時間=''' + Edit5.Text + ''',');
           SQL.Add('停車費用=''' + Edit7.Text + ''',');
           //SQL.Add('出口編號=' + lbDev.Caption + ',');
           if czkout then
            SQL.Add('收費員=''' + spaceuser + '''')
           else
           SQL.Add('收費員=''' + LocalUser.Name + '''');
           //SQL.Add('大小停車場=''' + );
           SQL.Add('WHERE 編號=''' + gSid + '''');
           try
            ExecSQL;
           except
           DecodeDate(now, mdt.year, mdt.month, mdt.day);
           DecodeTime(now, mdt.hour, mdt.minute, mdt.second,t);
           str1:=floattostr(mdt.year)+'Y'+floattostr(mdt.month)+'M'+floattostr(mdt.day);
           str2:='D'+floattostr(mdt.hour)+'H'+floattostr(mdt.minute)+'M'+floattostr(mdt.second)+'S';
           SQL.SaveToFile(AppDir+'\logs\' + str1+str2+'.txt');//出錯了，怎么辦？
           // SQL.SaveToFile(AppDir+'\logs\' + DateTimeToStr(now)+'.txt');//出錯了，怎么辦？
           end;

          Close;
          SQL.Clear;
          SQL.Add('UPDATE JY_Park_IN_Info SET');
          SQL.Add('出場時間=''' + DateTimeToStr(now) + ''',');
          //SQL.Add('出口編號= ''' + IntToStr(nPrkID)+ ''',');
          SQL.Add('已結算= ' + sBool[True]);
          SQL.Add(' WHERE 卡號=''' + Edit1.Text +''' AND ');
          SQL.Add('所在停車場 >= ' + IntToStr(nPrkID));

          //SQL.Add('UPDATE JY_Park_Card_Info SET');
          //SQL.Add('所在停車場=' + IntToStr(nPrkID-1) + 'WHERE 卡號=''' + Edit1.Text + '''');
          try
            ExecSQL;
          except
           // SQL.SaveToFile(AppDir+'\logs\' + DateTimeToStr(now)+'.txt');
           DecodeDate(now, mdt.year, mdt.month, mdt.day);
           DecodeTime(now, mdt.hour, mdt.minute, mdt.second,t);
           str1:=floattostr(mdt.year)+'Y'+floattostr(mdt.month)+'M'+floattostr(mdt.day);
           str2:='D'+floattostr(mdt.hour)+'H'+floattostr(mdt.minute)+'M'+floattostr(mdt.second)+'S';
           SQL.SaveToFile(AppDir+'\logs\' + str1+str2+'.txt');//出錯了，怎么辦？
          end;
         end;
       end;
  end else  //普通收費模式
  begin
    if not imgOpen.Enabled then Exit;
    if not bCanOpen then Exit;

    with qrypic  do
    begin
    close;
    SQL.Clear;                                                                //
    SQL.Add('UPDATE JY_Park_New_Picture SET 標識=1');
    SQL.Add('WHERE 編號=''' + gSid + '''');  //
     try
       ExecSQL;
       except
        ;//showmessage('圖像標識失敗');
      end;
     end;