学生信息管理 VB语言Word文档格式.docx
《学生信息管理 VB语言Word文档格式.docx》由会员分享，可在线阅读，更多相关《学生信息管理 VB语言Word文档格式.docx（15页珍藏版）》请在冰豆网上搜索。
专业负责人
2012年7月8日
目录
第1章系统分析1
1.1系统需求分析1
1.2开发环境1
第2章系统设计2
2.1系统功能模块设计2
2.2数据库设计3
第3章系统实现5
3.1学生信息管理系统页面的设计5
3.2设计结果分析11
第4章结束语12
参考文献13
第1章系统分析
1.1系统需求分析
随着学校的规模不断扩大，学生人数急剧增加，有关学生的各种信息也成倍增长。
面对庞大的信息量需要有学生管理系统来提供学生管理工作的效率。
通过这样的系统可以做到信息的规范管理，科学统计和快速查询，修改，增加，删除等，从而减少管理方面的工作量。
实现学生信息关系的系统化，规范化，自动化，用计算机对学生各种信息进行日常管理。
本系统主要包括学生信息查询和信息添加等功能，来初步实现学生信息的计算机化管理。
1.2可行性分析
本次课程设计题目：
“学生信息管理系统”，主要目的是编制一个网页登陆系统，连接数据库系统，用以实现学生、班级以及考核成绩等多项管理。
同时对整个系统的分析、设计过程给出一个完整的论证。
学生信息管理系统是一种基于集中统一规划的数据库数据管理新模式，其实就是对学生、班级、考核成绩的管理。
在信息时代的今天，人类需要对在政治、经济、军事、文化、科研、教育等领域产生的大量信息进行管理，并对数据进行加工处理，数据库技术则是信息管理与数据处理的先进技术。
随着信息量的不断增加，作为计算机的三大主要应用（科学计算、过程控制和数据处理）之一的数据处理，已迅速上升为计算机应用的主要方面，数据库技术则成为人们日常生活中处理数据不可缺少的有力工具，并且现代的信息管理系统几乎都以数据库技术作为核心[1]。
由于本系统管理的对象简单，且每个数据内容之间都具有较强的关联性，涉及过程并不是很复杂。
因此，比较适合于采用数据库管理。
在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。
第2章系统设计
系统开发的总体任务是实现学生信息关系的系统化、规范化和自动化。
系统功能分析是在系统开发的总体任务的基础上完成的。
本设计中学生信息管理系统需要完成的功能主要有：
●有关学籍等信息的输入，包括学生基本信息、所在班级、所学课程等等
●学生信息的查询，包括学生基本信息、所在班级、已学课程等。
●学生信息的修改。
●学校基本课程信息的输入和查询。
●基本课程信息的修改。
●学生课程的设置和修改。
●学生成绩信息的输入，修改，查询，统计。
2.1系统功能模块设计
对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到如图2-1所示的系统功能模块图。
图2-1前台图书远程检索功能结构图
2.2数据库设计
首先设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。
这些实体包含各种具体信息，通过相互之间的作用形成数据的流动[2]。
本实例根据上面的设计规划出的实体有：
学生实体、课程实体。
各个实体之间关系E-R图如图2-2所示。
图2-2数据库E-R模型
根据用户具体的需求以及系统功能的要求，结合实际情况，本系统建立了一个数据库，命名为“datasun”。
在此数据库基础上建立了学生基本情况表班级基本情况表登陆用户表院系表课程表。
（1）学生基本情况表表
表2-1学生基本信息表student
列名
数据类型
可否为空
说明
snum
NVARCHAR（10）
NOTNULL
学号（主键）
Sname
NVARCHAR（50）
NULL
学生姓名
Ssex
性别
Sethnic
民族
Shome
籍贯
Smajor
专业名
Sphone
电话
Sbirth
出生日期
（2）班级基本情况表
表2-2班级基本情况表表
Sclass
RCHAR（10）
班级
Sroom
自习教室
Leader
辅导员
CS
系名
（3）登陆用户表
表2-3登陆用户表表
Name
姓名
code
密码
（4）院系表
表2-4院系表
Cname
院系名称
Croom
办公室
Cphone
NOTNUL
联系电话
Cleader
系主任
（5）课程表
表2-5课程表
Kname
课程名
课程号
class
leibie
类别
第3章系统实现
3.1学生信息管理系统页面的设计
本系统实现了对学生的基本信息和成绩的管理，还可以对学校的所有课程进行管理，最后本系统还实现了对课程信息、学生基本信息和成绩信息的查询。
系统主界面如图：
图3-1登陆界面
部分代码如下：
ProtectedSubButton1_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton1.Click
DimRoleAsString=DropDownList1.Text
DimunameAsString=TextBox1.Text
DimpasswordAsString=TextBox2.Text
DimconnAsOleDbConnection=NewOleDbConnection（"
Provider=SQLOLEDB.1;
Password=sa;
PersistSecurityInfo=True;
UserID=sa;
InitialCatalog=datasun;
DataSource=."
）
conn.Open（）
DimsqlAsString="
select*from登录where身份='
"
+Role+"
'
andname='
+uname+"
andcode='
+password+"
DimcmdAsOleDbCommand=NewOleDbCommand（sql,conn）
DimdrAsOleDbDataReader=cmd.ExecuteReader（）
IfDropDownList1.Text="
教师"
Then
If（dr.Read（））Then
Session（"
uname"
）=dr.Item（0）.ToString（）
Response.Redirect（"
teacher.aspx"
Else
Label4.Text="
登录失败，用户名或者密码错误!
EndIf
student.aspx"
EndSub[3]
3.2教师界面
InheritsSystem.Web.UI.Page
ProtectedSubButton1_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton1.Click
学生信息.aspx"
EndSub
ProtectedSubButton3_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton3.Click
院系信息.aspx"
ProtectedSubButton2_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton2.Click
班级信息.aspx"
ProtectedSubButton4_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton4.Click
课程信息.aspx"
ProtectedSubPage_Load（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesMe.Load
3.3学生信息查询
PartialClass_Default
InheritsSystem.Web.UI.Page
IfNotIsPostBackThen
databinds（）
Subdatabinds（）
DimcmdAsOleDbCommand=NewOleDbCommand（"
select*from学生基本情况"
conn）
GridView1.DataSource=dr
GridView1.DataBind（）
ProtectedSubGridView1_RowCancelingEdit（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewCancelEditEventArgs）HandlesGridView1.RowCancelingEdit
GridView1.EditIndex=-1
教师界面.aspx"
ProtectedSubGridView1_SelectedIndexChanged（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesGridView1.SelectedIndexChanged
EndClass
3.4学生信息修改
ProtectedSubGridView1_RowEditing（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewEditEventArgs）HandlesGridView1.RowEditing
GridView1.EditIndex=e.NewEditIndex（）
ProtectedSubGridView1_RowDeleting（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewDeleteEventArgs）HandlesGridView1.RowDeleting
DimstrAsString=GridView1.DataKeys（e.RowIndex）.Value.ToString（）
Dimstrsql="
deletefrom学生基本情况whereSno='
+str+"
DimcmdqqAsOleDbCommand=NewOleDbCommand（strsql,conn）
cmdqq.ExecuteNonQuery（）
conn.Close（）
ProtectedSubGridView1_RowUpdating（ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewUpdateEventArgs）HandlesGridView1.RowUpdating
DimconnAsOleDbConnection=NewOleDbConnection（"
Dimbanji,name,sex,birth,jiguan,tel,addrAsTextBox
banji=GridView1.Rows（e.RowIndex）.Cells
（1）.Controls（0）
name=GridView1.Rows（e.RowIndex）.Cells（3）.Controls（0）
sex=GridView1.Rows（e.RowIndex）.Cells（4）.Controls（0）
birth=GridView1.Rows（e.RowIndex）.Cells（5）.Controls（0）
jiguan=GridView1.Rows（e.RowIndex）.Cells（6）.Controls（0）
tel=GridView1.Rows（e.RowIndex）.Cells（7）.Controls（0）
addr=GridView1.Rows（e.RowIndex）.Cells（8）.Controls（0）
update学生基本情况setClass='
&
banji.Text&
"
name='
name.Text&
Ssex='
sex.Text&
Sbirth='
birth.Text&
Shome='
jiguan.Text&
Sphone='
tel.Text&
Sadd='
addr.Text&
wheresnum='
GridView1.DataKeys（e.RowIndex）.Value.ToString.Trim（）&
DimcmdqqAsNewOleDbCommand（sql,conn）
3.5添加学生信息
ProtectedSubButton_Click（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesButton.Click
DimcmdqqAsNewOleDbCommand（"
insertinto学生基本情况（snum,Sname,Ssex,Sbirth,Sclass,Sphone,Sadd,Shome）values（'
TextBox1.Text&
'
TextBox2.Text&
DropDownList2.Text&
TextBox4.Text&
TextBox5.Text&
TextBox7.Text&
TextBox8.Text&
DropDownList1.Text&
）"
Label10.Text="
保存成功"
Default.aspx"
EndSub
以教师身份查询另外三个表的步骤不再一一叙述，方法与程序代码类似查询学生信息下面例举的是以学生身份登录系统后的操作
3.6学生查询界面
DimxhAsString=TextBox1.Text.Trim
DimnameAsString=TextBox2.Text.Trim
DimsqlAsString
sql="
select*from学生基本情况,课程whereSno='
xh&
andSname='
name&
and学生基本情况.class=课程.class"
DimdrAsOleDbDataReader=cmdqq.ExecuteReader（）
ProtectedSubPage_Load（ByValse
升级会员 