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

📄 unit20.pas

📁 本软件的功能如下： 1.公司员工工资信息输入查找 2.工资计算 3.工资汇总 4.工资打印报表 5.到处数据
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
            table1.Filtered:=true;
            form1.dszm.Text:=ds4;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds4+'的工资表打印完毕');



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

            table1.Filter:='部门'+'='+''''+ds5+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds5;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds5+'的工资表打印完毕');





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

            table1.Filter:='部门'+'='+''''+ds6+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds6;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds6+'的工资表打印完毕');



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

            table1.Filter:='部门'+'='+''''+ds7+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds7;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds7+'的工资表打印完毕');

           END;



           
           8:

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

            table1.Filter:='部门'+'='+''''+ds1+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
             showmessage(ds1+'的工资表打印完毕');


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

            table1.Filter:='部门'+'='+''''+ds2+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds2+'的工资表打印完毕');



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

            table1.Filter:='部门'+'='+''''+ds3+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds3;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds3+'的工资表打印完毕');




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

            table1.Filter:='部门'+'='+''''+ds4+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds4;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds4+'的工资表打印完毕');



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

            table1.Filter:='部门'+'='+''''+ds5+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds5;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds5+'的工资表打印完毕');





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

            table1.Filter:='部门'+'='+''''+ds6+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds6;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds6+'的工资表打印完毕');




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

            table1.Filter:='部门'+'='+''''+ds7+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds7;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds7+'的工资表打印完毕');


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

            table1.Filter:='部门'+'='+''''+ds8+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds8;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds8+'的工资表打印完毕');

           END;

              
           9:

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

            table1.Filter:='部门'+'='+''''+ds1+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
             showmessage(ds1+'的工资表打印完毕');


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

            table1.Filter:='部门'+'='+''''+ds2+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds2+'的工资表打印完毕');



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

            table1.Filter:='部门'+'='+''''+ds3+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds3;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds3+'的工资表打印完毕');




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

            table1.Filter:='部门'+'='+''''+ds4+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds4;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds4+'的工资表打印完毕');



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

            table1.Filter:='部门'+'='+''''+ds5+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds5;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds5+'的工资表打印完毕');





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

            table1.Filter:='部门'+'='+''''+ds6+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds6;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds6+'的工资表打印完毕');




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

            table1.Filter:='部门'+'='+''''+ds7+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds7;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds7+'的工资表打印完毕');



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

            table1.Filter:='部门'+'='+''''+ds8+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds8;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds8+'的工资表打印完毕');


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

            table1.Filter:='部门'+'='+''''+ds9+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds9;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds9+'的工资表打印完毕');

           END;




            10:

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

            table1.Filter:='部门'+'='+''''+ds1+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
             showmessage(ds1+'的工资表打印完毕');


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

            table1.Filter:='部门'+'='+''''+ds2+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds2+'的工资表打印完毕');



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

            table1.Filter:='部门'+'='+''''+ds3+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds3;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds3+'的工资表打印完毕');




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

            table1.Filter:='部门'+'='+''''+ds4+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds4;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds4+'的工资表打印完毕');



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

            table1.Filter:='部门'+'='+''''+ds5+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds5;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds5+'的工资表打印完毕');





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

            table1.Filter:='部门'+'='+''''+ds6+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds6;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds6+'的工资表打印完毕');




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

            table1.Filter:='部门'+'='+''''+ds7+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds7;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds7+'的工资表打印完毕');



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

            table1.Filter:='部门'+'='+''''+ds8+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds8;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds8+'的工资表打印完毕');



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

            table1.Filter:='部门'+'='+''''+ds9+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds9;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds9+'的工资表打印完毕');




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

            table1.Filter:='部门'+'='+''''+ds10+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds10;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds10+'的工资表打印完毕');

           END;

            11:

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

            table1.Filter:='部门'+'='+''''+ds1+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds1;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
             showmessage(ds1+'的工资表打印完毕');


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

            table1.Filter:='部门'+'='+''''+ds2+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds2;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds2+'的工资表打印完毕');



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

            table1.Filter:='部门'+'='+''''+ds3+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds3;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds3+'的工资表打印完毕');




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

            table1.Filter:='部门'+'='+''''+ds4+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds4;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds4+'的工资表打印完毕');



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

            table1.Filter:='部门'+'='+''''+ds5+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds5;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds5+'的工资表打印完毕');





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

            table1.Filter:='部门'+'='+''''+ds6+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds6;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds6+'的工资表打印完毕');




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

            table1.Filter:='部门'+'='+''''+ds7+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds7;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds7+'的工资表打印完毕');



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

            table1.Filter:='部门'+'='+''''+ds8+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds8;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds8+'的工资表打印完毕');



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

            table1.Filter:='部门'+'='+''''+ds9+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds9;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds9+'的工资表打印完毕');




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

            table1.Filter:='部门'+'='+''''+ds10+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds10;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds10+'的工资表打印完毕');


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

            table1.Filter:='部门'+'='+''''+ds11+'''' + '  and  '  + '属性'+'='+''''+ds15+'''';
            table1.Filtered:=true;
            form1.dszm.Text:=ds11;
            quickreport19.Table1.Filter:=table1.Filter;
            quickreport19.Table1.Filtered:=true;
            quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
            quickreport19.preview;
            showmessage(ds11+'的工资表打印完毕');

           END;




end;



end
else
begin


quickreport19.Table1.Filter:=table1.Filter;
quickreport19.Table1.Filtered:=true;
quickreport19.QRLabel53.Caption:=table1.FieldByName('部门').AsString;
quickreport19.preview;

end;



end;


procedure TForm20.RadioButton1Click(Sender: TObject);
begin
ds15:=RadioButton1.Caption;
form18.Edit2.Text:=RadioButton1.Caption;
end;

procedure TForm20.RadioButton2Click(Sender: TObject);
begin
ds15:=RadioButton2.Caption;
form18.Edit2.Text:=RadioButton2.Caption;
end;



end.
12345

⌨️ 快捷键说明

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