门禁管理系统程序代码

申请免费试用、咨询电话：400-8352-114

    with qryPopedCard do
    begin
        Close;
        SQL.Clear;
        SQL.Add('SELECT c.卡号 AS 卡号, c.用户编号 AS 用户编号,');
        SQL.Add('h.持卡人姓名 AS 用户姓名, c.卡类 AS 卡类,');
       // SQL.Add('c.有效期止日期 AS 有效日期止, c.卡内金额 AS 卡内金额');
        SQL.Add('c.有效期止日期 AS 有效日期止, c.有效期起日期 AS 起始日期,');
        SQL.Add('c.卡内金额 AS 卡内金额,c.挂失 AS 挂失,');
        SQL.Add('c.收费类型 AS 收费类型,');
        SQL.Add('c.车牌号码 AS 车牌号码');

        SQL.Add('FROM JY_Park_Card_Info c INNER JOIN JY_Card_Infomation h');
        SQL.Add('ON c.卡号=h.卡号');
        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)+'''');//之前的时间
         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.收费类型= '''+strm+'''');
          end;
         SQL.Add('ORDER BY 用户编号');
         Open;
         labCount.Caption :='满足条件的记录：'+inttostr(RecordCount);

        while not Eof do
        begin
            Item := lvCard.Items.Add;
            Item.ImageIndex := 4;
            Item.Caption := trim(FieldByName('卡号').AsString);
            Item.SubItems.Add(trim(FieldByName('用户编号').AsString));
            Item.SubItems.Add(trim(FieldByName('用户姓名').AsString));

            if FieldByName('卡类').AsString='1' then Item.SubItems.Add('期  卡');
            if FieldByName('卡类').AsString='2' then Item.SubItems.Add('临时卡');
            if FieldByName('卡类').AsString='3' then Item.SubItems.Add('充值卡');
            if FieldByName('卡类').AsString='4' then Item.SubItems.Add('贵宾卡');
            if FieldByName('卡类').AsString='5' then Item.SubItems.Add('时段卡');
            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('收费类型').AsInteger =100 then Item.SubItems.Add('期卡露天')
            else if FieldByName('收费类型').AsInteger =101 then Item.SubItems.Add('期卡车库')
            else if FieldByName('收费类型').AsInteger =102 then Item.SubItems.Add('期卡标准A')
            else if FieldByName('收费类型').AsInteger =103 then Item.SubItems.Add('期卡标准B')
            else if FieldByName('收费类型').AsInteger =104 then Item.SubItems.Add('期卡标准C')
            else if FieldByName('收费类型').AsInteger =105 then Item.SubItems.Add('期卡标准D')
            else if FieldByName('收费类型').AsInteger =106 then Item.SubItems.Add('期卡标准E')
            else if FieldByName('收费类型').AsInteger =107 then Item.SubItems.Add('期卡标准F')

            else if FieldByName('收费类型').AsInteger =-1 then Item.SubItems.Add('未定义')

           // else if FieldByName('收费类型').AsInteger =0 then Item.SubItems.Add('标准0')
            //else if FieldByName('收费类型').AsInteger =1 then Item.SubItems.Add('标准1')

            else
             begin

             typ:= FieldByName('收费类型').AsInteger;
             with qrycomm  do
             begin
             Close;
             SQL.Clear;

             SQL.Add('SELECT * FROM JY_Park_Day_Fstd_Info WHERE 编号 = ''' + inttostr(typ)+'''' );
             Open;
             strm:=trim(FieldByName('组合类型').AsString);
             Item.SubItems.Add(strm);
             end;
            end;
            Item.SubItems.Add(trim(FieldByName('车牌号码').AsString));
            Item.SubItems.Add(FieldByName('挂失').AsString);
            Next;
        end;
    end;