学生信息管理系统（总体设计）

1、学生信息管理系统（总体设计）1、管理系统功能模块设计本系统需要完成的功能主要有：（1）、有关学籍信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等。（2）、学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。（3）、学生信息的修改。（4）、班级管理信息的输入，包括输入班级设置、年级信息等。（5）、班级管理信息的查询。（6）、班级管理信息的修改。（7）、学校基本课程信息的输入。（8）、基本课程信息的修改。（9）、学生课程设置和修改。（10）、学生成绩信息的输入。（11）、学生成绩信息的修改。（12）、学生成绩信息的查询。（13）、学生成绩信息的统计。2、功能模块设计：3、

2、数据库设计：(1)学生基本信息：student_Info列名数据类型说明Student_idInt(4)学号（主键）Student_nameChar(10)姓名Student_sexChar(2)性别Born_dateDatetime(8)出生日期Class_noInt(4)班级号Tele_numberChar(10)联系电话Ru_dateDatetime(8)入校时期AddressVarchar(50)家庭住址commentVarchar(200)备注(2)班级基本信息:class_Info列名数据类型说明Class_noInt(4)班级号（主键）Class_nameVarchar(50)班

3、级名称DirectorVarchar(50)班主任professionVarchar(50)专业(3)课程基本信息：course_Info列名数据类型说明Course_noInt(4)课程编号（主键）Course_nameChar(10)课程名称Course_typeChar(10)课程类型Course_startChar(10)开始学期Course_timeInt(4)学时数Course_scoreInt(4)学分(4)学生成绩信息：result_Info列名数据类型说明Student_idInt(4)学号（主键）Student_nameChar(10)姓名Course_noInt(4)课程

4、号（主键）Course_typeChar(10)课程类型resultFloat(8)成绩(5)用户信息：user_Info列名数据类型说明User_codeVarchar(50)用户密码（主键）User_nameVarchar(50)用户名（主键）学生信息管理系统（需求分析）1.系统开发背景分析系统的功能取决开用户的需求。随着科技进步和信息时代的到来，教育的普及程度起来起高，学校的人数也在迅速的增长，怎样的管理好成千上万的学生，已经成为一个学校的管理者必须面对的问题。编写本报告的目的就是用最少的代价，尽可能短的时间内确定问题是否能够解决，通过对学校的一些管理软件的调研分析，发现了一些不足，所以

5、拟做此系统，使学生信息的管理更加准确,安全和快捷。在本次试验中包括的模块有学生信息管理、课程信息管理、成绩信息管理和班级信息管理等几项，各项管理工作涉及到的内容用下面的关系模式表示。a)学生（学号，姓名，性别，年龄，班级，电话，备注，出生日期，入学时间，班级编号，家庭地址）b)课程（课程编号，课程名称，课程类别，学分，学时）c)班级（系，班级号，指导老师）2.系统分析1.抽象出当前系统的逻辑模型画出反映当前系统工作的数据流程图。数据流程图是逻辑模型的图形表示，即使不是专业的计算机技术人员也能非常容易理解，它是一种很好的系统构造的表示方法。画数据流程图是应该从已获得的人工处理流程中去掉物理因素，

6、只保留数据、信息处理部分。2系统功能分析系统主要用于学校学生信息管理，主要任务是用计算机对学生各种信息进行日常管理，如：查询、修改、增加、删除。3.系统目标设计 根据本校的实际情况，利用校园网而设计一套针对性和功能都比较强的学生信息管理系统，对学生信息管理系统进行科学的分类、录入、查询 4.开发设计思想 尽量采用学校现有的软硬件环境及先进的管理系统开发方案，从而达到充分利用资源，提高系统开发的水平和应用效果的目的。系统应该符合学校学生信息管理的规定，满足学校学生日常管理的需要，达到操作过程中的直观、方便、实用、安全等要求。强调多部门合作，学生工作设计面广泛，应该考虑各部门各层次的需求，便于维护

7、。要建立可靠的数据备份。通过对数据流程图的进一步分析,得出学生信息管理系统应该具备以下功能:1、实现学生基本信息的登记2、实现数据的浏览与修改3、实现查询符合一定条件的资料4、实现学生有关数据的统计分析5.E-R图6数据流程图7.数据字典学生信息管理系统（实现、调试、运行）编码1、登录模块代码：Option ExplicitPrivate Sub cmd3_Click()Dim cn As ADODB.ConnectionDim rs As ADODB.RecordsetDim str_cn As String 访问sql server的连接字符串Dim str_sql As Stringst

8、r_cn = driver=sql server;server=.;uid=sa;pwd=;database=studentSet cn = New ADODB.Connectioncn.CursorLocation = adUseClientcn.Open str_cn 连接sql serverstr_sql = select * from user_info where user_name= & Text1.Text & and user_code= & Text2.Text & Set rs = New ADODB.Recordsetrs.Open str_sql, cn, adOpen

9、Dynamic, adLockOptimisticIf Len(Text1.Text) = 0 ThenMsgBox 请输入用户名！, 64, 提示Text1.SetFocusElseIf Len(Text2.Text) = 0 ThenMsgBox 请输入密码！, 64, 提示Text2.SetFocusElseIf rs.RecordCount = 0 Theni = MsgBox(不存在该用户，是否立即注册？, 4 + 32, 提示)If i = 6 ThenUnload MeForm3.ShowElsemdlTextBox.Blank MeText2.SetFocusEnd IfEls

10、e Unload MeForm1.HideForm4.ShowEnd IfEnd IfEnd SubPrivate Sub Form_Load()mdlTextBox.Centen Me 使窗体居中End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label5.ForeColor = vbBlackLabel5.FontUnderline = FalseLabel6.ForeColor = vbBlackLabel6.FontUnderline = Fa

11、lseEnd SubPrivate Sub Label5_Click()Unload MeForm3.ShowEnd SubPrivate Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label5.ForeColor = vbBlueLabel5.FontUnderline = TrueEnd SubPrivate Sub Label6_Click()Unload MeForm2.ShowEnd SubPrivate Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label6.ForeColor = vbBlueLabel6.FontUnderline = TrueEnd Sub2、添加学生信息代码：Option ExplicitPrivate Sub Command1_Click()If Len(Text1.Text) = 0 Or Len(Text6.Text) = 0 ThenMsgB