selectcourse.vb

档案管理系统

                    cmbSpecial.Items.Add(myDataReader.Item(0))
                End While
                myDataReader.Close()
            End If

            If OleConn.SelectQuery("select * from 课程信息", myDataReader) Then
                While myDataReader.Read
                    lstCourse.Items.Add(myDataReader.Item(0))
                    lstCourse.Items.Item(i).SubItems.Add(CStr(myDataReader.Item(1)))
                    lstCourse.Items.Item(i).SubItems.Add(CStr(myDataReader.Item(2)))
                    lstCourse.Items.Item(i).SubItems.Add(Trim(myDataReader.Item(3)))
                    If myDataReader.Item(4) = 1 Then
                        lstCourse.Items.Item(i).SubItems.Add("考查")
                    Else
                        lstCourse.Items.Item(i).SubItems.Add("考试")
                    End If
                    Select Case myDataReader.Item(5)
                        Case 0
                            str = "大一上学期"
                        Case 1
                            str = "大一下学期"
                        Case 2
                            str = "大二上学期"
                        Case 3
                            str = "大二下学期"
                        Case 4
                            str = "大三上学期"
                        Case 5
                            str = "大三下学期"
                        Case 6
                            str = "大四上学期"
                        Case 7
                            str = "大四下学期"
                        Case 8
                            str = "大五上学期"
                        Case 9
                            str = "大五下学期"
                    End Select
                    lstCourse.Items.Item(i).SubItems.Add(str)
                    lstCourse.Items.Item(i).SubItems.Add(myDataReader.Item(6))
                    i = i + 1
                End While
                myDataReader.Close()
            End If
        Catch ex As Exception
            DisplayError(ex)
        End Try
    End Sub

    Private Sub btnConfirm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConfirm.Click
        Dim i As Integer
        Dim str As String

        For i = 0 To lstCourse.Items.Count - 1
            
            str = "select * from 学生课程关系 where 学号=" & id & " and 课程名='" & lstCourse.Items(i).Text & "'"

            If OleConn.SelectQuery(str, myDataReader) Then
                If Not myDataReader.Read Then '避免插入重复记录
                    myDataReader.Close()
                    If lstCourse.Items(i).Checked Then
                        str = "INSERT INTO 学生课程关系(学号, 课程名)  VALUES(" & _
                                id & ",'" & lstCourse.Items(i).Text & "')"
                        End If
                        OleConn.InsertQuery(str)
                    End If
                Else
                    myDataReader.Close()
                    If Not lstCourse.Items(i).Checked Then
                    str = "DELETE FROM 学生课程关系 where 学号=" & id & " and 课程名='" & lstCourse.Items(i).Text & "'"
                    OleConn.DeleteQuery(str)
                End If
            End If
        Next
    End Sub

    Private Sub cmbTime_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbTime.SelectedIndexChanged
        Dim i As Integer = 0
        Dim str As String

        If cmbTime.SelectedIndex >= 0 Then
            Try
                str = "select * from 课程信息 where 开课时间=" & cmbTime.SelectedIndex
                If OleConn.SelectQuery(str, myDataReader) Then
                    lstCourse.Items.Clear()
                    While myDataReader.Read
                        lstCourse.Items.Add(myDataReader.Item(0))
                        lstCourse.Items.Item(i).SubItems.Add(CStr(myDataReader.Item(1)))
                        lstCourse.Items.Item(i).SubItems.Add(CStr(myDataReader.Item(2)))
                        lstCourse.Items.Item(i).SubItems.Add(Trim(myDataReader.Item(3)))
                        If myDataReader.Item(4) = 1 Then
                            lstCourse.Items.Item(i).SubItems.Add("考查")
                        Else
                            lstCourse.Items.Item(i).SubItems.Add("考试")
                        End If
                        lstCourse.Items.Item(i).SubItems.Add(cmbTime.SelectedItem)
                        lstCourse.Items.Item(i).SubItems.Add(myDataReader.Item(6))
                        i = i + 1
                    End While
                    myDataReader.Close()
                End If
            Catch ex As Exception
                DisplayError(ex)
            End Try
        End If
    End Sub

    Private Sub cmbSpecial_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSpecial.SelectedIndexChanged
        Dim i As Integer = 0
        Dim str As String

        If cmbSpecial.SelectedIndex >= 0 Then
            Try
                str = "select * from 课程信息 where 专业名='" & cmbSpecial.SelectedItem & "'"
                If OleConn.SelectQuery(str, myDataReader) Then
                    lstCourse.Items.Clear()
                    While myDataReader.Read
                        lstCourse.Items.Add(myDataReader.Item(0))
                        lstCourse.Items.Item(i).SubItems.Add(CStr(myDataReader.Item(1)))
                        lstCourse.Items.Item(i).SubItems.Add(CStr(myDataReader.Item(2)))
                        lstCourse.Items.Item(i).SubItems.Add(Trim(myDataReader.Item(3)))
                        If myDataReader.Item(4) = 1 Then
                            lstCourse.Items.Item(i).SubItems.Add("考查")
                        Else
                            lstCourse.Items.Item(i).SubItems.Add("考试")
                        End If
                        Select Case myDataReader.Item(5)
                            Case 0
                                str = "大一上学期"
                            Case 1
                                str = "大一下学期"
                            Case 2
                                str = "大二上学期"
                            Case 3
                                str = "大二下学期"
                            Case 4
                                str = "大三上学期"
                            Case 5
                                str = "大三下学期"
                            Case 6
                                str = "大四上学期"
                            Case 7
                                str = "大四下学期"
                            Case 8
                                str = "大五上学期"
                            Case 9
                                str = "大五下学期"
                        End Select
                        lstCourse.Items.Item(i).SubItems.Add(str)
                        lstCourse.Items.Item(i).SubItems.Add(cmbSpecial.SelectedItem)
                        i = i + 1
                    End While
                    myDataReader.Close()
                End If
            Catch ex As Exception
                DisplayError(ex)
            End Try
        End If
    End Sub

    Private Sub btnSelected_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelected.Click
        Dim i As Integer = 0
        Dim j As Integer = 0
        Dim str As String
        Dim myDataset As New DataSet

        With OleConn.Command
            .Parameters.Clear()
            .Parameters.Add("@id", System.Data.OleDb.OleDbType.Integer)
            .Parameters(0).Value = id
        End With

        Try
            If OleConn.SelectSP("SelectedCourse", myDataset) Then
                If myDataset.Tables.Count > 0 Then
                    lstCourse.Items.Clear()
                    For j = 0 To myDataset.Tables.Count - 1
                        For i = 0 To myDataset.Tables(j).Rows.Count - 1
                            lstCourse.Items.Add(myDataset.Tables(0).Rows(i).Item(0))
                            lstCourse.Items(i).Checked = True
                            lstCourse.Items.Item(i).SubItems.Add(CStr(myDataset.Tables(0).Rows(i).Item(1)))
                            lstCourse.Items.Item(i).SubItems.Add(CStr(myDataset.Tables(0).Rows(i).Item(2)))
                            lstCourse.Items.Item(i).SubItems.Add(Trim(myDataset.Tables(0).Rows(i).Item(3)))
                            If myDataset.Tables(0).Rows(i).Item(4) = 1 Then
                                lstCourse.Items.Item(i).SubItems.Add("考查")
                            Else
                                lstCourse.Items.Item(i).SubItems.Add("考试")
                            End If
                            Select Case myDataset.Tables(0).Rows(i).Item(5)
                                Case 0
                                    str = "大一上学期"
                                Case 1
                                    str = "大一下学期"
                                Case 2
                                    str = "大二上学期"
                                Case 3
                                    str = "大二下学期"
                                Case 4
                                    str = "大三上学期"
                                Case 5
                                    str = "大三下学期"
                                Case 6
                                    str = "大四上学期"
                                Case 7
                                    str = "大四下学期"
                                Case 8
                                    str = "大五上学期"
                                Case 9
                                    str = "大五下学期"
                            End Select
                            lstCourse.Items.Item(i).SubItems.Add(str)
                            lstCourse.Items.Item(i).SubItems.Add(myDataset.Tables(0).Rows(i).Item(6))
                        Next
                    Next
                End If
            End If
        Catch ex As Exception
            DisplayError(ex)
        End Try
    End Sub
End Class