软件开发总结报告-中介服务管理系统
- 格式：doc
- 大小：3.10 MB
- 文档页数：27
软件开发总结报告-中介服务管理系统
摘要
Microsoft VisualBasic是一种面向过程的高级语言，在事务处理方面有着广泛的应用，Microsoft Access则是一款针对中小型数据开发的办公软件，基于VisualBasic和Access数据库编写的应用软件具有良好的人机界面、便捷的操作功能，能够较好的实现一般数据查询和管理要求。“曙光”中介服务管理系统是基于此开发一款小型应用软件，主要针对面向家教、兼职服务的小型中介单位，提供关于家教、求职等方面的快速信息查询以及基本的管理服务，可在各种Windows系统下运行。本文在系统概述部分讲解了系统的功能模块及采取的基本设计方法，并在功能描述部分举例说明了具体的操作功能及操作方法，程序设计部分列写了的详细的程序代码。
系统基本满足了兼职中介的基本功能需要，能够为中介单位实现信息的计算机化管理提供切实的便利。本系统界面友好、操作简单，对家教、求职等信息提高了查询速度、加强了管理，使数据更完善，管理更规范。
关键字：MDI窗体 数据库 信息查询 信息管理 模块化
VisualBasic课程设计 “曙光”中介服务管理系统
1
“曙光”中介服务管理系统设计
一、系统概述
“曙光”中介服务管理系统基于VisualBasic语言，Access数据库设计，采用MDI（多文档界面）窗体设计，可在一个主窗体下同时操作多个子窗体，视图操作菜单方便了用户的多窗体管理。系统主要分为教师信息管理、教师信息查询、学生信息管理、学生信息查询、招聘信息管理、招聘信息查询、求职信息管理、求职信息查询等八大模块，在各管理模块中除可实现基本的信息添加、删除、修改外，还针对中介单位的特点设计了信息配对功能，如教师－学生配对，求职－招聘配对等。另外，在各查询模块中设计了多种条件查询方式，可实现用户所需信息的查询，一般情况下，查询和管理功能配合使用，以更好的满足用户操作需求。
二、数据流程图
2.1流程框图
„„„„
管理员登陆
“曙光”中介管理服务系统主窗体
教师信息管理 教师信息查询 学生信息管理 学生信息查询 招聘信息管理 招聘信息查询 求职信息管理 求职信息查询
配对 添加 删除 修改 配对 添加 删除 修改 VisualBasic课程设计 “曙光”中介服务管理系统
2
2.2、主界面
三、功能描述
“曙光”中介服务管理系统各查询、管理模块功能类似，现以教师信息查询、教师信息管理两个窗体（模块）进行具体描述：
3.1教师信息查询 VisualBasic课程设计 “曙光”中介服务管理系统
3
3.1.1说明
本系统提供了完善的信息查询功能，用户可根据需要自由选择查询条件，具体查询方式主要有按全部、学校、专业、年级以及当前状态（已/未找到学生）进行查询，默认条件下显示全部信息。
3.1.2操作举例
按学校查询：选中“学校”单选框，输入（或从下拉列表中选择）“西北大学”，如下图。
点击“查询”按钮，显示如下： VisualBasic课程设计 “曙光”中介服务管理系统
4
如果没有相关信息，则对话框提示“没有找到你所需要的信息”，如下图。
单击“清空”，查询条件全部赋为空。用户可重新选择查询条件进行查询。
3.1.3相关程序
Dim rsTeaInfo As New ADODB.Recordset '定义数据集对象"教师信息表"
Private Sub cmdClear_Click() '单击“清空”按钮
'清空学校、专业、年级下拉列表框
cboUnv.Clear
cboSpec.Clear
cboGrade.Clear
'重新加载窗体
Form_Load
End Sub
Private Sub cmdSearch_Click() '单击“查询”按钮
'根据单选按钮选择情况确定查询语句
If optAll = True Then
sqlTeachInfo = "select * from 教师信息表"
End If
If optFind = True Then VisualBasic课程设计 “曙光”中介服务管理系统
5 sqlTeachInfo = "select * from 教师信息表 where 当前状态='已找到学生'"
End If
If optNotfind = True Then
sqlTeachInfo = "select * from 教师信息表 where 当前状态='未找到学生'"
End If
If optUnv = True Then
sqlTeachInfo = "select * from 教师信息表 where 学校='" & cboUnv.Text & "'"
End If
If optSpec = True Then
sqlTeachInfo = "select * from 教师信息表 where 专业='" & cboSpec.Text & "'"
End If
If optGrade = True Then
sqlTeachInfo = "select * from 教师信息表 where 年级='" & cboGrade.Text & "'"
End If
'根据查询语句打开数据库
rsTeaInfo.Open sqlTeachInfo, conn, adOpenKeyset, adLockPessimistic
'显示表格
displaygrid
End Sub
Private Sub Form_Load() '加载窗体
'加载时设置窗体大小
frmTeachS.Height = 6450
'设置下拉列表框内容
With cboUnv
.Clear
.AddItem ("西安交通大学")
„„„„„„„„„„„
.AddItem ("陕西国防学院")
End With
With cboSpec
.Clear
.AddItem ("数学")
„„„„„„„„„„
.AddItem ("航空航天")
End With
With cboGrade
.Clear
.AddItem ("本一")
„„„„„„„„„„
.AddItem ("研三")
End With
'加载时默认显示所有信息
sqlTeachInfo = "select * from 教师信息表" VisualBasic课程设计 “曙光”中介服务管理系统
6 rsTeaInfo.Open sqlTeachInfo, conn, adOpenKeyset, adLockPessimistic
displaygrid
End Sub
Public Sub setgrid()
'设置表格(行、列数、宽度等属性)
With grdTeaInfo
.Cols = 23 '23列
.FixedCols = 1 '固定第一列
.Rows = rsTeaInfo.RecordCount + 1 '行数＝记录数＋1(列表题)
.SelectionMode = flexSelectionByRow
.Col = 0 '第一列设为宽度500
.ColWidth(0) = 500
End With
End Sub
Public Sub setgridhead()
'设置表格第一行宽度、标题
With grdTeaInfo
.Row = 0
.Col = 1
.ColWidth(1) = 800
.Text = "教师编号"
„„„„„„„„„„
.Col = 22
.ColWidth(22) = 1500
.Text = "备注"
End With
End Sub
Public Sub displaygrid()
Dim i As Integer
Dim j As Integer
setgrid '设置表格行列数
setgridhead '设置表格标头
grdTeaInfo.Row = 0
grdTeaInfo.Col = 0
If rsTeaInfo.RecordCount <> 0 Then '记录数不为0，显示表格
rsTeaInfo.MoveFirst
'第一列显示序号(记录数)
For i = 1 To rsTeaInfo.RecordCount VisualBasic课程设计 “曙光”中介服务管理系统
7 grdTeaInfo.Row = grdTeaInfo.Row + 1
grdTeaInfo.Text = Str(i)
Next i
grdTeaInfo.Row = 0
rsTeaInfo.MoveFirst
'从第一行开始逐列显示记录集内容
Do While Not rsTeaInfo.EOF
grdTeaInfo.Row = grdTeaInfo.Row + 1
For j = 1 To 22
grdTeaInfo.Col = j
If rsTeaInfo.Fields(j - 1) <> "" Then
grdTeaInfo.Text = rsTeaInfo.Fields(j - 1)
Else: grdTeaInfo.Text = ""
End If
Next j
rsTeaInfo.MoveNext
Loop
'显示完毕，关闭记录集
rsTeaInfo.Close
Else '记录数为0,显示提示，跳出
MsgBox "没有找到你所需要的信息！"
rsTeaInfo.Close
Exit Sub
End If
End Sub
3.2教师信息管理
教师信息管理窗体一方面显示相关教师信息以及学生信息，对教师和学生进行“配对”操作，还可对教师信息进行添加、删除、修改等操作。
