edudatelimitform.vb

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

Public Class EduDateLimitForm

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

        If strLimit.Substring(0, 1) = "1" Then
            CheckBoxChoose.Checked = True
        End If
        If strLimit.Substring(1, 1) = "1" Then
            CheckBoxChange.Checked = True
        End If
        If strLimit.Substring(2, 1) = "1" Then
            CheckBoxStart.Checked = True
        End If
        If strLimit.Substring(3, 1) = "1" Then
            CheckBoxLiterature.Checked = True
        End If
        If strLimit.Substring(4, 1) = "1" Then
            CheckBoxMiddle.Checked = True
        End If
        If strLimit.Substring(5, 1) = "1" Then
            CheckBoxGuidance.Checked = True
        End If
        If strLimit.Substring(6, 1) = "1" Then
            CheckBoxThesis.Checked = True
        End If
        If strLimit.Substring(7, 1) = "1" Then
            CheckBoxPing.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 strLimit As String = ""
        '开始选题
        If CheckBoxChoose.Checked Then
            strLimit = strLimit + "1"
        Else
            strLimit = strLimit + "0"
        End If

        '更改课题
        If CheckBoxChange.Checked Then
            strLimit = strLimit + "1"
        Else
            strLimit = strLimit + "0"
        End If

        '开题报告
        If CheckBoxStart.Checked Then
            strLimit = strLimit + "1"
        Else
            strLimit = strLimit + "0"
        End If

        '文献综述
        If CheckBoxLiterature.Checked Then
            strLimit = strLimit + "1"
        Else
            strLimit = strLimit + "0"
        End If

        '中期报告
        If CheckBoxMiddle.Checked Then
            strLimit = strLimit + "1"
        Else
            strLimit = strLimit + "0"
        End If

        '指导记录
        If CheckBoxGuidance.Checked Then
            strLimit = strLimit + "1"
        Else
            strLimit = strLimit + "0"
        End If

        '毕业论文
        If CheckBoxThesis.Checked Then
            strLimit = strLimit + "1"
        Else
            strLimit = strLimit + "0"
        End If

        '开始评分
        If CheckBoxPing.Checked Then
            strLimit = strLimit + "1"
        Else
            strLimit = strLimit + "0"
        End If

        Dim strSQL = "update dateLimit set dlimit='" + strLimit + "' where did='d001'"
        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