站内搜索：

VB.NET学生毕业生答辩管理系统(7)

来源：xiaoniu168.com 作者：本站原创添加时间：2011-11-01 点击数：30547

评定系统后台：
1. TeacherModify（教师信息编辑）
此模块是对教师信息的维护，添加、编辑。添加教师信息时，判断帐号是否为空、重复。如图：
计算机毕业论文

以下是引用片段：

其相关代码如下：
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not Page.IsPostBack Then
            '绑定班级列表
            Dim tmpcnn As New Sql2000DB
            Me.drpBj.DataTextField = "bjmc"
            Me.drpBj.DataValueField = "bjid"
            Me.drpBj.DataSource = tmpcnn.GetData("select * from class")
            Me.drpBj.DataBind()
            Select Case Request.QueryString("Tag")
                Case "New"
                    '清空控件
                    Me.txtID.Text = ""
                    Me.txtOldFile.Text = ""
                    Me.txtXm.Text = ""
                    Me.txtBykt.Text = ""
                Case "Old"
                    '显示当前的学生信息
                    Dim tmpda As New DataTable
                    tmpda = tmpcnn.GetData("select * from student where id='" & Request.QueryString("bh") & "'")
                    If tmpda.Rows.Count > 0 Then
                        Me.txtID.Text = tmpda.Rows(0)("ID")
                        Me.txtOldFile.Text = tmpda.Rows(0)("Bysjwjmc")
                        Me.txtXm.Text = tmpda.Rows(0)("Xm")
                        Me.txtBykt.Text = tmpda.Rows(0)("Bykt")
                        Me.drpBj.SelectedValue = tmpda.Rows(0)("bjid")
                        Me.txtID.Enabled = False
                    End If
            End Select
        End If
    End Sub