📄 studenttinfoform.vb
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -