久久久久久人妻精品一区二区三区 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网站一区二区三区

  begin
            with qryComm do
            begin
                Close;
                SQL.Clear;
                if cbRepop.Checked then
                begin
                    SQL.Add('DELETE JY_Park_Card_Info WHERE 卡號 = ''' + lblPopCont.Caption + '''');
                    try
                        ExecSQL;
                    except
                        ;
                    end;
                end;
                qryCard.Close;
                qryCard.SQL.Clear;
                qryCard.SQL.Add('SELECT * FROM JY_Card_Infomation WHERE 卡號= ''' + 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 (卡號,用戶編號,收費類型,組號,有效期起日期,有效期止日期,時間A,時間A1,時間B,時間B1,時間C,時間C1,時間D,時間D1,卡內金額,卡類,車牌號碼,進出限制,安全級別,非時段收費,進出周時)');
                    qryComm.SQL.Add('VALUES (''' + qryCard.FieldByName('卡號').AsString + ''','''
                                + qryCard.FieldByName('持卡人編號').AsString+ ''','
                                + tt1 + ','
                                + qryCard.FieldByName('持卡人編號').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('授權失敗，請確定該卡的授權信息是否已經存在！');
                        Exit;
                    end;
                    dm.WriteLog(qryCard.FieldByName('卡號').AsString,
                                '停車場','授權',now, fee, LocalUser.Name);
                    pb.Position := pb.Position + 1;
                    qryCard.Next;
                end;
            end;
        end;
    end;
    tvCardOwnerChange(nil, tvCardOwner.Selected);
    RefreshCard;
   // ShowMessage('注意：如果采用了主控制器，授權完畢后，請在”停車場服務器“軟件上對主控制器資料更新！');
    pb.Position := 0;