teacheredusinfoform.vb

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

Public Class TeacherEduSInfoForm

    '初始化为0
    Private umode As Integer = UserMode.NobodyMode

    Public Sub SetUserMode(ByVal value As Integer)
        umode = value
    End Sub

    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")
        Dim strSchedule As String = table.Rows(index)("sschedule")
        If strSchedule.Substring(0, 1) = "1" Then
            CheckBoxC.Checked = True
        Else
            CheckBoxC.Checked = False
        End If
        If strSchedule.Substring(1, 1) = "1" Then
            CheckBoxS.Checked = True
        Else
            CheckBoxS.Checked = False
        End If
        If strSchedule.Substring(2, 1) = "1" Then
            CheckBoxL.Checked = True
        Else
            CheckBoxL.Checked = False
        End If
        If strSchedule.Substring(3, 1) = "1" Then
            CheckBoxM.Checked = True
        Else
            CheckBoxM.Checked = False
        End If
        If strSchedule.Substring(4, 1) = "1" Then
            CheckBoxG.Checked = True
        Else
            CheckBoxG.Checked = False
        End If
        If strSchedule.Substring(5, 1) = "1" Then
            CheckBoxT.Checked = True
        Else
            CheckBoxT.Checked = False
        End If
    End Sub

    Private Sub TeacherSInfoForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListStudentName.Items.Clear()
        Dim strSQL As String = ""

        Select Case umode
            Case UserMode.TeacherMode
                '查询语句中，学生表和指导老师表作关联
                Dim strUser As String = LoginForm.TextUser.Text
                strSQL = "select * from student s, teacher t where s.tid=t.tid and t.tuser='" + strUser + "'"
            Case UserMode.EduMode
                strSQL = "select * from student"
            Case Else
                MsgBox("Select Error!")
                Me.Close()
                Exit Sub
        End Select

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

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

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

    Private Sub ListStudentName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListStudentName.SelectedIndexChanged
        Dim strListName As String = ListStudentName.SelectedItem().ToString
        Dim strSQL As String = "select * from student where sname='" + strListName + "'"
        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