学生信息管理 VB语言Word文档格式.docx

1、专业负责人 2012 年 7 月 8日目 录第1章 系统分析 11.1 系统需求分析 11.2 开发环境 1第2章 系统设计 22.1 系统功能模块设计 22.2数据库设计 3第3章 系统实现 53.1学生信息管理系统页面的设计 53.2设计结果分析 11第4章 结束语 12参考文献 13 第1章 系统分析1.1 系统需求分析随着学校的规模不断扩大，学生人数急剧增加，有关学生的各种信息也成倍增长。面对庞大的信息量需要有学生管理系统来提供学生管理工作的效率。通过这样的系统可以做到信息的规范管理，科学统计和快速查询，修改，增加，删除等，从而减少管理方面的工作量。实现学生信息关系的系统化，规范化，自

2、动化，用计算机对学生各种信息进行日常管理。本系统主要包括学生信息查询和信息添加等功能，来初步实现学生信息的计算机化管理。1.2 可行性分析本次课程设计题目：“学生信息管理系统”，主要目的是编制一个网页登陆系统，连接数据库系统，用以实现学生、班级以及考核成绩等多项管理。同时对整个系统的分析、设计过程给出一个完整的论证。学生信息管理系统是一种基于集中统一规划的数据库数据管理新模式，其实就是对学生、班级、考核成绩的管理。在信息时代的今天，人类需要对在政治、经济、军事、文化、科研、教育等领域产生的大量信息进行管理，并对数据进行加工处理，数据库技术则是信息管理与数据处理的先进技术。随着信息量的不断增加，

3、作为计算机的三大主要应用（科学计算、过程控制和数据处理）之一的数据处理，已迅速上升为计算机应用的主要方面，数据库技术则成为人们日常生活中处理数据不可缺少的有力工具，并且现代的信息管理系统几乎都以数据库技术作为核心1。由于本系统管理的对象简单，且每个数据内容之间都具有较强的关联性，涉及过程并不是很复杂。因此，比较适合于采用数据库管理。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。第2章 系统设计系统开发的总体任务是实现学生信息关系的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成的。本设计中学生信息管理系统需

4、要完成的功能主要有： 有关学籍等信息的输入，包括学生基本信息、所在班级、所学课程等等 学生信息的查询，包括学生基本信息、所在班级、已学课程等。 学生信息的修改。 学校基本课程信息的输入和查询。 基本课程信息的修改。 学生课程的设置和修改。 学生成绩信息的输入，修改，查询，统计。2.1 系统功能模块设计对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到如图2-1所示的系统功能模块图。图2-1 前台图书远程检索功能结构图2.2数据库设计首先设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动2。本实

5、例根据上面的设计规划出的实体有：学生实体、课程实体。各个实体之间关系E-R图如图2-2所示。图2-2数据库E-R模型根据用户具体的需求以及系统功能的要求，结合实际情况，本系统建立了一个数据库，命名为“datasun”。在此数据库基础上建立了学生基本情况表 班级基本情况表 登陆用户表 院系表 课程表。（1）学生基本情况表表表2-1 学生基本信息表student列名数据类型可否为空说明snumNVARCHAR（10）NOT NULL学号（主键）SnameNVARCHAR（50）NULL学生姓名Ssex性别Sethnic民族Shome籍贯Smajor专业名Sphone电话Sbirth出生日期（2）班

6、级基本情况表表2-2班级基本情况表表SclassRCHAR（10）班级Sroom自习教室Leader辅导员CS系名（3）登陆用户表表2-3登陆用户表表Name姓名code密码（4）院系表表2-4院系表Cname院系名称Croom办公室CphoneNOT NUL联系电话Cleader系主任（5）课程表表2-5课程表Kname课程名课程号classleibie类别第3章 系统实现3.1学生信息管理系统页面的设计 本系统实现了对学生的基本信息和成绩的管理，还可以对学校的所有课程进行管理，最后本系统还实现了对课程信息、学生基本信息和成绩信息的查询。系统主界面如图：图3-1登陆界面部分代码如下：Prot

7、ected Sub Button1_Click（ByVal sender As Object, ByVal e As System.EventArgs） Handles Button1.Click Dim Role As String = DropDownList1.Text Dim uname As String = TextBox1.Text Dim password As String = TextBox2.Text Dim conn As OleDbConnection = New OleDbConnection（Provider=SQLOLEDB.1;Password=sa;Pers

