eduzgform.vb

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

Public Class EduZGForm

    Private Sub EduZGForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListSYName.Items.Clear()
        ListSNName.Items.Clear()
        Dim strSQL As String = "select * from student"
        Dim UserTable As DataTable = DBOperation.Search(strSQL)

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

        Dim UserRow As DataRow
        For Each UserRow In UserTable.Rows
            If UserRow("sschedule").ToString.Substring(6, 1) = "1" Then
                ListSYName.Items.Add(UserRow("sname"))
            Else
                ListSNName.Items.Add(UserRow("sname"))
            End If
        Next

        ListSYName.SelectedIndex = -1
        ListSNName.SelectedIndex = -1
    End Sub

    Private Sub ListSYName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListSYName.SelectedIndexChanged
        ButtonGo.Enabled = True
    End Sub

    Private Sub ListSNName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListSNName.SelectedIndexChanged
        ButtonBack.Enabled = True
    End Sub

    Private Sub ButtonGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonGo.Click
        ListSNName.Items.Add(ListSYName.SelectedItem)
        ListSYName.Items.Remove(ListSYName.SelectedItem)
        If ListSYName.Items.Count = 0 Then
            ListSYName.SelectedIndex = -1
            ButtonGo.Enabled = False
        Else
            ListSYName.SelectedIndex = 0
        End If
    End Sub

    Private Sub ButtonBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBack.Click
        ListSYName.Items.Add(ListSNName.SelectedItem)
        ListSNName.Items.Remove(ListSNName.SelectedItem)
        If ListSNName.Items.Count = 0 Then
            ListSNName.SelectedIndex = -1
            ButtonBack.Enabled = False
        Else
            ListSNName.SelectedIndex = 0
        End If
    End Sub

    Private Sub ButtonEmail_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonEmail.Click
        Dim i As Integer
        Dim strSQL As String
        Dim strListName As String
        Dim strEmail As String
        Dim isSendOK As Boolean = True

        For i = 1 To ListSNName.Items.Count
            strListName = ListSYName.Items(i - 1).ToString()
            strSQL = "select semail from student where sname='" + strListName + "'"
            strEmail = DBOperation.Search(strSQL).Rows(0)("semail").ToString

            If EmailOperation.SendEmail("[e-mail]", strEmail, "整改通知", "您的毕业设计需要整改，请迅速联系您的指导老师！", "") = False Then
                isSendOK = False
            End If
        Next

        If isSendOK Then
            MsgBox("邮件发送成功!", MsgBoxStyle.Exclamation, "发送邮件")
        Else
            MsgBox("邮件发送失败!", MsgBoxStyle.Exclamation, "发送邮件")
        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 i As Integer
        Dim strSQL As String
        Dim strListName As String
        Dim strSchedule As String
        Dim isUpdateOK As Boolean = True

        For i = 1 To ListSYName.Items.Count
            strListName = ListSYName.Items(i - 1).ToString()
            MsgBox(strListName)
            strSQL = "select sschedule from student where sname='" + strListName + "'"
            strSchedule = DBOperation.Search(strSQL).Rows(0)("sschedule").ToString

            If strSchedule.Substring(6, 1) = "0" Then
                strSchedule = strSchedule.Substring(0, 6) + "1"
                strSQL = "update student set sschedule='" + strSchedule + "' where sname='" + strListName + "'"
                If DBOperation.Update(strSQL) = False Then
                    isUpdateOK = False
                End If
            End If
        Next

        For i = 1 To ListSNName.Items.Count
            strListName = ListSNName.Items(i - 1).ToString()
            MsgBox(strListName)
            strSQL = "select sschedule from student where sname='" + strListName + "'"
            strSchedule = DBOperation.Search(strSQL).Rows(0)("sschedule").ToString

            If strSchedule.Substring(6, 1) = "1" Then
                strSchedule = strSchedule.Substring(0, 6) + "0"
                strSQL = "update student set sschedule='" + strSchedule + "' where sname='" + strListName + "'"
                If DBOperation.Update(strSQL) = False Then
                    isUpdateOK = False
                End If
            End If
        Next

        If isUpdateOK Then
            MsgBox("修改成功!", MsgBoxStyle.Exclamation, "整改名单")
        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