网络编程ASP大作业报告.doc

华 北 科 技 学 院网络编程大作业班级: 电信B071 姓名: 钱一名 学号: 200703014122 设计题目: 学生信息管理系统 指导教师: 崔新伟 评阅成绩: 评阅教师: 一、设计目的综合应用ASP.NET程序设计中的基本知识，如：服务器控件、内部对象、数据库建立、数据库的读取、数据显示等，设计一个完整的应用系统。通过实践加深对ASP.NET程序设计的理解，进一步掌握网络编程基本知识，提高综合应用能力。二、设计要求学生信息管理系统能够提供如下功能：学生能查看学生的基本信息，比如学号、姓名、性别、年龄、电话号码、家庭住址等基本情况。班主任具有对所有学生信息进行查看、更新、删除、插入等管理权限。三、设计过程1、系统功能分析本系统主要包括如下功能：（1）学生权限登录1：学生登录进入学生的页面，班主任登录进入登录2页面。查看：提供用户基本的查看功能。排序：按照某一项信息的顺序进行重新排序。查找：能利用SQL语句对学生信息的查找。（2）班主任权限：登录2：班主任需要验证用户名和密码才能进入。除了具备学生用户的基本权限外，还可以实现对所有学生信息进行更新、删除、插入等管理。系统功能模块图如下图所示：学生信息管理系统框架1框架2学生班主任查看查看插入更新删除排序查找2、数据库设计系统选用ACCESS数据库，共建立两个数据表，分别是班主任信息表，和学生信息表。班主任信息表db1结构如下所示：学生信息表db2结构如下所示：3、详细设计系统的由两大模块组成：登录注册模块、学生权限模块和班主任权限模块。(1) 登录模块登录模块主要是判断为学生用户还是班主任，然后转到相应的界面。1）登录1.aspx实行学生用户登录，班主任用户需从此登录后链接到登录2。如是学生用户，重定向到学生查看页面 If usertype.SelectedItem.Value = student Then Response.Redirect(查看.aspx) 如是班主任用户，重定向到登录2页面 ElseIf usertype.SelectedItem.Value = teacher Then Response.Redirect(登录2.aspx) End If其运行界面图如下所示：注册模块关键程序代码如下： 从文本框中提取用户名和密码，并将其保存到数据库中：2）登录2.apsx当用户是班主任时，则进入登录2，需建立command对象，打开数据链接，建立datereader对象，用do while loop 语句，if then end if语句进行验证。关键代码如下：Application.Lock() Dim conn As New OleDbConnection(Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.MapPath(db1.mdb) Dim cmd As New OleDbCommand(select * from 表, conn) conn.Open() cmd.ExecuteNonQuery() Dim dr As OleDbDataReader = cmd.ExecuteReader() Do While dr.Read() If dr.Item(adduser) = adduser.Text Then If dr.Item(URL) = URL.Text Then Response.Redirect(框架1.aspx) End If Else : message.Text = 用户名或密码不正确,请重新输入 End If Loop End Sub(2) 学生权限模块此模块有：查看、排序、查找功能。1当用户是学生时，提交即进入下面界面即可查看：查看.aspx的关键程序： message.Text = ID学号姓名性别年龄电话号码家庭住址Do While dr.Read() message.Text &= message.Text &= & dr.Item(link_id) & message.Text &= & dr.Item(student_number) & message.Text &= & dr.Item(name) & message.Text &= & dr.Item(sex) & message.Text &= & dr.Item(age) & message.Text &= & dr.Item(tel) & message.Text &= & dr.Item(address) & message.Text &= Loop2 当用户点击排序后即可进入：（下图按学号重新排列）排序.aspx关键代码：第一次启动页面时，令排序字段为link_idIF Not Page.IsPostBack ThenSortField=link_id Call BindData() 绑定数据 令排序字段为选择的字段SortField=E.SortExpression BindData() 绑定数据3 当用户点击查找后即进入：（下图按查学生姓名“钱一名”）查找.aspx关键代码：建立Command对象 Dim cmd As New OleDbCommand(Select * From link Where name = name, conn) 建立参数 cmd.Parameters.Add(New OleDbParameter(name, OleDbType.Char, 20)给参数赋值 cmd.Parameters(name).Value = keyword.Text（3）班主任的权限模块该模块有两个框架构成，框架1：查看.aspx、插入.aspx；框架2：更新.aspx、删除.aspx。班主任可以对学生信息进行查看、排序、插入、更新、删除等功能。1）框架1.aspx用frame 语句把界面分成2列，即班主任登录成功后进入如下界面：插入.aspx关键代码：strSql = Insert Into link(student_number,name,sex,age,tel,address) Values( & student_number.Text & , & name.Text & , & sex.Text & , & age.Text & , & tel.Text & , & address.Text & ) Dim cmd As New OleDbCommand(strSql, conn) 执行操作，插入记录插入成功后即在左边查看中显示出来如下：2）框架2.aspx用frame语句把界面分成2行，如下：1 更新.aspx关键代码如下：声明文本框控声明文本框控 Dim txtstudent_number, txtname, txtsex, txtage, txttel, txtaddress As TextBox 获取文本框的值，先找到控件再取值 txtstudent_number = E.Item.Cells(2).Controls(0) txtname = E.Item.Cells(3).Controls(0) txtsex = E.Item.Cells(4).Controls(0) txtage = E.Item.Cells(5).Controls(0) txttel = E.Item.Cells(6).Controls(0) txtaddress = E.Item.Cells(7).Controls(0)Dim strSql As String strSql = Update link Set student_number= & txtstudent_number.Text & ,name= & txtname.Text & ,sex= & txtsex.Text & ,age= & txtage.Text & ,tel= & txttel.Text & ,address= & txtaddress.Text & Where link_id= & MyDataGrid.DataKeys(CInt(E.Item.ItemIndex) 返回该段link_id关键字段的值 Dim cmd As New OleDbCommand(strSql, conn) 执行更新操作2.删除.aspx 关键程序代码：首先页面启动时调用数据库绑定子程序If Not IsPostBack Then Call BindData() 接着建立Connection对象，建立Command对象 strSql = Delete from link Where link_id= & MyDataGrid.DataKeys(CInt(E.Item.ItemIndex)Dim cmd As New OleDbCommand(strSql, conn)执行删除操作，重新绑定MyDataGrid.EditItemIndex = -1Call BindData()数据绑定子程序，建立Connection对象，建立Command对象，建立DataAdapter对象，建立DataSet对象，填充DataSetadp.Fill(ds, link) MyDataGrid.DataSource=DS.Tables(link).DefaultView 指定数据源 MyDataGrid.DataBind() 执行绑定3)班主任功能设计模块中应用到的其他技术刷新：分行：链接：更新、删除重定向： Response.Redirect(查看.aspx)4、总结通过这次对学生信息管理系统的设计，我复习了ASP.NET程序设计的基本知识，巩固了用DateGrid控件对数据库的基本管理，如查看、排序、查找、插入、更新、删除等，掌握了用SQL语