edutinfoform.vb

来自「管理毕业设计的管理系统 VB+SQL2000....」· VB 代码 · 共 47 行

Public Class EduTInfoForm

    Private Sub UpdateInfo(ByVal table As DataTable, ByVal index As Integer)
        TextName.Text = table.Rows(index)("tname")
        TextPost.Text = table.Rows(index)("tpost")
        TextDegree.Text = table.Rows(index)("tdegree")
        TextEmail.Text = table.Rows(index)("temail")
        TextQq.Text = table.Rows(index)("tqq")
        TextQqgroup.Text = table.Rows(index)("tqqgroup")
    End Sub

    Private Sub EduTInfoForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ListTeacherName.Items.Clear()
        Dim strUser As String = LoginForm.TextUser.Text
        Dim strSQL As String = "select * from teacher"

        Dim UserTable As DataTable = DBOperation.Search(strSQL)
        Dim UserRow As DataRow
        For Each UserRow In UserTable.Rows
            ListTeacherName.Items.Add(UserRow("tname"))
        Next

        '指导老师没有指导任何学生
        If ListTeacherName.Items.Count = 0 Then
            MsgBox("没有合适的学生信息！", MsgBoxStyle.Exclamation, "信息框")
            Me.Close()
            Exit Sub
        End If

        ListTeacherName.SelectedIndex = 0
        UpdateInfo(UserTable, 0)
    End Sub

    Private Sub ListTeacherName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListTeacherName.SelectedIndexChanged

        Dim strName As String = ListTeacherName.SelectedItem().ToString
        Dim strSQL As String = "select * from teacher where tname='" + strName + "'"

        Dim UserTable As DataTable = DBOperation.Search(strSQL)
        UpdateInfo(UserTable, 0)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click
        Me.Close()
    End Sub
End Class