X大学学生查询管理信息系统设计.docx
《X大学学生查询管理信息系统设计.docx》由会员分享，可在线阅读，更多相关《X大学学生查询管理信息系统设计.docx（14页珍藏版）》请在冰点文库上搜索。
X大学学生查询管理信息系统设计
精华大学学生查询管理信息系统设计
一．背景介绍
精华大学管理学院现设有工商管理一级学科博士学位授权点（含会计学、企业管理、技术经济与管理、旅游管理），工商管理博士后流动站，6个教科类硕士学位授权点（会计学、企业管理、技术经济与管理、旅游管理、管理科学与工程、系统工程），2个专业硕士学位授权点（MBA、EMBA），其中会计学是国家重点学科并建立了高校人文社科重点研究基地，企业管理是福建省重点学科。
师资力量
学院现有教师120名，其中教授37名，副教授42名，博士生导师20名。
现有在校博士生150多名，在校硕士生1500多名，在校本科生1800多名。
精华大学开展管理教育和研究的历史悠久。
早在1921年精华大学创建之时就成立了商学部，并设立工商企业管理科系。
此后，虽历经1953年全国院系大调整仍有会计学等重要学科一直保留下来并在改革开放后得到迅速发展。
精华大学也是我国MBA教育的先行者之一。
自1983年起，厦门大学通过中-加管理教育交流项目（CCMEP）先后派出70多位中青年教师赴加拿大各大学商学院留学、进修和研究。
1986年，成立了工商管理教育中心，开始与加拿大达尔豪西大学和圣玛丽大学联合招收培养MBA研究生，5年期间共培养了近百名MBA.1991年经国家教委批准，精华大学成为我国首批招收和培养MBA研究生的院校之一。
2002年，又成为首批可以招收培养EMBA的重点院校之一。
在2000年全国MBA培养院校教学评估中，精华大学位列第六名。
学科优势：
1、学科配置齐全；2、主流学科研究方向师资力量雄厚；3、长期积累了重视教学质量和以科研带动教学水平提高的优良传统；4、会计学与财务管理的教学科研水平国内领先。
学科特色：
1、国际化程度高，常年聘请10名以上外籍教授承担研究生专业课程的教学；2、课程设置合理，能够兼顾理论研究和应用实践的需要，与产业联系紧密，学以致用。
近年各专业博士和硕士研究生初次就业率达100%，本科会计专业初次就业率100%，工商管理初次就业率96.6%，旅游管理初次就业率87.1%.
普通MBA教育：
秋季班面向有3年工作经验的本科毕业生，分全脱产、半脱产和不脱产三种类型进行教学。
全脱产班致力于培养跨国公司所需要的IMBA，学制2年。
半脱产和不脱产的学制为3年。
春季班面向有5年工作经验的本科毕业生，分半脱产和不脱产两种类型进行教学。
EMBA教育：
EMBA研究生的报名条件是，大学本科或以上学历，有8年以上的工作经验（其中有4年以上担任大中型企业中、高层领导职务）。
学院为EMBA研究生课程配备的师资来自哈佛商学院、芝加哥大学、法国INSEAD商学院、新加坡国立大学等国外著名商学院，以及著名咨询公司的专家和精华大学的优秀教授。
二．系统目的
目前，大学学生的扩招和办学规模的扩大，使得学生管理成为一个繁重的工作。
在一个大学里，往往有成千上万的学生，学生信息的记录和查询将是一个复杂的工作，因此，建立一个学生通用的管理系统是非常必要的。
而长期以来，学生管理是依赖人工进行的，面对如此众多的学生信息，其工作量是可想而知的。
不仅仅浪费了大量的人力物力，而且由于人工管理存在着大量的不可控因素，造成了学生管理的某些不规范，使得学生管理陷入“事倍功半”的地步。
针对高校现在的学生管理弊端，根据学生管理的基本流程，实现一个学生管理信息系统。
根据高校学生管理的实际要求，结合学生管理的实际流程，本系统实现以下功能：
（1）掌握全校每个学生的基本情况。
其中包括学生编号、学生姓名、
（2）基于权限的管理。
本系统可以同时提供给管理员或者学生使用。
（3）提供灵活的浏览和查找功能。
可以查看某个系、某个班的所有学生的信息。
可以进行模糊和精确查找。
（4）可以对学生学籍进行变动管理，对学生进行添加、编辑、删除等操作。
三．系统的功能
主要模块功能说明：
在学生信息数据表中，可以利用添加、编辑、删除、刷新和关闭按钮对学生信息进行相应操作。
图1.1可视化数据管理器
图1.2数据库窗口
表1学生信息数据表结构创建
字段名称
字段类型
字段大小
索引
忽略空值
学生编号
LONG
默认
惟一、
主索引
否
学生姓名
TEXT
20
否
学生性别
TEXT
2
否
所在院系
TEXT
30
否
学生年龄
INTEGER
3
否
专业名称
TEXT
20
否
所在年级
TEXT
20
否
所在班级
TEXT
10
否
出生日期
DATE/TIME
8
否
籍贯
TEXT
30
否
家长姓名
TEXT
20
否
宿舍号码
INTEGER
3
否
宿舍电话
INTEGER
11
否
简历
MEMO
默认
否
图1.3学生信息数据表结构
图1.4窗体调用效果
图1.5窗体布局
四．系统的数据流程图或E-R图
五．系统的详细设计（主要的表单截图、主要的程序代码、表单功能文字说明）
PrivateSubCommand1_Click（）
学生信息查询窗体.Show
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）
IfmbEditFlagOrmbAddNewFlagThenExitSub
SelectCaseKeyCode
CasevbKeyEscape
cmdClose_Click
CasevbKeyEnd
cmdLast_Click
CasevbKeyHome
cmdFirst_Click
CasevbKeyUp,vbKeyPageUp
IfShift=vbCtrlMaskThen
cmdFirst_Click
Else
cmdPrevious_Click
EndIf
CasevbKeyDown,vbKeyPageDown
IfShift=vbCtrlMaskThen
cmdLast_Click
Else
cmdNext_Click
EndIf
EndSelect
EndSub
PrivateSubForm_Unload（CancelAsInteger）
Screen.MousePointer=vbDefault
EndSub
PrivateSubPrimaryCLS_MoveComplete（）
'为这个recordset显示当前记录位置
lblStatus.Caption="Record:
"&CStr（PrimaryCLS.AbsolutePosition）
EndSub
PrivateSubcmdAdd_Click（）
OnErrorGoToAddErr
PrimaryCLS.AddNew
lblStatus.Caption="添加记录"
mbAddNewFlag=True
SetButtonsFalse
ExitSub
AddErr:
MsgBoxErr.Description
EndSub
PrivateSubcmdDelete_Click（）
OnErrorGoToDeleteErr
PrimaryCLS.Delete
ExitSub
DeleteErr:
MsgBoxErr.Description
EndSub
PrivateSubcmdRefresh_Click（）
'只有多用户应用程序需要
OnErrorGoToRefreshErr
PrimaryCLS.Requery
ExitSub
RefreshErr:
MsgBoxErr.Description
EndSub
PrivateSubcmdEdit_Click（）
OnErrorGoToEditErr
lblStatus.Caption="编辑记录"
mbEditFlag=True
SetButtonsFalse
ExitSub
EditErr:
MsgBoxErr.Description
EndSub
PrivateSubcmdCancel_Click（）
OnErrorResumeNext
PrimaryCLS.Cancel
SetButtonsTrue
EndSub
PrivateSubcmdUpdate_Click（）
OnErrorGoToUpdateErr
PrimaryCLS.Update
SetButtonsTrue
ExitSub
UpdateErr:
MsgBoxErr.Description
EndSub
PrivateSubcmdClose_Click（）
UnloadMe
EndSub
PrivateSubcmdFirst_Click（）
OnErrorGoToGoFirstError
PrimaryCLS.MoveFirst
mbDataChanged=False
ExitSub
GoFirstError:
MsgBoxErr.Description
EndSub
PrivateSubcmdLast_Click（）
OnErrorGoToGoLastError
PrimaryCLS.MoveLast
mbDataChanged=False
ExitSub
GoLastError:
MsgBoxErr.Description
EndSub
PrivateSubcmdNext_Click（）
OnErrorGoToGoNextError
PrimaryCLS.MoveNext
ExitSub
GoNextError:
MsgBoxErr.Description
EndSub
PrivateSubcmdPrevious_Click（）
OnErrorGoToGoPrevError
PrimaryCLS.MovePrevious
ExitSub
GoPrevError:
MsgBoxErr.Description
EndSub
PrivateSubSetButtons（bValAsBoolean）
cmdAdd.Visible=bVal
cmdUpdate.Visible=NotbVal
cmdCancel.Visible=NotbVal
cmdDelete.Visible=bVal
cmdClose.Visible=bVal
cmdRefresh.Visible=bVal
cmdNext.Enabled=bVal
cmdFirst.Enabled=bVal
cmdLast.Enabled=bVal
cmdPrevious.Enabled=bVal
EndSub
六．总结
大学学生的扩招和办学规模的扩大，使得学生管理成为一个繁重的工作。
在一个大学里，往往有成千上万的学生，学生信息的记录和查询将是一个复杂的工作，因此，建立一个学生通用管理系统是非常必要的。
在该系统中，应该包括学生信息处理的方方面面的信息，尤其是对于学生信息的查询，将是非常重要的。
升级会员 