毕业设计（论文）基于VB的工资管理信息系统的设计与实现.doc

《毕业设计（论文）基于VB的工资管理信息系统的设计与实现.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）基于VB的工资管理信息系统的设计与实现.doc（30页珍藏版）》请在三一办公上搜索。

1、工资管理信息系统的设计与实现二级学院： 华建软件学院 学生姓名： 专业班级： 计算机2071班 学 号： 指导教师： 200 9 年 5 月10 日摘 要：工资管理系统是典型的数据库管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的数据库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析,我使用 MICROSOFT公司的 VISUAL BASIC 6.0作为开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型,然后,对初始原型系

2、统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。而后台数据库则选择了MICROSOFT公司的ACCESS 2003。关键词： 数据库，ACCESS，工资管理系统，Visual Basic 6.0目 录引 言1第一章 开发工具的选择21.1 可视化编程21.2 面向对象的程序设计31.3 结构化程序设计语言31.4 事件驱动编程机制31.5 访问数据库41.6 动态数据交换(DDE)41.7 对象的链接与嵌入(OLE)41.8 动态链接库(DLL)4第二章 系统调研及可行性分析62.1 系统调研62.2 可行性分析概述62.3 技术可行性分析7第三章 系统的总体结构设计83.1 系统

3、模块结构设计83.2 用户登陆模块93.3 功能流程图103.4 数据库的设计10341 数据库需求分析10342 表的物理结构10第四章 系统实施概况134.1 登陆界面的设计134.2 主窗体的设计134.3 系统管理的设计144.4 工资数据输入的设计144.5 工资数据修改的设计154.6 工资数据查询的设计17第五章 主要代码195.1 登陆界面主要代码195.2 基本数据输入主要代码195.3 专项修改主要代码205.4 查询的主要代码21第六章 系统测试246.1 测试举例24总 结25致 谢26参考资料27引 言电脑在现代社会中管理的作用越来越显得重要和突出。一般来讲，管理通过

4、计划、组织、指导与领导、控制等手段，为组织制定目标，应用组织的各种要素，以实现组织的目标。对企业来说，人们按照一定的营销计划、人力、物力资源，对人员、物质、资金等加以计划和协调，以达到预期的目的，即称为企业管理。传统的企业管理活动中，把人、才、物作为企业的主要资源。但是随着社会化大生产的不断扩大和社会对产品多样化的需求，人们越来越重视信息在生产经营及企业管理中的作用，并把它当企业的一种极其重要的资源，人们称之为“信息资源”，信息资源的处理已经成为当今世界上一项主要的社会活动。工资管理系统是一个企业单位不可缺少的部分,它对于企业的决策者和管理者来说都至关重要,所以工资管理系统应该能够为用户提供充

5、足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对员工的工资进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提企业工资管理的效率,也是企业科学化、正规化管理与世界接轨的重要条件。开发这样一套管理软件是

6、很有必要的事情,在下面的各章中我们将以开发一套工资管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。工资管理系统是典型的数据库系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。而后台

7、数据库则选择了MICROSOFT公司的ACCESS 2003。 第一章 开发工具的选择现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft公司的Visual Basic、Microsoft公司的Visual C、Borland公司的Delphi、Java等等。在目前市场上这些众多的程序开发工具中，有些强调程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹

8、性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程续语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：Visual Basi

9、c是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic具有

10、以下特点：1.1 可视化编程用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功

11、能的那部分代码，从而可以大大提高程序设计的效率。1.2 面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。1.3 结

12、构化程序设计语言Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。1

