精品人妻伦一区二区三区久久,狼友av永久网站免费极品在线,欧美日韩黄色大片,香港三日本8a三级少妇三级99

  begin
            with qryComm do
            begin
                Close;
                SQL.Clear;
                if cbRepop.Checked then
                begin
                    SQL.Add('DELETE JY_Park_Card_Info WHERE 卡號(hào) = ''' + lblPopCont.Caption + '''');
                    try
                        ExecSQL;
                    except
                        ;
                    end;
                end;
                qryCard.Close;
                qryCard.SQL.Clear;
                qryCard.SQL.Add('SELECT * FROM JY_Card_Infomation WHERE 卡號(hào)= ''' + lblPopCont.Caption + '''');
                qryCard.Open;
                qryCard.First;

                //ShowMessage(IntToStr(qryCard.RecordCount));
                pb.Max := qryCard.RecordCount;

                while not qryCard.Eof do
                begin
                    qryComm.Close;
                    qryComm.SQL.Clear;
                    qryComm.SQL.Add('INSERT JY_Park_Card_Info (卡號(hào),用戶編號(hào),收費(fèi)類型,組號(hào),有效期起日期,有效期止日期,時(shí)間A,時(shí)間A1,時(shí)間B,時(shí)間B1,時(shí)間C,時(shí)間C1,時(shí)間D,時(shí)間D1,卡內(nèi)金額,卡類,車牌號(hào)碼,進(jìn)出限制,安全級(jí)別,非時(shí)段收費(fèi),進(jìn)出周時(shí))');
                    qryComm.SQL.Add('VALUES (''' + qryCard.FieldByName('卡號(hào)').AsString + ''','''
                                + qryCard.FieldByName('持卡人編號(hào)').AsString+ ''','
                                + tt1 + ','
                                + qryCard.FieldByName('持卡人編號(hào)').AsString+ ','''
                                + DateToStr(dtppopf.Date) + ''','''
                                + DateToStr(dtppopt.Date) + ''','''
                                +  timeTostr(dtp_Ent_Timeslice1.Time)+ ''','''
                                +  timeTostr(dtp_Ent_Timeslice2.Time)+ ''','''
                                +  timeTostr(dtp_Ent_Timeslice3.Time)+ ''','''
                                +  timeTostr(dtp_Ent_Timeslice4.Time)+ ''','''
                                +  timeTostr(dtp_Ent_Timeslice5.Time)+ ''','''
                                +  timeTostr(dtp_Ent_Timeslice6.Time)+ ''','''
                                +  timeTostr(dtp_Ent_Timeslice7.Time)+ ''','''
                                +  timeTostr(dtp_Ent_Timeslice8.Time)+ ''','
                                + EditAcount.Text + ','''
                                + IntToStr(cmbCardType.ItemIndex + 1)+''','''
                                + ttsrt +''','''
                                + quanxian +''','''+ anquanjibi+''','''+sflxA +''','''+xingqi+''')');
                    try
                        qryComm.execsql;
                    except
                        ShowMessage('授權(quán)失敗，請(qǐng)確定該卡的授權(quán)信息是否已經(jīng)存在！');
                        Exit;
                    end;
                    dm.WriteLog(qryCard.FieldByName('卡號(hào)').AsString,
                                '停車場(chǎng)','授權(quán)',now, fee, LocalUser.Name);
                    pb.Position := pb.Position + 1;
                    qryCard.Next;
                end;
            end;
        end;
    end;
    tvCardOwnerChange(nil, tvCardOwner.Selected);
    RefreshCard;
   // ShowMessage('注意：如果采用了主控制器，授權(quán)完畢后，請(qǐng)?jiān)凇蓖＼噲?chǎng)服務(wù)器“軟件上對(duì)主控制器資料更新！');
    pb.Position := 0;