《学生信息管理系统（VB版）》由会员分享，可在线阅读，更多相关《学生信息管理系统（VB版）（24页珍藏版）》请在金锄头文库上搜索。
1、课程设计 VB 课程设计报告系 别 ： 计算机科学与技术系专 业 （ 班 级 ） ： 作 者 （ 学 号 ） ： 指 导 教 师 ： 完 成 日 期 ： 2008 年 12 月 20 日教务处制 题目: 学生信息管理系统的实现内容摘要：学生信息管理系统主要包括班级管理信息的输入、查询、修改；学校基本课程信息的输入、修改；学生课程信息的设置和修改；学生成绩信息的输入、修改、查询以及统计。目录1. 需求分析-22. 概要设计-43. 详细设计-4 4. 测试-255.附录或参考资料-261: 需求分析随着学校规模的不断扩大，学生的数量急剧增加，有关学生的各种信息管理也成倍增长。而对于庞大的信息量，
2、就需要有学生信息管理系统来提高学生管理工作的效率，取代从前的手工操作。基于今后计算机的网路普及以及方便实现用户阅读及统一查询，所以使用SQL server2000 做数据库系统，使用 Visual Basic 作为前台处理软件。（1 ） 系统分析a. 系统功能分析班级管理信息的输入，包括班级设置、年级的设置等；班级管理信息管理的查询；班级管理信息的修改；学校基本课程信息的输入；基本课程信息的修改；学生课程信息的设置和修改；学生成绩信息的输入；学生成绩信息的修改；学生成绩信息的查询；学生成绩信息的统计。b. 系统功能模块分析上述各功能的系统功能模块图如下：（2 ） 数据库分析数据库在一个信息管理
3、系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可提高数据存储的效率，保证数据的完整和一致。同时，合理的数据库结构也将有利于程序的实现。数据库需求分析用户的需求具体体现在各种信息的提供、保证、更新和查询，这就要求数据库结构能够充分满足各种信息的输出和输入。针对一般学生信息管理系统的要求，通过对学生学习过程的内容和数据流程分析，设计如下的数据项和数据结构：a 学生基本信息：包括的数据项有：学生学号、学生姓名、性别、出身日期、班号、联系电话、入校日期、家庭地址、备注等。b 班级信息：包括的数据项有：班号、所在年级、班主任姓名、所在教室
4、等。c 课程基本信息：包括的数据项有：课程号、课程名称、课程类别、课程描述等。d 课程设置信息：包括数据项有：年级信息、所学课程等。e 学生成绩信息：包括数据项有：考试编号、所在班号、学生学号、学生姓名、所学课程、考试分数等。根据上面的数据结构、数据项和数据流程，进行一下的数据库设计。2. 概要设计（1 ）数据库设计利用 SQL server2000 数据库系统中的 SQl 企业管理器，建立数据库 student.sql 文件，数据库名为：student，在 student 数据库中创建 6 个表，分别为：学生基本信息表、班级基本信息表、课程基本信息表、年级课程基本信息表、学生成绩信息表、系统
5、用户表。（2 ）系统设计用 Visual Basic 来编写数据库系统客户端程序即学生信息管理系统中各功能模块。该系统包括：工程文件 Student_Mis.vbp，标准模块文件 Module1.bas，主窗体文件frmMain.frm，登陆窗体文件 frmLogin.frm，添加用户窗体文件 frmAdduser.frm。修改用户密码窗体文件 frmModifyuserinfo.frm，添加学籍信息窗体文件 frmAddsinfo.frm，修改学籍信息窗体文件 frmModifysinfo.frm，查询学籍信息窗体文件 frmInquiresinfo.frm，添加班级信息窗体文件 frmAd
6、dclassinfo.frm，修改班级信息窗体文件 frmModifyclassinfo.frm，添加课程信息窗体文件 frmAddcourseinfo.frm，修改课程信息窗体文件 frmModifycourseinfo.frm，设置年级课程窗体文件 frmSetcourseinfo.frm，添加成绩信息窗体文件 frmAddresult.frm，修改成绩窗体文件 frmModifyresult.frm，查询成绩信息窗体文件 frmInquireresult.frm。3. 详细设计（1 ）数据库设计a数据库概念结构设计得到数据项和数据结构后，设计出能够满足用户需求的各种实体，以及它们之间的关
7、系。这些实体包括具体信息，通过相互之间的作用形成数据段流动。设计规划出的实体有：年级实体、学生实体、课程实体。各个实体具体的描述及关系的 E-R 图如下图所示。b数据库逻辑结构设计学生信息管理系统数据库中各表设计结果如图 1.11.6 所示。每个表格表示在数据库中的一个表。表 1.1 student_info 学生基本信息表表 1.2 class_info 班级信息表表 1.3 course_info 课程基本信息表 1.4 gradecourse_info 年级课程设计表格表 1.5 result_info 学生成绩信息表表 1.6 user_info 系统用户表（2 ）系统设计1.学生信息
8、管理系统主窗体的创建a.创建一个工程名为 Student_Mis 的工程文件 Student_Mis.vbp。b.创建学生信息管理系统的主窗体 MID 窗体，窗体名为 frmMain，窗体文件名为：frmMain.frm。c.创建主窗体的菜单。主窗体表 2.1 菜单结果表对象 属性 属性值 对象 属性 属性值名称 sysMenu 名称 modifycionfoMenu主菜单项1 标题 系统子菜单项2 标题 修改班级信息名称 adduserMenu 名称 courseMenu子菜单项1 标题 添加用户主菜单项4 标题 课程设置名称 modifypwdMenu 名称 addcourseMenu子菜
9、单项2 标题 修改密码子菜单项1 标题 添加课程设计名称 exitMenu 名称 modifycourseMenu子菜单项3 标题 退出系统子菜单项2 标题 修改课程信息名称 sinfoMenu 名称 gradecourseMenu主菜单项2 标题 学籍信息子菜单项3 标题 设计年级课程名称 addsinfoMenu 名称 resultMenu子菜单项1 标题 添加学籍信息主菜单项5 标题 成绩管理名称 modifysinfoMenu 名称 addresultMenu子菜单项2 标题 修改学籍信息子菜单项1 标题 添加成绩信息子菜单项 名称 inquiresinfoMenu 子菜单项 名称 m
10、odifyresultMenu3 标题 查询学籍信息 2 标题 修好学籍信息名称 classinfoMenu 名称 inquireresultMenu主菜单项3 标题 班级管理子菜单项3 标题 查询成绩信息名称 addcinfoMenu子菜单项1 标题 添加班级信息学生信息管理系统主窗体代码如下：Private Sub MDIForm_Load()Me.Left = GetSetting(App.Title, Settings, MainLeft, 1000)Me.Top = GetSetting(App.Title, Settings, MainTop, 1000)Me.Width = Ge
11、tSetting(App.Title, Settings, MainWidth, 6500)Me.Height = GetSetting(App.Title, Settings, MainHeight, 6500)End SubPrivate Sub MDIForm_Unload(Cancel As Integer)If Me.WindowState Trim(Text1(2).Text) ThenMsgBox 两次输入密码不一样，请确认！, vbOKOnly + vbExclamation, 警告Text1(1).SetFocus Text1(1).Text = Text1(2).Text
12、= Exit SubElseIf Text1(1).Text = ThenMsgBox 密码不能为空！, vbOKOnly + vbExclamation, 警告Text1(1).SetFocusText1(1).Text = Text1(2).Text = Elsemrc.AddNewmrc.Fields(0) = Trim(Text1(0).Text)mrc.Fields(1) = Trim(Text1(1).Text)mrc.Updatemrc.CloseMe.HideMsgBox 添加用户成功！, vbOKOnly + vbExclamation, 添加用户End IfEnd If E
13、nd Sub修改用户密码窗体的创建。用户可以修改自己的密码，选择“系统|修改密码” ，出现如图2.3 所示，在这个窗体中放置看两个文本框，用来输入密码和确认密码。图 2.3代码如下：Private Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub cmdOK_Click()Dim txtSQL, MsgText As StringDim mrc As ADODB.RecordsetIf Trim(Text1(1).Text) listAllcourse Name listAllcourse Name cmdDeletelistSelectcour
14、se Name listSelectcoursecmdDeleteCaption -Name cmdSet Label1 Caption 选择年级：cmdSetCaption 设置课程 Label2 Caption 所有课程：Label3 Caption 已经选择程主要代码如下：Private Sub cmdModify_Click()Dim i As IntegerDim mrc As ADODB.RecordsetDim mrcc As ADODB.RecordsetDim txtSQL As StringDim MsgText As StringDim myBookmark As Var
15、iantIf Not Testtxt(comboGrade.Text) ThenMsgBox 请先选择年级！, vbOKOnly + vbExclamation, 警告Exit SubEnd If If Not Testtxt(listSelectcourse.List(0) ThenMsgBox 请选择课程！, vbOKOnly + vbExclamation, 警告Exit SubEnd IftxtSQL = select * from gradecourse_Info where grade = & Trim(comboGrade.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF ThenFor i = 1 To listSelectcourse.ListCountmrc.AddNewmrc.Fields(0) = comboGrade.Textmrc.Fields(1) = listSel
