计算机毕业设计教师学生管理功能介绍：
3. TeacherStuderList（教师学生管理）
此模块可以通过选择教师名称，教师角色分配评定学生的课程，添加时判断信息是否重复，删除时判断信息是否已经被使用。如图：
|
以下是引用片段：
其相关代码如下：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'显示当前教师列表
Dim tmpcnn As New Sql2000DB
Me.DropDownList1.DataTextField = "xm"
Me.DropDownList1.DataValueField = "ID"
Me.DropDownList1.DataSource = tmpcnn.GetData("select * from teacher where teacher.id<>'admin'")
Me.DropDownList1.DataBind()
'显示当前学院的学生列表
Me.DropDownList2.DataTextField = "bjxs"
Me.DropDownList2.DataValueField = "id"
Me.DropDownList2.DataSource = tmpcnn.GetData("select student.id,(class.bjmc+ '-' + student.xm + '-' + student.bykt) as bjxs from student,class where student.bjid=class.bjid order by class.bjid")
Me.DropDownList2.DataBind()
'显示当前的角色列表
Me.DropDownList3.DataTextField = "jsmc"
Me.DropDownList3.DataValueField = "jsid"
Me.DropDownList3.DataSource = tmpcnn.GetData("select * from jsfs")
Me.DropDownList3.DataBind()
''显示教师学生角色列表
Me.DataGrid1.DataSource = tmpcnn.GetData("SELECT *,student.xm as xsxm,teacher.xm as jsxm from Jsxs,student,teacher,jsfs where jsxs.jsid=teacher.id and jsxs.xsid=student.id and jsxs.juesid=jsfs.jsid ")
Me.DataGrid1.DataBind()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
''核对信息是否正确
Dim tmpcnn As New Sql2000DB
If tmpcnn.GetData("select * from Jsxs where xsid='" & Me.DropDownList2.SelectedValue & "' and jsid='" & Me.DropDownList1.SelectedValue & "' and juesid=" & Me.DropDownList3.SelectedValue & "").Rows.Count > 0 Then
Response
Exit Sub
End If
|
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第9页为计算机毕业论文角色管理功能介绍......