《学生信息管理系统.pdf》由会员分享，可在线阅读，更多相关《学生信息管理系统.pdf（19页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、学生信息管理系统（总体设计）1、管理系统功能模块设计本系统需要完成的功能主要有：（1）、有关学籍信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等。（2）、学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。（3）、学生信息的修改。（4）、班级管理信息的输入，包括输入班级设置、年级信息等。（5）、班级管理信息的查询。（6）、班级管理信息的修改。（7）、学校基本课程信息的输入。（8）、基本课程信息的修改。（9）、学生课程设置和修改。（10）、学生成绩信息的输入。（11）、学生成绩信息的修改。（12）、学生成绩信息的查询。（13）、学生成绩信息的统计。2、功能模块设计：学生
2、信息输入学生信息管理学生信息查询学生信息修改成绩信息输入成绩信息管理学生信息管理系统成绩信息查询成绩信息修改班级信息输入班级信息管理班级信息查询班级信息修改课程信息输入课程信息管理课程信息查询课程信息修改密码管理系统管理用户管理3、数据库设计：(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)comment
3、Varchar(200)(2)班级基本信息:class_Info列名数据类型Class_noInt(4)Class_nameVarchar(50)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_n
4、ameChar(10)Course_noInt(4)Course_typeChar(10)resultFloat(8)(5)用户信息：user_Info列名数据类型User_codeVarchar(50)User_nameVarchar(50)说明学号（主键）姓名性别出生日期班级号联系电话入校时期家庭住址备注说明班级号（主键）班级名称班主任专业说明课程编号（主键）课程名称课程类型开始学期学时数学分说明学号（主键）姓名课程号（主键）课程类型成绩说明用户密码（主键）用户名（主键）学生信息管理系统（需求分析）学生信息管理系统（需求分析）1.1.系统开发背景分析系统开发背景分析系统的功能取决开用户的需
5、求。随着科技进步和信息时代的到来，教育的普及程度起来起高，学校的人数也在迅速的增长，怎样的管理好成千上万的学生，已经成为一个学校的管理者必须面对的问题。编写本报告的目的就是用最少的代价，尽可能短的时间内确定问题是否能够解决，通过对学校的一些管理软件的调研分析，发现了一些不足，所以拟做此系统，使学生信息的管理更加准确,安全和快捷。在本次试验中包括的模块有学生信息管理、课程信息管理、成绩信息管理和班级信息管理等几项，各项管理工作涉及到的内容用下面的关系模式表示。a)a)学生（学号，姓名，性别，年龄，班级，电话，备注，出生日期，入学时间，班级编号，家庭地址）b)b)课程（课程编号，课程名称，课程类别
6、，学分，学时）c)c)班级（系，班级号，指导老师）2.2.系统分析系统分析1.抽象出当前系统的逻辑模型画出反映当前系统工作的数据流程图。数据流程图是逻辑模型的图形表示，即使不是专业的计算机技术人员也能非常容易理解，它是一种很好的系统构造的表示方法。画数据流程图是应该从已获得的人工处理流程中去掉物理因素，只保留数据、信息处理部分。2系统功能分析系统主要用于学校学生信息管理，主要任务是用计算机对学生各种信息进行日常管理，如：查询、修改、增加、删除。3.系统目标设计根据本校的实际情况，利用校园网而设计一套针对性和功能都比较强的学生信息管理系统，对学生信息管理系统进行科学的分类、录入、查询4.开发设计
7、思想尽量采用学校现有的软硬件环境及先进的管理系统开发方案，从而达到充分利用资源，提高系统开发的水平和应用效果的目的。系统应该符合学校学生信息管理的规定，满足学校学生日常管理的需要，达到操作过程中的直观、方便、实用、安全等要求。强调多部门合作，学生工作设计面广泛，应该考虑各部门各层次的需求，便于维护。要建立可靠的数据备份。通过对数据流程图的进一步分析,得出学生信息管理系统应该具备以下功能:1、实现学生基本信息的登记2、实现数据的浏览与修改3、实现查询符合一定条件的资料4、实现学生有关数据的统计分析图出身年月入学时间家庭地址系电话班级号姓名学生学号备注性别年龄班级指导老师班级设置班级学习学时课程编
8、号课程设置课程课程类型学分课程名称6数据流程图7.数据字典名字：学生基本信息管理别名：描述：反映出学生的基本信息情况定义：学生基本信息管理=姓名+年龄+性别+学号+班级+电话入学时间+出生年月+家庭地址+备注位置：学生信息输入学生信息查询学生信息修改名字：班级基本信息管理别名：描述：反映出班级的基本信息情况定义：班级基本信息管理=系+班级号+指导老师位置：班级信息输入班级信息查询班级信息修改名字：课程基本信息管理别名：描述：反映出学生在学校学习的课程的基本情况定义：课程基本信息管理=课程编号+课程名称+课程类型+学分+学时位置：课程信息输入课程信息查询课程信息修改名字：用户基本信息别名：描述：
9、反映出用户的用户名和密码定义：用户基本信息=用户名+密码位置：界面登录系统学生信息管理系统（实现、调试、运行）编码1、登录模块代码：Option ExplicitPrivate Sub cmd3_Click()Dim cn AsDim rs AsDim str_cn As String 访问 sql server 的连接字符串Dim str_sql As Stringstr_cn=driver=sql server;server=.;uid=sa;pwd=;database=studentSet cn=New=adUseClient str_cn 连接 sql serverstr_sql=se
10、lect*from user_info where user_name=&anduser_code=&Set rs=New str_sql,cn,adOpenDynamic,adLockOptimisticIf Len=0 Then MsgBox 请输入用户名！,64,提示ElseIf Len=0 Then MsgBox 请输入密码！,64,提示Else If =0 Then i=MsgBox(不存在该用户，是否立即注册,4+32,提示)If i=6 Then Unload Me Else Me End If Else Unload Me End IfEnd IfEnd SubPrivate
11、Sub Form_Load()Me 使窗体居中End SubPrivate Sub Form_MouseMove(Button As Integer,Shift As Integer,X AsSingle,Y As Single)=vbBlack=False=vbBlack=FalseEnd SubPrivate Sub Label5_Click()Unload MeEnd SubPrivate Sub Label5_MouseMove(Button As Integer,Shift As Integer,X AsSingle,Y As Single)=vbBlue=TrueEnd SubPr
12、ivate Sub Label6_Click()Unload MeEnd SubPrivate Sub Label6_MouseMove(Button As Integer,Shift As Integer,X AsSingle,Y As Single)=vbBlue=TrueEnd Sub2、添加学生信息代码：Option ExplicitPrivate Sub Command1_Click()If Len=0 Or Len=0 Then MsgBox 请将信息补充完整！,48,警告 Exit SubEnd If添加新记录sqlstr=select*from student_InfoSet
13、rs=ExecuteSQL(sqlstr,Msg)(student_id)=(student_name)=(class_no)=(born_date)=(student_sex)=(address)=(tele_number)=(comment)=(ru_date)=MsgBox 学生信息添加完成！,48,提示信息 MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Me Me=男:=男 女sqlstr=select*from class_InfoSet rs=ExecuteSQL(sqlstr
14、,Msg)For i=1 To (0)Next iEnd Sub3、删改学生信息代码：Option ExplicitPrivate Sub Command4_Click()从数据库中读取学生信息并添加到窗体中的输入框 sqlstr=select*from student_Info where student_id=&andclass_no=&Set rs=ExecuteSQL(sqlstr,Msg)If =0 Then MsgBox 没有找到符合条件的数据！,48,警告 Me:=Else =Trim(student_id)=Trim(student_name)=Trim(born_date)=
15、Trim(class_no)=Trim(student_sex)=Trim(tele_number)=Trim(address)=Trim(comment)=Trim(ru_date)End IfEnd SubPrivate Sub Command1_Click()Dim cn Assqlstr=update student_info set student_name=&,born_date=&,student_sex=&,class_no=&,tele_number=&,address=&,comment=&,ru_date=&wherestudent_id=&On Error GoTo e
16、xitsub Set cn=New connstr sqlstr MsgBox 成功修改数据！exitsub:Me:=End SubPrivate Sub Command2_Click()Dim cn Assqlstr=delete from student_info where student_id=&On Error GoTo exitsubSet cn=New connstr sqlstrMsgBox 成功删除数据！exitsub:Me:=End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()M
17、e=:=Me=男 男 女Dim sqlstr As StringDim Msg As StringDim i As Integersqlstr=select*from class_InfoSet rs=ExecuteSQL(sqlstr,Msg)For i=1 To (0)(0)NextDim sql As StringDim msgtext As Stringsql=select*from student_InfoSet rs=ExecuteSQL(sql,msgtext)For i=1 To (0)NextEnd Sub4、查询学生信息：Option ExplicitPrivate Sub
18、 Command1_Click()Dim rs As NewDim cn As NewDim cnstr As Stringcnstr=driver=sql server;server=.;uid=sa;pwd=;database=student cnstrIf =True Then sqlstr=select*from student_info =:=End IfIf =True Then sqlstr=select*from student_info where class_no=&=:=End IfIf =True Then sqlstr=select*from student_info
19、 where student_id=&=:=End IfIf =True Then sqlstr=select*from student_info where student_name=&=:=End If sqlstr,cnSet rs=ExecuteSQL(sqlstr,Msg)If =0 Then MsgBox 没有查找到满足条件的数据！,48,提示 =1Else =+1 =9 设定行高 For i=0 To -1 (i)=280 Next i 设定列的属性 =0 For i=0 To -1 =i 指定当前列为第 I 列 (i)=4 使内容居中 Select Case i Case 0
20、(i)=1500 设定列宽 =学号 Case 1 (i)=2000 设定列宽 =姓名 Case 2 (i)=800 设定列宽 =性别 Case 3 (i)=800 设定列宽 =班级 Case 4 (i)=1300 设定列宽 =出生日期 Case 5 (i)=1500 设定列宽 =电话 Case 6 (i)=1500 =入学时间 Case 7 (i)=2500 设定列宽 =地址 Case 8 (i)=3000 设定列宽 =备注信息 End Select Next i i=1 从第二行开始显示内容 While(Not =i For j=0 To -1 =j =4 Select Case j Cas
21、e 0 =(student_id)Case 1 =(student_name)Case 2 =(student_sex)Case 3 =(class_no)Case 4 =(born_date)Case 5 =(tele_number)Case 6 =(ru_date)Case 7 =(address)Case 8 =(comment)End Select Next j i=i+1 WendEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Me=:=:=Dim rs Assqlstr=select*from class_infoSet rs=ExecuteSQL(sqlstr,Msg)For i=1 To (0)NextEnd Sub程序运行界面：学生信息管理系统（详细设计）登录的系统界面：总体程序流程图：学校构成系部构成开始班级课程构成教师构成选课授课学生成绩管理人员登录学生成绩登录学生档案登录学生选课查询统计学生档案课程名称学生学时选课课程信息选课信息授课老师