基本情况登记表 登记/修改职员基本信职员基 本 信 息 生成 报表 家庭情况登记表 职 新职员 登记/修改 员 职员家庭信息 通 讯 员 工作/教育经历登记表 登记/修改职员工作/教育经历数 据 家庭基本情况档工作/教育经历信息 人事管 理人员 图4-2 职员基本信息管理数据流程图
对比各个数据流程图和业务流程图，从业务过程抽取数据流的过程中，有些
纯人工的操作要删除，如确定组织结构及部门组成；有些环节不属于本系统的处理范围要去掉，如关于工资处理的部分；此外，如果有初期调研没有得到的常规业务要增加到数据流程图中。综合以上各个步骤的分析，最终得到用数据流程图表达的新系统的逻辑功能结构。
4.3 数据字典
数据流程图并不能完整地描述软件需求，因为它没有描述数据流程图上各个
成分的具体内容。实际应用中，数据流程图往往与数据字典是在数据流程图基础上，进一步定义和描述流程图上各个工具，它包括对一切动态数据和静态数据的数据结构和相互关系等的说明，是数据分析和数据管理的重要工具。数据字典中常常包括对数据元素、数据结构、数据流的来源去处、数据存储、处理功能和外
18
部实体的说明。
这里针对各个处理功能，在数据字典中建立对处理功能的说明如下：
(1) 部门信息管理，起功能是设置和管理部门信息。在权限范围内可以进行数据的添加、删除和修改。
(2) 职员信息管理，其功能是设置和管理职员档案信息，包括基本信息管理、家庭成员、信息管理、工作/教育经历信息管理。业务流程源于手工管理阶段的人时档案，同时可以生成职员信息清单供打印。用户在权限范围内可以进行数据的添加、删除和修改。
(3) 考勤信息查询，其功能是提供用户考勤统计值。所有系统用户均可以按照时间和部门查询全部考勤信息，使管理更加透明化。
(4) 考评信息管理，其功能是进行职员的工作绩效考评，同时将数据作为工资管理系统的某些工资项目的计算依据。系统用户在权限范围内可以进行数据的添加、删除和修改。
19
第5章 系统详细设计
5.1系统项目文件和公共文件
1．主题框架
新建一个VB工程的标准EXE工程,建立系统的主体框架。 2．添加模块
添加模块，并将其命名为ModulePeople.bas 3．系统公共变量自定义 如表5-1：
5-1 系统公共变量自定义 变量名称 gUserName gUserKing gEmployeed gLoginSucceeded BLUE WHITE 变量类型 string String String Boolean Const Const 说明 用户名，用来显示状态信息 用户类型，用来设定用户权限 职员编号 登录成功标志 值为：&HFF00000，蓝色 值为：&H80000005，白色 4．Main函数 系统启动函数。处理流程：以对话框模式启动登录窗体，如果启动失败，给出提示信息。
Sub Main()
Dim fLogin As New frmLogin '启动登录窗体 fLogin.Show vbModal '装入并显示模式窗体。 If Not gLoginSucceeded Then
MsgBox \系统启动失败,请重试!\警告\End If Unload fLogin End Sub
5．ConnectString 函数
设置数据库连接字符串函数，本函数无参数，返回值为数据库连接字符串。
Public Function ConnectString() As String
ConnectString = \End Function
6．ExecutSQL函数
设置SQL语句的执行语句，ADO数据集rst和是否允许数据集更新的布尔型变量。处理流程：创建到数据源的连接，根据布尔型变量的实参值，确定执行SQL语句的方式并执行SQL语句。如果SQL语句执行成功，返回值为TRUE，结果存储于形参数据集rst相对应数据集内；否则，返回值为false。
20
Public Function ExecuteSQL(ByVal SQL As String, rst As ADODB.Recordset, _ Optional enableWrite As Boolean = True) As Boolean Dim con As ADODB.Connection Dim sTokens() As String On Error GoTo Execute_Error sTokens = Split(SQL)
Set con = New ADODB.Connection con.Open ConnectString '打开数据库 Set rst = New ADODB.Recordset If enableWrite Then '读写方式
rst.Open Trim$(SQL), con, adOpenStatic, adLockOptimistic Else '只读方式
rst.Open Trim$(SQL), con, adOpenStatic, adLockReadOnly End If
ExecuteSQL = True Exit Function Execute_Error: ExecuteSQL = False Exit Function End Function
7．DBExist函数
判断数据库中是否存在指定记录，参数为将要执行的SQL语句。处理流程：创建到数据源连接，执行SQL语句（不允许数据集更新），检索记录。如果存在指定记录，返回记录数；否则，返回值为0。
Public Function DBExist(ByVal SQL As String) As Integer Dim con As ADODB.Connection Dim sTokens() As String Dim flag As String Dim rst As ADODB.Recordset sTokens = Split(SQL)
Set con = New ADODB.Connection con.Open ConnectString '打开数据库 flag = ExecuteSQL(SQL, rst, False) '判断该记录是否存在
If rst.RecordCount <> 0 Then DBExist = rst.RecordCount Else DBExist = 0 End If
con.Close '关闭数据库 End Function
21
8.txtlsNull 函数
判断输入到TextBox的内容是否为空，参数为TextBox事例。处理流程：如 果TextBox文件为空，返回值为True，否则，返回值为False，并设置该TextBox获得焦点，背景色设置为蓝色。
Public Function txtIsNull(txt As TextBox) As Boolean If Trim(txt.Text) = \ txtIsNull = True txt.SetFocus txt.BackColor = BLUE Else
txtIsNull = False End If End Function
9.lsOverStringLen 函数
判断输入内容是否超过给定值，，参数为需要处理的字符串和给顶长度值。处 理流程：判断字符串长度不超过给定时返回值为True，否则，返回值为false。 Public Function IsOverStringLen(ByVal str As String, lenthText As Integer) As Boolean
If Len(Trim(str)) > lenthText Then IsOverStringLen = True Else
IsOverStringLen = False End If End Function
10．viewData 函数
在Datagrid中显示数据，参数为SQL语句和将要显示数据的Datagrid。处理流程：执行SQL语句，当检索到的记录数不为0时，将相应的数据集设置为Datagrid数据源，并返回记录数，否则给出提示信息“还没有数据！”，返回0。
Public Function viewData(ByVal txtSQL As String, dgAll As DataGrid) As Integer Dim rstData As ADODB.Recordset Dim result As String '检索需要的信息
result = ExecuteSQL(txtSQL, rstData, False) '设置datagrid的数据源
If rstData.RecordCount <> 0 Then Set dgAll.DataSource = rstData viewData = rstData.RecordCount Else
MsgBox \还没有数据！\警告\ viewData = 0 End If End Function
22