studentscheduleform.vb

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

Public Class StudentScheduleForm

    Private Sub StudentScheduleForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strSQL As String = "select * from dateLimit"
        Dim strLimit As String = DBOperation.Search(strSQL).Rows(0)("dlimit")

        If strLimit.Substring(0, 1) = "0" Then
            CheckBoxC.Enabled = False
            ButtonOK.Enabled = False
        End If
        If strLimit.Substring(1, 1) = "0" Then
            CheckBoxS.Enabled = False
        End If
        If strLimit.Substring(2, 1) = "0" Then
            CheckBoxL.Enabled = False
        End If
        If strLimit.Substring(3, 1) = "0" Then
            CheckBoxM.Enabled = False
        End If
        If strLimit.Substring(4, 1) = "0" Then
            CheckBoxG.Enabled = False
        End If
        If strLimit.Substring(5, 1) = "0" Then
            CheckBoxT.Enabled = False
        End If

        Dim strUser As String = LoginForm.TextUser.Text
        strSQL = "select sschedule from student where suser='" + strUser + "'"
        Dim strSchedule As String = DBOperation.Search(strSQL).Rows(0)("sschedule")

        If strSchedule.Substring(0, 1) = "1" Then
            CheckBoxC.Checked = True
        End If
        If strSchedule.Substring(1, 1) = "1" Then
            CheckBoxS.Checked = True
        End If
        If strSchedule.Substring(2, 1) = "1" Then
            CheckBoxL.Checked = True
        End If
        If strSchedule.Substring(3, 1) = "1" Then
            CheckBoxM.Checked = True
        End If
        If strSchedule.Substring(4, 1) = "1" Then
            CheckBoxG.Checked = True
        End If
        If strSchedule.Substring(5, 1) = "1" Then
            CheckBoxT.Checked = True
        End If
    End Sub

    Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click
        Dim response As Integer = MsgBox("确定要修改完成进度？", vbOKCancel + vbQuestion, "确认")
        If response = 2 Then
            Exit Sub
        End If

        Dim strSchedule As String = ""
        If CheckBoxC.Checked Then
            strSchedule = strSchedule + "1"
        Else
            strSchedule = strSchedule + "0"
        End If
        If CheckBoxS.Checked Then
            strSchedule = strSchedule + "1"
        Else
            strSchedule = strSchedule + "0"
        End If
        If CheckBoxL.Checked Then
            strSchedule = strSchedule + "1"
        Else
            strSchedule = strSchedule + "0"
        End If
        If CheckBoxM.Checked Then
            strSchedule = strSchedule + "1"
        Else
            strSchedule = strSchedule + "0"
        End If
        If CheckBoxG.Checked Then
            strSchedule = strSchedule + "1"
        Else
            strSchedule = strSchedule + "0"
        End If
        If CheckBoxT.Checked Then
            strSchedule = strSchedule + "1"
        Else
            strSchedule = strSchedule + "0"
        End If

        Dim strUser As String = LoginForm.TextUser.Text
        Dim strSQL = "update student set sschedule='" + strSchedule + "' where suser='" + strUser + "'"
        If DBOperation.Update(strSQL) Then
            MsgBox("修改成功！", MsgBoxStyle.OkOnly, "修改完成进度")
        Else
            MsgBox("修改失败！", MsgBoxStyle.Exclamation, "修改完成进度")
        End If
    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