下载

2下载券

加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 基于VB学生管理信息系统论文

基于VB学生管理信息系统论文.doc

基于VB学生管理信息系统论文

IT工作者
2012-02-22 0人阅读 举报 0 0 暂无简介

简介:本文档为《基于VB学生管理信息系统论文doc》,可适用于IT/计算机领域

学生管理信息系统摘要:计算机技术的发展特别是网络技术的飞速发展给文档的保存和管理提供极大的方便。本论文中将软件工程的基本原理和方法应用到整个系统并对其进行需求分析提出了解决问题的具体方法。本论文软件技术部分涉及系统的开发和集成。首先论述了开发平台的搭建:前端开发工具为VisualBasic后端数据库的开发工具为Access操作系统的选择为Windows。接着论述了系统的实现包括主要功能的实现和数据库及安全的实现。总结了本次开发的经验、问题与展望。关键词:数据库VisualBasicAccessAbstract:Withtherapidlydevelopingofcomputertechnology,especiallyinthenetwork,thestorageandmanagementoffileismoreconvenientInthispaper,thebasictheoryandthemethodofthesoftprojectwereusedinthewholesystem,andbasingontheanalysisofthesystem’sdemand,themeasurewasbroughtforwardThesoftwaretechnicalpartofthisarticlediscussessystemdevelopmentandotherFirst,itdiscussesthedesignofdevelopmentterraceThefront'sdevelopmentToolisVisualBasicTheback'sdevelopmenttoolisAccessTheOperateSystemisWindowsSecond,itdiscussesthesystemrealizationItincludestherealizationofsystemmainfunction,databaseandsecurityetcthisarticlealsodiscussestheproblemandexperienceandoutlook目录第一章课题需求分析………………………………………………………第二章设计任务……………………………………………………………第三章系统分析……………………………………………………………主窗体设计框架……………………………………………………开发环境……………………………………………………………数据库设计……………………………………………………………第四章系统设计………………………………………………………………学生档案信息模块……………………………………………………班级管理功能模块……………………………………………………学生档案查询模块………………………………………………学生档案浏览模块………………………………………………课程管理模块…………………………………………………小结…………………………………………………………第五章总结………………………………………………………………致谢…………………………………………………………………………参考文献……………………………………………………………………附录…………………………………………………………………………一、课题需求分析客户要求:学生管理信息系统分为五个部分:系统管理、班级管理、学生档案管理、成绩管理、课程管理系统管理实现以下功能:添加拥有不同权限的管理员修改相应管理员的密码班级管理实现以下功能:添加新班级信息、浏览现有班级的情况快速查询某个班级信息学生档案管理实现以下功能:添加新学生档案信息、浏览现有档案信息快速查询某个学生档案信息成绩管理实现以下功能:添加学生成绩、添加考试类型、浏览学生考试成绩查询某个学生成绩课程管理实现以下功能:可查询现已开设的课程情况添加新的课程信息二设计任务学生档案管理子系统信息登记:学号,姓名,性别,出生年月班级家庭住址邮政编码联系电话,信息时间,备注浏览学生档案:修改,查找,删除,打印,浏览数据学生档案查询:姓名,学号,班级,按关键字查询系统管理添加用户:添加拥有不同权限的管理员修改密码:修改管理员的密码重新登陆:登陆失败后,再次登陆班级管理添加班级:添加新班级信息浏览班级:浏览现有班级的情况班级查询:快速查询某个班级信息三系统分析主窗体设计框架系统管理(管理员的添加及权限的授予等)学生档案管理(学生档案的添加,修改,查询等)课程管理(根据不同的班级添加与删除相应的课程,)班级管理(班级浏览,班级查询,添加班级等)成绩管理(考试类型设置,成绩添加,成绩浏览,成绩查询)开发环境结合所要开发的系统的特点学生管理信息系统将使用VisualBasic中文版作为开发工具后台数据库则采用Access。数据库设计学生管理信息系统将使用Access作为数据库管理系统。在Access中新建一个数据库其命名为xsmdb将新建的数据库放置在应用程序目录中以便调用。以下是系统所应用的表及结构。cj学生在不同时期的考试成绩信息。class学校的各个班级信息。classkecheng每个班级所开设的课程信息。xj在校学生信息时,添加的个人信息use表:学生管理系统的管理员信息kaoshileixing:考试类型,期末,其中四系统设计学生档案信息模块:以下是学生管理中学生基本情况这一模块中关于学生信息情况的设计。学生情况表窗体中控件的属性设置如下:对象属性设置说明窗体学生信息基本情况学生信息基本情况标签框LabelLabel()建立一个控件数组Caption学生代号Font隶书四号设置字体大小文本框TextText()创建一个控件数组Text空Font隶书四号DatasourceData通过data与数据库绑定DataFieldXSDH与“学生代号”字段绑定标签框LabelLabel()Caption学生姓名Font隶书四号文本框TextText()Text空Font隶书四号标签框LabelLabel()Caption性别Font隶书四号文本框TextText()Text空Font隶书四号DatasourceData通过data与数据库绑定DataFieldXB与”性别”字段绑定标签框LabelLabel()Caption系名Font隶书四号文本框TextText()Text空Font隶书四号DatasourceData通过data与数据库绑定DatafieldXM与”系名”字段绑定标签框LabelLabel()Caption专业名Font隶书四号文本框TextText()Text空Font隶书四号DatasourceData通过data与数据库绑定DatafieldZYM与”专业名”字段绑定标签框LabelLabel()Caption班名Font隶书四号文本框TextText()Text空Font隶书四号DatasourceData通过data与数据库绑定DatafieldBM与“班名”字段绑定标签框LabelLabel()Caption宿舍代号Font隶书四号文本框TextText()Text空Font隶书四号DatasourceData通过data与数据库绑定DatafieldSSDH与“宿舍代号”字段绑定标签框LabelLabel()Caption借阅代号Font隶书四号文本框TextText()Text空Font隶书四号DatasourceData通过data与数据库绑定DatafieldJYDH与“借阅代号”字段绑定标签框LabelLabel()Caption学生证号Font隶书四号文本框TextText()Text空Font隶书四号DatasourceData通过data与数据库绑定DatafieldXSZH与“学生证号”字段绑定标签框LabelLabel()Caption档案交否Font隶书四号文本框TextText()Text空Font隶书四号DatasourceData通过data与数据库绑定DatafieldDAJF与“档案交否”字段绑定班级管理功能模块功能简介:本部分主要完成对班级的管理与查询,添加新设的班级或快速查询某个班级所用到的主要控件为:控件名称属性设置说明Framecaption请选择LabelCaption年级LabelCaption班级LabelCaption教室LabelCaption年制LabelCaption专业LabelCaption班主任LabelCaption班主任备注Labelcaption班级设置DataDatabasenamerecorsourceC:luqiangxsmdbClasskecheng表DataDatabasenamerecorsourceC:luqiangxsmdbclass表DataDatabasenamerecorsourceC:luqiangxsmdb班级表DataDatabasenamerecorsourceC:luqiangxsmdb添加:DataRecordsetAddNew删除:IfDataRecordsetRecordCount=ThenMsgBox"记录已经为空!"Elsea=MsgBox("确认删除该记录吗?",,"确认框")Ifa=ThenDataRecordsetDeleteDataRecordsetMoveFirstEndIfEndIf为对班级的查询可以按照班级名称年级,专业。其代码如下:当进行点击的确定的时候:代码如下:PrivateSubCommandClick()txtsql=""IfText()Text<>""ThenIftxtsql=""Thentxtsql="年级='"Trim(Text()Text)"'"Elsetxtsql=txtsql"and年级='"Trim(Text()Text)"'"EndIfEndIfIfText()Text<>""ThenIftxtsql=""Thentxtsql="班级='"Trim(Text()Text)"'"Elsetxtsql=txtsql"and班级='"Trim(Text()Text)"'"EndIfEndIfIfText()Text<>""Thenaa=Iftxtsql=""Thentxtsql="专业='"Trim(Text()Text)"'"Elsetxtsql=txtsql"and专业='"Trim(Text()Text)"'"EndIfEndIfIftxtsql=""Thenss=MsgBox("你至少要输入一个条件以上才能查询!",,"警告")Text()SetFocusExitSubEndIftxtsql="select*fromclasswhere"txtsqlDimmrcAsADODBRecordsetSetmrc=ExecuteSQL(txtsql)IfmrcEOF=TrueThenzzz=MsgBox("对不起没有此班级的档案记录!",vbOKOnly,"查询")FormclassZOrder()FormclassText()SetFocusExitSubEndIfFormclassprintstr=txtsqlclassfind=TrueFormclassShowFormclassclassshowtitleFormclassclassshowdataFormclassCaption="班级设置查询结果"FormclassZOrder()EndSubPrivateSubFormUnload(CancelAsInteger)classfind=FalseEndSub.学生档案查询模块为对学生档案的方便查询,我们可以根据其姓名,学号,班级及姓名关键字来快速查询其代码如下:当用户进行点击确定的时候代码如下:PrivateSubCommandClick()DimaaAsIntegertxtsql=""IfTrim(Text()Text)<>""Thenaa=Iftxtsql=""Thentxtsql="xj学号='"Trim(Text()Text)"'"Elsetxtsql=txtsql"andxj学号='"Trim(Text()Text)"'"EndIfEndIfIfTrim(Text()Text)<>""Thenaa=Iftxtsql=""Thentxtsql="xj姓名='"Trim(Text()Text)"'"Elsetxtsql=txtsql"andxj姓名='"Trim(Text()Text)"'"EndIfEndIfIfTrim(Text()Text)<>""Thenaa=Iftxtsql=""Thentxtsql="xj班级='"Trim(Text()Text)"'"Elsetxtsql=txtsql"andxj班级='"Trim(Text()Text)"'"EndIfEndIfIfTrim(Text()Text)<>""Thenaa=txtsql=""txtsql="xj姓名like'"Trim(Text()Text)"'"EndIfIfaa=Thenss=MsgBox("你至少要输入一个条件以上才能查询!",,"警告")Text()SetFocusExitSubEndIfDimstrAsStringstr="select*fromxjwhere"txtsqlDimmrcAsADODBRecordsetSetmrc=ExecuteSQL(str)IfmrcEOF=TrueThenzzz=MsgBox("对不起没有此学生的档案记录!",vbOKOnly,"查询")FormZOrder()FormText()SetFocusExitSubEndIftxtsql="selectxj学号,xj姓名,xj性别,class年级,xj班级,class专业,class年制,xj出生年月,xj家庭住址,xj邮政编码,xj联系电话,xj入学时间,xj备注fromxjinnerjoinclassonxj班级=class班级where"txtsql"orderbyclass年级desc,class班级desc,xj学号desc"Formprintstr=txtsqlfind=TrueFormShow'selectxj学号,xj姓名,xj性别,class年级,xj班级,class专业,class年制,xj出生年月,xj家庭住址,xj邮政编码,xj联系电话,xj入学时间,xj备注fromxjinnerjoinclassonxj班级=class班级wherexj班级='美术一'or年级='美术一'orderbyclass年级desc,class班级desc,xj学号descFormCaption="学生档案查询结果"FormshowtitleFormshowdataEndSubPrivateSubCommandClick()UnloadMeEndSubPrivateSubFormActivate()find=TrueEndSubPrivateSubFormLostFocus()UnloadMeEndSubPrivateSubFormUnload(CancelAsInteger)find=False'FormCaption="浏览学生档案"EndSubPrivateSubTextKeyPress(IndexAsInteger,KeyAsciiAsInteger)IfKeyAscii=ThenKeyAscii=EndIfEndSub.学生档案浏览模块本部分可快速浏览学校各个班级的所有同学的档案信息对班级学生信息的整体浏览代码如下PublicprintstrAsStringPrivateDeclareFunctionSetWindowPosLib"user"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValXAsLong,ByValYAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLongPublicSubshowtitle()MSFClearDimiAsIntegerWithMSFCols=TextMatrix(,)="学号"TextMatrix(,)="姓名"TextMatrix(,)="性别"TextMatrix(,)="年级"TextMatrix(,)="班级"TextMatrix(,)="专业"TextMatrix(,)="年制"TextMatrix(,)="出生年月"TextMatrix(,)="家庭住址"TextMatrix(,)="邮政编码"TextMatrix(,)="联系电话"TextMatrix(,)="入学时间"TextMatrix(,)="备注"ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=FixedRows=Fori=ToColAlignment(i)=NextiFillStyle=flexFillSingleCol=Row=RowSel=ColSel=ColsCellAlignment=Row=EndWithEndSubPrivateSubFormActivate()Iffind=TrueThenFormZOrderEndIfIffind=TrueThenExitSubElseIfmodi=TrueThenshowdata'TreeViewDblClickmodi=FalseElsetreeEndIfEndSubPublicSubshowdata()DimjAsIntegerDimiAsIntegerDimmrcAsADODBRecordsetSetmrc=NewADODBRecordsetSetmrc=ExecuteSQL(txtsql)IfmrcEOF=FalseThenmrcMoveFirstWithMSFRows=Row=DoWhileNotmrcEOFRows=RowsFori=TomrcFieldsCountTextMatrix(Row,i)=mrcFields(i)NextiRow=RowmrcMoveNextLoopEndWithElseIffind=TrueThenFormHideFormShowzzz=MsgBox("对不起没有此学生的档案记录!",vbOKOnly,"查询")FormZOrder()FormText()SetFocusEndIfEndIfSetmrc=NothingEndSubPrivateSubFormUnload(CancelAsInteger)Iffind=TrueThenfind=FalseFormText()SetFocusEndIfEndSubPublicSubtree()TreeViewNodesClearDimnodexAsNodeDimmrcAsADODBRecordsetDimmrcAsADODBRecordsetDimstrAsStringDimaAsStringa="年级"'TreeViewLineStyle=tvwRootLinesstr="selectdistinct年级fromclassorderby年级"Setmrc=ExecuteSQL(str)str="selectdistinct年级,班级fromclassorderby年级,班级"Setmrc=ExecuteSQL(str)mrcMoveFirstDoUntilmrcEOFmrcMoveFirstSetnodex=TreeViewNodesadd(,,a,mrcFields(),,)DoWhileNotmrcEOFIfmrcFields()=mrcFields()ThenSetnodex=TreeViewNodesadd(a,tvwChild,,mrcFields(),,)EndIfmrcMoveNextLoopa=a""mrcMoveNextLoopmrcClosemrcCloseSetmrc=NothingSetmrc=NothingEndSubPrivateSubMSFClick()EndSubPrivateSubToolbarButtonClick(ByValButtonAsMSComctlLibButton)SelectCaseButtonTagCase"find"FormShowCase"modi"IfTrim(MeMSFTextMatrix(MSFRow,))=""Thensssss=MsgBox("你还没有选择记录!",vbOKOnlyvbExclamation,"警告")ExitSubElseqxstr=Executeqx()Ifqxstr="readonly"Thenss=MsgBox("对不起你是只读用户不能修改记录请与管理员联系!",vbInformationvbOKOnly,"警告")ExitSubEndIfmodi=TrueFormShowFormZOrderEndIfCase"del"DimmrcAsADODBRecordsetDimintcountAsIntegerIfTrim(MeMSFTextMatrix(MSFRow,))=""Thensssss=MsgBox("你还没有选择记录!",vbOKOnlyvbExclamation,"警告")ElseIfqxstr="readonly"Thenss=MsgBox("对不起你是只读用户不能删除记录请与管理员联系!",vbInformationvbOKOnly,"警告")ExitSubEndIfIfMsgBox("确定要删除学号为"Trim(MeMSFTextMatrix(MSFRow,))"的记录吗?"Chr()Chr()"该操作会导致该学生交费记录和成绩记录的丢失!确定吗?",vbOKCancelvbExclamation,"警告")=vbOKThenintcount=MeMSFRowtxtsql="delete*fromxjwhere学号='"Trim(MeMSFTextMatrix(MSFRow,))"'"Setmrc=ExecuteSQL(txtsql)txtsql="delete*fromjfwhere学号='"Trim(MeMSFTextMatrix(MSFRow,))"'"Setmrc=ExecuteSQL(txtsql)txtsql="delete*fromcjwhere学号='"Trim(MeMSFTextMatrix(MSFRow,))"'"Setmrc=ExecuteSQL(txtsql)TreeViewDblClickEndIfEndIf'Case"print"'FormShow'FormZOrderEndSelectEndSubPrivateSubToolbarButtonMenuClick(ByValButtonMenuAsMSComctlLibButtonMenu)SelectCaseButtonMenuKeyCase"dang"IfTrim(printstr)=""Thensssss=MsgBox("没有当前记录!",vbOKOnlyvbExclamation,"警告")ExitSubEndIfIfDataEnvrsCommandState=adStateOpenThenDataEnvrsCommandCloseEndIfDataEnvrsCommandOpenprintstrIfDataEnvrsCommandEOF=TrueThensssss=MsgBox("没有当前记录!",vbOKOnlyvbExclamation,"警告")ExitSubEndIfDataReportclassShowCase"all"IfDataEnvrsCommandState=adStateOpenThenDataEnvrsCommandCloseEndIfDataEnvrsCommandOpen("selectxj学号,xj姓名,xj性别,xj班级,xj出生年月,xj家庭住址,xj邮政编码,xj联系电话,xj入学时间,xj备注,class专业fromxjinnerjoinclassonxj班级=class班级")IfDataEnvrsCommandEOF=TrueThensssss=MsgBox("没有当前记录!",vbOKOnlyvbExclamation,"警告")ExitSubEndIfDataReportclassShowEndSelectEndSubPrivateSubTreeViewDblClick()OnErrorGoTossIfTreeViewSelectedItemIndex=ThenMSFClearExitSubEndIftxtsql=TreeViewNodesItem(TreeViewSelectedItemIndex)txtsql="selectxj学号,xj姓名,xj性别,class年级,xj班级,class专业,class年制,xj出生年月,xj家庭住址,xj邮政编码,xj联系电话,xj入学时间,xj备注fromxjinnerjoinclassonxj班级=class班级wherexj班级='"txtsql"'or年级='"txtsql"'orderbyclass年级,class班级,xj学号"printstr=txtsqlMeCaption="浏览学生档案"MeshowtitleMeshowdataExitSubss:MSFClearEndSub.课程管理模块:PrivateSubMSFClick()EndSubPrivateSubComboClick(IndexAsInteger)DimmrcAsADODBRecordsetIfIndex=Thentxtsql="selectDISTINCT专业fromclasswhere年级='"Trim(Combo()Text)"'"Setmrc=ExecuteSQL(txtsql)IfmrcEOF=TrueThenCombo()Text=""Combo()Text=""ExitSubEndIfCombo()ClearmrcMoveFirstDoUntilmrcEOFCombo()AddItemmrcFields()mrcMoveNextLoopCombo()ListIndex=txtsql="selectDISTINCT年制fromclasswhere年级='"Trim(Combo()Text)"'and专业='"Trim(Combo()Text)"'"Setmrc=ExecuteSQL(txtsql)IfmrcEOF=TrueThenCombo()Text=""ExitSubEndIfCombo()ClearmrcMoveFirstDoUntilmrcEOFCombo()AddItemmrcFields()mrcMoveNextLoopCombo()ListIndex=ElseIfIndex=Thentxtsql="selectDISTINCT年制fromclasswhere年级='"Trim(Combo()Text)"'and专业='"Trim(Combo()Text)"'"Setmrc=ExecuteSQL(txtsql)IfmrcEOF=TrueThenCombo()Text=""Combo()Text=""ExitSubEndIfCombo()ClearmrcMoveFirstDoUntilmrcEOFCombo()AddItemmrcFields()mrcMoveNextLoopCombo()ListIndex=EndIfEndSubPrivateSubComboDropDown(IndexAsInteger)IfIndex=ThenDimmrcAsADODBRecordsettxtsql="selectDISTINCT年级fromclass"Setmrc=ExecuteSQL(txtsql)mrcMoveFirstCombo()ClearDoWhileNotmrcEOFCombo()AddItemmrcFields()mrcMoveNextLoopCombo()ListIndex=EndIfEndSubPrivateSubCommandClick()qxstr=Executeqx()Ifqxstr="readonly"Thenss=MsgBox("对不起你是只读用户不能添加记录请与管理员联系!",vbInformationvbOKOnly,"警告")ExitSubEndIfIfListListCount=Thenssss=MsgBox("你还没有选择课程!",vbInformationvbOKOnly,"警告")ExitSubEndIfDimmrcAsADODBRecordsettxtsql="select*fromclasskechengwhere年级='"Trim(Combo()Text)"'and专业='"Trim(Combo()Text)"'and年制='"Trim(Combo()Text)"'and学期='"Trim(Combo()Text)"'"Setmrc=ExecuteSQL(txtsql)IfmrcEOF=FalseThensss=MsgBox("已存在该班级本学期课程设置和成绩记录"Chr()Chr()"继续会导致以上的成绩丢失,继续吗?!",vbOKCancelvbExclamation,"警告")Ifsss=vbCancelThenExitSubElsetxtsql="delete*fromclasskechengwhere年级='"Trim(Combo()Text)"'and专业='"Trim(Combo()Text)"'and年制='"Trim(Combo()Text)"'and学期='"Trim(Combo()Text)"'"Setmrc=ExecuteSQL(txtsql)txtsql="delete*fromcjwhere学号in(selectDISTINCTxj学号fromxjinnerjoinclassonxj班级=class班级where年级='"Trim(Combo()Text)"'and专业='"Trim(Combo()Text)"'and年制='"Trim(Combo()Text)"')and学期='"Trim(Combo()Text)"'"Setmrc=ExecuteSQL(txtsql)EndIfEndIftxtsql="select*fromclasskecheng"Setmrc=ExecuteSQL(txtsql)Fori=oToListListCountmrcAddNewmrcFields()=Trim(Combo()Text)mrcFields()=Trim(Combo()Text)mrcFields()=Trim(Combo()Text)mrcFields()=Trim(Combo()Text)mrcFields()=Trim(ListList(i))mrcUpdateNextissss=MsgBox("课程设置成功!",vbInformationvbOKOnly,"提示")EndSubPrivateSubCommandClick()UnloadMeEndSubPrivateSubCommandClick()DimiAsIntegeri=DoWhilei<ListListCountIfListSelected(i)=TrueThenListAddItemListList(i)ListRemoveItemiElsei=iEndIfLoopIfListListCount=ThenCommandEnabled=FalseEndIfIfListListCount<>ThenCommandEnabled=TrueEndIfEndSubPrivateSubCommandClick()DimiAsIntegeri=DoWhilei<ListListCountIfListSelected(i)=TrueThenListAddItemListList(i)ListRemoveItemiElsei=iEndIfLoopIfListListCount<>ThenCommandEnabled=TrueEndIfIfListListCount=ThenCommandEnabled=FalseEndIfEndSubPrivateSubFormLoad()DimmrcAsADODBRecordsettxtsql="selectDISTINCT年级fromclass"Setmrc=ExecuteSQL(txtsql)mrcMoveFirstCombo()ClearDoWhileNotmrcEOFCombo()AddItemmrcFields()mrcMoveNextLoopC

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/26

基于VB学生管理信息系统论文

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利