course.vb

档案管理系统

        Me.Controls.Add(Me.rdoCheck)
        Me.Controls.Add(Me.cmbType)
        Me.Controls.Add(Me.btnAdd)
        Me.Controls.Add(Me.txtHour)
        Me.Controls.Add(Me.txtCredit)
        Me.Controls.Add(Me.txtName)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.ltbName)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.rdoExamine)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.cmbTime)
        Me.Controls.Add(Me.btnModify)
        Me.Controls.Add(Me.btnDelete)
        Me.Controls.Add(Me.btnConfirm)
        Me.Controls.Add(Me.btnCancel)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.cmbSpecial)
        Me.MaximizeBox = False
        Me.Name = "frmCourse"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "课程设置"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private myDataset As New DataSet

    Private Sub frmCourse_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        Dim myDataReader As System.Data.OleDb.OleDbDataReader

        If OleConn.SelectQuery("select 专业名 from 专业信息", myDataReader) Then
            While myDataReader.Read
                cmbSpecial.Items.Add(myDataReader.Item(0))
            End While
            myDataReader.Close()
        Else
            stbCourse.Text = "查询专业信息表失败"
        End If

        If OleConn.SelectQuery("select * from 课程信息", myDataset) Then
            If myDataset.Tables.Count > 0 Then
                For i = 0 To myDataset.Tables(0).Rows.Count - 1
                    ltbName.Items.Add(myDataset.Tables(0).Rows(i).Item("课程名"))
                Next
                stbCourse.Text = "就绪"
            Else
                stbCourse.Text = "查询课程信息表失败"
            End If
        Else
            stbCourse.Text = "查询课程信息表失败"
        End If
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim succ As Boolean = True

        If txtName.Text = "" Then
            stbCourse.Text = "课程名不能为空"
            txtName.Focus()
            Return
        ElseIf cmbType.SelectedIndex < 0 Then
            stbCourse.Text = "请选择课程类型"
            cmbType.Focus()
            Return
        ElseIf cmbTime.SelectedIndex < 0 Then
            stbCourse.Text = "请选择开课时间"
            cmbTime.Focus()
            Return
        ElseIf cmbSpecial.SelectedIndex < 0 Then
            stbCourse.Text = "请选择该课程所属的专业"
            cmbSpecial.Focus()
            Return
        End If

        Dim dr As DataRow = myDataset.Tables(0).NewRow
        Try
            dr.Item("课程名") = txtName.Text
            If txtCredit.Text = "" Then
                dr.Item("学分") = 0
            Else
                dr.Item("学分") = CInt(txtCredit.Text)
            End If
            If txtHour.Text = "" Then
                dr.Item("学时") = 0
            Else
                dr.Item("学时") = CInt(txtHour.Text)
            End If
            dr.Item("类型") = cmbType.SelectedItem
            If rdoCheck.Checked Then
                dr.Item("标志") = 1
            Else
                dr.Item("标志") = 0
            End If
            dr.Item("开课时间") = cmbTime.SelectedIndex
            myDataset.Tables(0).Rows.Add(dr)
            ltbName.Items.Add(txtName.Text)
            dr.Item("专业名") = cmbSpecial.SelectedItem
        Catch ex As Exception
            succ = False
            DisplayError(ex)
        End Try

        If succ Then
            stbCourse.Text = "增加成功"
        Else
            stbCourse.Text = "增加失败"
        End If
    End Sub

    Private Sub btnModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModify.Click
        Dim succ As Boolean = True

        If txtName.Text = "" Then
            stbCourse.Text = "课程名不能为空"
            Return
        ElseIf cmbType.SelectedIndex < 0 Then
            stbCourse.Text = "请选择课程类型"
            Return
        ElseIf cmbTime.SelectedIndex < 0 Then
            stbCourse.Text = "请选择开课时间"
            Return
        ElseIf cmbSpecial.SelectedIndex < 0 Then
            stbCourse.Text = "请选择该课程所属的专业"
            cmbSpecial.Focus()
            Return
        End If

        If ltbName.SelectedIndices.Count < 1 Then
            stbCourse.Text = "请先选择要修改的课程"
        Else
            Dim dr As DataRow()
            Dim str As String

            Try
                str = "课程名='" & ltbName.Items(ltbName.SelectedIndices.Item(0)).Text & "'"
                dr = myDataset.Tables(0).Select(str)
                dr(0).Item("课程名") = txtName.Text
                If txtCredit.Text = "" Then
                    dr(0).Item("学分") = 0
                Else
                    dr(0).Item("学分") = CInt(txtCredit.Text)
                End If
                If txtHour.Text = "" Then
                    dr(0).Item("学时") = 0
                Else
                    dr(0).Item("学时") = CInt(txtHour.Text)
                End If
                dr(0).Item("类型") = cmbType.SelectedItem
                dr(0).Item("开课时间") = cmbTime.SelectedIndex
                If rdoCheck.Checked Then
                    dr(0).Item("标志") = 1
                Else
                    dr(0).Item("标志") = 0
                End If
                ltbName.Items(ltbName.SelectedIndices.Item(0)).Text = txtName.Text
                dr(0).Item("专业名") = cmbSpecial.SelectedItem
            Catch ex As Exception
                succ = False
                DisplayError(ex)
            End Try

            If succ Then
                stbCourse.Text = "修改成功"
            Else
                stbCourse.Text = "修改失败"
            End If
        End If
    End Sub

    Private Sub ltbName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ltbName.SelectedIndexChanged
        Dim dr As DataRow()
        Dim str As String
        Dim index As Integer

        If ltbName.SelectedIndices.Count < 1 Then
            Return
        End If

        Try
            index = ltbName.SelectedIndices.Item(0)
            str = "课程名='" & ltbName.Items(index).Text & "'"
            dr = myDataset.Tables(0).Select(str)
            txtName.Text = dr(0).Item("课程名")
            txtCredit.Text = CStr(dr(0).Item("学分"))
            txtHour.Text = CStr(dr(0).Item("学时"))
            cmbType.SelectedItem = Trim(dr(0).Item("类型"))
            cmbTime.SelectedIndex = dr(0).Item("开课时间")
            If dr(0).Item("标志") = 1 Then
                rdoCheck.Checked = True
            Else
                rdoExamine.Checked = True
            End If
            cmbSpecial.SelectedItem = dr(0).Item("专业名")
            stbCourse.Text = "共" & ltbName.Items.Count & "条记录，当前选择第" & index + 1 & "条记录"
        Catch ex As Exception
            DisplayError(ex)
        End Try

    End Sub

    Private Sub btnConfirm_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConfirm.Click
        Dim succ As Boolean = True

        Try
            OleConn.UpDate(myDataset)
            myDataset.AcceptChanges()
        Catch ex As Exception
            succ = False
            DisplayError(ex)
        End Try

        If succ Then
            stbCourse.Text = "更新数据库成功"
        Else
            stbCourse.Text = "更新数据库失败"
        End If
    End Sub

    Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Dim i As Integer

        myDataset.RejectChanges()
        ltbName.Items.Clear()
        For i = 0 To myDataset.Tables(0).Rows.Count - 1
            ltbName.Items.Add(myDataset.Tables(0).Rows(i).Item("课程名"))
        Next
        stbCourse.Text = "你已经取消了所有的更改"
    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        Dim succ As Boolean = True

        Dim dr As DataRow()
        Dim str As String

        If ltbName.SelectedIndices.Count > 0 Then
            Try
                str = "课程名='" & ltbName.Items(ltbName.SelectedIndices.Item(0)).Text & "'"
                dr = myDataset.Tables(0).Select(str)
                dr(0).Delete()
                ltbName.Items.RemoveAt(ltbName.SelectedIndices.Item(0))
            Catch ex As Exception
                succ = False
                DisplayError(ex)
            End Try

            If succ Then
                stbCourse.Text = "删除成功"
            Else
                stbCourse.Text = "删除失败"
            End If
        Else
            stbCourse.Text = "请先选择要删除的课程"
        End If
    End Sub
End Class