基于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