基于ｄｅｌｐｈｉ的高校工资管理系统的报表动态生成.docVIP

基于ｄｅｌｐｈｉ的高校工资管理系统的报表动态生成 　　摘要：工资管理系统中打印报表是非常重要的，利用delphi7.0中自带的quickreport控件，数组将dbgrid中的数据生成动态报表，并实现了自由选择需打印的工资项目。该方法灵活、简便、实用性强。 　　关键词：动态报表；delphi7.0；数组；dbgrid；quickreport 　　中图分类号：TP315文献标识码：A文章编号：1009-3044(2008)30-0519-05 　　 　　Implementation of Dynamic Report in College Salary MIS Based on Delphi 　　LI Lin1, MENG Ren2 　　(1.College of Computer Science and Information Technology,Guangxi Normal University,Guilin 541004,China;2.Financial Department,Guangxi Normal University,Guilin 541004,China) 　　Abstract: Printing report is very important in Salary MIS. We introduce a method for implementation of dynamic report by using array and quickreport. And it also have realized choosing the printing salary items freely. This method is flexible,simple and practica1. 　　Key words: dynamic report; delphi7.0; array; dbgrid; quickreport 　　 　　1 引言 　　 　　工资管理信息系统是高校财务管理软件的一个重要分支，而其中工资报表的打印是一个非常重要的功能。根据作者所做项目的需求，需工资表、工资条、部门汇总表等若干种报表。由于每张表的打印格式、内容都不相同，就需要按照不同的要求来打印。所以介绍一种用delphi7.0自带控件来实现动态报表的方法。 　　 　　2 功能要求 　　 　　以工资报表为例，报表的内容要求： 　　1) 每个月要打印出全校工作人员的工资，工资表要按照部门来排列（部门均有部门编号），每个部门里的记录要按照工资号来排列，另外要从新的纸张开始打印下一个部门的工资。 　　2) 打印时可以改变工资项目的名称并且可以自由选择要打印的工资项目。 　　 　　3 解决办法 　　 　　1) 系统采用的sql数据库，数据库中已有人事表（employee），工资表（salary）；另需建立一个打印设置表（setreport），并填入数据，如图1所示： 　　2) 左图为表的设计：no：序号（根据项目个数设置）；dmmc：代码名称（人事，工资两个表的所有代码）；dymc：打印名称（打印时设定的名称）；zd：所属信息范围（人事信息，校发工资，统发工资…）；zdno：所属信息范围序号(根据zd来设定)；salary,e_salary,d_salary：分别指报表为工资表、工资条、部门汇总表时打印项目的选择（1为选择打印，0为不打印该项）； 　　3) 右图为表中的数据（根据本单位的人事、工资信息来输入）。 　　 　　4 系统实现 　　 　　高校工资管理信息系统采用windows xp 作为操作平台，delphi7.0作为开发工具。下面介绍报表动态生成的编程方法。 　　UsesWindows，Messages，SysUtils，Variants，Classes，Graphics，Controls，Forms，Dialogs，StdCtrls，ExtCtrls，DB，ADODB，QRExport，QrPrntr，qrextra，DBTables，ToolWin，Buttons，Menus，ImgList，OleServer， ExcelXP， Grids， DBGrids，DBCtrls， ComCtrls， QuickRpt， QRCtrls，printers； 　　… 　　var//定义¨全局变量 　　fy：string；//用来记录setreport中选择打印的项目 　　a,b：array[0..8] of string；//数组0..8是根据setreport中zdno最大值来设定 　　… 　　4.1 打印名称设定 　　显示setreport表中的no，dymc的记录，