课程设计报告2011305010230 杨帆人事管理信息系统

人事管理信息系统

由于信息化社会的飞速发展，人事管理系统已经成为每一个企业，政府部门以及其他机构组成中不可或缺的一部分。人事管理系统是满足了公司对员工基本信息管理的需求，拥有人事管理系统，可以更加方便的进行人事的管理，操作简单方便，可以为员工节省大量时间，从而提高工作效率。

本节针对人事管理系统介绍使用VB开发数据库应用程序的基本方法。本程序的记录虽然包含的信息量较少，但其功能与实现方法具有相当的普遍性和实用性。

1 系统设计

1.1 系统功能分析

系统开发的总体任务是实现各种信息的系统化、规范化和自动化。

系统功能分析是在系统开发的总体任务的基础上完成。考虑系统的通用功能，本例子中人事管理信息系统需要完成功能主要有：

（1）．密码设置：每个管理员均可有自己的用户名和密码，可以防止非本系统人员进入系统。

（2）．信息管理：可对职工信息进行更改，添加和删除，。

（3）．信息查询：能够快速地进行员工基本信息各种组合的查询。双击查询结果可对其进行更改。

（4）．信息统计：饱含简单统计和自定义统计。其中自定义统计可进行各种组合的统计。

（5）．数据打印：对职工基本信息进行打印和导出。

1

1.2 系统功能模块设计

对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到如图1-2-1所示的系统功能模块图。

图1-2-1 系统功能模块图

2 数据库设计

数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以

2

提高数据存储的效率，保证数据的完整和一致。

在数据库中建立一个名为人事系统管理的数据库，其包含数据库表RSGL（职工表）和Yh（用户密码表),表的结构见表2-1与表2-2

表2-2 用户密码表

3 用户登陆界面

执行“工程”菜单中的“添加窗体“命令，添加一个新的窗体。在里面添加两个容器（frame1，Frame2），3个标签，两个文本框，两个命令按钮，一个数据控件（Data）。用户登陆界面如图3-1所示。

3

图3-1用户登录窗体设置各控件的属性如图3-2

4

在通用段添加代码：

Dim xchange As Integer

Dim ychange As Integer

窗体的load事件过程代码如下：

Private Sub Form_Load()

xchange = 100

ychange =100

End sub

Private Sub Command1_Click()

‘======================================================

‘判断用户输入的名称和口令是否合法

‘首先判断输入的用户名是否存在，如果不存在，给出提示

‘如果用户名存在，判断输入口令是否正确，如果错误，给出提示

‘如果用户名和口令输入正确，卸载本窗体，

‘否则，判断是否用完三次机会，并给出相应提示。

‘======================================================= Dim Isuser As Boolean ‘用户是否存在

Dim pwd As String

Dim Uname As String

Static count As Integer

pwd = Trim(Text2.Text) ‘记录输入口令次数

Uname = Trim(Text1.Text)

Isuser = False ‘比较用户名称和口令的

正确与否Do While Not Data1.Recordse.EOF

If Uname = Data1.Recordset.Fields(0) Then

‘当用户名和当前记录名称相同时的处理

If pwd = Data1.Recordset.Fields("ypass") Then

’如果口令输入正确，卸载本窗体

Unload Me

mdifrm.Show

Exit Sub

Else

If count < 2 Then ‘如果口令错误，给出提示信息

MsgBox "口令错误，请重新输入"

5

Text2.Text = ""

Text2.SetFocus

End If

Isuser = True ‘标识为合法用户

Exit Do

End If

End If

Data1.Recordset.MoveNext ‘移动到下一条记录

Loop

count = count + 1 ‘输入口令次数加一

If count = 3 Then ‘输入三次口令且错误，退出程序 MsgBox”非法用户，不能使用本系统”

End

End If

If Not IsUser Then ‘如果没有此用户，显示提示信息

MsgBox "无此用户，请重新登录"

Text1.Text = ""

Text1.SetFocus

End If

Data1.Recordset.MoveFirst

End Sub

Private Sub Command2_Click()

End ‘退出

End Sub

4 信息管理窗体

信息管理窗体界面如图4-1所示。

（1）设计菜单

6