unit6.~pas

来自「本软件的功能如下： 1.公司员工工资信息输入查找 2.工资计算 3.工资汇总 4」· ~PAS 代码 · 共 3,148 行 · 第 1/5 页

            table1.Filter:='部门'+'='+''''+ds1+'''';
            table1.Filtered:=true;
           END;
         2:
           begin
           showmessage(ds1+','+ds2);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+'''';
           table1.filtered:=true;
            end;

         3:
           begin
           showmessage(ds1+','+ds2+','+ds3);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+'''';
           table1.filtered:=true;
            end;


         4:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+'''';
           table1.filtered:=true;
            end;




         5:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+'''';
           table1.filtered:=true;
            end;


         
         6:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+'''';
           table1.filtered:=true;
            end;


       
         7:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+''''+
            '  or  ' + '部门'+'='+''''+ds7+'''';
           table1.filtered:=true;
            end;

        8:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+''''+
            '  or  ' + '部门'+'='+''''+ds7+''''+'  or  ' + '部门'+'='+''''+ds8+'''';
           table1.filtered:=true;
            end;



         9:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+''''+
            '  or  ' + '部门'+'='+''''+ds7+''''+'  or  ' + '部门'+'='+''''+ds8+''''
            +'  or  ' + '部门'+'='+''''+ds9+'''';
           table1.filtered:=true;
            end;





          10:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+''''+
            '  or  ' + '部门'+'='+''''+ds7+''''+'  or  ' + '部门'+'='+''''+ds8+''''
            +'  or  ' + '部门'+'='+''''+ds9+''''+'  or  ' + '部门'+'='+''''+ds10+'''';
           table1.filtered:=true;
            end;


          11:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10+','+ds11);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+''''+
            '  or  ' + '部门'+'='+''''+ds7+''''+'  or  ' + '部门'+'='+''''+ds8+''''
            +'  or  ' + '部门'+'='+''''+ds9+''''+'  or  ' + '部门'+'='+''''+ds10+''''
            +'  or  ' + '部门'+'='+''''+ds11+'''';
           table1.filtered:=true;
            end;





          12:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10+','+ds11);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+''''+
            '  or  ' + '部门'+'='+''''+ds7+''''+'  or  ' + '部门'+'='+''''+ds8+''''
            +'  or  ' + '部门'+'='+''''+ds9+''''+'  or  ' + '部门'+'='+''''+ds10+''''
            +'  or  ' + '部门'+'='+''''+ds11+''''+'  or  ' + '部门'+'='+''''+ds12+'''';
           table1.filtered:=true;
            end;



          13:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10+','+ds11);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+''''+
            '  or  ' + '部门'+'='+''''+ds7+''''+'  or  ' + '部门'+'='+''''+ds8+''''
            +'  or  ' + '部门'+'='+''''+ds9+''''+'  or  ' + '部门'+'='+''''+ds10+''''
            +'  or  ' + '部门'+'='+''''+ds11+''''+'  or  ' + '部门'+'='+''''+ds12+''''
            +'  or  ' + '部门'+'='+''''+ds13+'''';
           table1.filtered:=true;
            end;

          
          14:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10+','+ds11);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+''''+
            '  or  ' + '部门'+'='+''''+ds7+''''+'  or  ' + '部门'+'='+''''+ds8+''''
            +'  or  ' + '部门'+'='+''''+ds9+''''+'  or  ' + '部门'+'='+''''+ds10+''''
            +'  or  ' + '部门'+'='+''''+ds11+''''+'  or  ' + '部门'+'='+''''+ds12+''''
            +'  or  ' + '部门'+'='+''''+ds13+'''' +'  or  ' + '部门'+'='+''''+ds14+'''';
           table1.filtered:=true;
            end;


            15:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10+','+ds11);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+''''+
            '  or  ' + '部门'+'='+''''+ds7+''''+'  or  ' + '部门'+'='+''''+ds8+''''
            +'  or  ' + '部门'+'='+''''+ds9+''''+'  or  ' + '部门'+'='+''''+ds10+''''
            +'  or  ' + '部门'+'='+''''+ds11+''''+'  or  ' + '部门'+'='+''''+ds12+''''
            +'  or  ' + '部门'+'='+''''+ds13+'''' +'  or  ' + '部门'+'='+''''+ds14+''''
            +'  or  ' + '部门'+'='+''''+ds15+'''';
           table1.filtered:=true;
            end;

           16:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10+','+ds11);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+''''+
            '  or  ' + '部门'+'='+''''+ds7+''''+'  or  ' + '部门'+'='+''''+ds8+''''
            +'  or  ' + '部门'+'='+''''+ds9+''''+'  or  ' + '部门'+'='+''''+ds10+''''
            +'  or  ' + '部门'+'='+''''+ds11+''''+'  or  ' + '部门'+'='+''''+ds12+''''
            +'  or  ' + '部门'+'='+''''+ds13+'''' +'  or  ' + '部门'+'='+''''+ds14+''''
            +'  or  ' + '部门'+'='+''''+ds15+''''+'  or  ' + '部门'+'='+''''+ds16+'''';
           table1.filtered:=true;
            end;

            17:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10+','+ds11);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+''''+
            '  or  ' + '部门'+'='+''''+ds7+''''+'  or  ' + '部门'+'='+''''+ds8+''''
            +'  or  ' + '部门'+'='+''''+ds9+''''+'  or  ' + '部门'+'='+''''+ds10+''''
            +'  or  ' + '部门'+'='+''''+ds11+''''+'  or  ' + '部门'+'='+''''+ds12+''''
            +'  or  ' + '部门'+'='+''''+ds13+'''' +'  or  ' + '部门'+'='+''''+ds14+''''
            +'  or  ' + '部门'+'='+''''+ds15+''''+'  or  ' + '部门'+'='+''''+ds16+''''
            +'  or  ' + '部门'+'='+''''+ds17+'''';
           table1.filtered:=true;
            end;


            18:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10+','+ds11);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+''''+
            '  or  ' + '部门'+'='+''''+ds7+''''+'  or  ' + '部门'+'='+''''+ds8+''''
            +'  or  ' + '部门'+'='+''''+ds9+''''+'  or  ' + '部门'+'='+''''+ds10+''''
            +'  or  ' + '部门'+'='+''''+ds11+''''+'  or  ' + '部门'+'='+''''+ds12+''''
            +'  or  ' + '部门'+'='+''''+ds13+'''' +'  or  ' + '部门'+'='+''''+ds14+''''
            +'  or  ' + '部门'+'='+''''+ds15+''''+'  or  ' + '部门'+'='+''''+ds16+''''
            +'  or  ' + '部门'+'='+''''+ds17+''''+'  or  ' + '部门'+'='+''''+ds18+'''';
           table1.filtered:=true;
            end;


            19:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10+','+ds11);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+''''+
            '  or  ' + '部门'+'='+''''+ds7+''''+'  or  ' + '部门'+'='+''''+ds8+''''
            +'  or  ' + '部门'+'='+''''+ds9+''''+'  or  ' + '部门'+'='+''''+ds10+''''
            +'  or  ' + '部门'+'='+''''+ds11+''''+'  or  ' + '部门'+'='+''''+ds12+''''
            +'  or  ' + '部门'+'='+''''+ds13+'''' +'  or  ' + '部门'+'='+''''+ds14+''''
            +'  or  ' + '部门'+'='+''''+ds15+''''+'  or  ' + '部门'+'='+''''+ds16+''''
            +'  or  ' + '部门'+'='+''''+ds17+''''+'  or  ' + '部门'+'='+''''+ds18+''''
            +'  or  ' + '部门'+'='+''''+ds19+'''';
           table1.filtered:=true;
            end;


            20:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10+','+ds11);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+''''+
            '  or  ' + '部门'+'='+''''+ds7+''''+'  or  ' + '部门'+'='+''''+ds8+''''
            +'  or  ' + '部门'+'='+''''+ds9+''''+'  or  ' + '部门'+'='+''''+ds10+''''
            +'  or  ' + '部门'+'='+''''+ds11+''''+'  or  ' + '部门'+'='+''''+ds12+''''
            +'  or  ' + '部门'+'='+''''+ds13+'''' +'  or  ' + '部门'+'='+''''+ds14+''''
            +'  or  ' + '部门'+'='+''''+ds15+''''+'  or  ' + '部门'+'='+''''+ds16+''''
            +'  or  ' + '部门'+'='+''''+ds17+''''+'  or  ' + '部门'+'='+''''+ds18+''''
            +'  or  ' + '部门'+'='+''''+ds19+''''+'  or  ' + '部门'+'='+''''+ds20+'''';
           table1.filtered:=true;
            end;


           21:
           begin
           showmessage(ds1+','+ds2+','+ds3+','+ds4+','+ds5+','+ds6+','+ds7+','+ds8+','+ds9+','+ds10+','+ds11);
           table1.Filter:='部门'+'='+''''+ds1+'''' + '  or  ' + '部门'+'='+''''+ds2+''''+
            '  or  ' + '部门'+'='+''''+ds3+''''+'  or  ' + '部门'+'='+''''+ds4+''''
            +'  or  ' + '部门'+'='+''''+ds5+''''+'  or  ' + '部门'+'='+''''+ds6+''''+
            '  or  ' + '部门'+'='+''''+ds7+''''+'  or  ' + '部门'+'='+''''+ds8+''''
            +'  or  ' + '部门'+'='+''''+ds9+''''+'  or  ' + '部门'+'='+''''+ds10+''''
            +'  or  ' + '部门'+'='+''''+ds11+''''+'  or  ' + '部门'+'='+''''+ds12+''''
            +'  or  ' + '部门'+'='+''''+ds13+'''' +'  or  ' + '部门'+'='+''''+ds14+''''
            +'  or  ' + '部门'+'='+''''+ds15+''''+'  or  ' + '部门'+'='+''''+ds16+''''
            +'  or  ' + '部门'+'='+''''+ds17+''''+'  or  ' + '部门'+'='+''''+ds18+''''
            +'  or  ' + '部门'+'='+''''+ds19+''''+'  or  ' + '部门'+'='+''''+ds20+''''
            +'  or  ' + '部门'+'='+''''+ds21+'''';
           table1.filtered:=true;
            end;


end;

edit1.Text:=inttostr(table1.RecordCount);
end;
procedure TForm6.Button2Click(Sender: TObject);
begin

quickreport6.QRExpr49.Visible:=false;
quickreport6.QRExpr50.Visible:=true;
quickreport6.QRExpr49.Enabled:=false;
quickreport6.QRExpr50.Enabled:=true;

case num of


         0:
            showmessage('没有任何指定的部门可打印');
         1:

         BEGIN
             showmessage('现在打印'+ds1+'请装纸');

            table1.Filter:='部门'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds1+'的工资表打印完毕');

           END;


          2:

         BEGIN
            showmessage('现在打印'+ds1+'请装纸');

            table1.Filter:='部门'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
             showmessage(ds1+'的工资表打印完毕');


            showmessage('现在打印'+ds2+'请装纸');

            table1.Filter:='部门'+'='+''''+ds2+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds2+'的工资表打印完毕');

           END;




         
          3:

         BEGIN
            showmessage('现在打印'+ds1+'请装纸');

            table1.Filter:='部门'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
             showmessage(ds1+'的工资表打印完毕');


            showmessage('现在打印'+ds2+'请装纸');

            table1.Filter:='部门'+'='+''''+ds2+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds2+'的工资表打印完毕');



            showmessage('现在打印'+ds3+'请装纸');

            table1.Filter:='部门'+'='+''''+ds3+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds3;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds3+'的工资表打印完毕');

           END;



          4:

         BEGIN
            showmessage('现在打印'+ds1+'请装纸');

            table1.Filter:='部门'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
             showmessage(ds1+'的工资表打印完毕');


            showmessage('现在打印'+ds2+'请装纸');

            table1.Filter:='部门'+'='+''''+ds2+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds2+'的工资表打印完毕');



            showmessage('现在打印'+ds3+'请装纸');

            table1.Filter:='部门'+'='+''''+ds3+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds3;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds3+'的工资表打印完毕');




            showmessage('现在打印'+ds4+'请装纸');

            table1.Filter:='部门'+'='+''''+ds4+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds4;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds4+'的工资表打印完毕');

           END;



         
          5:

         BEGIN
            showmessage('现在打印'+ds1+'请装纸');

            table1.Filter:='部门'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
             showmessage(ds1+'的工资表打印完毕');


            showmessage('现在打印'+ds2+'请装纸');

            table1.Filter:='部门'+'='+''''+ds2+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds2+'的工资表打印完毕');



            showmessage('现在打印'+ds3+'请装纸');

            table1.Filter:='部门'+'='+''''+ds3+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds3;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds3+'的工资表打印完毕');




            showmessage('现在打印'+ds4+'请装纸');

            table1.Filter:='部门'+'='+''''+ds4+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds4;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds4+'的工资表打印完毕');



            showmessage('现在打印'+ds5+'请装纸');

            table1.Filter:='部门'+'='+''''+ds5+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds5;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds5+'的工资表打印完毕');

           END;






           6:

         BEGIN
            showmessage('现在打印'+ds1+'请装纸');

            table1.Filter:='部门'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
             showmessage(ds1+'的工资表打印完毕');


            showmessage('现在打印'+ds2+'请装纸');

            table1.Filter:='部门'+'='+''''+ds2+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds2+'的工资表打印完毕');



            showmessage('现在打印'+ds3+'请装纸');

            table1.Filter:='部门'+'='+''''+ds3+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds3;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds3+'的工资表打印完毕');




            showmessage('现在打印'+ds4+'请装纸');

            table1.Filter:='部门'+'='+''''+ds4+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds4;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds4+'的工资表打印完毕');



            showmessage('现在打印'+ds5+'请装纸');

            table1.Filter:='部门'+'='+''''+ds5+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds5;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds5+'的工资表打印完毕');





            showmessage('现在打印'+ds6+'请装纸');

            table1.Filter:='部门'+'='+''''+ds6+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds6;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds6+'的工资表打印完毕');

           END;





           7:

         BEGIN
            showmessage('现在打印'+ds1+'请装纸');

            table1.Filter:='部门'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
             showmessage(ds1+'的工资表打印完毕');


            showmessage('现在打印'+ds2+'请装纸');

            table1.Filter:='部门'+'='+''''+ds2+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds2+'的工资表打印完毕');



            showmessage('现在打印'+ds3+'请装纸');

            table1.Filter:='部门'+'='+''''+ds3+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds3;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds3+'的工资表打印完毕');




            showmessage('现在打印'+ds4+'请装纸');

            table1.Filter:='部门'+'='+''''+ds4+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds4;
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds4+'的工资表打印完毕');



            showmessage('现在打印'+ds5+'请装纸');