下载

1下载券

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

上传资料

关闭

关闭

关闭

封号提示

内容

首页 学生信息管理系统(VB版)

学生信息管理系统(VB版).doc

学生信息管理系统(VB版)

yuhang8910
2012-02-12 0人阅读 举报 0 0 暂无简介

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

课程设计VB课程设计报告系别:计算机科学与技术系专业(班级):作者(学号):指导教师:完成日期:年月日教务处制题目:学生信息管理系统的实现内容摘要:学生信息管理系统主要包括班级管理信息的输入、查询、修改学校基本课程信息的输入、修改学生课程信息的设置和修改学生成绩信息的输入、修改、查询以及统计。目录需求分析概要设计详细设计测试附录或参考资料:需求分析随着学校规模的不断扩大学生的数量急剧增加有关学生的各种信息管理也成倍增长。而对于庞大的信息量就需要有学生信息管理系统来提高学生管理工作的效率取代从前的手工操作。基于今后计算机的网路普及以及方便实现用户阅读及统一查询所以使用SQLserver做数据库系统使用VisualBasic作为前台处理软件。()系统分析a系统功能分析班级管理信息的输入包括班级设置、年级的设置等班级管理信息管理的查询班级管理信息的修改学校基本课程信息的输入基本课程信息的修改学生课程信息的设置和修改学生成绩信息的输入学生成绩信息的修改学生成绩信息的查询学生成绩信息的统计。b系统功能模块分析上述各功能的系统功能模块图如下:()数据库分析数据库在一个信息管理系统中占有非常重要的地位数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可提高数据存储的效率保证数据的完整和一致。同时合理的数据库结构也将有利于程序的实现。数据库需求分析用户的需求具体体现在各种信息的提供、保证、更新和查询这就要求数据库结构能够充分满足各种信息的输出和输入。针对一般学生信息管理系统的要求通过对学生学习过程的内容和数据流程分析设计如下的数据项和数据结构:a.学生基本信息:包括的数据项有:学生学号、学生姓名、性别、出身日期、班号、联系电话、入校日期、家庭地址、备注等。b.班级信息:包括的数据项有:班号、所在年级、班主任姓名、所在教室等。c.课程基本信息:包括的数据项有:课程号、课程名称、课程类别、课程描述等。d.课程设置信息:包括数据项有:年级信息、所学课程等。e.学生成绩信息:包括数据项有:考试编号、所在班号、学生学号、学生姓名、所学课程、考试分数等。根据上面的数据结构、数据项和数据流程进行一下的数据库设计。概要设计()数据库设计利用SQLserver数据库系统中的SQl企业管理器建立数据库studentsql文件数据库名为:student在student数据库中创建个表分别为:学生基本信息表、班级基本信息表、课程基本信息表、年级课程基本信息表、学生成绩信息表、系统用户表。()系统设计用VisualBasic来编写数据库系统客户端程序即学生信息管理系统中各功能模块。该系统包括:工程文件StudentMisvbp标准模块文件Modulebas主窗体文件frmMainfrm登陆窗体文件frmLoginfrm添加用户窗体文件frmAdduserfrm。修改用户密码窗体文件frmModifyuserinfofrm添加学籍信息窗体文件frmAddsinfofrm修改学籍信息窗体文件frmModifysinfofrm查询学籍信息窗体文件frmInquiresinfofrm添加班级信息窗体文件frmAddclassinfofrm修改班级信息窗体文件frmModifyclassinfofrm添加课程信息窗体文件frmAddcourseinfofrm修改课程信息窗体文件frmModifycourseinfofrm设置年级课程窗体文件frmSetcourseinfofrm添加成绩信息窗体文件frmAddresultfrm修改成绩窗体文件frmModifyresultfrm查询成绩信息窗体文件frmInquireresultfrm。详细设计()数据库设计a.数据库概念结构设计得到数据项和数据结构后设计出能够满足用户需求的各种实体以及它们之间的关系。这些实体包括具体信息通过相互之间的作用形成数据段流动。设计规划出的实体有:年级实体、学生实体、课程实体。各个实体具体的描述及关系的ER图如下图所示。b.数据库逻辑结构设计学生信息管理系统数据库中各表设计结果如图~所示。每个表格表示在数据库中的一个表。表studentinfo学生基本信息表表classinfo班级信息表表courseinfo课程基本信息表gradecourseinfo年级课程设计表格表resultinfo学生成绩信息表表userinfo系统用户表()系统设计学生信息管理系统主窗体的创建a创建一个工程名为StudentMis的工程文件StudentMisvbp。b创建学生信息管理系统的主窗体MID窗体窗体名为frmMain窗体文件名为:frmMainfrm。c创建主窗体的菜单。主窗体表菜单结果表对象属性属性值对象属性属性值主菜单项名称sysMenu子菜单项名称modifycionfoMenu标题系统标题修改班级信息子菜单项名称adduserMenu主菜单项名称courseMenu标题添加用户标题课程设置子菜单项名称modifypwdMenu子菜单项名称addcourseMenu标题修改密码标题添加课程设计子菜单项名称exitMenu子菜单项名称modifycourseMenu标题退出系统标题主菜单项名称sinfoMenu子菜单项名称gradecourseMenu标题学籍信息标题设计年级课程子菜单项名称addsinfoMenu主菜单项名称resultMenu标题添加学籍信息标题成绩管理子菜单项名称modifysinfoMenu子菜单项名称addresultMenu标题修改学籍信息标题添加成绩信息子菜单项名称inquiresinfoMenu子菜单项名称modifyresultMenu标题查询学籍信息标题修好学籍信息主菜单项名称classinfoMenu子菜单项名称inquireresultMenu标题班级管理标题查询成绩信息子菜单项名称addcinfoMenu标题添加班级信息学生信息管理系统主窗体代码如下:PrivateSubMDIFormLoad()MeLeft=GetSetting(AppTitle,"Settings","MainLeft",)MeTop=GetSetting(AppTitle,"Settings","MainTop",)MeWidth=GetSetting(AppTitle,"Settings","MainWidth",)MeHeight=GetSetting(AppTitle,"Settings","MainHeight",)EndSubPrivateSubMDIFormUnload(CancelAsInteger)IfMeWindowState<>vbMinimizedThenSaveSettingAppTitle,"Settings","MainLeft",MeLeftSaveSettingAppTitle,"Settings","MainTop",MeTopSaveSettingAppTitle,"Settings","MainWidth",MeWidthSaveSettingAppTitle,"Settings","MainHeight",MeHeightEndIfEndSubPrivateSubmodifycinfoMenuClick()frmModifyclassinfoShowEndSubPrivateSubmodifycourseMenuClick()frmModifycourseinfoShowEndSubPrivateSubmodifypwdMenuClick()frmModifyuserinfoShowEndSubPrivateSubmodifyresultMenuClick()frmModifyresultShowEndSubPrivateSubmodifysinfoMenuClick()frmModifysinfoShowEndSubd.创建公共模块。在工程资源管理器中为项目添加一个名称为Module的标准模块文件Modulebas。代码如下:PublicfMainFormAsfrmMainPublicUserNameAsStringSubMain()DimfLoginAsNewfrmLoginfLoginShowvbModalIfNotfLoginOKThen'LoginFailedsoexitappEndEndIfUnloadfLoginSetfMainForm=NewfrmMainfMainFormShowEndSubPublicFunctionConnectString()AsString'returnsaDBConnectStringConnectString="FileDSN=studentinfodsn"EndFunctionPublicFunctionExecuteSQL(ByValSQLAsString,MsgStringAsString)AsADODBRecordset'executesSQLandreturnsRecordsetDimcnnAsADODBConnectionDimrstAsADODBRecordsetDimsTokens()AsStringOnErrorGoToExecuteSQLErrorsTokens=Split(SQL)Setcnn=NewADODBConnectioncnnOpenConnectStringIfInStr("INSERT,DELETE,UPDATE",UCase$(sTokens()))ThencnnExecuteSQLMsgString=sTokens()"querysuccessful"ElseSetrst=NewADODBRecordsetrstOpenTrim$(SQL),cnn,adOpenKeyset,adLockOptimistic'rstMoveLast'getRecordCountSetExecuteSQL=rstMsgString="查询到"rstRecordCount"条记录"EndIfExecuteSQLExit:Setrst=NothingSetcnn=NothingExitFunctionExecuteSQLError:MsgString="查询错误:"ErrDescriptionResumeExecuteSQLExitEndFunctionPublicFunctionTesttxt(txtAsString)AsBooleanIfTrim(txt)=""ThenTesttxt=FalseElseTesttxt=TrueEndIfEndFunction.系统用户管理模块的创建a.系统用户管理模块主页实现:用户登陆用户添加修改用户密码用户登陆窗体的创建。进入系统后出现如图所示用户登陆窗体用户首先输入用户名然后输入密码。如果用户次输入密码不正确将退出程序。图代码如下:OptionExplicitPublicOKAsBoolean'记录确定次数DimmiCountAsIntegerPrivateSubFormLoad()OK=FalsemiCount=EndSubPrivateSubcmdCancelClick()OK=FalseMeHideEndSubPrivateSubcmdOKClick()DimtxtSQLAsStringDimmrcAsADODBRecordsetDimMsgTextAsString'ToDo:createtestforcorrectpassword'checkforcorrectpasswordUserName=""IfTrim(txtUserNameText="")ThenMsgBox"没有这个用户请重新输入用户名!",vbOKOnlyvbExclamation,"警告"txtUserNameSetFocusElsetxtSQL="select*fromuserInfowhereuserID='"txtUserNameText"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=TrueThenMsgBox"没有这个用户请重新输入用户名!",vbOKOnlyvbExclamation,"警告"txtUserNameSetFocusElseIfTrim(mrcFields())=Trim(txtPasswordText)ThenOK=TruemrcCloseMeHideUserName=Trim(txtUserNameText)ElseMsgBox"输入密码不正确请重新输入!",vbOKOnlyvbExclamation,"警告"txtPasswordSetFocustxtPasswordText=""EndIfEndIfEndIfmiCount=miCountIfmiCount=ThenMeHideEndIfExitSubEndSub用户添加窗体的创建。进入系统后选择菜单“系统|添加用户”就可以添加用户会出现如图所示的窗体。图代码如下:PrivateSubcmdCancelClick()UnloadMeEndSubPrivateSubcmdOKClick()DimtxtSQLAsStringDimmrcAsADODBRecordsetDimMsgTextAsStringIfTrim(Text()Text)=""ThenMsgBox"请输入用户名称!",vbOKOnlyvbExclamation,"警告"ExitSubText()SetFocusElsetxtSQL="select*fromuserInfo"Setmrc=ExecuteSQL(txtSQL,MsgText)While(mrcEOF=False)IfTrim(mrcFields())=Trim(Text())ThenMsgBox"用户已经存在请重新输入用户名!",vbOKOnlyvbExclamation,"警告"Text()SetFocusText()Text=""Text()Text=""Text()Text=""ExitSubElsemrcMoveNextEndIfWendEndIfIfTrim(Text()Text)<>Trim(Text()Text)ThenMsgBox"两次输入密码不一样请确认!",vbOKOnlyvbExclamation,"警告"Text()SetFocusText()Text=""Text()Text=""ExitSubElseIfText()Text=""ThenMsgBox"密码不能为空!",vbOKOnlyvbExclamation,"警告"Text()SetFocusText()Text=""Text()Text=""ElsemrcAddNewmrcFields()=Trim(Text()Text)mrcFields()=Trim(Text()Text)mrcUpdatemrcCloseMeHideMsgBox"添加用户成功!",vbOKOnlyvbExclamation,"添加用户"EndIfEndIfEndSub修改用户密码窗体的创建。用户可以修改自己的密码选择“系统|修改密码”出现如图所示在这个窗体中放置看两个文本框用来输入密码和确认密码。图代码如下:PrivateSubcmdCancelClick()UnloadMeEndSubPrivateSubcmdOKClick()DimtxtSQL,MsgTextAsStringDimmrcAsADODBRecordsetIfTrim(Text()Text)<>Trim(Text()Text)ThenMsgBox"密码输入不正确!",vbOKOnlyvbExclamation,"警告"Text()SetFocusText()Text=""ElsetxtSQL="select*fromuserInfowhereuserID='"UserName"'"Setmrc=ExecuteSQL(txtSQL,MsgText)mrcFields()=Text()TextmrcUpdatemrcCloseMsgBox"密码修改成功!",vbOKOnlyvbExclamation,"修改密码"MeHideEndIfEndSub.学籍管理模块的创建学籍信息管理主题实现如下功能:添加学籍信息修改学籍信息查询学校信息。添加学籍信息窗体的创建。选择“学籍管理|添加学籍信息”菜单将出现如图所示的窗体。图代码如下:PrivateSubCommandClick()DimmrcAsADODBRecordsetDimtxtSQLAsStringDimMsgTextAsStringifNotTesttxt(txtSIDText)ThenMsgBox"请输入学号!",vbOKOnlyvbExclamation,"警告"txtSIDSetFocusExitSubEndIfIfNotTesttxt(txtNameText)ThenMsgBox"请输入姓名!",vbOKOnlyvbExclamation,"警告"txtNameSetFocusExitSubEndIfIfNotTesttxt(comboSexText)ThenMsgBox"请选择性别!",vbOKOnlyvbExclamation,"警告"comboSexSetFocusExitSubEndIfIfNotTesttxt(txtBorndateText)ThenMsgBox"请输入出生日期!",vbOKOnlyvbExclamation,"警告"txtBorndateSetFocusExitSubEndIfIfNotTesttxt(comboClassnoText)ThenMsgBox"请选择班号!",vbOKOnlyvbExclamation,"警告"comboClassnoSetFocusExitSubEndIfIfNotTesttxt(txtTelText)ThenMsgBox"请输入联系电话!",vbOKOnlyvbExclamation,"警告"txtTelSetFocusExitSubEndIfIfNotTesttxt(txtRudateText)ThenMsgBox"请输入入校日期!",vbOKOnlyvbExclamation,"警告"txtRudateSetFocusExitSubEndIfIfNotTesttxt(txtAddressText)ThenMsgBox"请输入家庭住址!",vbOKOnlyvbExclamation,"警告"txtAddressSetFocusExitSubEndIfIfNotIsNumeric(Trim(txtSIDText))ThenMsgBox"请输入数字!",vbOKOnlyvbExclamation,"警告"ExitSubtxtSIDSetFocusEndIftxtSQL="select*fromstudentInfowherestudentID='"Trim(txtSIDText)"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThenMsgBox"学号重复请重新输入!",vbOKOnlyvbExclamation,"警告"mrcClosetxtSIDSetFocusElsemrcCloseIfNotIsDate(txtBorndateText)ThenMsgBox"出生时间应输入日期格式(yyyymmdd)!",vbOKOnlyvbExclamation,"警告"txtBorndateSetFocusElsetxtBorndate=Format(txtBorndate,"yyyymmdd")IfNotIsDate(txtRudateText)ThenMsgBox"入校时间应输入日期格式(yyyymmdd)!",vbOKOnlyvbExclamation,"警告"txtRudateSetFocusElsetxtRudate=Format(txtRudate,"yyyymmdd")txtSQL="select*fromstudentInfo"Setmrc=ExecuteSQL(txtSQL,MsgText)mrcAddNewmrcFields()=Trim(txtSIDText)mrcFields()=Trim(txtNameText)mrcFields()=Trim(comboSexText)mrcFields()=Trim(txtBorndateText)mrcFields()=Trim(comboClassnoText)mrcFields()=Trim(txtTelText)mrcFields()=Trim(txtRudateText)mrcFields()=Trim(txtAddressText)mrcFields()=Trim(txtCommentText)mrcUpdateMsgBox"添加学籍信息成功!",vbOKOnlyvbExclamation,"警告"mrcCloseMeHideEndIfEndIfEndIfEndSubPrivateSubCommandClick()UnloadMeEndSubPrivateSubFormLoad()DimmrcAsADODBRecordsetDimtxtSQLAsStringDimMsgTextAsStringDimiAsIntegercomboSexAddItem"男"comboSexAddItem"女"txtSQL="select*fromclassInfo"Setmrc=ExecuteSQL(txtSQL,MsgText)Fori=TomrcRecordCountcomboClassnoAddItemmrcFields()mrcMoveNextNextimrcCloseEndSub修改学籍信息窗体的创建。选择“学籍管理|修改学籍信息”菜单将会出现如图所示的窗体。这个窗体在添加学籍信息窗体的基础上增加了两排按钮。图代码略。查询学籍信息窗体的建立。选择“学籍管理|查询学籍信息”菜单将出现如图所示的窗体。这里可以按照各种方式以及它们的组合进行查询。图代码略。.班级管理模块的创建班级管理模块主要实现如下功能:添加班级信息修改班级信息。添加班级信息窗体的创建。选择“班级管理|添加班级信息”菜单将出现如图所示的窗体。图窗体中各个表的控件属性设置见下表:控件属性属性取值控件属性属性取值FrmAddclassinfo(Form)NameFrmAddclassinfoLabelCaption班号Caption添加班级信息CommandNameCommandMIDChildTrueCaption退出按钮txtClassnoNametxtClassnoLabelCaption年级comboGradeNamecomboGradeLabelCaption班主任txtDirectorNametxtDirectorLabelCaption教室txtClassroomNametxtClassroomCommandNameCommandCaption确定添加输入完内容单击按钮“确认添加”触发Click事件添加内容到数据库。代码如下:PrivateSubCommandClick()DimmrcAsADODBRecordsetDimMsgTextAsStringDimtxtSQLAsStringIfNotTesttxt(txtClassnoText)ThenMsgBox"请输入班号!",vbOKOnlyvbExclamation,"警告"txtClassnoSetFocusExitSubEndIfIfNotTesttxt(comboGradeText)ThenMsgBox"请选择年级!",vbOKOnlyvbExclamation,"警告"comboGradeSetFocusExitSubEndIfIfNotTesttxt(txtDirectorText)ThenMsgBox"请输入班主任姓名!",vbOKOnlyvbExclamation,"警告"txtDirectorSetFocusExitSubEndIfifNotTesttxt(txtClassroomText)ThenMsgBox"请输入教室房间号!",vbOKOnlyvbExclamation,"警告"txtClassroomSetFocusExitSubEndIfIfNotIsNumeric(Trim(txtClassnoText))ThenMsgBox"请输入数字!",vbOKOnlyvbExclamation,"警告"ExitSubtxtClassnoSetFocusEndIftxtSQL="select*fromclassInfo"Setmrc=ExecuteSQL(txtSQL,MsgText)mrcMoveFirstWhile(mrcEOF=False)If(Trim(mrcFields())=Trim(txtClassnoText))ThenMsgBox"班号已经存在请重新输入班号!",vbOKOnlyvbExclamation,"警告"ExitSubtxtClassnoText=""txtClassnoSetFocusElsemrcMoveNextEndIfWendmrcAddNewmrcFields()=Trim(txtClassnoText)mrcFields()=Trim(comboGradeText)mrcFields()=Trim(txtDirectorText)mrcFields()=Trim(txtClassroomText)mrcUpdatemrcCloseMsgBox"添加班级信息成功!",vbOKOnlyvbExclamation,"添加班级信息"EndSubPrivateSubCommandClick()UnloadMeEndSubPrivateSubFormLoad()comboGradeAddItem"初中一年级"comboGradeAddItem"初中二年级"comboGradeAddItem"初中三年级"comboGradeAddItem"高中一年级"comboGradeAddItem"高中二年级"comboGradeAddItem"高中三年级"EndSub.课程设置模块的创建课程设置模块主要实现如下功能:添加课程信息修改课程信息设置年级课程。添加课程信息窗体的创建。选择“课程设置|添加课程信息”菜单将出现如图所示的窗体。图单击“确定添加”按钮添加班级信息。单击“取消添加”将退出程序。代码可以参照上面的添加班级信息修改课程信息窗体的创建。选择“课程设置|修改课程信息”菜单将出现如图所示的窗体。图查看课程信息和修改基础信息框架中的按钮的功能方法前面已经介绍过参照前面的内容。设置年级课程窗体的创建。选择菜单“课程设置|设置年级课程”将出现如图所示的窗体。图窗体中各个控件的属性如下表:控件属性属性取值控件属性属性取值frmSetcourseinfo(From)NamefrmSetcourseinfocmdModifyNamecmdModifyCaption设置年级课程信息Caption确认设置MIDChildTruecmdAddNamecmdAddcomboGradeNamecomboGradeCaption>listAllcourseNamelistAllcoursecmdDeleteNamecmdDeletelistSelectcourseNamelistSelectcourseCaption<cmdSetNamecmdSetLabelCaption选择年级:Caption设置课程LabelCaption所有课程:LabelCaption已经选择程主要代码如下:PrivateSubcmdModifyClick()DimiAsIntegerDimmrcAsADODBRecordsetDimmrccAsADODBRecordsetDimtxtSQLAsStringDimMsgTextAsStringDimmyBookmarkAsVariantIfNotTesttxt(comboGradeText)ThenMsgBox"请先选择年级!",vbOKOnlyvbExclamation,"警告"ExitSubEndIfIfNotTesttxt(listSelectcourseList())ThenMsgBox"请选择课程!",vbOKOnlyvbExclamation,"警告"ExitSubEndIftxtSQL="select*fromgradecourseInfowheregrade='"Trim(comboGradeText)"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOFThenFori=TolistSelectcourseListCountmrcAddNewmrcFields()=comboGradeTextmrcFields()=listSelectcourseList(i)mrcUpdateNextimrcCloseMsgBox"课程设置成功!",vbOKOnlyvbExclamation,"警告"ElsemrcClosetxtSQL="deletefromgradecourseInfowheregrade='"Trim(comboGradeText)"'"Setmrcc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromgradecourseInfo"Setmrcc=ExecuteSQL(txtSQL,MsgText)Fori=TolistSelectcourseListCountmrccAddNewmrccFields()=comboGradeTextmrccFields()=listSelectcourseList(i)mrccUpdateNextimrccCloseMsgBox"课程设置成功!",vbOKOnlyvbExclamation,"警告"EndIfEndSub单击“确认设置”按钮将课程设置数据保存到数据库中。单击“退出课程设置”按钮将退出。.成绩管理模块的创建成绩管理模块主要实现如下功能:添加成绩信息修改成绩信息查询成绩信息。添加成绩信息窗体的创建。选择“成绩管理|添加成绩信息”菜单将出现如图所示的窗体。图控件属性及代码和前面大部分窗体一样。修改成绩信息窗体的创建。如图图控件属性及代码和前面大部分窗体一样。查询成绩信息窗体的创建。如图所示图控件属性的设置以及代码和查询学籍信息窗体的内容一样。测试结果()连接数据库。建立数据源:控制面板管理工具数据源文件DSN添加SQLServer下一步在浏览框内填写数据源名称(必须和模块中写数据源一致)下一步服务器选择“(Local)”下一步更改默认数据库为student数据库下一步完成。()测试。首先用查询分析器在studnet数据库的userinfo表中写入用户名和密码用来登陆。然后登陆学生信息管理系统进行添加用户、查询用户等测试。附录或参考资料参考资料:《VisualBasic程序设计》(安徽大学出版社)《VisualBasic程序设计上机实验》(安徽大学出版社)

用户评价(0)

关闭

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

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

提示

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

文档小程序码

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

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/24

学生信息管理系统(VB版)

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利