基于visual basic语言工资管理系统开发和设计

《基于visual basic语言工资管理系统开发和设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、基于VisualBasic语言工资管理系统开发和设计　　[摘要]本文使用VisualBasic编程语言，开发和设计了工资管理系统。该系统实现了一般工资管理系统对员工工资信息的浏览、添加、删除、修改和查询功能，能够完成对员工工资的结算，减少大量的人工操作的工作量，降低数据出现错误的概率，加强工资记录的安全性和完整性。[关键词]工资管理；VB；设计；开发doi：10.3969/j.issn.1673-0194.2013.17.013[中图分类号]F232[文献标识码]A[文章编号]1673-0194（2013）17-0026-04企业职工工资关系到每一

2、个职工的切身利益，是保障企业稳健运行的重要环节。工资核算是所有单位财务部门最基本的业务之一，是一项重要的经常性的工作。在传统的手工方式下，为了完成工资核算，需要财务人员花费大量的时间和精力，并且在计算过程中非常容易出错。本文基于VisualBasic语言开发的工资管理系统采用计算机处理，保证了工资核算的准确性和及时性。1系统功能与可行性分析13工资管理系统的基本功能就是为企业提供工资核算和管理的有关信息，附带提供有关职工个人档案的基本资料，一方面，通过各种资料和计算公式得到每名职工工资数据；另一方面，通过工资分摊将工资分配到各种费用中去。1.1系统

3、功能分析为完成工资管理功能，系统应完成的主要功能包括：1.1.1系统管理系统管理包括操作员管理、权限管理、安全管理等功能，这些功能主要通过操作员编码、姓名、权限以及登录密码等来实现。1.1.2档案管理档案管理包括员工信息管理和部门信息管理。应实现对员工和部门的基本信息的浏览、添加、删除和修改。1.1.3工资管理（1）基本工资设置：对员工的基本工资信息进行添加、删除和修改。（2）考勤信息统计：对员工的考勤信息进行添加、删除和修改。（3）工资结算：根据员工的基本工资信息和考勤信息，以及本月奖金和补助等的输入金额，计算出员工的个人所得税并结算出该月的工资

4、。（4）固定工资调整：对于企业员工的固定工资，进行统一的调整。1.1.4信息查询13（1）查询员工工资信息：按照员工编号或员工姓名，或二者组合查询员工的工资信息。（2）查询部门工资信息：按照部门编号或部门名称，或二者组合查询工资信息。系统功能模块图如图1所示。1.2系统设计可行性分析1.2.1经济可行性利用VB语言开发的工资管理系统成本低，时间短，符合现代企业财务管理的利润最大化的目标。应用工资管理系统，节省了许多人力、物力上的开支，使工资管理工作更加简化，使其更加合理化、规范化。1.2.2操作可行性系统是使用VB语言开发的，易于操作。而且系统还采

5、用了可视化面向对象的开发工具，其窗口、界面简洁易懂，所以系统在操作上是可行的。1.2.3技术可行性从目前IT业界比较流行的数据库开发、管理软件来看，对于比较简单的中小型数据库，VisualBasic6.0和Access2007的结合无疑是在实际应用中较为成功的一种解决方案。为用户提供了非常友好、操作简单的用户界面，完善强大的数据库操作功能和简洁明了的数据库接口，所以技术应用相对容易。132系统详细设计与实现本系统的数据库设计如下数据项和数据结构。2.1主要数据库表要进行工资系统的设计，首先设计好数据库表，主要的数据库表包括：用户信息表，主要用来存储

6、用户的信息；部门信息表，主要用来存储各个部门的信息；职工信息表，主要用来存储职工的详细信息；职工工资明细表，主要用来存储职工工资的详细信息；职工工资结算表；主要用来存储职工工资结算的详细信息等。其中，职工工资明细表如表1所示。2.2系统登录界面设计系统登录主要用于验证工作人员登录系统时的用户名称、密码是否正确。系统登录窗体运行图如图2所示。2.3系统主界面的设计经过用户身份验证后，进入系统主界面，系统主界面有系统管理、档案管理、工资管理、查询、打印报表5个模块。系统主界面如图3所示。2.4系统设计系统功能主要包括系统管理、档案管理、工资管理、查询、

7、打印报表，部分功能的实现如下：2.4.1建立员工基本工资设置窗体13添加一个普通窗体，caption属性设置为“基本工资设置”，其窗体运行如图4所示。其窗体命令按钮的增加、删除、保存的部分代码如下：增加按钮代码：PrivateSubCommand1_Click（）Adodc1.Recordset.AddNewText1（0）.SetFocusCommand1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=TrueEndSub删除按钮代码：Priva

8、teSubCommand2_Click（）IfMsgBox（”确定删除当前资料吗？”，vbInformation+vbYe