studentinfoform.vb

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

Public Class StudentInfoForm

    Private Sub UpdateInfo(ByVal table As DataTable, ByVal index As Integer)
        TextUser.Text = table.Rows(index)("suser")
        TextName.Text = table.Rows(index)("sname")
        TextEmail.Text = table.Rows(index)("semail")
        TextDirection.Text = table.Rows(index)("sdirection")
        TextQq.Text = table.Rows(index)("sqq")
        TextQqgroup.Text = table.Rows(index)("sqqgroup")
        TextTask.Text = table.Rows(index)("stask")
    End Sub

    Private Sub StudentInfoForm_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 student where suser='" + strUser + "'"
        Dim UserTable As DataTable = DBOperation.Search(strSQL)

        UpdateInfo(UserTable, 0)
    End Sub

    Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click
        '
        '请加入判断输入的规范！！！！！！
        '
        Dim strSQL As String = "update student set semail='" + Trim(TextEmail.Text) + "', sdirection='" + Trim(TextDirection.Text) + "', sqq='" + Trim(TextQq.Text) + "', sqqgroup='" + Trim(TextQqgroup.Text) + "' where suser='" + TextUser.Text + "'"
        '更新个人信息
        If DBOperation.Update(strSQL) Then
            MsgBox("更新用户信息成功！", MsgBoxStyle.OkOnly, "更新用户")
        Else
            MsgBox("更新用户信息失败！", MsgBoxStyle.Exclamation, "更新用户")
        End If
        Me.Close()
    End Sub

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