学生信息管理系统详细设计说明书

学生信息管理系统详细设计说明书V1.0(版本号)拟 制 人 审 核 人 批 准 人 二OO五 年 十 月 十五 日详细设计说明书引言随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。编写目的建成一个完整统一、技术先进、高效稳定、安全可靠的学生管理信息系统。这是一个集教务工作自动化和信息化为一体的先进的电脑网络系统，在为教务工作有关部门提供优质、高效的业务管理和事务处理的同时，采用安全可靠的现代化处理和控制技术，及时、准确、可靠地采集和传输信息，建立完备、可靠的教学信息处理系统。对各院（系）教务办实现统一的信息浏览、成绩管理。与学生处学生管理系统、就业办公室的学生就业管理系统等实现学生基本信息的共享。通过校园网为教务处网站访问者提供全面及时的信息和数据，如课程设置、学生的信息查询、成绩单核实等。本学生信息管理系统可以说是一个综合性的学校学生管理系统，这它集成了学生学籍管理系统、学生成绩管理系统、学生档案管理系统、学生个人管理系统等多种功能，因而具有较强的实用性和先进性。项目背景 主要是以学校管理处为委托单位，以学生为管理对象进行设计的，该系统结合数据库技术和VB开发而成的，该系统是建立在其他一些管理信息系统的基础上开发而成的。定义参考资料1刘炳文等，VISUAL BASIC程序设计数据库篇，19992 黄淼云.VB6.0办公自动化编程.国防工业出版社3 王要武，管理系统，电子工业出版社，20034李红等编著，管理信息系统开发与应用，电子工业出版社，20035 康博工作室，张红军，王红等缟著Visual Basic 6.0中文版高级应用与开发指南，人民邮电出版社，2001年4月第一版6 林立军，程斌，翁迪恩缟著Visual Basic 6.0数据库开发指南，西安电子科技大学出版社，2000年2月第一版7 张宏林，孔艳，王哲等编著。按实例学Visual Basic 6.0北京，人民邮电出版社，20008美Jeffrey P.McManus著赵学锁，龚波，李志，曹天伟等译Visual Basic 6.0数据库存访问技术总体设计需求概述系统需求 由于操作人员的计算机知识普遍较差,要求有良好的人机界面; 由于该系统的使用对象多,要求有较好的权限管理; 原始数据修改简单方便,支持多条件修改 方便的数据查询，支持多条件查询; 在相应的权限下，删除数据方便简单，数据稳定性好； 数据计算自动完成，尽量减少人工干预;软件结构本系统在执行时，先根据不同的操作人员的需要来进行相应的模块，然后可以输入数据或者进行其它的查询操作；总体来说，本系统属于一个事务型管理系统。处理流程如图接受数据据处理中心班级管理档案管理奖惩管理课程管理成绩管理输出数据流程图学籍管理部门教师学生成绩管理系统教务处学生教师教师学生情况学生成绩查询统计分析学生成绩管理系统0层数据流程图管理部门教务处教师1.0学生管理2.0课程管理3.0成绩管理4.0统计分析D1D2D3查询者管理者学生成绩管理系统1层数据流程图整体框架图用户信息管理班级信息管理学籍信息管理奖惩信息管理课程信息管理成绩信息管理个人信息查询修改密码添加用户删除用户添加班级班级信息班级查询学籍浏览学籍添加学籍查询课程设置课程列表成绩填加绩填加加成绩信息列表成绩查询成绩填加加奖惩填加填加加奖惩查询成绩填加加奖惩列表成绩填加加成绩列表成绩填加加奖惩列表成绩填加加学生信息管理系统登录程序描述班级信息Private Sub Command1_Click() If Text1(0) = Then MsgBox 班级编号不能为空!, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1) = Then MsgBox 班级名称不能为空!, vbOKOnly, 提示 Text1(1).SetFocus Exit Sub End If If Text1(2) = Then MsgBox 导员姓名不能为空!, vbOKOnly, 提示 Text1(2).SetFocus Exit Sub End If txtSQL = select * from class_Form where class_NO= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 此班级编号已存在!, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If mrc.Close txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1) mrc.Fields(2) = Trim(Text1(2) mrc.Fields(3) = Trim(Text1(3) mrc.Update mrc.CloseFor i = 0 To 3课程信息管理Private Sub Form_Load() Dim txtSQL As String Me.Caption = 课程信息-设 置 txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox 请先进行班级设置!, vbOKOnly, 提示 Else With Combo1 Do While Not mrc.EOF .AddItem Trim(mrc!class_NO) mrc.MoveNext Loop Combo1.ListIndex = 0 End With End If List2TextEnd Sub奖惩信息管理Private Sub Command1_Click() Dim txtSQL As String If Text1(0) = Then MsgBox 奖惩名称不能为空!, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If txtSQL = select * from prize_Form where prize_Name= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 此奖惩名称已经存在!, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If mrc.Close txtSQL = select * from prize_Form Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1) mrc.Update mrc.Close Text1(0) = Text1(1) = MsgBox 奖惩信息添加成功!, vbOKOnly, 提示 List1TextEnd SubPrivate Sub Command2_Click() If List1.Text Then txtSQL = delete from prize_Form where prize_Name= & Trim(List1.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText) MsgBox 奖惩信息已经删除!, vbOKOnly, 提示 List1Text End IfEnd SubPrivate Sub Form_Load() MSFlexGrid1.Cols = 5 MSFlexGrid1.ColWidth(0) = 300 MSFlexGrid1.ColWidth(1) = 0 MSFlexGrid1.ColWidth(2) = 0 MSFlexGrid1.ColWidth(3) = 1200 MSFlexGrid1.ColWidth(4) = 1200 MSFlexGrid1.TextMatrix(0, 3) = 奖惩日期 MSFlexGrid1.TextMatrix(0, 4) = 奖惩名称 MSFlexGrid1.Rows = 1 Text3(0) = GetRkno List1TextEnd Sub成绩信息管理Private Sub Form_Load() Option1(1).Value = True Picture1(0).Visible = False Picture1(1).Visible = True Picture1(2).Visible = False Picture1(3).Visible = False Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Picture1(2).Left = Picture1(0).Left Picture1(3).Top = Picture1(0).Top Picture1(3).Left = Picture1(0).Left With MSFlexGrid1 .Cols = 6 .TextMatrix(0, 1) = 考试期号 .TextMatrix(0, 2) = 学生班号 .TextMatrix(0, 3) = 学生编号 .TextMatrix(0, 4) = 考试课程 .TextMatrix(0, 5) = 考试分数 .ColWidth(0) = 0 .ColWidth(1) = 1550 .ColWidth(2) = 1550 .ColWidth(3) = 1550 .ColWidth(4) = 1550 .ColWidth(5) = 1550 .Rows = 1 End With Text1(0) = GetRknoEnd Sub个人信息管理 Private Sub Form_Load() With MSFlexGrid1 .Cols = 4 .ColWidth(0) = 0 .ColWidth(1) = 0 .ColWidth(2) = 1700 .ColWidth(3) = 1700 .TextMatrix(0, 2) = 奖惩日期 .TextMatrix(0, 3) = 奖惩名称 .Rows = 1 End With With MSFlexGrid2 .Cols = 6 .ColWidth(0) = 0 .ColWidth(1) = 1550 .ColWidth(2) = 1550 .ColWidth(3) = 0 .ColWidth(4) = 1550 .ColWidth(5) = 1550 .TextMatrix(0, 1) = 考试期号 .TextMatrix(0, 2) = 学生班号 .TextMatrix(0, 4) = 考试课程 .TextMatrix(0, 5) = 考试分数 .Rows = 1 End With Picture1.Visible = False MSFlexGrid1.Visible = False MSFlexGrid2.Visible = FalseEnd Sub学籍信息管理Private Sub Form_Load() Me.Caption = 学籍信息-查 询 ShowTitle Label1(1).BackColor = &HFFFFFF TextDcolor Text1(4).Visible = True Combo1.Visible = False Command1.Visible = False Command2.Visible = True Command3.Visible = False Command4.Visible = False Text1(2).Enabled = False Text1(3).Enabled = False Text1(7).Enabled = False Text1(8).Enabled = FalseEnd Sub功能本系统主要可以实现以下的管理功能：用户信息管理、班级信息管理、学籍信息管理、课程信息管理、成绩信息管理、奖惩信息管理、个人信息查询、帮助等等。本模块是本系统的安全性设置模块，根据学校不同部门以及不同使用人员对本系统的要求和需要，从而实行了分级管理，对用户的权限和类别进行了分类管理。用户信息管理模块该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户、修改密码、删除用户、用户列表等等。班级信息管理模块该模块的功能是实现对全校班级的管理工作，包括：班级信息列表、班级的添加、班级修改、班级编号、班级名称等，这几个功能模块各自独立，完成学校的全部班级的管理。学籍信息管理模块该模块的主要功能是实现对学生的个人信息的管理工作，包括学籍信息列表、数据添加、修改、删除等功能，从而方便学校管理部门对学校的基本情况的快速查询和了解。课程信息管理模块该模块对各个班级的课程进行设置，并可在其中设置各门课程的上课情况，方便了学校管理部门和教务处的教学管理人员的工作。该模块包括课程列表和班级课程设置两个模块。成绩信息管理模块学校的成绩管理工作是检验学生学习情况的一个主要手段，本模块包括考试类型设置，成绩信息列表、考试期号、学号和考试课程，还设置了成绩添加、成绩游览、成绩查询等功能模块。奖惩信息管理模块对学生的奖励和惩罚情况了解有利于对班级乃至学校的管理，也是评价学生的一个指标。这模块主要有奖惩的日期、名称和奖惩的信息列表。个人信息查询模块这模块模块主要有奖惩列表和成绩列表两个模块，这模块可以快速查询某个学生的情况，可以处理紧急的情况。性能 由于本系统管理的对象单一,都是在校学生，且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都