基于Web的数据库开发实训报告模板

2011-2012年度第一学期实验专用周班级：Z090551/52实验环节名称：基于Web的数据库开发实验专用周题目：学生成绩管理系统学生学号：学生姓名：学生班级：实验专用周指导教师：实验专用周完成日期：2011.12.16学生成绩：一、目标：通过基于Web的数据库开发，使学生更进一步的掌握ASP.NET课堂讲授的内容，把理论知识灵活地运用到ASP.NET程序的开发与设计中去。二、要求：按时参加基于Web的数据库开发训练，不得迟到和早退；独立完成程序设计；按要求撰写实践报告。三、详细内容：使用《ASP.NET》课程讲授内容，设计学生成绩管理系统，要求实现如下功能：用户登陆学生信息管理网站采用用户名及密码验证模式，进入学生信息管理网站前，用户必须在登陆页面输入用户名及密码，只有验证通过的用户方可进入学生信息管理网站操作主页面。用户管理包括2个功能模块：用户信息查询以及用户的删除、修改、插入操作。学生信息管理包括3个功能模块：学生个人信息的添加、学生个人信息的查询以及学生个人信息的修改与删除。学生成绩管理包括3个功能模块：学生成绩的添加与删除、学生成绩查询以及学生成绩的修改。四、数据库表设计根据系统功能的需要，可以通过SQLServer数据库来存储各种数据。用户和角色数据存储在SQLServer2005Express数据库中，并由ASP.NET成员资格服务自动维护；专业、课程、年级、班级、学生和成绩数据则存储在另一个名为srms的SQLServer2005数据库中，各个数据表的结构分别在表1～表6中列出。表1Majors表列名数据类型列属性说明MajorIDint主键列，自动加1专业编号MajorNamevarchar(50)不允许为空专业名称表2Grades表列名数据类型列属性说明GradeIDint主键列，自动加1年级编号GradeNamechar(4)不允许为空年级名称表3Classes表列名数据类型列属性说明ClassIDint主键列，自动加1班级编号ClassNamechar(4)不允许为空班级名称GradeIDint不允许为空年级编号，引用Grades表中的GradeID列表4Courses表列名数据类型列属性说明CourseIDint主键列，自动加1课程编号GradeIDint不允许为空年级编号，引用Grades表中的GradeID列MajorIDint不允许为空专业编号，引用Majors表中的MajorID列CourseNamevarchar(30)不允许为空课程名称Semesterint不允许为空学期，取值为1、2、3、4、5、6Periodint不允许为空学时，取值范围为1～200CourseTypechar(4)不允许为空课程类型，取值为“必修”或“选修”表5Results表列名数据类型列属性说明StudentIDint主键列学号，引用Students表中的StudentID列CourseIDint主键列课程编号，引用Courses表中的CourseID列Resultint不允许为空成绩，取值范围为0～100表6Students表列名数据类型列属性说明StudentIDint主键列，自动加1学号StudentNamevarchar(20)不允许为空姓名StudentSexchar(2)不允许为空性别，取值为“男”或“女”MajorIDint不允许为空专业编号，引用Majors表中的MajorID列GradeIDint不允许为空年级编号，引用Grades表中的GradeID列ClassIDint不允许为空班级编号，引用Classes表中的ClassIDBirthDatedatetime出生日期Politicalchar(8)政治面貌，取值为“（无）”、“共青团员”、“中共党员”Emailvarchar(30)电子邮箱五、系统结构图如图图1所示图1系统结构图六、源代码1、站点地图Web.sitemap代码<?xmlversion="1.0"encoding="utf-8"?><siteMapxmlns="/AspNet/SiteMap-File-1.0"><siteMapNodeurl="default.aspx"title="系统首页"description=""><siteMapNodetitle="管理员专区"roles="*"><siteMapNodeurl="~/admin/addUser.aspx"title="添加用户"description=""/><siteMapNodeurl="~/admin/findUser.aspx"title="查询用户信息"description=""/><siteMapNodeurl="~/admin/manageUser.aspx"title="管理用户信息"description="删除、修改用户"/></siteMapNode><siteMapNodetitle="操作员专区"roles="*"><siteMapNodeurl="~/op/fdstuinf.aspx"title="查询学生信息"description=""/><siteMapNodeurl="~/op/fdstucj.aspx"title="查询学生成绩"description=""/></siteMapNode><siteMapNodetitle="教师专区"roles="*"><siteMapNodeurl="~/teacher/bjstuinf.aspx"title="班级学生信息"description="以班级为单位查询学生信息"/><siteMapNodeurl="~/teacher/bjstucj.aspx"title="班级学生成绩"description="以班级为单位查询学期成绩"/></siteMapNode><siteMapNodetitle="学生专区"roles="*"><siteMapNodeurl="~/student/fdselfinf.aspx"title="查询个人信息"description=""/><siteMapNodeurl="~/student/fdselfcj.aspx"title="查询个人成绩"description="查询学生个人的所有成绩"/></siteMapNode></siteMapNode></siteMap>2、管理用户信息的manageUser.aspx.vb代码<%@PageLanguage="VB"MasterPageFile="~/MasterPage.master"AutoEventWireup="false"CodeFile="manageUser.aspx.vb"Inherits="admin_manageUser"title="无标题页"%><asp:ContentID="Content1"ContentPlaceHolderID="head"Runat="Server"><styletype="text/css">.style3{width:138px;}</style></asp:Content><asp:ContentID="Content2"ContentPlaceHolderID="ContentPlaceHolder1"Runat="Server"> <table><tr><td><asp:GridViewID="GridView1"runat="server"AutoGenerateColumns="False"CellPadding="4"ForeColor="#333333"GridLines="None"Height="238px"Width="444px"DataKeyNames="UserName"><FooterStyleBackColor="#1C5E55"Font-Bold="True"ForeColor="White"/><RowStyleBackColor="#E3EAEB"/><Columns><asp:BoundFieldDataField="UserName"HeaderText="用户名"/><asp:TemplateFieldHeaderText="活动"><EditItemTemplate><asp:CheckBoxID="chkIsApproved"runat="server"Checked='<%#Bind("IsApproved")%>'/></EditItemTemplate><ItemTemplate><asp:CheckBoxID="CheckBox1"runat="server"Checked='<%#Bind("IsApproved")%>'/></ItemTemplate></asp:TemplateField><asp:TemplateFieldHeaderText="电子邮箱"><EditItemTemplate><asp:TextBoxID="txtEmail"runat="server"Text='<%#Bind("Email")%>'></asp:TextBox></EditItemTemplate><ItemTemplate><asp:LabelID="Label1"runat="server"Text='<%#Bind("Email")%>'></asp:Label></ItemTemplate></asp:TemplateField><asp:TemplateFieldHeaderText="备注"><EditItemTemplate><asp:TextBoxID="txtComment"runat="server"Text='<%#Bind("Comment")%>'></asp:TextBox></EditItemTemplate><ItemTemplate><asp:LabelID="Label2"runat="server"Text='<%#Bind("Comment")%>'></asp:Label></ItemTemplate></asp:TemplateField><asp:CommandFieldCancelText="取消"EditText="编辑用户"ShowEditButton="True"UpdateText="更新"/><asp:CommandFieldDeleteText="删除用户"ShowDeleteButton="True"/><asp:CommandFieldSelectText="编辑角色"ShowSelectButton="True"/></Columns><PagerStyleBackColor="#666666"ForeColor="White"HorizontalAlign="Center"/><SelectedRowStyleBackColor="#C5BBAF"Font-Bold="True"ForeColor="#333333"/><HeaderStyleBackColor="#1C5E55"Font-Bold="True"ForeColor="White"/><EditRowStyleBackColor="#7C6F57"/><AlternatingRowStyleBackColor="White"/></asp:GridView></td><tdclass="style3">                                             <asp:TableID="tbRoles"runat="server"Width="19px"Height="16px"></asp:Table><asp:LabelID="lblUserName"runat="server"></asp:Label><asp:DataListID="lstRoles"runat="server"CellPadding="4"ForeColor="#333333"Width="58px"><FooterStyleBackColor="#1C5E55"Font-Bold="True"ForeColor="White"/><AlternatingItemStyleBackColor="White"/><ItemStyleBackColor="#E3EAEB"/><SelectedItemStyleBackColor="#C5BBAF"Font-Bold="True"ForeColor="#333333"/><HeaderStyleBackColor="#1C5E55"Font-Bold="True"ForeColor="White"/><ItemTemplate><asp:CheckBoxID="chkUserInRole"runat="server"oncheckedchanged="chkUserInRole_CheckedChanged"/></ItemTemplate></asp:DataList></td></tr></table></asp:Content>管理用户信息的manageUser.aspx.vb代码SubgvDataBind()Me.GridView1.DataSource=Membership.GetAllUsers()'获取数据库中用户集合Me.GridView1.DataBind()'执行数据绑定EndSubProtectedSubPage_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.LoadIfNotMe.IsPostBackThengvDataBind()EndIfEndSub'单击用户列表中的“编辑用户”按钮时执行以下事件处理程序ProtectedSubGridView1_RowEditing(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewEditEventArgs)HandlesGridView1.RowEditingMe.GridView1.EditIndex=e.NewEditIndex'使该列转换为编辑模式gvDataBind()'执行数据绑定EndSubProtectedSubGridView1_RowUpdating(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewUpdateEventArgs)HandlesGridView1.RowUpdatingDimIsApprovedAsBoolean=CType(Me.GridView1.Rows(e.RowIndex).Cells(1).FindControl("chkIsApproved"),CheckBox).CheckedDimEmailAsString=CType(Me.GridView1.Rows(e.RowIndex).Cells(2).FindControl("txtEmail"),TextBox).TextDimCommentAsString=CType(Me.GridView1.Rows(e.RowIndex).Cells(3).FindControl("txtComment"),TextBox).TextDimOldUserNameAsString=Me.GridView1.DataKeys(e.RowIndex).ValueDimCurrentUserAsMembershipUser=Membership.GetUser(OldUserName)CurrentUser.IsApproved=IsApprovedCurrentUser.Email=EmailCurrentUser.Comment=CommentMembership.UpdateUser(CurrentUser)Me.GridView1.EditIndex=-1Me.gvDataBind()EndSub'在编辑模式下单击“取消”链接时执行以下事件处理程序ProtectedSubGridView1_RowCancelingEdit(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewCancelEditEventArgs)HandlesGridView1.RowCancelingEditMe.GridView1.EditIndex=-1gvDataBind()EndSub'单击用户列表中的“删除用户”链接时执行以下事件处理程序ProtectedSubGridView1_RowDeleting(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewDeleteEventArgs)HandlesGridView1.RowDeletingDimUserNameAsString=Me.GridView1.DataKeys(e.RowIndex).ValueMe.GridView1.EditIndex=-1Me.gvDataBind()EndSub'在GridView控件中创建行时执行以下事件处理程序ProtectedSubGridView1_RowCreated(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewRowEventArgs)HandlesGridView1.RowCreatedIfe.Row.RowState=DataControlRowState.NormalOre.Row.RowState=DataControlRowState.AlternateThenIfe.Row.Cells(5).Controls.Count<>0ThenDimbtnDeleteAsLinkButton=e.Row.Cells(5).Controls(0)IfbtnDeleteIsNotNothingThenbtnDelete.Attributes("onclick")="returnconfirm('你确定要删除这个用户吗？')"EndIfEndIfEndIfEndSub'通用过程，用于实现DataList控件的数据绑定SubDataListBinding(ByValUserNameAsString)Me.lstRoles.DataSource=Roles.GetAllRoles()Me.lstRoles.DataBind()ForiAsInteger=0ToRoles.GetAllRoles.Length-1DimchkUserInRoleAsCheckBox=CType(Me.lstRoles.Items(i).FindControl("chkUserInRole"),CheckBox)chkUserInRole.Text=Roles.GetAllRoles(i)chkUserInRole.Checked=Roles.IsUserInRole(UserName,Roles.GetAllRoles(i))chkUserInRole.Attributes("RoleName")=Roles.GetAllRoles(i)NextEndSub'在用户列表中单击“编辑角色”链接时执行以下事件处理程序ProtectedSubGridView1_SelectedIndexChanged(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesGridView1.SelectedIndexChangedDimUserNameAsString=Me.GridView1.SelectedValueMe.lblUserName.Text="将用户<b>"&UserName&"</b>添加到："DataListBinding(UserName)Me.tbRoles.Visible=TrueMe.ViewState("UserName")=UserNameEndSub'单击某角色前面的复选框时执行以下事件处理程序ProtectedSubchkUserInRole_CheckedChanged(ByValsenderAsObject,ByValeAsSystem.EventArgs)DimUserNameAsString=Me.ViewState("UserName")DimchkUserInRoleAsCheckBox=CType(sender,CheckBox)DimRoleNameAsString=chkUserInRole.Attributes("RoleName")IfRoles.IsUserInRole(UserName,RoleName)ThenRoles.RemoveUserFromRole(UserName,RoleName)ElseRoles.AddUserToRole(UserName,RoleName)EndIfDataListBinding(UserName)EndSubEndClass3、操作员查询并管理学生成绩的fdstucj.aspx代码<%@PageLanguage="VB"MasterPageFile="~/MasterPage.master"AutoEventWireup="false"CodeFile="fdstucj.aspx.vb"Inherits="op_fdstucj"title="UntitledPage"%><asp:ContentID="Content1"ContentPlaceHolderID="head"Runat="Server"><styletype="text/css">.style3{width:249px;}</style></asp:Content><asp:ContentID="Content2"ContentPlaceHolderID="ContentPlaceHolder1"Runat="Server"><tableclass="style1"><tr><tdclass="style3">年级：<asp:DropDownListID="lstGrade"runat="server"DataSourceID="SqlDataSource1"DataTextField="GradeName"DataValueField="GradeID"AutoPostBack="True"></asp:DropDownList><asp:SqlDataSourceID="SqlDataSource1"runat="server"ConnectionString="<%$ConnectionStrings:srmsConnectionString%>"SelectCommand="SELECT*FROM[Grades]"></asp:SqlDataSource></td><td>专业：<asp:DropDownListID="lstMajor"runat="server"DataSourceID="SqlDataSource2"DataTextField="MajorName"DataValueField="MajorID"></asp:DropDownList><asp:SqlDataSourceID="SqlDataSource2"runat="server"ConnectionString="<%$ConnectionStrings:srmsConnectionString%>"SelectCommand="SELECTDISTINCTMajors.MajorID,Majors.MajorName,Students.GradeIDFROMMajorsINNERJOINStudentsONMajors.MajorID=Students.MajorIDWHERE(Students.GradeID=@GradeID)"><SelectParameters><asp:ControlParameterControlID="lstGrade"Name="GradeID"PropertyName="SelectedValue"/></SelectParameters></asp:SqlDataSource></td></tr><tr><tdclass="style3">班级：<asp:DropDownListID="lstClass"runat="server"DataSourceID="SqlDataSource3"DataTextField="ClassName"DataValueField="ClassID"></asp:DropDownList><asp:SqlDataSourceID="SqlDataSource3"runat="server"ConnectionString="<%$ConnectionStrings:srmsConnectionString%>"SelectCommand="SELECTDISTINCTClasses.ClassID,Classes.ClassNameFROMStudentsINNERJOINClassesONStudents.ClassID=Classes.ClassIDWHERE(Students.GradeID=Students.GradeID)"></asp:SqlDataSource></td><td>课程：<asp:DropDownListID="lstCourse"runat="server"DataSourceID="SqlDataSource4"DataTextField="CourseName"DataValueField="CourseID"></asp:DropDownList><asp:SqlDataSourceID="SqlDataSource4"runat="server"ConnectionString="<%$ConnectionStrings:srmsConnectionString%>"SelectCommand="SELECT[CourseID],[GradeID],[MajorID],[CourseName]FROM[Courses]WHERE(([GradeID]=@GradeID)AND([MajorID]=@MajorID))"><SelectParameters><asp:ControlParameterControlID="lstGrade"Name="GradeID"PropertyName="SelectedValue"Type="Int32"/><asp:ControlParameterControlID="lstMajor"Name="MajorID"PropertyName="SelectedValue"Type="Int32"/></SelectParameters></asp:SqlDataSource> <asp:ButtonID="btnLoad"runat="server"Text="加载数据"/></td></tr><tr><tdcolspan="2"><asp:GridViewID="gvResult"runat="server"AutoGenerateColumns="False"BackColor="White"BorderColor="#336666"BorderStyle="Double"orderWidth="3px"CellPadding="4"GridLines="Horizontal"Height="97px"Width="545px"AllowPaging="True"AllowSorting="True"DataKeyNames="StudentID,CourseID"PageSize="5"DataSourceID="SqlDataSource5"><FooterStyleBackColor="White"ForeColor="#333333"/><RowStyleBackColor="White"ForeColor="#333333"/><Columns><asp:BoundFieldDataField="StudentID"HeaderText="学号"ReadOnly="True"SortExpression="StudentID"/><asp:BoundFieldDataField="StudentName"HeaderText="姓名"ReadOnly="True"SortExpression="StudentName"/><asp:BoundFieldDataField="Result"HeaderText="成绩"SortExpression="Result"/><asp:CommandFieldShowEditButton="True"/><asp:CommandFieldShowDeleteButton="True"/></Columns><PagerStyleBackColor="#336666"ForeColor="White"HorizontalAlign="Center"/><SelectedRowStyleBackColor="#339966"Font-Bold="True"ForeColor="White"/><HeaderStyleBackColor="#336666"Font-Bold="True"ForeColor="White"/></asp:GridView><asp:SqlDataSourceID="SqlDataSource5"runat="server"ConnectionString="<%$ConnectionStrings:srmsConnectionString%>"SelectCommand="SELECTr.StudentID,s.StudentName,r.CourseID,co.CourseName,r.Result,s.ClassID,cl.ClassNameFROMCoursesAScoINNERJOINResultsASrONco.CourseID=r.CourseIDINNERJOINStudentsASsONr.StudentID=s.StudentIDINNERJOINClassesASclONs.ClassID=cl.ClassIDWHERE(s.ClassID=@ClassID)AND(r.CourseID=@CourseID)"DeleteCommand="DELETEFROMResultsWHERE(StudentID=@StudentID)AND(CourseID=@CourseID)"UpdateCommand="UPDATEResultsSETResult=@ResultWHERE(StudentID=@StudentID)AND(CourseID=@CourseID)"><SelectParameters><asp:ControlParameterControlID="lstClass"Name="ClassID"PropertyName="SelectedValue"/><asp:ControlParameterControlID="lstCourse"Name="CourseID"PropertyName="SelectedValue"/></SelectParameters><DeleteParameters><asp:ParameterName="StudentID"/><asp:ParameterName="CourseID"/></DeleteParameters><UpdateParameters><asp:ParameterName="Result"/><asp:ParameterName="StudentID"/><asp:ParameterName="CourseID"/></UpdateParameters></asp:SqlDataSource></td></tr></table></asp:Content>操作员查询并管理学生成绩的fdstucj.aspx.vb代码PartialClassop_fdstucjInheritsSystem.Web.UI.PageProtectedSubgvResult_RowCancelingEdit(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewCancelEditEventArgs)HandlesgvResult.RowCancelingEditgvResult.EditIndex=-1gvResult.DataBind()EndSubProtectedSubgvResult_RowDeleting(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewDeleteEventArgs)HandlesgvResult.RowDeleting'设置数据库连接DimsqlconnstrAsString=Me.SqlDataSource5.ConnectionStringDimsqlconnAsSqlConnection=NewSqlConnection(sqlconnstr)sqlconn.Open()'删除行处理DimsqlAsString="deletefromStudentswhereStudentID='"&gvResult.DataKeys(e.RowIndex).Value.ToString()&"'"DimCommAsSqlCommand=NewSqlCommand(sql,sqlconn)Comm.ExecuteNonQuery()sqlconn.Close()sqlconn=NothingComm=NothinggvResult.EditIndex=-1gvResult.DataBind()EndSubProtectedSubgvResult_RowEditing(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewEditEventArgs)HandlesgvResult.RowEditinggvResult.EditIndex=e.NewEditIndexgvResult.DataBind()EndSubProtectedSubgvResult_RowUpdating(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.GridViewUpdateEventArgs)HandlesgvResult.RowUpdatingDimconnectionAsNewSqlConnection(Me.SqlDataSource5.ConnectionString)Ifconnection.State=Data.ConnectionState.ClosedThenconnection.Open()DimsqlUpdateAsString="updateResultssetResult=@ResultwhereStudentID=@StudentIDANDCourseID=@CourseID"DimcommandAsNewSqlCommandcommand.Connection=connectioncommand.CommandText=sqlUpdatecommand.Parameters.AddWithValue("@StudentID",gvResult.DataKeys(e.RowIndex).Value.ToString())command.Parameters.AddWithValue("@CourseID",gvResult.DataKeys(e.RowIndex).Value.ToString())DimtxtResultAsTextBox=gvResult.Rows(e.RowIndex).Cells(2).Controls(0)command.Parameters.AddWithValue("@Result",txtResult.Text)command.ExecuteNonQuery()Me.gvResult.DataBind()EndSubProtectedSubbtnLoad_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesbtnLoad.ClickDimconnectionStringAsString=Me.SqlDataSource5.ConnectionStringDimconnectionAsNewSqlConnection(connectionString)DimsqlSelectAsString="selectresults.StudentID,results.CourseIDfromresultsinnerjoinstudentsonresults.StudentID=students.StudentIDwhere(results.CourseID=@CourseID)and(students.ClassID=@ClassID)"DimsqlInsertAsString="insertintoresults(StudentID,CourseID)selectStudentID,@CourseIDfromStudentswhereClassID=@ClassID"DimcommandAsNewSqlCommand(sqlSelect,connection)connection.Open()command.Parameters.Add("@ClassID",Data.SqlDbType.Int).Value=Me.lstClass.SelectedValuecommand.Parameters.Add("@CourseID",Data.SqlDbType.Int).Value=Me.lstCourse.SelectedValue'检查该班课程成绩记录是否存在DimreaderAsSqlDataReader=command.ExecuteReader()Ifreader.HasRowsThenExitSubreader.Close()'将所选班级学生的学号和所选课程编号一次填入成绩表command.Parameters("@ClassID").Value=Me.lstClass.SelectedValuecommand.Parameters("@CourseID").Value=Me.lstCourse.SelectedValuecommand.CommandText=sqlInsertIfcommand.ExecuteNonQuery()>0ThenMe.gvResult.DataBind()EndIfMe.SetGvCaption()EndSub'通用过程，用于设置GridView的标题文字SubSetGvCaption()IfMe.gvResult.Rows.Count=0ThenMe.gvResult.Caption=""ElseIfMe.lstClass.SelectedIndex<>-1AndMe.lstCourse.SelectedIndex<>-1ThenDimclassNameAsString=Me.lstClass.SelectedItem.TextDimcourseNameAsString=Me.lstCourse.SelectedItem.TextMe.gvResult.Caption="<b>"&className&"班的《"&courseName&"》课程成绩</b>"EndIfEndIfEndSub'完成对网页和控件的所有视图状态和控件状态信息的保存后执行以下事件处理程序ProtectedSubPage_SaveStateComplete(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.SaveStateComplete'根据4个列表框包含的项数是否为0决定是否启用“加载数据”按钮Me.btnLoad.Enabled=(Me.lstGrade.Items.Count<>0AndMe.lstMajor.Items.Count<>0AndMe.lstClass.Items.Count<>0AndMe.lstCourse.Items.Count<>0)EndSubEndClass4、操作员管理学生信息的fdstuinf.aspx.vb主要事件代码PartialClassop_fdstuinfInheritsSystem.Web.UI.Page'通用过程，根据年级列表框的内容更改班级列表框的内容，实现二者的联动SubdropdownlistBind(ByValsenderAsObject)DimgradeidAsInteger=CType(sender,DropDownList).SelectedValueDimlstClassAsDropDownList=CType(Me.fvStudent.Row.Cells(0).FindControl("lstClass"),DropDownList)DimconnstringAsString=Me.dsDetail.ConnectionStringDimconnAsNewSqlConnection(connstring)conn.Open()DimsqlAsString="select*fromClasseswhereGradeID="&gradeidDimcommandAsNewSqlCommand(sql,conn)DimreaderAsSqlDataReader=command.ExecuteReader()DimiAsInteger=0lstClass.Items.Clear()DoWhilereader.Read()lstClass.Items.Add(i)lstClass.Items(i).Value=reader.Item("ClassID")lstClass.Items(i).Text=reader.Item("ClassName")i+=1LoopEndSub'页面加载事件处理程序ProtectedSubPage_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.LoadDimconnectionStringAsString=Me.dsDetail.ConnectionStringDimconnectionAsNewSqlConnection(connectionString)DimsqlAsString="select*fromMajors;"&"select*fromGrades;select*fromClasses"DimcommandAsNewSqlCommand(sql,connection)connection.Open()DimreaderAsSqlDataReader=command.ExecuteReader()DimlblAsLabel=CType(Me.Master.FindControl("lblMessage"),Label)IfNotreader.HasRowsThenlbl.Text="暂无专业信息！"Me.fvStudent.Enabled=FalseEndIfreader.NextResult()IfNotreader.HasRowsThenlbl.Text&="暂无年级信息！"Me.fvStudent.Enabled=FalseEndIfreader.NextResult()IfNotreader.HasRowsThenlbl.Text&="暂无班级信息！"Me.fvStudent.Enabled=FalseEndIfEndSub'在从表中插入记录前执行以下事件处理程序，对输入的学号进行检查ProtectedSubfvStudent_ItemInserting(ByValsenderAsObject,ByValeAsSystem.Web.UI.WebControls.FormViewInsertEventArgs)HandlesfvStudent.ItemInsertingDimsnoAsString=e.Values(0)DimgradeidAsInteger=e.Values(4)DimclassidAsInteger=e.Values(5)Ifsno.Length<>6OrNotIsNumeric(sno)Thene.Cancel=TrueCType(Me.Master.FindControl("lblMessage"),Label).Text="学号必须是6为数字！"EndIfDimconnectionStringAsString=Me.dsDetail.ConnectionStringDimconnectionAsNe