学生信息管理系统完整.docx
《学生信息管理系统完整.docx》由会员分享，可在线阅读，更多相关《学生信息管理系统完整.docx（15页珍藏版）》请在冰豆网上搜索。
学生信息管理系统完整
学生信息管理系统（总体设计）
1、管理系统功能模块设计
本系统需要完成的功能主要有：
（1）、输入学生基本信息、所在班级、所学课程和成绩等。
（2）、学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。
（3）、学生信息的修改。
（4）、班级信息的输入，包括输入班级设置、年级信息等。
（5）、班级信息的查询。
（6）、班级信息的修改。
（7）、班级课程信息的输入。
（8）、班级课程信息的修改。
（9）、学生课程添加和修改。
（10）、学生成绩信息的输入。
（11）、学生成绩信息的修改。
（12）、学生成绩信息的查询。
（13）、学生成绩信息的统计。
2、功能模块设计：
学生信息输入
3、数据库设计：
（1）学生基本信息：
studentInfo
列名
数据类型
说明
Studentid
Int（4）
学号（主键）
Studentname
Char（10）
姓名
Studentsex
Char
（2）
性别
Borndate
Datetime（8）
出生日期
Classno
Int（4）
班级号
Telenumber
Char（10）
联系电话
Rudate
Datetime（8）
入校时期
Address
Varchar（50）
家庭住址
comment
Varchar（200）
备注
（2）班级基本信息:
classInfo
列名
数据类型
说明
Classno
Int（4）
班级号（主键）
Classname
Varchar（50）
班级名称
Director
Varchar（50）
班主任
profession
Varchar（50）
专业
（3）课程基本信息：
courseInfo
列名
数据类型
说明
Courseno
Int（4）
课程编号（主键）
Coursename
Char（10）
课程名称
Coursetype
Char（10）
课程类型
Coursestart
Char（10）
开始学期
Coursetime
Int（4）
学时数
Coursescore
Int（4）
学分
（4）学生成绩信息：
resultInfo
列名
数据类型
说明
Studentid
Int（4）
学号（主键）
Studentname
Char（10）
姓名
Courseno
Int（4）
课程号（主键）
Coursetype
Char（10）
课程类型
result
Float（8）
成绩
（5）用户信息：
userInfo
列名
数据类型
说明
Usercode
Varchar（50）
用户密码（主键）
Username
Varchar（50）
用户名（主键）
学生信息管理系统（需求分析）1.系统开发背景分析系统的功能取决开用户的需求。
随着科技进步和信息时代的到来，教育的普及程度起来起高，学校的人数也在迅速的增长，怎样的管理好成千上万的学生，已经成为一个学校的管理者必须面对的问题。
编写本报告的目的就是用最少的代价，尽可能短的时间内确定问题是否能够解决，通过对学校的一些管理软件的调研分析，发现了一些不足，所以拟做此系统，使学生信息的管理更加准确,安全和快捷。
在本次试验中包括的模块有学生信息管理、课程信息管理、成绩信息管理和班级信息管理等几项，各项管理工作涉及到的内容用下面的关系模式表示。
a）学生（学号，姓名，性别，年龄，班级，电话，备注，出生日期，入学时间，班级编号，家庭地址）
b）课程（课程编号，课程名称，课程类别，学分，学时）
c）班级（系，班级号，指导老师）
2.系统分析
1.抽象出当前系统的逻辑模型
画出反映当前系统工作的数据流程图。
数据流程图是逻辑模型的图形表示，即使不是专业的计算机技术人员也能非常容易理解，它是一种很好的系统构造的表示方法。
画数据流程图是应该从已获得的人工处理流程中去掉物理因素，只保留数据、信息处理部分。
2．系统功能分析系统主要用于学校学生信息管理，主要任务是用计算机对学生各种信息进行日常管理，如：
查询、修改、增加、删除。
3.系统目标设计根据本校的实际情况，利用校园网而设计一套针对性和功能都比较强的学生信息管理系统，对学生信息管理系统进行科学的分类、录入、查询．
4.开发设计思想尽量采用学校现有的软硬件环境及先进的管理系统开发方案，从而达到充分利用资源，提高系统开发的水平和应用效果的目的。
系统应该符合学校学生信息管理的规定，满足学校学生日常管理的需要，达到操作过程中的直观、方便、实用、安全等要求。
强调多部门合作，学生工作设计面广泛，应该考虑各部门各
层次的需求，便于维护。
要建立可靠的数据备份。
通过对数据流程图的进一步分析,得出学生信息管理系统应该具备以下功能:
1、实现学生基本信息的登记
2、实现数据的浏览与修改
3、实现查询符合一定条件的资料4、实现学生有关数据的统计分析
5.E-R图
6．数据流程图
注册报到
→（专业设置〔√j¾⅞m⅞ζ→（J±≡iλΓr>ζ^⅛⅞⅜λ
修改
修改
修改
侈改
7.数据字典
名字：
学生基本信息管理
别名：
描述：
反映出学生的基本信息情况定义：
学生基本信息管理=姓名+年龄+性别+学号+班级+电话入学时间+出生年月+家庭地
址+备注位置：
学生信息输入
学生信息查询
学生信息修改
名字：
班级基本信息管理
别名：
描述：
反映出班级的基本信息情况定义：
班级基本信息管理=系+班级号+指导老师位置：
班级信息输入
班级信息查询
班级信息修改
名字：
课程基本信息管理别名：
描述：
反映出学生在学校学习的课程的基本情况定义：
课程基本信息管理=课程编号+课程名称+课程类型+学分+学时位置：
课程信息输入
课程信息查询
课程信息修改
名字：
用户基本信息
别名：
描述：
反映出用户的用户名和密码定义：
用户基本信息=用户名+密码位置：
界面登录系统
学生信息管理系统（实现、调试、运行）
编码
1、登录模块代码：
OptionExplicit
PrivateSubcmd3_Click（）
DimcnAsADODB.Connection
DimrsAsADODB.Recordset
Dimstr_cnAsString'访问sqlserver的连接字符串
Dimstr_sqlAsString
str_cn="driver={sqlserver};server=.;uid=sa;pwd=;database=student"Setcn=NewADODB.Connection
cn.CursorLocation=adUseClient
cn.Openstr_cn'连接sqlserver
str_sql="select*fromuser_infowhereuser_name='"&Text1.Text&"'anduser_code='"&Text2.Text&"'"
Setrs=NewADODB.Recordset
rs.Openstr_sql,cn,adOpenDynamic,adLockOptimistic
IfLen（Text1.Text）=0Then
MsgBox"请输入用户名！
",64,"提示"
Text1.SetFocus
ElseIfLen（Text2.Text）=0Then
MsgBox"请输入密码！
",64,"提示"
Text2.SetFocus
Else
Ifrs.RecordCount=0Then
提示"）
i=MsgBox（"不存在该用户，是否立即注册？
",4+32,"Ifi=6Then
UnloadMe
Form3.Show
ElsemdlTextBox.BlankMeText2.SetFocus
EndIf
Else
'UnloadMe
Form1.HideForm4.Show
EndIf
EndIf
EndSub
PrivateSubForm_Load（）mdlTextBox.CentenMe'使窗体居中EndSub
PrivateSubForm_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Label5.ForeColor=vbBlack
Label5.FontUnderline=False
Label6.ForeColor=vbBlack
Label6.FontUnderline=False
EndSub
PrivateSubLabel5_Click（）
UnloadMe
Form3.Show
EndSub
PrivateSubLabel5_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Label5.ForeColor=vbBlue
Label5.FontUnderline=True
EndSub
PrivateSubLabel6_Click（）
UnloadMe
Form2.Show
EndSub
PrivateSubLabel6_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Label6.ForeColor=vbBlueLabel6.FontUnderline=True
EndSub
2、添加学生信息代码：
OptionExplicit
PrivateSubCommand1_Click（）
IfLen（Text1.Text）=0OrLen（Text6.Text）=0Then
MsgBox"请将信息补充完整！
",48,"警告"ExitSub
EndIf'添加新记录
sqlstr="select*fromstudent_Info"Setrs=ExecuteSQL（sqlstr,Msg）
rs.AddNew
rs.Fields（"student_id"）=Text6.Textrs.Fields（"student_name"）=Text1.Textrs.Fields（"class_no"）=Combo2.Textrs.Fields（"born_date"）=Text2.Textrs.Fields（"student_sex"）=Combo1.Textrs.Fields（"address"）=Text4.Textrs.Fields（"tele_number"）=Text7.Textrs.Fields（"comment"）=Text5.Textrs.Fields（"ru_date"）=Text3.Textrs.Updaters.Close
MsgBox"学生信息添加完成！
",48,"提示信息
mdlTextBox.BlankMe
EndSub
PrivateSubCommand2_Click（）
UnloadMe
Form4.Show
EndSub
PrivateSubForm_Load（）mdlTextBox.CentenMemdlTextBox.BlankMe
Combo1.Text="男":
Combo2.Text=""
Combo1.AddItem"男"
Combo1.AddItem"女"sqlstr="select*fromclass_Info"Setrs=ExecuteSQL（sqlstr,Msg）Fori=1Tors.RecordCount
Combo2.AddItemrs.Fields（0）rs.MoveNext
Nexti
rs.Close
EndSub
3、删改学生信息代码：
OptionExplicit
PrivateSubCommand4_Click（）
'从数据库中读取学生信息并添加到窗体中的输入框
sqlstr="select*fromstudent_Infowherestudent_id='"&Combo2.Text&"'andclass_no='"&Combo1.Text&"'"
Setrs=ExecuteSQL（sqlstr,Msg）
Ifrs.RecordCount=0Then
MsgBox"没有找到符合条件的数据！
",48,"警告"
mdlTextBox.BlankMe:
Combo3.Text=""
Else
Text2.Text=Trim（rs.Fields（"student_id"））
Text1.Text=Trim（rs.Fields（"student_name"））
Text3.Text=Trim（rs.Fields（"born_date"））
Combo3.Text=Trim（rs.Fields（"class_no"））
Combo4.Text=Trim（rs.Fields（"student_sex"））
Text4.Text=Trim（rs.Fields（"tele_number"））
Text5.Text=Trim（rs.Fields（"address"））
Text6.Text=Trim（rs.Fields（"comment"））
Text7.Text=Trim（rs.Fields（"ru_date"））
EndIf
rs.Close
EndSub
PrivateSubCommand1_Click（）
DimcnAsADODB.Connection
sqlstr="updatestudent_infosetstudent_name='"&Text1.Text&"',born_date='"&Text3.Text&"',student_sex='"&Combo4.Text&
"',class_no='"&Combo1.Text&"',tele_number='"&Text4.Text&"',address='"&Text5.Text&"',comment='"&Text6.Text&"',ru_date='"
&Text7.Text&"'wherestudent_id='"&Combo2.Text&"'"
OnErrorGoToexitsub
Setcn=NewADODB.Connection
cn.Openconnstr
cn.Executesqlstr
MsgBox"成功修改数据！
！
"
exitsub:
cn.Close
mdlTextBox.BlankMe:
Combo3.Text=""
EndSub
PrivateSubCommand2_Click（）
DimcnAsADODB.Connection
sqlstr="deletefromstudent_infowherestudent_id='"&Combo2.Text&
OnErrorGoToexitsub
Setcn=NewADODB.Connectioncn.Openconnstrcn.Executesqlstr
MsgBox"成功删除数据！
！
"exitsub:
cn.Close
mdlTextBox.BlankMe:
Combo3.Text=""
EndSub
PrivateSubCommand3_Click（）
UnloadMe
Form4.Show
EndSub
PrivateSubForm_Load（）mdlTextBox.CentenMeCombo1.Text="":
Combo2.Text=""mdlTextBox.BlankMe
Combo3.Text=""
Combo4.Text="男"
Combo4.AddItem"男"
Combo4.AddItem"女"
DimsqlstrAsString
DimMsgAsString
DimiAsIntegersqlstr="select*fromclass_Info"Setrs=ExecuteSQL（sqlstr,Msg）Fori=1Tors.RecordCount
Combo1.AddItemrs.Fields（0）
Combo3.AddItemrs.Fields（0）rs.MoveNext
Next
DimsqlAsString
DimmsgtextAsString
sql="select*fromstudent_Info"
Setrs=ExecuteSQL（sql,msgtext）
Fori=1Tors.RecordCount
Combo2.AddItemrs.Fields（0）rs.MoveNext
Next
rs.Close
EndSub
4、查询学生信息：
OptionExplicit
PrivateSubCommand1_Click（）
DimrsAsNewADODB.Recordset
DimcnAsNewADODB.Connection
DimcnstrAsString
cnstr="driver={sqlserver};server=.;uid=sa;pwd=;database=student"cn.Opencnstr
IfOption1.Value=TrueThensqlstr="select*fromstudent_info"Combo1.Text=""
Text1.Text="":
Text2.Text=""
EndIf
IfOption2.Value=TrueThen
sqlstr="select*fromstudent_infowhereclass_no='"&Combo1.Text
&"'"
Text2.Text="":
Text1.Text=""
EndIf
IfOption3.Value=TrueThen
sqlstr="select*fromstudent_infowherestudent_id='"&Text1.Text&"'"
Combo1.Text="":
Text2.Text=""
EndIf
IfOption4.Value=TrueThen
sqlstr="select*fromstudent_infowherestudent_name='"&Text2.Text&"'"
Combo1.Text="":
Text2.Text=""
EndIf
rs.Opensqlstr,cn
Setrs=ExecuteSQL（sqlstr,Msg）
Ifrs.RecordCount=0Then
MsgBox"没有查找到满足条件的数据！
",48,"提示"fgStudent.Rows=1
Else
fgStudent.Rows=rs.RecordCount+1fgStudent.Cols=9
'设定行高
Fori=0TofgStudent.Rows-1fgStudent.RowHeight（i）=280
Nexti
'设定列的属性fgStudent.Row=0
Fori=0TofgStudent.Cols-1fgStudent.Col=i'指定当前列为第I列
fgStudent.FixedAlignment（i）=4'使内容居中SelectCasei
Case0
fgStudent.ColWidth（i）fgStudent.Text="Case1fgStudent.ColWidth（i）fgStudent.Text="Case2fgStudent.ColWidth（i）fgStudent.Text="Case3fgStudent.ColWidth（i）fgStudent.Text="Case4fgStudent.ColWidth（i）fgStudent.Text="Case5fgStudent.ColWidth（i）fgStudent.Text="Case6fgStudent.ColWidth（i）fgStudent.Text="Case7fgStudent.ColWidth（i）fgStudent.Text="Case8fgStudent.ColWidth（i）fgStudent.Text="EndSelect
Nexti
1500'
学号"
设定列宽
2000'
设定列宽
姓名"
800'
设定列宽
性别"
800'
设定列宽
班级"
1300'
设定列宽
出生日期"
1500'
设定列宽
电话"
1500
入学时间"
2500'
设定列宽
地址"
3000'
设定列宽
备注信息"
i=1'从第二行开始显示内容
While（Notrs.EOF）
fgStudent.Row=i
Forj=0TofgStudent.Cols-1fgStudent.Col=jfgStudent.CellAlignment=4SelectCasej
Case0fgStudent.Text=rs.Fields（"student_id"）
Case1
fgStudent.Text=rs.Fields（"student_name"）
Case2
fgStudent.Text=rs.Fields（"student_sex"）
Case3fgStudent.Text=rs.Fields（"class_no"）
Case4
fgStudent.Text=rs.Fie
升级会员 