西北工业大学网络教育学院毕业论文
具，利用它能够建立多种类型的数据库并可以管理维护和使用这些数据。
当设计好系统的数据库结构后，就可以开始在Visual Basic6.0中开始设计系统功能模块相应的窗体了。设计窗体就是将前面分析得到系统的功能模块通过在Visual Basic6.0设计出具体的窗体，通过窗体的操作来实现预订的模块的功能。由于Visual Basic6.0是一种面向对象的编程软件，设计窗体和控件可以轻松通过系统得到，所以编程的时可以集中精力来设计控件的事件。面向对象的编程软件就是通过控件这种对象，发出不同的消息，去触发相应事件的发生。
在Visual Basic6.0中设计数据库管理系统从新建一个Project文件开始。
图4-2 Project界面功能图
即选择菜单：File→New Project从而弹出如图所示的界面，选择Standard EXE，单击OK，系统此时创建了一个工程文件Project1和一个窗体Form1。通过菜单File→Save Project。接下来就可以开始设计第一个窗体Form1了。
4.2 系统界面的设计
图4-3系统主界面图
24
西北工业大学网络教育学院毕业论文
系统主界面主要有系统菜单和运行界面。
系统用户通过菜单的操作来完成系统设计的各项功能。 该界面提供的菜单如下表所示：
员工基本信息 基本信息录入 基本信息维护 基本信息查询 基本信息统计 档案管理 评价管理 档案录入 评价初始化 档案维护 评价维护 档案查询 档案统计 出勤管理 月考勤表 考勤维护 考勤查询 加班维护 工资管理 月工资表 工资查询 系统管理 系数设置 添加操作员 岗位工资维护 退出 表4-1系统界面提供的菜单表
菜单的设计是本窗体的重点，菜单设计的过程通过系统的菜单栏Tools→Menu Editor进入菜单编辑器。添加如上图所示的菜单后，关闭菜单。回到该界面窗体的。可以看到该窗体的上面已经有了这些设计的菜单，通过点击设计的菜单栏，即可进入源代码设计环境，通过添加clcik事件源代码后，即完成了该窗体的设计。
4.3员工基本信息录入窗体的设计
本功能实现了人事管理过程,编程采用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。
25
西北工业大学网络教育学院毕业论文
DefaultDatabase 可读写String类型，如果ConnectString中未指定数据库名称，就使用这里所指定的名称，对SQL Server而言，其值通常是pubs
IsolationLevel 可读写Long类型，指定和其他并发事务交互时的行为或事务。见Mode Long类型，指定对Connection的读写权限。见Mode常数
Provider 可读写String类型，如果ConnectionString中未指定OLE DB数据或服务提供者的名称，就使用这时指定的名称。默认值是MSDASQL(Microsoft OLE DB Provider for ODBC)。
State 可读写Long类型，指定连接是处于打开状态，还是处于关闭状态或中间状态。见State常数
Version 只读String类型，返回ADO版本号。 员工档案信息录入功能如下图：
图4-4员工档案信息录入功能界面图
通过以上相关技术的引用，员工基本信息录入功能编写很快就可以完成了。 该窗体设计包括13个文本框控件、5个组合框控件、2个按钮控件。文本框控件和组合框控件用来输入员工基本信息。其中的记录个人情况等的文本框对应的字段是备注型，所以将该文本框的Multiline属性设置为True。开该属性的设置可以使文本框多行显示，Scrollbars的值设定为2，该值的设定可以使组合框的有上下的滚动下拉条。其它的几个备注型的文本框属性值设定一样。其中组合框的值不用用户输入，只需用户选择，选择值的设定可以通过设定组合框的list属性值来完成，比如设置性别对应的组合框的list值为：男，女。按钮控
26
西北工业大学网络教育学院毕业论文
件用来触发它们相应的事件的发生。
其中记载按钮的click事件：当单击该按钮时，首先检查文本框输入的是否为空，接着连接数据库，建立记录集，并利用记录集打开查询，最后对该查询记录集增加一条记录，语句：adoPrimaryRS.AddNew。并设置增加的记录的相应字段值为文本框和组合框的输入值，记录集更新记录。语句：adoPrimaryRS.Update。更新语句是很重要的，如果没有更新语句，最后数据库中的记录不能得到修改和添加。这样就完成了对员工基本信息表的添加记录。退出按钮的click事件是关闭该窗体，语句是：unload me。
该窗体的源代码具体如下:
Dim WithEvents adoPrimaryRS As Recordset
Private Sub Command1_Click() If Text1.Text = \
MsgBox \员工编号不能为空！\警告\ Text1.SetFocus Exit Sub End If
If Text2.Text = \
MsgBox \姓名不能为空！\警告\ Text2.SetFocus Exit Sub End If
If Combo1.Text = \
MsgBox \性别不能为空！\警告\ Combo1.SetFocus Exit Sub
27
西北工业大学网络教育学院毕业论文
End If
If Combo2.Text = \
MsgBox \部门不能为空！\警告\ Combo2.SetFocus Exit Sub End If
If Text3.Text = \
MsgBox \民族不能为空！\警告\ Text3.SetFocus Exit Sub End If
If Text4.Text = \
MsgBox \出生年月不能为空！\警告\ Text4.SetFocus Exit Sub End If
If Not IsDate(Text4.Text) Then
MsgBox \生日应输入日期（yyyy-mm-dd）！\警告\
Text4.SetFocus Exit Sub Else
Text4.Text = Format(Text4.Text, \ End If
If Combo3.Text = \
28