8、ist Security Info=True;User ID=sa;Initial Catalog=datasun;Data Source=.） conn.Open（） Dim sql As String = select * from 登录 where 身份= + Role + and name= + uname + and code= + password + Dim cmd As OleDbCommand = New OleDbCommand（sql, conn） Dim dr As OleDbDataReader = cmd.ExecuteReader（） If DropDownLis

9、t1.Text = 教师 Then If （dr.Read（） Then Session（uname） = dr.Item（0）.ToString（） Response.Redirect（teacher.aspx Else Label4.Text = 登录失败，用户名或者密码错误! End Ifstudent.aspx End Sub33.2教师界面Inherits System.Web.UI.Page Protected Sub Button1_Click（ByVal sender As Object, ByVal e As System.EventArgs） Handles Button1

10、.Click学生信息.aspx End Sub Protected Sub Button3_Click（ByVal sender As Object, ByVal e As System.EventArgs） Handles Button3.Click院系信息.aspx Protected Sub Button2_Click（ByVal sender As Object, ByVal e As System.EventArgs） Handles Button2.Click班级信息.aspx Protected Sub Button4_Click（ByVal sender As Object,

11、ByVal e As System.EventArgs） Handles Button4.Click课程信息.aspx Protected Sub Page_Load（ByVal sender As Object, ByVal e As System.EventArgs） Handles Me.Load3.3学生信息查询Partial Class _Default Inherits System.Web.UI.Page If Not IsPostBack Then databinds（） Sub databinds（） Dim cmd As OleDbCommand = New OleDbCo

12、mmand（select * from 学生基本情况 , conn） GridView1.DataSource = dr GridView1.DataBind（） Protected Sub GridView1_RowCancelingEdit（ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs） Handles GridView1.RowCancelingEdit GridView1.EditIndex = -1教师界面.aspx Protected Sub Grid

13、View1_SelectedIndexChanged（ByVal sender As Object, ByVal e As System.EventArgs） Handles GridView1.SelectedIndexChangedEnd Class3.4学生信息修改Protected Sub GridView1_RowEditing（ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs） Handles GridView1.RowEditing GridView1.EditIn

14、dex = e.NewEditIndex（） Protected Sub GridView1_RowDeleting（ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs） Handles GridView1.RowDeleting Dim str As String = GridView1.DataKeys（e.RowIndex）.Value.ToString（） Dim strsql = delete from 学生基本情况 where Sno= + str + Dim cm

15、dqq As OleDbCommand = New OleDbCommand（strsql, conn） cmdqq.ExecuteNonQuery（） conn.Close（） Protected Sub GridView1_RowUpdating（ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs） Handles GridView1.RowUpdating Dim conn As OleDbConnection = New OleDbConnection（ Dim ban

16、ji, name, sex, birth, jiguan, tel, addr As TextBox 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.Ro

17、wIndex）.Cells（6）.Controls（0） tel = GridView1.Rows（e.RowIndex）.Cells（7）.Controls（0） addr = GridView1.Rows（e.RowIndex）.Cells（8）.Controls（0）update 学生基本情况 set Class= & banji.Text & ,name= name.Text &, Ssex = sex.Text &, Sbirth = birth.Text &, Shome = jiguan.Text &,Sphone = tel.Text &,Sadd= addr.Text & w

18、here snum = GridView1.DataKeys（e.RowIndex）.Value.ToString.Trim（） & Dim cmdqq As New OleDbCommand（sql, conn）3.5添加学生信息 Protected Sub Button_Click（ByVal sender As Object, ByVal e As System.EventArgs） Handles Button.Click Dim cmdqq As New OleDbCommand（insert into 学生基本情况（snum, Sname, Ssex, Sbirth,Sclass

19、,Sphone ,Sadd ,Shome）values（ TextBox1.Text &, TextBox2.Text & DropDownList2.Text & TextBox4.Text & TextBox5.Text & TextBox7.Text & TextBox8.Text & DropDownList1.Text &） Label10.Text = 保存成功Default.aspxEnd Sub以教师身份查询另外三个表的步骤不再一一叙述，方法与程序代码类似查询学生信息下面例举的是以学生身份登录系统后的操作3.6学生查询界面 Dim xh As String = TextBox1.Text.Trim Dim name As String = TextBox2.Text.Trim Dim sql As String sql = select * from 学生基本情况,课程 where Sno= xh &and Sname= name &and 学生基本情况.class =课程.class Dim dr As OleDbDataReader = cmdqq.ExecuteReader（） Protected Sub Page_Load（ByVal se