VB502 基于VB企业员工工资管理系统

企业员工工资管理系统是采用面向对象的程序设计技术来设计生成的一个数据库管理系统，面向对象的编程技术是目前最流行的一种编程方法，它具有强大的功能和更大的灵活性，通过对工资管理系统体系进行的总体设计，功能分析，程序设计，我们建立了一个较为完善的工资管理。
本设计说明书主要讲述了VISAUL BASIC6.0的基本功能及设计基本方法，系统数据库设计，面向对象的设计思想，窗体的设计，应用程序的开发方法等内容。
本系统具有数据输入，数据存储，档案查询，输入报表等功能。系统的人机对话界面友好。 内容来自think58

随着企业逐年的发展，企业的员工工资等事务纷繁芜杂，但大体上这些事务可包括以下几个方面的内容：人事基本信息管理，员工的业务档案管理、员工的工作评价管理、员工的考勤管理、员工的工资管理等。以上各项中的每一个部分都有该方面的管理明细，以员工的基本信息管理为例，包含的明细有：员工编号、姓名、性别、部门、民族、出生年月、政治面貌、家庭住址、联系电话、毕业学校、最高学历等。若用人工的方法来管理这些数据，不但会造成人力、物力、财力上的浪费，而且因为要处理的信息量过大不容易进行统计和分析。依靠传统的手工管理越来越跟不上企业的发展需要，为了精简人员，提高办事效率和节约企业运营成本，特别需要改变以前单纯依赖人工管理的模式。
随着经济水平的发展，知识经济时代给企事业工资信息管理提出了更高的要求，除了以往的工资利用计算机软件excel可以管理外，企业更希望能够对以往的各种的人事信息，考勤信息，工作评价信息，工资信息等统一管理起来。高效的、准确的员工工资管理，不仅能促进员工不断提高自身素质、提高工作积极性。从而提高员工工作质量和效率。员工工资管理中数据的正确性、安全性，操作的高效性、可靠性，无一不影响着员工队伍的建设和管理。 think58好，好think58

[资料来源：http://THINK58.com]

  使用现有的技术能不能实现这个系统。由于本管理系统的对象单一，仅对本单位的人事信息进行管理，且在对人事信息进行增减、修改、删除及统计操作时基本不涉及到计算过程，因此，这个管理系统比较适合采用数据库来设计。在计算机硬件和软件快速发展的今天，计算机硬件和软件已经远远满足本管理系统的要求。在数据库编程工具方面，各种可视化编程方法的出现，一改过去程序设计的概念和方法，用户用鼠标就可以快速、简捷地创建应用程序，极大地提高了编程效率。在作者所了解数据库系统中，因为学过Visual Basic 6.0，对ACCESS数据库比较熟悉，因此决定采用VisualBasic 6.0及ACCESS来完成员工工资管理系统的设计。VisualBasic 6.0和ACCESS共同完成员工工资管理系统，它提供了面向对象的编程技术，编写少量或不用编写程序代码就能快速地创建出功能强大的可视化应用程序，可简化数据库管理，使开发应用程序这项艰辛的工作就象堆积木那样简单方便。另外，用ACCESS数据库开发的应用程序可以独立运行于windows平台， 而且ACCESS产生的数据库（表）适用范围广。 copyright think58 [来源：http://think58.com]

本功能实现了人事管理过程,编程采用ADODB.connection和ADODB.command 的VB内置对象，其主要作用是实现了数据库连接及SQL查询语言的使用。该功能使用Connection对象以下相关属性：
Attributes属性可读写Long类型，通过两个常数之和指定是否使用保留事务（retainning transactions）。常数adXactCommitRetaining表示调用CommitTrans方法时启动一个新事务；常数adXactAbortRetaning表示调用           
RollbackTrans方法时启动一个新事务。默认值为0，表示不使用保留事务。
CommandTimeout 可读写Long类型，指定中止某个相关Command对象的Execute调用之前必须等待的时间。默认值为30秒。
ConnectionString 可读写String类型，提供数据提供者或服务提供者打开到数据源的连接所需要的特定信息
ConnectionTimeout 可读写Long类型，指定中止一个失败的Connection.Open方法调用之前必须等待的时间，默认值为15秒。
CursorLocation 可读写Long类型，确定是使用客户端(adUseClient)游标引擎，还是使用服务器端(adUseServer)游标引擎。默认值是adUseServer。
DefaultDatabase 可读写String类型，如果ConnectString中未指定数据库名称，就使用这里所指定的名称，对SQL Server而言，其值通常是pubs 本文来自think58

IsolationLevel 可读写Long类型，指定和其他并发事务交互时的行为或事务。见Mode Long类型，指定对Connection的读写权限。见Mode常数
Provider 可读写String类型，如果ConnectionString中未指定OLE DB数据或服务提供者的名称，就使用这时指定的名称。默认值是MSDASQL(Microsoft OLE DB Provider for ODBC)。
State 可读写Long类型，指定连接是处于打开状态，还是处于关闭状态或中间状态。见State常数
Version 只读String类型，返回ADO版本号。

[来源：http://think58.com]

其中记载按钮的click事件：当单击该按钮时，首先检查文本框输入的是否为空，接着连接数据库，建立记录集，并利用记录集打开查询，最后对该查询记录集增加一条记录，语句：adoPrimaryRS.AddNew。并设置增加的记录的相应字段值为文本框和组合框的输入值，记录集更新记录。语句：adoPrimaryRS.Update。更新语句是很重要的，如果没有更新语句，最后数据库中的记录不能得到修改和添加。这样就完成了对员工基本信息表的添加记录。退出按钮的click事件是关闭该窗体，语句是：unload me。
该窗体的源代码具体如下:
Dim WithEvents adoPrimaryRS As Recordset

本文来自think58 [资料来源：www.THINK58.com]

[资料来源：http://www.THINK58.com]

Private Sub Command1_Click()
    If Text1.Text = "" Then
       MsgBox "员工编号不能为空！", vbOKOnly + vbExclamation, "警告"
       Text1.SetFocus
       Exit Sub
    End If
    If Text2.Text = "" Then
       MsgBox "姓名不能为空！", vbOKOnly + vbExclamation, "警告"
       Text2.SetFocus
       Exit Sub
    End If
    If Combo1.Text = "" Then
       MsgBox "性别不能为空！", vbOKOnly + vbExclamation, "警告"
       Combo1.SetFocus
       Exit Sub
    End If
    If Combo2.Text = "" Then
       MsgBox "部门不能为空！", vbOKOnly + vbExclamation, "警告"
       Combo2.SetFocus

[资料来源：www.THINK58.com]

       Exit Sub
    End If
    If Text3.Text = "" Then
       MsgBox "民族不能为空！", vbOKOnly + vbExclamation, "警告"
       Text3.SetFocus
       Exit Sub
    End If
    If Text4.Text = "" Then
       MsgBox "出生年月不能为空！", vbOKOnly + vbExclamation, "警告"
       Text4.SetFocus
       Exit Sub
    End If
    If Not IsDate(Text4.Text) Then
 MsgBox "生日应输入日期（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"
 Text4.SetFocus

内容来自think58

[资料来源：THINK58.com]

[资料来源：http://www.THINK58.com]

参考文献
1. 郑阿奇．Visual Basic 实用教程.电子工业出版社.
2. 温贤发.Visual Basic 6.0 使用指南 .电子工业出版社.
3. Craig Eddy ，Timothy Buchanan．中文Access 2000 24学时教程 .机械工业出版社.
4. 杜军平，黄杰.Access2000数据库开发.北京机械工业出版社.2001.
5. 张树兵. Visual Basic 6.0.清华大学出版社.1999.
6. 刘云生．数据库系统概论．华中理工大学出版社.1996.
7. 韩润春,佟志臣,王汉新.管理信息系统.河北人民出版社.2003.

think58好，好think58 [资料来源：THINK58.com]

[资料来源：http://THINK58.com]