⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit17.pas

📁 本软件的功能如下： 1.公司员工工资信息输入查找 2.工资计算 3.工资汇总 4.工资打印报表 5.到处数据
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 

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

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

            table1.Filter:='属性'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            if radiobutton1.Checked=true then

            begin
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            showmessage(ds1+'的工资表打印完毕');
            end;

            if radiobutton2.Checked=true then

            begin
            quickreport12.Table1.Filter:=table1.Filter;
            quickreport12.Table1.Filtered:=true;
            quickreport12.preview;
            showmessage(ds1+'的工资表打印完毕');
            end;


           END;


          2:

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

            table1.Filter:='属性'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            if radiobutton1.Checked=true then
            begin
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            end;

            if radiobutton2.Checked=true then
            begin
             quickreport12.Table1.Filter:=table1.Filter;
             quickreport12.Table1.Filtered:=true;
             quickreport12.preview;


            end;
             showmessage(ds1+'的工资表打印完毕');


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

            table1.Filter:='属性'+'='+''''+ds2+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;

            if radiobutton1.Checked=true then
            begin

            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            end;


            if radiobutton2.Checked=true then
            begin
             quickreport12.Table1.Filter:=table1.Filter;
            quickreport12.Table1.Filtered:=true;
            quickreport12.preview;
            end;

            showmessage(ds2+'的工资表打印完毕');

           END;




         
          3:

         BEGIN


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

            table1.Filter:='属性'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            if radiobutton1.Checked=true then
            begin
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            end;

            if radiobutton2.Checked=true then
            begin
             quickreport12.Table1.Filter:=table1.Filter;
             quickreport12.Table1.Filtered:=true;
             quickreport12.preview;


            end;
             showmessage(ds1+'的工资表打印完毕');


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

            table1.Filter:='属性'+'='+''''+ds2+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;

            if radiobutton1.Checked=true then
            begin

            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            end;


            if radiobutton2.Checked=true then
            begin
             quickreport12.Table1.Filter:=table1.Filter;
            quickreport12.Table1.Filtered:=true;
            quickreport12.preview;
            end;

            showmessage(ds2+'的工资表打印完毕');





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

            table1.Filter:='属性'+'='+''''+ds3+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds3;


            if radiobutton1.Checked=true then
            begin

            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;

            end;
              if radiobutton2.Checked=true then
            begin

            quickreport12.Table1.Filter:=table1.Filter;
            quickreport12.Table1.Filtered:=true;
            quickreport12.preview;

            end ;

            showmessage(ds3+'的工资表打印完毕');



           END;



          4:

         BEGIN


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

            table1.Filter:='属性'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            if radiobutton1.Checked=true then
            begin
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            end;

            if radiobutton2.Checked=true then
            begin
             quickreport12.Table1.Filter:=table1.Filter;
             quickreport12.Table1.Filtered:=true;
             quickreport12.preview;


            end;
             showmessage(ds1+'的工资表打印完毕');


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

            table1.Filter:='属性'+'='+''''+ds2+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;

            if radiobutton1.Checked=true then
            begin

            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            end;


            if radiobutton2.Checked=true then
            begin
             quickreport12.Table1.Filter:=table1.Filter;
            quickreport12.Table1.Filtered:=true;
            quickreport12.preview;
            end;

            showmessage(ds2+'的工资表打印完毕');





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

            table1.Filter:='属性'+'='+''''+ds3+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds3;


            if radiobutton1.Checked=true then
            begin

            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;

            end;
              if radiobutton2.Checked=true then
            begin

            quickreport12.Table1.Filter:=table1.Filter;
            quickreport12.Table1.Filtered:=true;
            quickreport12.preview;

            end ;

            showmessage(ds3+'的工资表打印完毕');




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



            table1.Filter:='属性'+'='+''''+ds4+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds4;
         if radiobutton1.Checked=true then
         begin
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            end;

          if radiobutton2.Checked=true then
         begin
            quickreport12.Table1.Filter:=table1.Filter;
            quickreport12.Table1.Filtered:=true;
            quickreport12.preview;
            end;



            showmessage(ds4+'的工资表打印完毕');

           END;



         
          5:

         BEGIN

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

            table1.Filter:='属性'+'='+''''+ds1+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            if radiobutton1.Checked=true then
            begin
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            end;

            if radiobutton2.Checked=true then
            begin
             quickreport12.Table1.Filter:=table1.Filter;
             quickreport12.Table1.Filtered:=true;
             quickreport12.preview;


            end;
             showmessage(ds1+'的工资表打印完毕');


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

            table1.Filter:='属性'+'='+''''+ds2+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;

            if radiobutton1.Checked=true then
            begin

            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            end;


            if radiobutton2.Checked=true then
            begin
             quickreport12.Table1.Filter:=table1.Filter;
            quickreport12.Table1.Filtered:=true;
            quickreport12.preview;
            end;

            showmessage(ds2+'的工资表打印完毕');





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

            table1.Filter:='属性'+'='+''''+ds3+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds3;


            if radiobutton1.Checked=true then
            begin

            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;

            end;
              if radiobutton2.Checked=true then
            begin

            quickreport12.Table1.Filter:=table1.Filter;
            quickreport12.Table1.Filtered:=true;
            quickreport12.preview;

            end ;

            showmessage(ds3+'的工资表打印完毕');




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



            table1.Filter:='属性'+'='+''''+ds4+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds4;
         if radiobutton1.Checked=true then
         begin
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            end;

          if radiobutton2.Checked=true then
         begin
            quickreport12.Table1.Filter:=table1.Filter;
            quickreport12.Table1.Filtered:=true;
            quickreport12.preview;
            end;



            showmessage(ds4+'的工资表打印完毕');






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

            table1.Filter:='属性'+'='+''''+ds5+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds5;

            if radiobutton1.Checked=true then
            begin
            quickreport6.Table1.Filter:=table1.Filter;
            quickreport6.Table1.Filtered:=true;
            quickreport6.preview;
            end;


             if radiobutton2.Checked=true then
            begin
            quickreport12.Table1.Filter:=table1.Filter;
            quickreport12.Table1.Filtered:=true;
            quickreport12.preview;
            end;




            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+'的工资表打印完毕');
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -