软件开发总结报告中介服务管理系统Word格式文档下载.docx
- 文档编号:7845599
- 上传时间:2023-05-09
- 格式:DOCX
- 页数:39
- 大小:1.23MB
软件开发总结报告中介服务管理系统Word格式文档下载.docx
《软件开发总结报告中介服务管理系统Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《软件开发总结报告中介服务管理系统Word格式文档下载.docx(39页珍藏版)》请在冰点文库上搜索。
教师信息表"
PrivateSubcmdClear_Click()'
单击“清空”按钮
'
清空学校、专业、年级下拉列表框
cboUnv.Clear
cboSpec.Clear
cboGrade.Clear
重新加载窗体
Form_Load
EndSub
PrivateSubcmdSearch_Click()'
单击“查询”按钮
'
根据单选按钮选择情况确定查询语句
IfoptAll=TrueThen
sqlTeachInfo="
select*from教师信息表"
EndIf
IfoptFind=TrueThen
select*from教师信息表where当前状态='
已找到学生'
"
IfoptNotfind=TrueThen
未找到学生'
IfoptUnv=TrueThen
select*from教师信息表where学校='
&
cboUnv.Text&
"
IfoptSpec=TrueThen
select*from教师信息表where专业='
cboSpec.Text&
IfoptGrade=TrueThen
select*from教师信息表where年级='
cboGrade.Text&
根据查询语句打开数据库
rsTeaInfo.OpensqlTeachInfo,conn,adOpenKeyset,adLockPessimistic
显示表格
displaygrid
PrivateSubForm_Load()'
加载窗体
加载时设置窗体大小
frmTeachS.Height=6450
设置下拉列表框内容
WithcboUnv
.Clear
.AddItem("
西安交通大学"
)
……………………………
陕西国防学院"
EndWith
WithcboSpec
数学"
…………………………
航空航天"
WithcboGrade
本一"
研三"
加载时默认显示所有信息
PublicSubsetgrid()
设置表格(行、列数、宽度等属性)
WithgrdTeaInfo
.Cols=23'
23列
.FixedCols=1'
固定第一列
.Rows=rsTeaInfo.RecordCount+1'
行数=记录数+1(列表题)
.SelectionMode=flexSelectionByRow
.Col=0'
第一列设为宽度500
.ColWidth(0)=500
PublicSubsetgridhead()
设置表格第一行宽度、标题
.Row=0
.Col=1
.ColWidth
(1)=800
.Text="
教师编号"
.Col=22
.ColWidth(22)=1500
备注"
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
从第一行开始逐列显示记录集内容
DoWhileNotrsTeaInfo.EOF
Forj=1To22
grdTeaInfo.Col=j
IfrsTeaInfo.Fields(j-1)<
Then
grdTeaInfo.Text=rsTeaInfo.Fields(j-1)
Else:
grdTeaInfo.Text="
Nextj
rsTeaInfo.MoveNext
Loop
显示完毕,关闭记录集
rsTeaInfo.Close
Else'
记录数为0,显示提示,跳出
MsgBox"
没有找到你所需要的信息!
ExitSub
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
frmTeachM.Height=6450'
设置窗体大小
frmTeachM.Width=11900
加载时默认添加
cboSex.AddItem("
男"
女"
cboState.AddItem("
未找到学生"
已找到学生-待确认"
已找到学生-已确认"
打开教师信息和“未找到教师”的学生信息记录
sqlTeainfo="
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
PrivateSubcmdFirst_Click()'
显示第一条记录
colorClc'
教师信息表第一条记录设为无色
标记第一条记录
colorLight'
教师信息表第一条记录设为高亮显示
getTeaMark=grdTeaInfo.TextMatrix(getTeaRow,1)'
查询语句条件
信息清单显示第一条信息
PrivateSubcmdPrevious_Click()'
显示“上一条”记录
IfgetTeaRow=1Then'
若当前为第一条记录,则不执行操作
Else
colorClc
getTeaRow=getTeaRow-1
colorLight
getTeaMark=grdTeaInfo.TextMatrix(getTeaRow,1)
displayTeaInfo
PrivateSubcmdNext_Click()'
显示“下一条”记录
IfgetTeaRow=NThen'
若当前为最后一条记录,则不执行操作
若当前不是最后一条记录,则逐条显示“下一条”记录
教师信息表当前记录设为无色
getTeaRow=getTeaRow+1'
下一条记录标记
教师信息表下一条记录高亮显示
信息清单显示下一条记录
PrivateSubcmdLast_Click()'
显示末一条记录
教师信息表最后一条记录设为无色
getTeaRow=N'
标记最后一条记录
教师信息表最后一条记录设为高亮显示
PrivateSubcmdPartner_Click()'
教师信息与未找到教师的学生信息配对
IfcmdPartner.Caption="
配对"
Then'
若配对按钮为“配对”,执行配对操作
IfcboState="
已找到学生"
该教师已找到学生!
vbOKOnly'
已找到学生时提醒
grdStuInfo.Enabled=True
grdTeaInfo.Enabled=True'
还原按钮默认设置
grdStuInfo.Enabled=False
cmdPartner.Caption="
取消"
cmdAdd.Enabled=False
cmdDel.Enabled=False
cmdModify.Enabled=False
IfgetStuMark="
未选择学生信息提醒
请单击列表选择学生信息!
cmdAdd.Enabled=True
cmdDel.Enabled=True
cmdModify.Enabled=True
查询选择的学生信息并将相关信息显示在信息清单中
sqlStumark="
select*from学生信息表where学生编号='
getStuMark&
rsStuInfo.OpensqlStumark,conn,adOpenKeyset,adLockPessimistic
WithrsStuInfo
txtStuNO=.Fields("
学生编号"
IfIsNull(.Fields("
年级"
))Then
txtGrade="
txtGrade=.Fields("
希望辅导科目"
txtImpClass="
txtImpClass=.Fields("
rsStuInfo.Close
若配对按钮为“取消”,执行取消操作
cmdUpdate.Enabled=True
txtStuNO="
PrivateSubcmdSave_Click()'
信息配对数据保存
查询配对教师记录
select*from教师信息表where教师编号='
txtSerial&
cboState="
WithrsTeaInfo'
修改教师记录集的相关内容
.Fields("
当前状态"
)="
IftxtStuNO<
)=txtStuNO
)=Null
IftxtGrade<
学生年级"
)=txtGrade
IftxtImpClass<
辅导科目"
)=txtImpClass
.Update
WithgrdTeaInfo'
修改【教师信息表】相关内容
.Row=getTeaRow
.Col=15
.Col=16
.Text=txtStuNO
查询配对学生记录
txtStuNO&
WithrsStuInfo'
修改学生记录集的相关内容
已找到教师-待确认"
)=txtSerial
WithgrdStuInfo'
修改【学生信息表】相关内容
.Row=getStuRow
.Col=17
.Text=txtSerial
重新查询“未找到教师”的学生记录并显示
setgrdStu
setgrdStuhead
displaygrdStu
grdTeaInfo.Enabled=True
PrivateSubcmdAdd_Click()'
数据添加
fraTeaInfo.Enabled=True'
数据添加过程【教师信息清单列表框】可用
cmdModify.Caption="
修改按钮设为“取消”
state="
add"
txtSerial="
将各文本框等设为空白
txtName="
……………………
txtRemark="
cmdAdd.Enable
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 软件 开发 总结报告 中介 服务 管理 系统