unit13.~pas

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

~PAS
2,611 行
字号
12345



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



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

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

           END;



           
           8:

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




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

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


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

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

           END;

              
           9:

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




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

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



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

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


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

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

           END;




            10:

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




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

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



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

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



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

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




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

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

           END;

            11:

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




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

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



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

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



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

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




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

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


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

            table1.Filter:='部门'+'='+''''+ds11+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds11;
12345

unit13.~pas - 源码说明

本页面展示了「本软件的功能如下： 1.公司员工工资信息输入查找 2.工资计算 3.工资汇总 4.工资打印报表 5.到处数据」中的 unit13.~pas 源码文件，采用 ~PAS 编程语言编写，共 2,611 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与工资管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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