软件开发总结报告中介服务管理系统.docx
- 文档编号:6055413
- 上传时间:2023-05-09
- 格式:DOCX
- 页数:39
- 大小:1.23MB
软件开发总结报告中介服务管理系统.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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 软件 开发 总结报告 中介 服务 管理 系统