門禁管理系統(tǒng)程序代碼

申請(qǐng)免費(fèi)試用、咨詢電話：400-8352-114

    with qryPopedCard do
    begin
        Close;
        SQL.Clear;
        SQL.Add('SELECT c.卡號(hào) AS 卡號(hào), c.用戶編號(hào) AS 用戶編號(hào),');
        SQL.Add('h.持卡人姓名 AS 用戶姓名, c.卡類 AS 卡類,');
       // SQL.Add('c.有效期止日期 AS 有效日期止, c.卡內(nèi)金額 AS 卡內(nèi)金額');
        SQL.Add('c.有效期止日期 AS 有效日期止, c.有效期起日期 AS 起始日期,');
        SQL.Add('c.卡內(nèi)金額 AS 卡內(nèi)金額,c.掛失 AS 掛失,');
        SQL.Add('c.收費(fèi)類型 AS 收費(fèi)類型,');
        SQL.Add('c.車牌號(hào)碼 AS 車牌號(hào)碼');

        SQL.Add('FROM JY_Park_Card_Info c INNER JOIN JY_Card_Infomation h');
        SQL.Add('ON c.卡號(hào)=h.卡號(hào)');
        if ckbctype.Checked then
         begin
          strm:=inttostr(cmbCardtypes.ItemIndex +1);
          SQL.Add('AND c.卡類= '''+strm+'''');
         end;

         if ckbguoqi.Checked then    //2009
         begin
          SQL.Add('AND c.有效期止日期< '''+datetostr(guoqid.DateTime)+'''');//之前的時(shí)間
         end;

        if chkSftype.Checked  then
          begin
             if cmbSftype.ItemIndex = 0 then   strm:='100'
             else if cmbSftype.ItemIndex = 1 then   strm:='101'
             else if cmbSftype.ItemIndex = 2 then   strm:='0'
             else if cmbSftype.ItemIndex = 3 then   strm:='1'
             else if cmbSftype.ItemIndex = 4 then   strm:='-1';
             SQL.Add('AND c.收費(fèi)類型= '''+strm+'''');
          end;
         SQL.Add('ORDER BY 用戶編號(hào)');
         Open;
         labCount.Caption :='滿足條件的記錄：'+inttostr(RecordCount);

        while not Eof do
        begin
            Item := lvCard.Items.Add;
            Item.ImageIndex := 4;
            Item.Caption := trim(FieldByName('卡號(hào)').AsString);
            Item.SubItems.Add(trim(FieldByName('用戶編號(hào)').AsString));
            Item.SubItems.Add(trim(FieldByName('用戶姓名').AsString));

            if FieldByName('卡類').AsString='1' then Item.SubItems.Add('期  卡');
            if FieldByName('卡類').AsString='2' then Item.SubItems.Add('臨時(shí)卡');
            if FieldByName('卡類').AsString='3' then Item.SubItems.Add('充值卡');
            if FieldByName('卡類').AsString='4' then Item.SubItems.Add('貴賓卡');
            if FieldByName('卡類').AsString='5' then Item.SubItems.Add('時(shí)段卡');
            if FieldByName('卡類').AsString='6' then Item.SubItems.Add('卡類A');
            if FieldByName('卡類').AsString='7' then Item.SubItems.Add('卡類B');
            Item.SubItems.Add(FieldByName('起始日期').AsString);
            Item.SubItems.Add(FieldByName('有效日期止').AsString);

            if FieldByName('收費(fèi)類型').AsInteger =100 then Item.SubItems.Add('期卡露天')
            else if FieldByName('收費(fèi)類型').AsInteger =101 then Item.SubItems.Add('期卡車庫(kù)')
            else if FieldByName('收費(fèi)類型').AsInteger =102 then Item.SubItems.Add('期卡標(biāo)準(zhǔn)A')
            else if FieldByName('收費(fèi)類型').AsInteger =103 then Item.SubItems.Add('期卡標(biāo)準(zhǔn)B')
            else if FieldByName('收費(fèi)類型').AsInteger =104 then Item.SubItems.Add('期卡標(biāo)準(zhǔn)C')
            else if FieldByName('收費(fèi)類型').AsInteger =105 then Item.SubItems.Add('期卡標(biāo)準(zhǔn)D')
            else if FieldByName('收費(fèi)類型').AsInteger =106 then Item.SubItems.Add('期卡標(biāo)準(zhǔn)E')
            else if FieldByName('收費(fèi)類型').AsInteger =107 then Item.SubItems.Add('期卡標(biāo)準(zhǔn)F')

            else if FieldByName('收費(fèi)類型').AsInteger =-1 then Item.SubItems.Add('未定義')

           // else if FieldByName('收費(fèi)類型').AsInteger =0 then Item.SubItems.Add('標(biāo)準(zhǔn)0')
            //else if FieldByName('收費(fèi)類型').AsInteger =1 then Item.SubItems.Add('標(biāo)準(zhǔn)1')

            else
             begin

             typ:= FieldByName('收費(fèi)類型').AsInteger;
             with qrycomm  do
             begin
             Close;
             SQL.Clear;

             SQL.Add('SELECT * FROM JY_Park_Day_Fstd_Info WHERE 編號(hào) = ''' + inttostr(typ)+'''' );
             Open;
             strm:=trim(FieldByName('組合類型').AsString);
             Item.SubItems.Add(strm);
             end;
            end;
            Item.SubItems.Add(trim(FieldByName('車牌號(hào)碼').AsString));
            Item.SubItems.Add(FieldByName('掛失').AsString);
            Next;
        end;
    end;