软件开发总结报告中介服务管理系统.docx
《软件开发总结报告中介服务管理系统.docx》由会员分享，可在线阅读，更多相关《软件开发总结报告中介服务管理系统.docx（39页珍藏版）》请在冰点文库上搜索。
软件开发总结报告中介服务管理系统
软件开发总结报告-中介服务管理系统
摘要
MicrosoftVisualBasic是一种面向过程的高级语言，在事务处理方面有着广泛的应用，MicrosoftAccess则是一款针对中小型数据开发的办公软件，基于VisualBasic和Access数据库编写的应用软件具有良好的人机界面、便捷的操作功能，能够较好的实现一般数据查询和管理要求。
“曙光”中介服务管理系统是基于此开发一款小型应用软件，主要针对面向家教、兼职服务的小型中介单位，提供关于家教、求职等方面的快速信息查询以及基本的管理服务，可在各种Windows系统下运行。
本文在系统概述部分讲解了系统的功能模块及采取的基本设计方法，并在功能描述部分举例说明了具体的操作功能及操作方法，程序设计部分列写了的详细的程序代码。
系统基本满足了兼职中介的基本功能需要，能够为中介单位实现信息的计算机化管理提供切实的便利。
本系统界面友好、操作简单，对家教、求职等信息提高了查询速度、加强了管理，使数据更完善，管理更规范。
关键字：
MDI窗体数据库信息查询信息管理模块化
“曙光”中介服务管理系统设计
一、系统概述
“曙光”中介服务管理系统基于VisualBasic语言，Access数据库设计，采用MDI（多文档界面）窗体设计，可在一个主窗体下同时操作多个子窗体，视图操作菜单方便了用户的多窗体管理。
系统主要分为教师信息管理、教师信息查询、学生信息管理、学生信息查询、招聘信息管理、招聘信息查询、求职信息管理、求职信息查询等八大模块，在各管理模块中除可实现基本的信息添加、删除、修改外，还针对中介单位的特点设计了信息配对功能，如教师－学生配对，求职－招聘配对等。
另外，在各查询模块中设计了多种条件查询方式，可实现用户所需信息的查询，一般情况下，查询和管理功能配合使用，以更好的满足用户操作需求。
二、数据流程图
2.1流程框图
…………
2.2、主界面
三、功能描述
“曙光”中介服务管理系统各查询、管理模块功能类似，现以教师信息查询、教师信息管理两个窗体（模块）进行具体描述：
3.1教师信息查询
3.1.1说明
本系统提供了完善的信息查询功能，用户可根据需要自由选择查询条件，具体查询方式主要有按全部、学校、专业、年级以及当前状态（已/未找到学生）进行查询，默认条件下显示全部信息。
3.1.2操作举例
按学校查询：
选中“学校”单选框，输入（或从下拉列表中选择）“西北大学”，如下图。
点击“查询”按钮，显示如下：
如果没有相关信息，则对话框提示“没有找到你所需要的信息”，如下图。
单击“清空”，查询条件全部赋为空。
用户可重新选择查询条件进行查询。
3.1.3相关程序
DimrsTeaInfoAsNewADODB.Recordset'定义数据集对象"教师信息表"
PrivateSubcmdClear_Click（）'单击“清空”按钮
'清空学校、专业、年级下拉列表框
cboUnv.Clear
cboSpec.Clear
cboGrade.Clear
'重新加载窗体
Form_Load
EndSub
PrivateSubcmdSearch_Click（）'单击“查询”按钮
'根据单选按钮选择情况确定查询语句
IfoptAll=TrueThen
sqlTeachInfo="select*from教师信息表"
EndIf
IfoptFind=TrueThen
sqlTeachInfo="select*from教师信息表where当前状态='已找到学生'"
EndIf
IfoptNotfind=TrueThen
sqlTeachInfo="select*from教师信息表where当前状态='未找到学生'"
EndIf
IfoptUnv=TrueThen
sqlTeachInfo="select*from教师信息表where学校='"&cboUnv.Text&"'"
EndIf
IfoptSpec=TrueThen
sqlTeachInfo="select*from教师信息表where专业='"&cboSpec.Text&"'"
EndIf
IfoptGrade=TrueThen
sqlTeachInfo="select*from教师信息表where年级='"&cboGrade.Text&"'"
EndIf
'根据查询语句打开数据库
rsTeaInfo.OpensqlTeachInfo,conn,adOpenKeyset,adLockPessimistic
'显示表格
displaygrid
EndSub
PrivateSubForm_Load（）'加载窗体
'加载时设置窗体大小
frmTeachS.Height=6450
'设置下拉列表框内容
WithcboUnv
.Clear
.AddItem（"西安交通大学"）
……………………………
.AddItem（"陕西国防学院"）
EndWith
WithcboSpec
.Clear
.AddItem（"数学"）
…………………………
.AddItem（"航空航天"）
EndWith
WithcboGrade
.Clear
.AddItem（"本一"）
…………………………
.AddItem（"研三"）
EndWith
'加载时默认显示所有信息
sqlTeachInfo="select*from教师信息表"
rsTeaInfo.OpensqlTeachInfo,conn,adOpenKeyset,adLockPessimistic
displaygrid
EndSub
PublicSubsetgrid（）
'设置表格（行、列数、宽度等属性）
WithgrdTeaInfo
.Cols=23'23列
.FixedCols=1'固定第一列
.Rows=rsTeaInfo.RecordCount+1'行数＝记录数＋1（列表题）
.SelectionMode=flexSelectionByRow
.Col=0'第一列设为宽度500
.ColWidth（0）=500
EndWith
EndSub
PublicSubsetgridhead（）
'设置表格第一行宽度、标题
WithgrdTeaInfo
.Row=0
.Col=1
.ColWidth
（1）=800
.Text="教师编号"
…………………………
.Col=22
.ColWidth（22）=1500
.Text="备注"
EndWith
EndSub
PublicSubdisplaygrid（）
DimiAsInteger
DimjAsInteger
setgrid'设置表格行列数
setgridhead'设置表格标头
grdTeaInfo.Row=0
grdTeaInfo.Col=0
IfrsTeaInfo.RecordCount<>0Then'记录数不为0，显示表格
rsTeaInfo.MoveFirst
'第一列显示序号（记录数）
Fori=1TorsTeaInfo.RecordCount
grdTeaInfo.Row=grdTeaInfo.Row+1
grdTeaInfo.Text=Str（i）
Nexti
grdTeaInfo.Row=0
rsTeaInfo.MoveFirst
'从第一行开始逐列显示记录集内容
DoWhileNotrsTeaInfo.EOF
grdTeaInfo.Row=grdTeaInfo.Row+1
Forj=1To22
grdTeaInfo.Col=j
IfrsTeaInfo.Fields（j-1）<>""Then
grdTeaInfo.Text=rsTeaInfo.Fields（j-1）
Else:
grdTeaInfo.Text=""
EndIf
Nextj
rsTeaInfo.MoveNext
Loop
'显示完毕，关闭记录集
rsTeaInfo.Close
Else'记录数为0,显示提示，跳出
MsgBox"没有找到你所需要的信息！
"
rsTeaInfo.Close
ExitSub
EndIf
EndSub
3.2教师信息管理
教师信息管理窗体一方面显示相关教师信息以及学生信息，对教师和学生进行“配对”操作，还可对教师信息进行添加、删除、修改等操作。
3.2.1说明
加载窗体时默认显示全部教师信息和“未找到教师”的学生信息，并在右侧“教师信息清单”默认显示第一条记录的详细信息。
如果管理员点击某一条记录或通过浏览按钮（第一条、上一条、下一条、末一条）选中某条记录时，将会在右侧“教师信息清单”显示选择的记录信息。
3.2.2“配对”操作说明
当教师找到合适的学生信息时，即可选择教师信息和学生信息进行配对操作，选中的信息将高亮显示，如下图。
单击“配对”,则在右侧“教师信息清单”相关文本框中显示配对的学生信息，如下图。
单击“保存”，完成配对操作，并在“教师信息表”及“学生信息表”显示相关操作结果。
如果管理员没有选择学生记录即执行配对操作，则会提示“请单击列表选择学生信息”。
3.2.3“管理”操作说明
1.信息添加
单击“添加”，“教师信息清单”各文本框赋为空，同时“删除”、“修改”、等按钮均不可用，管理员在相应栏中输入信息，单击“保存”，完成添加操作。
在添加过程中一些信息为必填信息，如果没有填写，将会提示“请输入XXX”。
我们添加了一条“王家会”的信息。
2、信息删除
选择某条记录，单击“删除”，系统询问“是否确认删除”，单击“否”，取消操作，单击“是”，删除当前记录。
我们删除“王家会”的记录。
3、信息修改
选择某条记录，单击“编辑”，用户可对当前记录进行“修改”操作，单击“保存”完成修改操作。
我们将“王伟华”的信息记录中的专业“电子信息工程”改为“英语”。
3.2.4相关程序
DimrsTeaInfoAsNewADODB.Recordset
DimrsStuInfoAsNewADODB.Recordset
DimgetTeaMarkAsString
DimgetStuMarkAsString
DimgetTeaRowAsString
DimgetStuRowAsString
DimsqlStumarkAsString
DimstateAsString
DimNAsString
PrivateSubForm_Load（）'加载窗体
frmTeachM.Height=6450'设置窗体大小
frmTeachM.Width=11900
'加载时默认添加
cboSex.AddItem（"男"）
cboSex.AddItem（"女"）
cboState.AddItem（"未找到学生"）
cboState.AddItem（"已找到学生-待确认"）
cboState.AddItem（"已找到学生-已确认"）
'打开教师信息和“未找到教师”的学生信息记录
sqlTeainfo="select*from教师信息表"
sqlstuinfo="select*from学生信息表where当前状态="&"'未找到教师'"
rsTeaInfo.OpensqlTeainfo,conn,adOpenKeyset,adLockPessimistic
rsStuInfo.Opensqlstuinfo,conn,adOpenKeyset,adLockPessimistic
getTeaRow=1'标记第一条记录用于默认显示
N=rsTeaInfo.RecordCount'标记记录数用于显示“末一条”（最后一条）信息
setgrdTea'设置【教师信息表】行列属性
setgrdTeahead'设置【教师信息表】表头属性
displaygrdTea'显示【教师信息表】信息
getTeaMark=grdTeaInfo.TextMatrix（1,1）
displayTeaInfo'显示教师信息清单内容（默认显示第一条记录）
setgrdStu'设置“未找到教师”的【学生信息表】行列属性
setgrdStuhead'设置“未找到教师”的【学生信息表】表头属性
displaygrdStu'显示【学生信息表】信息
fraTeaInfo.Enabled=False'【教师信息清单列表框】默认不可用
cmdUpdate.Enabled=False
EndSub
PrivateSubcmdFirst_Click（）'显示第一条记录
colorClc'教师信息表第一条记录设为无色
getTeaRow=1'标记第一条记录
colorLight'教师信息表第一条记录设为高亮显示
getTeaMark=grdTeaInfo.TextMatrix（getTeaRow,1）'查询语句条件
displayTeaInfo'信息清单显示第一条信息
EndSub
PrivateSubcmdPrevious_Click（）'显示“上一条”记录
IfgetTeaRow=1Then'若当前为第一条记录，则不执行操作
ExitSub
Else
colorClc
getTeaRow=getTeaRow-1
colorLight
getTeaMark=grdTeaInfo.TextMatrix（getTeaRow,1）
displayTeaInfo
EndIf
EndSub
PrivateSubcmdNext_Click（）'显示“下一条”记录
IfgetTeaRow=NThen'若当前为最后一条记录，则不执行操作
ExitSub
Else'若当前不是最后一条记录，则逐条显示“下一条”记录
colorClc'教师信息表当前记录设为无色
getTeaRow=getTeaRow+1'下一条记录标记
colorLight'教师信息表下一条记录高亮显示
getTeaMark=grdTeaInfo.TextMatrix（getTeaRow,1）
displayTeaInfo'信息清单显示下一条记录
EndIf
EndSub
PrivateSubcmdLast_Click（）'显示末一条记录
colorClc'教师信息表最后一条记录设为无色
getTeaRow=N'标记最后一条记录
colorLight'教师信息表最后一条记录设为高亮显示
getTeaMark=grdTeaInfo.TextMatrix（getTeaRow,1）'查询语句条件
displayTeaInfo'信息清单显示第一条信息
EndSub
PrivateSubcmdPartner_Click（）'教师信息与未找到教师的学生信息配对
IfcmdPartner.Caption="配对"Then'若配对按钮为“配对”，执行配对操作
IfcboState="已找到学生"Then
MsgBox"该教师已找到学生！
",vbOKOnly'已找到学生时提醒
grdStuInfo.Enabled=True
ExitSub
EndIf
grdTeaInfo.Enabled=True'还原按钮默认设置
grdStuInfo.Enabled=False
cmdPartner.Caption="取消"
cmdAdd.Enabled=False
cmdDel.Enabled=False
cmdModify.Enabled=False
cmdUpdate.Enabled=False
IfgetStuMark=""Then'未选择学生信息提醒
MsgBox"请单击列表选择学生信息!
"
cmdPartner.Caption="配对"
cmdAdd.Enabled=True
cmdDel.Enabled=True
cmdModify.Enabled=True
ExitSub
EndIf
'查询选择的学生信息并将相关信息显示在信息清单中
sqlStumark="select*from学生信息表where学生编号='"&getStuMark&"'"
rsStuInfo.OpensqlStumark,conn,adOpenKeyset,adLockPessimistic
WithrsStuInfo
txtStuNO=.Fields（"学生编号"）
IfIsNull（.Fields（"年级"））Then
txtGrade=""
Else
txtGrade=.Fields（"年级"）
EndIf
IfIsNull（.Fields（"希望辅导科目"））Then
txtImpClass=""
Else
txtImpClass=.Fields（"希望辅导科目"）
EndIf
EndWith
rsStuInfo.Close
Else'若配对按钮为“取消”，执行取消操作
cmdPartner.Caption="配对"
grdStuInfo.Enabled=True
cmdAdd.Enabled=True
cmdDel.Enabled=True
cmdModify.Enabled=True
cmdUpdate.Enabled=True
txtStuNO=""
txtGrade=""
txtImpClass=""
EndIf
EndSub
PrivateSubcmdSave_Click（）'信息配对数据保存
'查询配对教师记录
sqlTeainfo="select*from教师信息表where教师编号='"&txtSerial&"'"
rsTeaInfo.OpensqlTeainfo,conn,adOpenKeyset,adLockPessimistic
cboState="已找到学生"
WithrsTeaInfo'修改教师记录集的相关内容
.Fields（"当前状态"）="已找到学生-待确认"
IftxtStuNO<>""Then
.Fields（"学生编号"）=txtStuNO
Else
.Fields（"学生编号"）=Null
EndIf
IftxtGrade<>""Then
.Fields（"学生年级"）=txtGrade
Else
.Fields（"学生年级"）=Null
EndIf
IftxtImpClass<>""Then
.Fields（"辅导科目"）=txtImpClass
Else
.Fields（"辅导科目"）=Null
EndIf
.Update
EndWith
rsTeaInfo.Close
WithgrdTeaInfo'修改【教师信息表】相关内容
.Row=getTeaRow
.Col=15
.Text="已找到学生-待确认"
.Col=16
.Text=txtStuNO
EndWith
'查询配对学生记录
sqlstuinfo="select*from学生信息表where学生编号='"&txtStuNO&"'"
rsStuInfo.Opensqlstuinfo,conn,adOpenKeyset,adLockPessimistic
WithrsStuInfo'修改学生记录集的相关内容
.Fields（"当前状态"）="已找到教师-待确认"
.Fields（"教师编号"）=txtSerial
.Update
EndWith
rsStuInfo.Close
WithgrdStuInfo'修改【学生信息表】相关内容
.Row=getStuRow
.Col=16
.Text="已找到教师-待确认"
.Col=17
.Text=txtSerial
EndWith
'重新查询“未找到教师”的学生记录并显示
sqlstuinfo="select*from学生信息表where当前状态="&"'未找到教师'"
rsStuInfo.Opensqlstuinfo,conn,adOpenKeyset,adLockPessimistic
setgrdStu
setgrdStuhead
displaygrdStu
grdTeaInfo.Enabled=True
grdStuInfo.Enabled=True
cmdPartner.Caption="配对"
cmdAdd.Enabled=True
cmdDel.Enabled=True
cmdModify.Enabled=True
EndSub
PrivateSubcmdAdd_Click（）'数据添加
fraTeaInfo.Enabled=True'数据添加过程【教师信息清单列表框】可用
cmdDel.Enabled=False
cmdModify.Caption="取消"'修改按钮设为“取消”
state="add"
txtSerial=""'将各文本框等设为空白
txtName=""
……………………
txtRemark=""
cmdAdd.Enable
升级会员 