studenttinfoform.vb

管理毕业设计的管理系统 VB+SQL2000....

Public Class StudentTInfoForm

    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 StudentTInfoForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strUser As String = LoginForm.TextUser.Text

        '查询语句中，学生表和指导老师表作关联
        Dim strSQL As String = "select * from teacher t, student s where s.tid=t.tid and s.suser='" + strUser + "'"
        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 Button1.Click
        Me.Close()
    End Sub
End Class