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

2018-2018年度第一学期实验专用周班级：Z090551/52实验环节名称：基于 的数据库开发实验专用周题目：学生成绩管理系统学生学号：学生姓名：学生班级：实验专用周指导教师：实验专用周完成日期：2018.12.16学生成绩：一、目标：通过基于 的数据库开发，使学生更进一步的掌握 课堂讲授的内容，把理论知识灵活地运用到 程序的开发与设计中去。二、要求：按时参加基于 的数据库开发训练，不得迟到和早退；独立完成程序设计；按要求撰写实践报告。三、详细内容：使用《 》课程讲授内容，设计学生成绩管理系统，要求实现如下功能：1.用户登陆学生信息管理网站采用用户名及密码验证模式，进入学生信息管理网站前，用户必须在登陆页面输入用户名及密码，只有验证通过的用户方可进入学生信息管理网站操作主页面。2.用户管理包括2个功能模块：用户信息查询以及用户的删除、修改、插入操作。3.学生信息管理包括3个功能模块：学生个人信息的添加、学生个人信息的查询以及学生个人信息的修改与删除。4.学生成绩管理

包括3个功能模块：学生成绩的添加与删除、学生成绩查询以及学生成绩的修改。四、数据库表设计根据系统用户和角色数成员T据则存储在另结构分别在表列名功能的需要，可攵据存储在资格服务自动维一个名为 m~表中列出。数据类型「以通过 数护；专业、课程、年级勺 数表 表列属性■据库来存储各种数据。数据库中，并由、班级、学生和成绩数」据库2中0，0各5个数据表的说明主键列，自动加专业编号列名数据类型不允许为空表 表列属性专业名称说明主键列，自动加年级编号列名数据类型不允许为表3Cla列属性空表年级名称说明主键列，自动加班级编号不允许为空班级名称列名数据类型不允许为空表4Cou列属性年表级编号，引用 表中的列ses说明主键列，自动加课程编号不允许为空年级编号，引用 表中的 歹I」不允许为空专业编号，引用 表中的 歹I」不允许为空课程名称不允许为空学期，取值为1 2 3 45不允许为空学时，取值范围为~不允许为空课程类型，取值为“必修”或“选修”

表 表列名数据类型列属性说明主键列学号，引用 表中的列主键列课程编号，引用 表中的 歹e不允许为空成绩，取值范围为~表6Stu表列名数据类型列属性说明主键列，自动加学号不允许为空姓名不允许为空性别，取值为“男”或“女”不允许为空专业编号，引用 表中的 歹不允许为空年级编号，引用 表中的 歹不允许为空班级编号，引用 表中的出生日期政治面貌，取值为“无）”、“共青团员”、“中共党员”五、系统结构图电子邮箱如图图1所示系统首页登录页添加新用户管理员角色登录操作员角色登录教师角色登录学生角色登录查询用户信息管理用户信息添加和管理学生信息管理学生成绩以班为单位查询信息以班为单位查询成绩查询单个学生信息查询单个学生成绩系统首页登录页添加新用户管理员角色登录操作员角色登录教师角色登录学生角色登录查询用户信息管理用户信息添加和管理学生信息管理学生成绩以班为单位查询信息以班为单位查询成绩查询单个学生信息查询单个学生成绩图1系统结构图六、源代码1站点地图 代码<?xmlversion="1.0"encoding="utf-8"?><siteMapxmlns=""><siteMapNodeurl="default.aspx“title="系统首页 "descriptioni“〉<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查询学生信息查询学期成绩<siteMapNodeurl="~/teacher/bjstuinf.aspx“title="班级学生信息"/><siteMapNodeurl="~/teacher/bjstucj.aspx“title="班级学生成绩"/>“description="以班级为单位“description="以班级为单位</siteMapNode><siteMapNodetitle="学生专区 "roles="*”>"description=""/>“description="查询学生个人<siteMapNode"description=""/>“description="查询学生个人的所有成绩<siteMapNodeurl="~/student/fdselfcj.aspx“title="查询个人成绩"/>的所有成绩</siteMapNode></siteMapNode></siteMap>代码2、管理用户信息的代码<%@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="更新"/>"ShowDeleteButton="True"/>"ShowSelectButton="True"/><asp"ShowDeleteButton="True"/>"ShowSelectButton="True"/><asp:CommandFieldSelectText="编辑角色</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>管理用户信息的 代码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操作员查询并管理学生成绩的 代码<%@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>操作员查询并管理学生成绩的 代码PartialClassop_fdstucjInheritsSystem.Web.UI.PageProtectedSubgvResult_RowCancelingEdiByValsenderAsObjec,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*fromClassesDimcommandAsNewSqlCommand(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.ConnectionStringDimconnectionAsNewSqlConnection(connectionString>DimsqlAsString="select*fromStudentswhereStudentID='"&sno&"'"DimcommandAsNewSqlCommand(sql,connection>connection.Open(>DimreaderAsSqlDataReade