基于Visual Basic语言和Access数据库的就业援助信息系统的设计与开发

周捷 李铁强

[摘 要] 介绍了设计的就业援助系统基于VB编程语言和Access数据库，实现了用户管理、求职者信息管理、岗位信息管理、就业岗位搜索、匹配排序等功能。该系统能够实现农村劳动者求职和用工单位招聘信息的快速匹配，帮助相关部门借助信息技术引导和促进农村劳动力向城镇转移就业。

[关键词] Visual Basic；Access数据库；就业信息系统

doi ： 10 . 3969 / j . issn . 1673 - 0194 . 2016. 07. 091

[中图分类号] TP311 [文献标识码] A [文章编号] 1673 - 0194（2016）07- 0195- 04

1 问题的提出

目前我国处于经济结构转型关键时期，城镇每年新增大量劳动力，就业市场常年处于供大于求的状态。缺乏专业技能的大龄劳动者、残疾人、下岗失业者、零就业家庭构成的就业困难群体在求职市场上处于劣势，凭借自身能力很难找到工作。就业援助就是以政府为主导，发挥财政、税收等政策宣传和鼓励用人单位以及社会提供就业服务和就业岗位。本文设计了一个以Visual Basic语言和Access数据库为平台，构建就业信息网络平台，为求职者和用人单位搭建沟通渠道，及时传递劳动市场供需信息，尽快帮助失业人员实现再就业。

2 系统功能

（1）系统管理

系统管理包括增加用户管理和修改密码管理功能。系统管理员通过增设用户名和密码并分配给指定人员，从而实现用户管理权限。登录用户可以通过修改密码功能修改初始密码。

（2）求职者管理

求职者管理包括增加求职者信息、修改求职者信息和查询求职者信息的功能。通过增加求职者信息功能，系统操作人员可将求职者的相关信息添加到系统数据库中。通过修改求职者信息，系统操作人员可对求职者信息进行必要的修改和调整。通过查询求职者信息，系统操作人员可以根据特定条件筛选出求职者。

（3）岗位管理

岗位管理包括添加岗位信息、修改岗位信息和查询岗位信息功能。添加岗位信息功能实现了对企业岗位详细信息的添加，修改岗位信息功能实现了对岗位信息的必要调整和修改。查询岗位信息功能可筛选出符合特定条件的岗位信息。

（4）就业管理

就业管理包括查询就业功能，通过查询就业信息功能，可以筛选出匹配特定求职者的岗位信息。

系统功能如图1所示。

3 系统详细设计与实现

3.1 本系统的数据库设计如下数据项和数据结构

用户信息表，主要用来存储用户信息，见表1。

求职者信息表，用来保存求职者个人信息，见表2。

岗位信息表，用来保存录入系统的岗位信息，见表3。

3.2 系统登录界面设计

系统登录主要用于验证工作人员登录系统时的用户名和密码是否正确。系统登录窗体运行图如图2所示。

3.3 系统主界面的设计

经过系统登录界面用户身份验证后，进入系统主界面，系统主界面有系统、求职者管理、岗位管理、就业管理和帮助五个模块。如图3所示。

3.4 增加求职者信息窗体

用于增加求职者个人信息。如图4所示。

部分代码如下：

Option Explicit

Private Sub Form_Load（）

Combo1.AddItem "男"

Combo1.AddItem "女"

Combo2.AddItem "低保"

Combo2.AddItem "残疾"

Combo3.AddItem "强"

Combo3.AddItem "中"

Combo3.AddItem "弱"

Option1.Value = True

End Sub

Private Sub Command1_Click（）

On Error GoTo AddErr

'Text1.Enabled = True

Dim cn As ADODB.Connection

Dim sql As String

Dim rs As New ADODB.Recordset

If Text1.Text = "" Then

MsgBox "请输入姓名！"， vbOKOnly + vbExclamation， "警告"

Text1.SetFocus

Exit Sub

End If

Set rs = New ADODB.Recordset

rs.Open sql， cn， adOpenForwardOnly， adLockOptimistic

If rs.EOF Then

rs.AddNew

rs（"姓名"） = Trim（Text1.Text）

End If

MsgBox "求职者信息录入成功！"， vbOKOnly + vbExclamation， "警告"

Exit Sub

Else

MsgBox "身份证重复，此求职者已经登录！"， vbOKOnly + vbExclamation， "警告"

Text3.SetFocus

End If

Private Sub Command2_Click（）

Unload Me

End Sub

3.5 增加岗位信息窗体

用于增加详细岗位信息，如图5所示。

3.6 查询就业信息岗位窗体

用于求职者相适应工作岗位的查询，如图6所示。

部分代码如下：

Private Sub cmdFind_Click（）

Dim int1 As Integer

Dim int2 As Integer

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0；Data Source=D：＼就业信息系统＼db1.mdb；Persist Security Info=False"

int1 = Val（Text3.Text）

int2 = Val（Text4.Text）

Adodc1.RecordSource = "select 姓名，性别，年龄，身份证，家庭住址，联系电话 from seeker where 就业现状 = False and 年龄 between " & Text3.Text & " and " & Text4.Text & " order by 求职紧迫程度 desc "

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

Text1.Text = Adodc1.Recordset.RecordCount

Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0；Data Source=D：＼就业信息系统＼db1.mdb；Persist Security Info=False" Adodc2.RecordSource = "select * from post where 年龄要求> " & Text3.Text & " order by 年龄要求 desc "

Adodc2.Refresh

Set DataGrid2.DataSource = Adodc2

Text2.Text = Adodc2.Recordset.RecordCount

End Sub