表 Where 大楼名=:A');
              ParamByName('A').AsString:=Table2.FieldByName('大楼名称').AsString;
              Open;
         end;
         For a:=1 to Query1.Fields[0].AsInteger do
         begin
              ComboBox1.Items.Add(IntToStr(a));
         end;
         end;
         Query1.Close;
    end;
    
    procedure TDY_XQ.ComboBox1Change(Sender: TObject);
    begin
         Table3.Filter:='单元 ='''+ComboBox1.Items[ComboBox1.ItemIndex]+'''';
         Table3.Filtered:=true;
    end;
    
    procedure TDY_XQ.QuickRep1Preview(Sender: TObject);
    begin
         DYYLBrose.QRPreview1.QRPrinter:=QuickRep1.QRPrinter;
    end;
    
    procedure TDY_XQ.BitBtn1Click(Sender: TObject);
    begin
         if Table1.RecordCount<>0 then
            begin
                 DYYLBrose.Show;
                 QUickRep1.Preview;
            end;
    end;

上一篇：MC_DY_SJ_CP_CJ.pas
下一篇：2018年汽车自驾运动营地攻防箭大赛总决赛圆满落幕