13、.4 事件驱动编程机制Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击”(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。1.5 访问数据库Visual Basic具有强大的数据

14、库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如DBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的

15、加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。1.6 动态数据交换(DDE)利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。1.7 对象的链接与嵌入(OLE)对象的链接与

16、嵌入(OLE)将每个应用程序都看作是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看作是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。1.8 动态链接库(DLL)Visual Bas

17、ic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。第二章 系统调研及可行性分析2.1 系统调研正式开发管理信息系统之前进行调研是非常必要的，其必要性主要表现在以下几个方面。（1）明确用户的要求，以根据调查结果进行可行性分析，确认系统的开发是否可行。（2）提出新系统的人员并不都是系统研究人员，有些人对于其功能和处理数据的方法

18、没有明确的认识。它们只是根据自己业务工作的需要提出了要求，系统开发人员要对此进行详细的调查和分析，确认用户的要求可以通过现有的计算机技术实现，保证开发的管理信息系统的功能与用户提出的要求相吻合。（3）现行系统可能是手工系统，也可能是使用计算机的系统，无论是何种情况，都要详细地调查现行系统中信息处理的具体情况，系统内部功能结构，以便设计出一个合理的、好的新系统逻辑模型，为新系统的设计工作打好基础，保证整个系统开发的质量。总之，必要对现行系统进行详细的调查，明确用户需求，保证开发的新系统的功能与用户的要求相吻合，避免耗费大量的人力、物力、财力，新系统的开发却失败的悲剧发生。2.2 可行性分析概述可

19、行性分析是在用户的要求和系统调研的基础上进行的，对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不可行、需要修改、追加投资、暂缓开发、分步实施等方案和结论，最后完成可行性分析。可行性分析一般可定义为：可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判断它是否可行。（1）可行性分析阶段的主要工作包括以下几个方面： 新系统目标可行性分析：分析新系统的目标是否符合学校的现状和发展的需要。 社会可行性分析：社会可行性分析主要是指管理信息系统的开发是否符合国家法律、下策，是否能够与社会大系统实现良好的对接。 技术可

20、行性分析：技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术，包括系统开发人员数量和水平，硬件方面，软件方面及其它应用技术。 经济可行性分析经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来的经济效益进行比较，确认新系统是否会给企业带来一定的经济效益。 管理可行性分析：管理可行性分析主要是分析企业现行的管理体制和企业领导是否具有现代化的管理意识和管理水平。2.3 技术可行性分析技术可行性分析主要包括四个方面：目前有关的技术能否支持所开发的新系统；新系统开发人员的数量和水平，即人力资源；硬件和软件资源。（1）技术支持：首先根据新系统的目标，考虑目前有关的技术能否支持所开发

21、的新系统。这里讨论的技术必须是已经普遍使用的，而不是待研究的或正在研究的。（2）硬件资源：开发管理信息系统所需的硬件资源包含以下两个方面：系统开发人员在管理信息系统的开发过程中所需要的计算机设备及其有关的外部设备；管理信息系统开发成功投入使用后，使用单位所应具备的计算机设备及其有关的外围设备。对硬件资源进行可行性分析时主要考虑计算机的主机内存、类型、功能、联网能力、安全保护措施以及输入/输出设备，外存储器和联网数据通信设备的配置、功能、效率等指标是否符合系统方案设计要求，同时还要考虑计算机的性能/价格比。（3）软件资源软件资源的可行性分析主要考虑以下几点是否满足用户的要求： 操作系统的选择；

22、编译系统的选择； 数据库管理系统的选择； 高级编程语言的选择； 汉字处理系统的选择； 应用软件包的选择。本系统在开发前，与中心的领导和有关的操作人员密切沟通，认真听取他们的意见，并吸收他们的积极观点，使本系统开发在相当大的程度上具有一定的先进性和合理性。第三章 系统的总体结构设计3.1 系统模块结构设计整个工资管理系统成树型,由上而下依次分开，最上面一层是主窗体,如图3-1用户登陆系统管理工资数据输入工资数据修改工资数据查询帮助退出系统重新登陆基本数据输入专项数据修改基本数据修改查询工资明细工资组合查询关于本软件图3-1系统功能模块图各个模块的简介:重新登陆：在登陆系统后可以切换用户重新登陆系

23、统。退出系统：直接退出本系统。基本数据输入：录入新职工的基本信息及工资情况。基本数据修改：可方便地进行删除、修改等操作。专项数据修改：对专项数据进行查询后进行删除、修改等操作。工资组合查询：可方便地对工资情况进行组合查询，并在表中显示出来。查询工资明细：可方便地对工资情况进行明细查询，并显示在文本框中。3.2 用户登陆模块用户登录模块的功能是系统模块中一个重要的子系统模块，它是系统安全的一个保障。它的主要功能是授权用户的管理，需要正确的用户名和密码才能进入系统。对于错误的用户名和密码并给出相应的提示。如图3-2图3-2系统登陆流程图3.3 功能流程图图 3-3 功能流程图3.4 数据库的设计3

24、41 数据库需求分析根据数据流程，列出以下工资管理系统所需的五张表,名称及说明如下: 密码表用户登陆时的用户名及密码部门表公司所在的部门基本工资表所有员工的工资情况部门工资表各部门的工资情况工资总表工资的具体情况342 表的物理结构字段数据类型长度no文本2usname文本6passwd文本8图 3-4密码表字段数据类型长度部门编号文本2部门名称文本1图 3-5部门表字段数据类型长度职工号文本5部门编号文本2职工姓名文本8性别文本2职称或职务文本16参加工作时间日期/时间基本工资数字单精度型岗位工资数字单精度型应发工资数字单精度型所得税数字单精度型实发工资数字单精度型图 3-6基本工资表字段数

25、据类型长度部门名称文本2基本工资数字单精度型岗位工资数字单精度型应发工资数字单精度型所得税数字单精度型实发工资数字单精度型图 3-7部门工资表字段数据类型长度基本工资数字单精度型岗位工资数字单精度型应发工资数字单精度型所得税数字单精度型实发工资数字单精度型图 3-8工资总表第四章 系统实施概况4.1 登陆界面的设计输入正确的用户名及密码就能登陆到主窗体，从而对整个系统进行操作。如图4.1。图 4-14.2 主窗体的设计主窗体实现了“系统管理”，“工资数据输入”，“工资数据修改”，“工资数据查询”， “帮助”功能，如图4-2。图 4-24.3 系统管理的设计通过“系统管理”主菜单可以进行“重新登

26、陆”及“退出系统”操作。如图 4-3图 4-34.4 工资数据输入的设计通过“工资数据输入”主菜单可以进行“基本数据输入”的操作。如图4-4图4-44.5 工资数据修改的设计通过“工资数据修改”主菜单可以进行“基本数据修改”及“专项数据修改”操作。基本数据修改如图4-5，专项数据修改如图4-6。 图4-5图4-64.6 工资数据查询的设计通过“工资数据查询”主菜单可以进行“工资组合查询”及“查询工资明细”操作。工资组合查询如图4-7，查询工资明细如图4-8。图 4-7图 4-8第五章 主要代码5.1 登陆界面主要代码 Private Sub cmdOK_Click() 检查正确的密码 sirn

27、ame = Trim$(cbl_name.Text) sirpwd = UCase$(Trim$(TxtPassword) ssql = select * from 密码表 where usname= & sirname & & and passwd= & sirpwd & Data1.RecordSource = ssql Data1.Refresh If Data1.Recordset.RecordCount 0 Then Unload Me frmMain.Show frmMain.Mnu_in_update.Enabled = True frmMain.Mnu_in_xg.Enable

28、d = True frmMain.Mnu_Query.Enabled = True frmMain.Mun_Help.Enabled = True Else MsgBox 无效的密码，请重试!, , 登录 TxtPassword.SetFocus TxtPassword = End IfEnd Sub5.2 基本数据输入主要代码 Private Sub cmd_OK_Click() On Error GoTo Noupdate cmd_Add.Default = True If Trim(text1.Text) = Then MsgBox 工号不能为空!, , 警告 text1.SetFocu

29、s Else If Opt_man.Value = True Then Data1.Recordset.Fields(3) = 男 Else Data1.Recordset.Fields(3) = 女 End If Data1.Recordset.Fields(1) = Trim(Str(cbl_depart.ListIndex + 1) Data1.Recordset.Update cmd_Ok.Visible = False cmd_Add.Visible = True text1.Enabled = False text3.Enabled = False End If cmd_Cance

30、l.Enabled = False Exit SubNoupdate: MsgBox 增加发生错误! Exit SubEnd Sub5.3 专项修改主要代码Private Sub cmd_OK_Click() Set db = OpenDatabase(App.Path & & 工资库.mdb) ssql = ssql = UPDATE 基本工资表 SET If opt_jbgz.Value = True Then XM = 基本工资 Else XM = 岗位工资 End If ssql = ssql & XM If opt_add.Value = True Then OP = + Else

31、OP = - End If ssql = ssql & = & XM & OP If opt_xd.Value = True Then ssql = ssql & XM & * & Val(text2.Text) / 100 Else ssql = ssql & Val(text3.Text) End If ssql = ssql & where 1=1 & vbCrLf If txt_ID Then ssql = ssql & and 职工号 = & Trim(txt_ID) & & vbCrLf End If If txt_name Then ssql = ssql & and 职工姓名

32、= & Trim(txt_name) & & vbCrLf End If If cbl_title Then ssql = ssql & and 职称或职务 = & Trim(cbl_title) & & vbCrLf End If If cbl_depart Then ssql = ssql & and 部门代码 = & Trim(cbl_depart.ListIndex) & & vbCrLf End If If cbl_data Then ssql = ssql & and & Trim(cbl_data) & Trim(cbl_opt) & Trim(txt_data) & vbCrL

33、f End If db.Execute ssql cmd_Find_Click Frame2.Visible = False Frame1.Visible = TrueEnd Sub5.4 查询的主要代码 Private Sub cmd_Find_Click() ssql = ssql = ssql & select A.职工号, & vbCrLf ssql = ssql & A.职工姓名, & vbCrLf ssql = ssql & A.性别, & vbCrLf ssql = ssql & A.职称或职务, & vbCrLf ssql = ssql & A.参加工作时间, & vbCrLf

34、 ssql = ssql & A.基本工资, & vbCrLf ssql = ssql & A.岗位工资, & vbCrLf ssql = ssql & A.应发工资, & vbCrLf ssql = ssql & A.所得税, & vbCrLf ssql = ssql & A.实发工资, & vbCrLf ssql = ssql & A.部门编号, & vbCrLf ssql = ssql & B.部门名称 , & vbCrLf ssql = ssql & B.部门编号 & vbCrLf ssql = ssql & from 基本工资表 A, & vbCrLf ssql = ssql & 部

35、门表 B & vbCrLf ssql = ssql & where A.部门编号=B.部门编号 & vbCrLf If txt_ID Then ssql = ssql & and A.职工号= & Trim(txt_ID) & & vbCrLf End If If txt_name Then ssql = ssql & and A.职工姓名= & Trim(txt_name) & & vbCrLf End If If cbl_title Then ssql = ssql & and A.职称或职务= & Trim(cbl_title) & & vbCrLf End If If cbl_depa

36、rt Then ssql = ssql & and B.部门名称= & Trim(cbl_depart) & & vbCrLf End If If cbl_data Then ssql = ssql & and & Trim(cbl_data) & Trim(cbl_opt) & Trim(txt_data) & vbCrLf End If Data1.RecordSource = ssql Data1.Refresh If Data1.Recordset.RecordCount = 0 Then MsgBox 没有满足条件的纪录存在!, , 提示 Me.MousePointer = vbDe

37、fault grd_Result.Redraw = True grd_Result.Clear grd_Result.FormatString = 序号|职工工号| 姓 名 |性别|所属 & _ 部门| 职称职务|工龄|基本工资|岗位津贴|应发工资|所得税|实发工资 Exit Sub End If iRowNum = 1 Do Until Data1.Recordset.EOF With grd_Result .Rows = iRowNum + 1 .Row = iRowNum .Col = 0 .Text = iRowNum .Col = 1 职工工号 .Text = Data1.Recor

38、dset.Fields(0).Value .Col = 2 姓名 .Text = Data1.Recordset.Fields(1).Value .Col = 3 性别 .Text = Data1.Recordset.Fields(2).Value .Col = 4 所属部门 .Text = Data1.Recordset.Fields(11).Value .Col = 5 职称职务 If Data1.Recordset.Fields(3).Value Then .Text = Data1.Recordset.Fields(3).Value End If .Col = 6 工龄 If Data

39、1.Recordset.Fields(4).Value Then .Text = Data1.Recordset.Fields(4).Value End If .Col = 7 基本工资 If Data1.Recordset.Fields(5).Value Then .Text = Data1.Recordset.Fields(5).Value End If .Col = 8 岗位津贴 If Data1.Recordset.Fields(6).Value Then .Text = Data1.Recordset.Fields(6).Value End If .Col = 9 应发工资 If D

40、ata1.Recordset.Fields(7).Value Then .Text = Data1.Recordset.Fields(7).Value End If .Col = 10 所得税 If Data1.Recordset.Fields(8).Value Then .Text = Data1.Recordset.Fields(8).Value End If .Col = 11 实发工资 If Data1.Recordset.Fields(9).Value Then .Text = Data1.Recordset.Fields(9).Value End If End With iRowNum = iRo