企业工资管理系统课程毕业论文.doc

企业工资管理系统1 引 言工资管理是一项琐碎、复杂而又十分细致的工作，工资计算、发放、核算的工作量很大，一般不允许出错，如果实行手工操作，每月发放工资须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，计算机进行工资发放工作，不仅能够保证工资核算准确无误、快速输出，而且还可以利用计算机对有关工资的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事工资管理的效率,也是企业的科学化、正规化管理，与世界接轨的重要条件。企业的工资管理是公司管理的一个重要内容。随着当今企业人员数量增加，企业的工资计算也变得越来越复杂。如果能够实现工资管理的自动化，无疑是给企业管理部门带来很大的方便。资金是企业生存的主要元素。资金的流动影响到企业的整体运作，企业员工的工资是企业资金管理的一个重要的组成部分，因为企业每个月都要涉及发放企业员工工资的问题。企业员工的人数越多，工资的统计工作就越多，工资的发放困难就越大。最初的工资统计和发放都是使用人工方式处理，工作的时候，出现错误的机率也随之升高。工资管理系统就是使用电脑代替大量的人工统计和计算，完成众多工资信息的处理，同时使用电脑还可以安全地保存大量的工资记录。企业工资管理系统，为个人提供工资查询服务，为企业提供工资计算，工资统计等服务。传统的纸张材料的数据信息管理已经不适合现代企业公司的发展了，实现工资管理的系统化、规范化、自动化，将成为现在公司管理工资的首选。本系统实现的工资管理系统基本上能够满足现代化企业工资管理的需求。2 企业工资管理系统概述2.1 系统的主要功能企业工资管理系统的主要任务是用计算机对各种工资信息进行日常的管理，如查询、修改、增加、删除以及存储等，迅速准确地完成各种工资信息的统计计算和汇总工作，快速打印出工资报表，针对系统服务对象的具体要求，设计了企业工资管理系统。企业工资管理系统主要有以下几大功能：(1) 对单位人员的变动进行处理。一个单位的职工不会是一成不变的，总是在不断的变化：有调出、有调入、也有职工在本单位内部调动。因此，设计系统是应考虑到这些情况。(2) 对职工的工资进行计算、修改。能对各职工的工资进行计算，即计算应发金额、应扣金额及实发金额等。(3) 查询统计功能。要求即可以单项查询，比如查看某个职工的工资情况等；也可以查询全部。(4) 报表打印功能。每月发放工资时，要求能够打印本月的工资表、随工资发给每个职工的工资条以及工资统计表。2.2 企业工资管理系统的应用现状2.2.1 开发环境（1） 系统运行环境1） 腾II或以上。2） 64MB内存或以上。3） Windows 95或以上。4）装了Visual Basic 6.0。（2）开发工具微软公司的Visual Basic 6.0（简称VB） 具有强大的数据库管理功能，丰富的表格和图形输出功能，实效的精美报表打印功能，语言的易读与灵活性，快速友好的界面开发效率等特点。说得通俗一点，Visual是指可视化的编程方法，,Basic语言是指在原有BASIC语言的基础上发展起来的编程语言。VB 的强大，不仅仅在于它本身的编程能力，还在于它可以直接调用DLL动态链接库中的过程。VB允许选择和管理外接程序，这是对VB的扩充。这些扩充增强了VB开发环境的能力。Access 2000就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。2.2.2 数据库数据库是通过数据库管理系统(DBMS-DATA BASE MANAGEMENT SYSTEM)软件来实现数据的存储、管理与使用的DBASELL就是一种数据库管理系统软件。（1） 数据库的概念数据库是存储在一起的相关数据的集合，这些数据是结构化的，无有害的或不必要的冗余，并为多种应用服务；数据的存储独立于使用它的程序；对数据库插入新数据，修改和检索原有数据均能按一种公用的，和可控制的方式进行。当某个系统中存在结构上完全分开的若干个数据库时，则该系统包含一个数据库集合。（2） 数据库的优点使用数据库可以带来许多好处：如减少了数据的冗余度，从而大大地节省了数据的存储空间；实现数据资源的充分共享等等。此外，数据库技术还为用户提供了非常简便的使用手段使用户易于编写有关数据库应用程序。（3） 数据库文件的特征无论使用哪一种数据库管理系统，由它们所建立的数据库文件都可以看成是具有相同性质的记录的集合，因而这些数据库文件都有相同的特性：1） 文件的记录格式相同，长度相等。2） 不同的行是不同的记录，因而具有不同的内容。3） 不同的列表示不同的字段名，同一列中的数据的性质(属性)相同。4） 每一行各列的内容是不能分割的，但行的顺序和列的顺序不影响文件内容的表达。 3 系统分析3.1 系统需求分析本系统的开发宗旨以及总体任务就是帮助企业的财务主管部门提高工作效率，实现企业工资信息管理的自动化、规范化和系统化。所以为了能够实现编制这个系统所设定的目标，在程序的开发之前，需求分析是必不可少的。需求分析的第一步描述工资管理系统的功能，即定义用例，以此确定系统的功能需求。工资管理系统的用例分析主要是找出系统中所有的用例，因此要和工资管理系统的潜在用户进行讨论。系统最终实现的主要功能如下。工资管理系统的用例包括：(1) 系统管理(2) 工资设置(3) 工资统计(4) 工资查询(5) 工资表导出(6) 打印报表系统管理用例包括添加用户和修改密码。都通过其相应的窗口来实现。工资设置用例包括基本工资设置和其它项目设置。其它项目设置有奖金、津贴、福利、扣发等项目。工资统计用例可以根据不同的月份对其进行相应地统计。工资查询用例包括单人查询和查询所有，可以显示员工基本工资、员工其它项目情况，以及员工工资具体统计情况。 工资表导出用例可根据所需的月份把工资表导出并可直接显示在Excel表格中，而且可以加以保存。打印报表用例是一个很重要的一个用例，它提供给用户生成报表和报印的功能，能够很方便地将员工的工资情况表打印出来。3.1.1 系统目标采用公司现有的软硬件及科学的管理系统开发方案，建立工资管理系统，实现企业工资管理的计算机自动化。系统应符合公司人事、工资管理制度，并达到操作直观、方便、实用、安全等要求。基本工资等设置月度员工考勤表基本工资奖金等表计算工资导出或打印工资表月度工资发放工资3.1.2 数据流程图图1 数据流程图3.2 系统功能调查系统从总体上可以分为系统管理、工资信息设置、工资信息管理、打印报表等功能。 3.2.1 系统管理功能（1）添加用户：使用这个用户登录后，可以添加其他用户（2）修改密码：每一个用户都可以更改自己的密码3.2.2 工资信息设置功能（1）基本工资设置：按照员工编号或职务设置员工的基本工资信息。（2）其他项目设置：设置单个员工的奖金，福利、津贴、出差费、加班费等信息。（3）工资计算公式设置：设置员工实发工资的计算公式信息。3.2.3 工资信息管理功能（1） 出勤统计：按照月份统计员工的当月出勤信息。（2） 计算实发工资：计算当月员工实发工资的金额。（3） 查询工资：可以按月查询所有员工工资信息或查询个人工资信息。（4）导出工资表：把数据库中员工的工资信息导出到Excel 2000中。3.2.4 打印报表功能（1）基本工资列表打印：打印出基本工资列表（2）其他项目打印：打印其他项目列表（3）工资统计列表打印：打印工资统计列表3.3 系统功能模块图基本工资设置其他项目设置计算公式设置 添加用户 退 出 修改密码工资信息设置 系统管理工资信息管理 打印报表企业工资管理系统工资统计打印其他项目打印基本工资打印 工资表导出 查询工资计算实发工资 出勤统计图2 系统功能模块图4 系统概要设计4.1 系统总体结构设计设计基础是完成需求分析后提供的需求说明书，用概念数据模型表示数据及其相互间的关系，这种数据模型是与DBMS无关的、面向现实世界的、易如理解的数据模型，其独立于计算机的数据模型，独立于计算机的软硬件系统，与用户进行交流十分方便。概念性数据模型关心的是如何完整、正确地反映客观实际情况，不关心在数据库中如何实现。这种数据模式能真实地反应用户要求的实际情况，是一种容易被人们理解的直观的数据库结构模式。同时也是一种相对稳定统一的数据模式，一般情况下很少变动。概念性数据在用户和设计者之间建立了桥梁。是设计数据库结构的基础。概念设计中自顶向下的实体分析方法，即常用的实体联系模型（简称E-R模型），对具体数据进行抽象加工，将实体集合抽象成实体类型。用实体间联系反映现实世界事物间的内在联系。E-R模型是建立概念性数据模型的有力工具。通过对企业员工管理内容、工资管理内容和过程的分析，本系统设计的实体和属性如下及图4-1和图4-2：员工（包括员工编号、员工姓名、性别、籍贯、年龄、生日、学历、专业、住址、邮编、电话、Email、参加工作时间、进入公司时间、起薪时间、备注）部门（员工编号、部门名称）职务（员工编号、职务名称）职称（员工编号、职称名称）工资结构（员工编号、正常加班工资、特殊加班工资、出差工资、旷工工资、迟到早退）工资帐目（工资帐目代号、工资帐目名称）员工员工姓名性别员工编号籍贯年龄生日学历专业住址邮编电话Email参加工作时间进入公司时间起薪时间备注图3 员工信息图部门部门代号部门名称职务职务代号职务名称职称职称代号职称名称工资账目工资账目代号工资账目名称工资结构员工编号正常加班工资特殊加班工资出差工资旷工工资迟到早退 图4 工资管理内容分析图4.2 实体和实体之间的关系E-R图部门属于职称职务员工具有担任具有工资结构工资账目具有 图5 实体之间的关系E-R图4.3 数据库设计Access在VB中的应用非常广泛，为此我选用Access 2000数据库来进行数据库的逻辑设计。根据前面定义的实体及实休之间的关系，形成数据库的表格以及各个表之间的关系。4.3.1 Person数据库(员工数据库)(1) StuffInfo (员工资料表): 员工基本信息表用于存储员工基本信息，为保证数据的一致和历史资料的完整，表的记录在一般的情况不能被删除。表1 StuffInfo(员工资料表)序号字段名字段中文名类型1SID员工编号文本2SName员工姓名文本3SGender性别文本4SPlace籍贯文本5SAge年龄长整型6SBirthday生日日期/时间7SDegree学历文本8SSpecial专业文本9SAddress住址文本10SCode邮编文本11STel电话文本12SEmailEmail文本13SWorkTime参加工作时间日期/时间14SInTime进入公司时间日期/时间15SDept部门文本16SPayTime起薪时间日期/时间17SPosition职务文本18SRemark备注文本(2) UserInfo (用户口令表):为了便于多个用户管理该系统，建立此表，记录用户的登录用户名和口令。表2 UserInfo(用户口令表)序号字段名字段中文名类型1UserID用户名称文本2UserPWD用户密码文本(3) ErrandInfo (出差情况表):用于存储员工出差的一些基本情况,便于统计。表3 ErrandInfo (出差情况表)序号字段名字段中文名类型1EID记录编号自动编号2EStuffID员工编号文本3Eerranddays出差天数数字4Epurpose出差目的地文本5EFromday出差开始时间日期/时间(4) LeaveInfo(请假情况表):用于存储员工事假、病假的情况，便于统计。表4 LeaveInfo(请假情况表)序号字段名字段中文名类型1LID记录编号自动编号2LStuffID员工编号文本3LIll病假天数数字4LPrivate事假天数数字5LFromday假期开始时间日期/时间(5) OverTimeInfo（加班情况表）：用于存储员工加班的情况，在计算工资时便于统计。表5 OverTimeInfo（加班情况表）序号字段名字段中文名类型1OID记录编号自动编号2OStuffID员工编号文本3OSpeciality特殊加班天数数字4OCommon正常加班天数数字5OFromday加班日期日期/时间(6) AlterationInfo（员工调离情况表）：用于存储员工调离的基本情况，不会因为更新而把原来的情况覆盖，便于今后查看方便。表6 AlterationInfo（员工调离情况表）序号字段名字段中文名类型1AID员工编号文本2AName员工姓名文本3AOldDept原部门文本4ANewDept新部门文本5AOldPosition原职务文本6ANewPosition新职务文本7AOutTime调出时间日期/时间8AInTime调入时间日期/时间9ARemark备注备注4.3.2 Salary数据库（工资数据库）（1） AttendanceStatistics（员工出勤表）：用于统计员工的出勤情况，为统计工资时提供方便。 表7 AttendanceStatistics（员工出勤表） 序号字段名字段中文名类型1StuffID员工编号文本2StuffName员工姓名文本3RecordMonth统计时间日期时间4Attendance出勤天数日期/时间5LateEarly迟到早退次数数字6Absent旷工次数数字7OverTimeCom正常加班次数数字8OverTimeSpe特殊加班次数数字9Errand出差次数数字（2） FormulaSetting（工资设置表）：用于设置工资的各项情况。表8 FormulaSetting（工资设置表）序号字段名字段中文名类型1OvertimeCom正常加班工资百分比数字2OvertimeSpe特殊加班工资百分比数字3Errand出差工资数字4Absent旷工工资数字5Le迟到早退数字（3）Salaryother（其他工资项目表）：用于存储不同名称的其他工资，比如奖金、津贴、福利等。表9 Salaryother（其他工资项目表）序号字段名字段中文名类型1StuffID员工编号文本2YearMonth年月日期/时间3Type类型数字4Name名称文本5Money金额货币6Remark备注备注（4）SalarySetting（基本工资设置）：用于存储不同职称的员工的基本工资。表10 SalarySetting（基本工资设置）序号字段名字段中文名类型1StuffID员工编号文本2Sposition员工职务文本3Salary基本工资货币（5） UserInfo (用户表)：用于存储新添加的用户，当添加完用户时，就被存储在此表中。表11 UserInfo (用户表)序号字段名字段中文名类型1UserID用户名称文本2UserPWD用户密码文本（6） SalaryStatistics （工资情况表）：用于存储员工的工资情况表，便于明确查看。表12 SalaryStatistics （工资情况表）序号字段名字段中文名类型1StuffName员工编号文本2Stuffname员工姓名文本3YearMonth时间日期/时间4Basicsalary基本工资货币5Bonus奖金货币6Welfare福利货币7Allowance津贴货币8Abatement扣发货币9LeSub迟到早退扣发货币10AbsentSub旷工扣发货币11Overtime加班费货币12Errand出差费货币13Others其他金额货币14Total总额货币5 详细设计51 模块详细设计 登录模块的详细设计主要是用户登录的一个界面，判断登录的用户是管理员还是普通用户，进入后将面对的是主界面，从而进行相关的操作。 登录的界面主要由用户名和密码的信息，还有一些标题设置，确定和取消的按钮组成。通过标题可以知道此系统的大概内容，由此，登录界面的设计完成。 52 窗体模块详细设计在这个项目中，选择使用多文档界面。使用这个窗体的好处是可以使程序更加有条理。对于一个多任务的应用程序，使用多文档窗体还可以减少占用的系统资源。主窗体设计的界面是用菜单编辑器做的，主要由系统、工资信息设置、工资信息管理和关于这四个大模块组成。主窗体是进行相关操作的主界面。在这几个里，管理员有所有的权利进行各种操作。53 个子模块详细设计选择“系统”“添加用户”菜单，在添加用户的窗体里,输入新的用户名称和密码后，单击“确定”按钮，系统将会添加新的用户。 sql = insert into userinfo (userid,userpwd) values( & username sql = sql & , & password & ) Call transactsql(sql, salary) MsgBox 添加成功, vbOKOnly + vbExclamation, 添加结果 username.Text = password.Text = confirmpwd.Text = username.SetFocus 选择“系统”“修改密码”菜单，在修改密码的窗体里，输入旧密码和2次输入新密码后，单击“确定”按钮，系统将会更改当前用户的密码。userpassword = newpwdsql = update userinfo set userpwd= & newpwd & where userid= & strusername & Call transactsql(sql, salary)MsgBox 密码已经修改, vbOKOnly + vbExclamation, 修改结果选择“工资信息设置”“基本工资设置”菜单设置员工的基本工资，可以根据员工的编号，或者根据员工职务设置基本工资，设置的基本工资为每个小时的工资。Set rs = getrs(sql, salary)If rs.EOF = False Thensql = delete from salarysetting where stuffid= & Mstuffid.Text & Call transactsql(sql, salary)End Ifrs.Closeid = Mstuffid.TextCall addrecordMsgBox 已经设置基本工资, vbOKOnly + vbExclamation, 添加结果Call initsql = select * from salarysettingCall frmresult.basictopicCall frmresult.showbasic(sql)frmresult.Showfrmresult.ZOrder 0Me.ZOrder 0选择“工资信息设置”“其他项目设置”菜单，在其他项目设置的窗体中，设置员工当月的奖金、津贴、福利等项目。sql = select * from salaryother If ichangeflag = 1 Then Call add MsgBox 已经添加记录, vbOKOnly + vbExclamation, 提示 Call frmresult.othertopic Call frmresult.showother(sql) frmresult.Show Unload Me Else If Me.optionbonus.Value = True Then itype = 1 ElseIf Me.optionallowance.Value = True Then itype = 2 ElseIf Me.optionwelfare.Value = True Then itype = 3 ElseIf Me.optionabatement.Value = True Then itype = 4 ElseIf Me.optionothers.Value = True Then itype = 5 resumdate = recordtime sql = delete from salaryother where stuffid= & Mid.Text sql = sql & and YearMonth=# & recordtime & # and sql = sql & Type= & itype Call transactsql(sql, Salary) Call add Call frmsumsalary.resumsalary(resumdate) sql = select * from salaryother Call frmresult.othertopic Call frmresult.showother(sql) frmresult.Show Unload Me End If 选择“工资信息设置”“工资计算公式设置”菜单，在这个计算公式窗体中设置员工实际发放工资的计算公式。If Me.textovertimecom = And IsNumeric(Me.textovertimecom) = True Then MsgBox 请输入正常加班工资百分比, vbOKOnly + vbExclamation, 提示 Me.textovertimecom = Me.textovertimecom.SetFocus ElseIf Me.textovertimespe = And IsNumeric(Me.textovertimespe) = False Then MsgBox 请输入特殊加班工资百分比, vbOKOnly + vbExclamation, 提示 Me.textovertimespe = Me.textovertimespe.SetFocus ElseIf Me.texterrand = And IsNumeric(Me.texterrand) = False Then MsgBox 请输入出差工资, vbOKOnly + vbExclamation, 提示 Me.texterrand = Me.texterrand.SetFocus ElseIf Me.textabsent = And IsNumeric(Me.textabsent) = False Then MsgBox 请输入旷工扣发工资, vbOKOnly + vbExclamation, 提示 Me.textabsent = Me.textabsent.SetFocus ElseIf Me.textle = And IsNumeric(Me.textle) = False Then MsgBox 请输入迟到早退扣发工资, vbOKOnly + vbExclamation, 提示 Me.textle = Me.textle.SetFocus Else Call setvalue Call init End If选择“工资信息管理”“出勤统计”菜单，在统计出勤记录窗体中选择需要统计记录的月份。firstday = Year(Date) & - & Mmonth.Text & -1days = DateDiff(d, Year(Date) & - & Mmonth.Text & -1, _ Year(Date) & - & Mmonth.Text + 1 & -1)lastday = Year(Date) & - & Mmonth.Text & - & dayssql = select * from attendancestatistics where recordmonth between #sql = sql & firstday & # and # & lastday & #Set rsrecord = getrs(sql, salary)If rsrecord.EOF = False Then MsgBox 已经统计, vbOKOnly + vbExclamation, 提示 frmaresult.Show frmaresult.ZOrder 0 rsrecord.Close Unload Me Exit Sub End If sql = select * from attendanceinfo where adate between # sql = sql & firstday & # and # & lastday & # Set rsrecord = getrs(sql, person) If rsrecord.EOF = False Then sql = select sid,sname from stuffinfo order by sid Set rsperson = getrs(sql, person)选择月份后单击“确定”按钮，如果系统已经统计过该月份的记录，那么会出现如下图所示的统计结果信息列表。如果系统没有统计过，那么系统就会开始统计记录，然后显示如图所示的统计结果信息列表。If strusername admin Thensql = select sid from stuffinfo where sname= & strusername & Set rs = getrs(sql, salary)sd = rs(0)sql = select * from attendancestatistics where stuffid= & sd & Me.Adodc1.ConnectionString =provider=microsoft.jet.oledb.4.0;Datasource=& App.Path & salary.mdb Me.Adodc1.RecordSource = sqlMe.Adodc1.RefreshSet Me.DataGrid1.DataSource = Me.Adodc1.RecordsetMe.DataGrid1.RefreshElsesql = select * from attendancestatisticsMe.Adodc1.ConnectionString=provider=microsoft.jet.oledb.4.0;Datasource=& App.Path & salary.mdbMe.Adodc1.RecordSource = sqlMe.Adodc1.RefreshSet Me.DataGrid1.DataSource = Me.Adodc1.RecordsetMe.DataGrid1.Refresh End If选择“工资信息管理”“计算实发工资”菜单，在这个窗体中选择需要统计的月份。选择统计月份后，单击“开始统计”按钮，系统如果已经统计了该月份的工资，系统会显示工资信息列表窗体。如果系统还没有统计工资，那么系统开始统计工资，然后在信息结果列表窗体中显示统计结果。If Mmonth.Text = 4 Then firstday = Year(Date) & - & Mmonth.Text & -1 days = DateDiff(d, Year(Date) & - & Mmonth.Text & -1, _ Year(Date) & - & Mmonth.Text + 1 & -1) lastday = Year(Date) & - & Mmonth.Text & - & days Call sumsalary(firstday, lastday) sql = select * from salarystatistics frmresult.SSTab1.Caption = 员工工资统计列表 Call frmresult.listtopic Call frmresult.showdata(sql) frmresult.Caption = 统计结果列表 frmresult.ZOrder 0 Unload MeElse MsgBox 这个月的工资未统计, vbOKOnly + vbExclamation, 提示End If选择“工资信息管理”“查询工资”菜单，系统显示如图的查询信息窗体，系统默认的是查询出数据库中所有的记录（当管理员进入的时候），当从“员工编号”下拉列表中选择一个员工编号后，单击“查询单人”按钮，就会查询出符合这个员工编号的记录；如果需要返回查询所有信息，单击“查询所有”按钮，系统就会返回所有员工的信息。在“员工工资统计列表”中单击鼠标右键，会弹出下图的菜单，在“员工其他项目列表”中单击鼠标右键也会出现下图的菜单。如果要选择“删除基本工资设置”，出现如下的提示：具体的操作这里就不详细介绍。选择“工资信息管理”“导出工资表”菜单，会出现下图的“导出记录”窗体中选择需要导出工资的月份。选择月份和保存位置后，单击“导出”按钮，系统会开始导出数据。单击“确定”按钮打开导出的文件，单击“取消”按钮回到系统。 导出的工资记录 窗体的部分代码为：If strusername = admin Then 管理员的权限 sql = select stuffid from salarysetting Set rs = getrs(sql, salary) If rs.EOF = False Then While Not rs.EOF Mid.AddItem rs(0) rs.MoveNext Wend rs.Close End If Mid.ListIndex = 0 Select Case Me.SSTab1.Tab Case 0 sql = select * from salarysetting Call basictopic Call showbasic(sql) Case 1 sql = select * from salaryother Call othertopic Call showother(sql) Case 2 sql = select * from salarystatistics order by id desc Call listtopic Call showdata(sql) End Select Else 用户的权限 sql = select sid from stuffinfo where sname= & strusername & Set rs = getrs(sql, salary) While Not rs.EOF Mid.AddItem rs(0) rs.MoveNext Wend rs.MoveFirst sd = rs(0) rs.Close Mid.ListIndex = 0 Select Case Me.SSTab1.Tab Case 0 sql = select * from salarysetting where stuffid= & sd & Call basictopic Call showbasic(sql) Case 1 sql = select * from salaryother where stuffid= & sd & Call othertopic Call showother(sql) Case 2 sql = select * from salarystatistics where stuffid= & sd & Call listtopic Call showdata(sql) End Select End IfEnd Sub 建立导出工资表窗体的时候，这是工资管理的最重要的一步。这个窗体中使用了CommondDialog控件，通过设置Flags属性，使CommondDialog控件的对话框中显示一个帮助按钮，但是，程序员必须在这个位置提供相关的帮助主题。对于所有的公共对话框，当CancelError属性为true，而且用户单击了对话框的“取消”按钮时将生成一个错误。可以在显示对话框的同时捕获此错误以检验是否按下了“取消”按钮。这个控件可以显示“打开”和“另存为”对话框，可以在打开对话框之前用Filter属性指定在“文件类型”列表框中显示的文件过滤器列表。这个窗体还引用了Microsoft Excel 9.0 Object Library，目的是为了把建立的工资表导入到Excel表格中。这个窗体的制作是非常复杂的，尤其是从VB导入到表格中。建立导出工资表的窗体，当单击“保存为”文本框右边的按钮，会提示用户选择保存路径，然后单击“导出”，会导到你所要保存的文件夹里。 6 结束语企业工资管理系统是一个典型的信息管理系统，其主要通过软件工程方面的选择课题、需求分析、总体设计、选用工具、程序模块、系统测试等几个步骤来实现。开发本系统的过程中，首先要对企业工资管理进行系统调研，熟悉企业财务、人事、工资发放管理的流程、步骤；其次在系统需求分析过程中，要透过现象看本质，敏锐观察到企业工资管理中存在的各种问题，并在总体设计把握好对问题的分析、理解，进而解决问题；选用开发工具要选用自己最熟悉、应用较多的开发工具，本系统开发选用MS Visual Basic 6.0，其具有语言简单、功能强大、组件众多的优点。程序模块的编制中，重点把握系统内部完整性、功能性、实用性、便捷性，使其能够协调统一、运行无误。运行结果证明，本企业工资管理系统极大提高了工作效率，节省了人力和物力，最终满足企业财务管理、员工工资发放的需要，同时也成为现代化企业管理的标志参考文献1 史斌星,史佳.Visual Basic贯通教程M.北京：清华大学出版,2003.3.2 第一时间工作室.Visual Basic 6.0 程序设计技能百练M.中国铁道出版社,2004.1.3 刘萌.Visual Basic中文版入门与提高实用教程M.中国铁道出版社,2003.9.4 陈艳峰.Visual Basic 数据库项目案例导航M.北京：清华大学出版社,2004.8.5 Curtis Smith.Visual Basic 6.0 数据库编程M.北京：清华大学出版社,1999.11.6 Roger S.Pressman. 软件工程实践者的研究方法. 机械工业出版社, 1999. 10.7 FranceSo Balena.Visual Basic 6 编程技术大全M.机械工业出版社,2000.1.8 毛一心.中文版Access 2000应用及实例锦集M.人民邮电出版社,2002.6.袄芈蒇袇螀芇蕿蚀聿芆艿蒃肅芅蒁螈羁芄薃薁袆芃芃螆螂芃莅蕿肁节蒈螅羇莁薀薈袃莀艿螃蝿荿莂薆膈莈薄袁肄莇蚆蚄羀莇莆袀袆羃蒈蚂螂羂薁袈肀肁芀蚁羆肁莃袆袂肀薅虿袈聿蚇蒂膇肈莇螇肃肇葿薀罿肆薂螆袅肅芁薈螁膅莃螄聿膄蒆薇羅膃蚈螂羁膂莈蚅袇膁蒀袀螃膀薂蚃肂腿节衿羈腿莄蚂袄芈蒇袇螀芇蕿蚀聿芆艿蒃肅芅蒁螈羁芄薃薁袆芃芃螆螂芃莅蕿肁节蒈螅羇莁薀薈袃莀艿螃蝿荿莂薆膈莈薄袁肄莇蚆蚄羀莇莆袀袆羃蒈蚂螂羂薁袈肀肁芀蚁羆肁莃袆袂肀薅虿袈聿蚇蒂膇肈莇螇肃肇葿薀罿肆薂螆袅肅芁薈螁膅莃螄聿膄蒆薇羅膃蚈螂羁膂莈蚅袇膁蒀袀螃膀薂蚃肂腿节衿羈腿莄蚂袄芈蒇袇螀芇蕿蚀聿芆艿蒃肅芅蒁螈羁芄薃薁袆芃芃螆螂芃莅蕿肁节蒈螅羇莁薀薈袃莀艿螃蝿荿莂薆膈莈薄袁肄莇蚆蚄羀莇莆袀袆羃蒈蚂螂羂薁袈肀肁芀蚁羆肁莃袆袂肀薅虿袈聿蚇蒂膇肈莇螇肃肇葿薀罿肆薂螆袅肅芁薈螁膅莃螄聿膄蒆薇羅膃蚈螂羁膂莈蚅袇膁蒀袀螃膀薂蚃肂腿节衿羈腿莄蚂袄芈蒇袇螀芇蕿蚀聿芆艿蒃肅芅蒁螈羁芄薃薁袆芃芃螆螂芃莅蕿肁节蒈螅羇莁薀薈袃莀艿螃蝿荿莂薆膈莈薄袁肄莇蚆蚄羀莇莆袀袆羃蒈蚂