1、基于 Visual Basic 语言的工资管理系统的开发与设计摘 要 本文使用 Visual Basic 编程语言，开发和设计了工资管理系统。该系统实现了一般工资管理系统对员工工资信息的浏览、添加、删除、修改和查询功能，能够完成对员工工资的结算，减少大量的人工操作的工作量，降低数据出现错误的概率，加强工资记录的安全性和完整性。 关键词 工资管理；VB；设计；开发 doi ： 10 . 3969 / j . issn . 1673 - 0194 . 2013 . 17. 013 中图分类号 F232 文献标识码 A 文章编号 1673 - 0194（2013）17-0026-04 企业职工工资关
2、系到每一个职工的切身利益，是保障企业稳健运行的重要环节。工资核算是所有单位财务部门最基本的业务之一，是一项重要的经常性的工作。在传统的手工方式下，为了完成工资核算，需要财务人员花费大量的时间和精力，并且在计算过程中非常容易出错。本文基于 Visual Basic 语言开发的工资管理系统采用计算机处理，保证了工资核算的准确性和及时性。 1 系统功能与可行性分析 工资管理系统的基本功能就是为企业提供工资核算和管理的有关信息，附带提供有关职工个人档案的基本资料，一方面，通过各种资料和计算公式得到每名职工工资数据；另一方面，通过工资分摊将工资分配到各种费用中去。 1.1 系统功能分析 为完成工资管理功
3、能，系统应完成的主要功能包括： 1.1.1 系统管理 系统管理包括操作员管理、权限管理、安全管理等功能，这些功能主要通过操作员编码、姓名、权限以及登录密码等来实现。 1.1.2 档案管理 档案管理包括员工信息管理和部门信息管理。应实现对员工和部门的基本信息的浏览、添加、删除和修改。 1.1.3 工资管理 （1）基本工资设置：对员工的基本工资信息进行添加、删除和修改。（2）考勤信息统计：对员工的考勤信息进行添加、删除和修改。 （3）工资结算：根据员工的基本工资信息和考勤信息，以及本月奖金和补助等的输入金额，计算出员工的个人所得税并结算出该月的工资。（4）固定工资调整：对于企业员工的固定工资，进行
4、统一的调整。 1.1.4 信息查询 （1）查询员工工资信息：按照员工编号或员工姓名，或二者组合查询员工的工资信息。 （2）查询部门工资信息：按照部门编号或部门名称，或二者组合查询工资信息。 系统功能模块图如图 1 所示。 1.2 系统设计可行性分析 1.2.1 经济可行性 利用 VB 语言开发的工资管理系统成本低，时间短，符合现代企业财务管理的利润最大化的目标。应用工资管理系统，节省了许多人力、物力上的开支，使工资管理工作更加简化，使其更加合理化、规范化。 1.2.2 操作可行性 系统是使用 VB 语言开发的，易于操作。而且系统还采用了可视化面向对象的开发工具，其窗口、界面简洁易懂，所以系统在
5、操作上是可行的。 1.2.3 技术可行性 从目前 IT 业界比较流行的数据库开发、管理软件来看，对于比较简单的中小型数据库，Visual Basic 6.0 和 Access 2007 的结合无疑是在实际应用中较为成功的一种解决方案。为用户提供了非常友好、操作简单的用户界面，完善强大的数据库操作功能和简洁明了的数据库接口，所以技术应用相对容易。 2 系统详细设计与实现 本系统的数据库设计如下数据项和数据结构。 2.1 主要数据库表 要进行工资系统的设计，首先设计好数据库表，主要的数据库表包括：用户信息表，主要用来存储用户的信息；部门信息表，主要用来存储各个部门的信息；职工信息表，主要用来存储职
6、工的详细信息；职工工资明细表，主要用来存储职工工资的详细信息；职工工资结算表；主要用来存储职工工资结算的详细信息等。其中，职工工资明细表如表 1所示。 2.2 系统登录界面设计 系统登录主要用于验证工作人员登录系统时的用户名称、密码是否正确。系统登录窗体运行图如图 2 所示。 2.3 系统主界面的设计 经过用户身份验证后，进入系统主界面，系统主界面有系统管理、档案管理、工资管理、查询、打印报表 5 个模块。 系统主界面如图 3 所示。 2.4 系统设计 系统功能主要包括系统管理、档案管理、工资管理、查询、打印报表，部分功能的实现如下： 2.4.1 建立员工基本工资设置窗体 添加一个普通窗体，c
7、aption 属性设置为“基本工资设置” ，其窗体运行如图 4 所示。 其窗体命令按钮的增加、删除、保存的部分代码如下： 增加按钮代码： Private Sub Command1_Click（） Adodc1.Recordset.AddNew Text1（0）.SetFocus Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = True End Sub 删除按钮代码： Private Sub Command2_Click（） If MsgBox（“确定删除当
8、前资料吗？ “， vbInformation + vbYesNo， “删除资料？“） = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MovePrevious End If End Sub 保存： Private Sub Command4_Click（） For i = 0 To 11 If Text1（i） = “ Then MsgBox “输入不完整！“， vbOKOnly + vbExclamation， “警告“ Text1（i）.SetFocus Exit Sub End If Next i If MsgBox（“确定保存当
9、前资料吗？ “， vbInformation + vbYesNo， “保存资料？“） = vbYes Then Adodc1.Recordset.Update Adodc1.Recordset.MovePrevious End If Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False Command7.Enabled = True End Sub 2.4.2 建立考勤信息统计窗体 添加一个普通窗体，Caption 属性设为“考勤信息统计” ，其窗体运行如
10、图 5 所示。 考勤信息统计代码如下： Private Sub Form_Load（） Command1.Enabled = True Command2.Enabled = True Command4.Enabled = True Command7.Enabled = True Combo1.AddItem “1“ Combo1.AddItem “2“ Combo1.AddItem “3“ Combo1.AddItem “4“ Combo1.AddItem “5“ Combo1.AddItem “6“ Combo1.AddItem “7“ Combo1.AddItem “8“ Combo1.A
11、ddItem “9“ Combo1.AddItem “10“ Combo1.AddItem “11“ Combo1.AddItem “12“ connstr = “Provider=Microsoft.Jet.OLEDB.4.0；Data Source=database企业工资管理系统.mdb；Persist Security Info=False“ conn.Open connstr mysql = “select * from 考勤信息表“ End Sub 2.4.3 建立工资结算窗体 普通窗体，Caption 属性设为“工资结算” 。其窗体运行图如图 6 所示。 其工资的结算的部分代码如
12、下： Private Sub Command2_Click（） 计算 If Text4（2） = “ Then MsgBox “请输入奖金金额！ “， vbOKOnly + vbExclamation， “提示“ Text4（2）.SetFocus Else If Text4（3） = “ Then MsgBox “请输入其他补助金额！“， vbOKOnly + vbExclamation， “提示“ Text4（3）.SetFocus Else Text4（11） = Date Dim GL As Integer GL = Val（Year（Date） - Year（Label1（10）.C
13、aption） ） 计算工龄 Label2（8）.Caption = Val（Label2（11）.Caption）*GL 计算工龄工资 Text4（1）.Text = Val（Label2（12）.Caption）*Val（Label3（10）.Caption） 计算加班工资 Text4（4）.Text = Val（Label2（15）.Caption）*Val（Label3（11）.Caption） 计算迟到扣款 Text4（5）.Text = Val（Label2（13）.Caption）*Val（Label3（9）.Caption） 计算病假扣款 Text4（6）.Text = Val
14、（Label2（14）.Caption）*Val（Label3（8）.Caption） 计算事假扣款 Text4（0）.Text = Val（Text4（4）.Text） + Val（Text4（5）.Text） + Val（Text4（6）.Text） 计算考勤扣款 Dim money As Integer 应发金额 money = Val（Label2（9）.Caption） + Val（Label2（10）.Caption） + Val（Label2（8）.Caption） _ + Val（Text4（1）.Text） + Val（Text4（2）.Text） + Val（Text4（3
15、）.Text） - Val（Text4（0）.Text） - Val（Text4（7）.Text） 计算实发金额： Text4（9）.Text = money - Val（Text4（8）.Text） 计算基本工资额，包括职务津贴、基本工资、工龄工资： JBGZE = Val（Label2（10）.Caption） + Val（Label2（9）.Caption） + Val（Label2（8）.Caption） 计算本月补助，包括加班工资、奖金、其他补助： BYBZ = Val（Text4（1）.Text） + Val（Text4（2）.Text） + Val（Text4（3）.Text）
16、计算其他扣款，包括违纪罚款和个人所得税： QTKK = Val（Text4（7）.Text） + Val（Text4（0）.Text） End Sub 2.4.4 建立员工固定工资调整窗体 重点描述确定按钮的代码如下： Private Sub Command1_Click（） Dim m As Integer If Combo1.Text = “基本工资“ Then m = 1 If Combo1.Text = “职务津贴“ Then m = 2 If Combo1.Text = “工龄津贴/年“ Then m = 3 If Combo1.Text = “加班工资/天“ Then m = 4
17、If Combo1.Text = “事假扣款/天“ Then m = 5 If Combo1.Text = “病假扣款/天“ Then m = 6 If Combo1.Text = “迟到扣款/天“ Then m = 7 If Combo1.Text = “ Then MsgBox “请选择需调整的工资项目！“， vbOKOnly + vbExclamation， “提示“ Else If Combo2.Text = “ Then MsgBox “请选择调整的条件！ “， vbOKOnly + vbExclamation， “提示“ Else If Text1.Text = “ Then MsgBox “请输入调整值！“， vbOKOnly + vbExclamation， “提示“ Exit Sub End If Adodc1.Recordset.MoveFirst Do While Not Adodc1.Recordset.EOF if adodc1.Recordset.Fields（“职务“）=Combo2.Text then
