frmclass.vb

师生情况管理系统

        Me.Controls.Add(Me.Label1)
        Me.Name = "FrmClass"
        Me.Text = "FrmClass"
        CType(Me.dgDate, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub FrmClass_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        sqlConn = New SqlConnection(FrmMain.DBCONN.DataConStr)
        sqlComm = New SqlCommand("select Dname from DepartmentInfo", sqlConn)
        daDate = New SqlDataAdapter("select dbo.ClassInfo.CID 班级编号, dbo.ClassInfo.Cname 班级名称, dbo.DepartmentInfo.Dname 所属系部, dbo.Content.CTname 专业, dbo.ClassInfo.CItime 安排课程, dbo.TeacherInfo.Tname 班主任 FROM dbo.ClassInfo, dbo.TeacherInfo, dbo.DepartmentInfo, dbo.Content where dbo.ClassInfo.TID = dbo.TeacherInfo.TID and dbo.ClassInfo.DID = dbo.DepartmentInfo.DID and dbo.ClassInfo.CTID = dbo.Content.CTID", sqlConn)
        dsData = New DataSet
        sqlConn.Open()
        daDate.Fill(dsData, "Table")
        dgDate.SetDataBinding(dsData, "Table")

        txtID.Enabled = True
        txtName.Enabled = False
        cmbDepartment.Enabled = False
        cmbTeacher.Enabled = False
        cmbCourse.Enabled = False
        btnCancel.Enabled = False
        btnSave.Enabled = False

        Dim objReader As SqlDataReader
        objReader = sqlComm.ExecuteReader
        While objReader.Read
            cmbDepartment.Items.Add(objReader(0))
        End While
        objReader.Close()
        cmbDepartment.SelectedIndex = 0

        sqlComm.CommandText = "select Tname from teacherInfo, Tduty where teacherInfo.TDID = Tduty.TDID"
        objReader = sqlComm.ExecuteReader()
        While objReader.Read
            cmbTeacher.Items.Add(objReader(0))
        End While
        objReader.Close()
        cmbTeacher.SelectedIndex = 0

        sqlComm.CommandText = "select CTname from content"
        objReader = sqlComm.ExecuteReader
        While objReader.Read
            cmbCourse.Items.Add(objReader(0))
        End While
        objReader.Close()
        cmbCourse.SelectedIndex = 0

        flag = 3
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        sqlConn.Close()
        Me.Close()
    End Sub

    Private Sub dgDate_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgDate.CurrentCellChanged
        txtID.Text = dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(0)
        txtName.Text = dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(1)
        cmbDepartment.SelectedItem = dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(2)
        cmbCourse.SelectedItem = dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(3)
        txtTime.Text = dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(4)
        cmbTeacher.SelectedItem = dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(5)
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        flag = 1        'flag为1,则是添加操作

        txtID.Enabled = True
        txtName.Enabled = True
        cmbDepartment.Enabled = True
        cmbTeacher.Enabled = True
        cmbCourse.Enabled = True
        btnCancel.Enabled = True
        btnSave.Enabled = True
        btnAdd.Enabled = False
        btnUpdate.Enabled = False
        btnDelete.Enabled = False

        txtID.Text = ""
        txtName.Text = ""
        cmbDepartment.SelectedIndex = -1
        cmbTeacher.SelectedIndex = -1
        cmbCourse.SelectedIndex = -1
    End Sub

    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        If dgDate.CurrentCell.RowNumber < 0 Then
            MsgBox("你还没有选择信息")
            Exit Sub
        End If

        flag = 2         'flag为2,则是更新操作

        txtID.Enabled = False
        txtName.Enabled = True
        cmbDepartment.Enabled = True
        cmbTeacher.Enabled = True
        cmbCourse.Enabled = True
        btnCancel.Enabled = True
        btnSave.Enabled = True
        btnAdd.Enabled = False
        btnUpdate.Enabled = False
        btnDelete.Enabled = False
    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        If dgDate.CurrentCell.RowNumber < 0 Then
            MsgBox("你还没有选择信息")
            Exit Sub
        End If

        If MsgBox("你真的要删除该信息吗？", MsgBoxStyle.OKCancel, "删除") = MsgBoxResult.OK Then
            sqlComm.CommandText = "delete classInfo where CID = '" & txtID.Text & "'"
            daDate.DeleteCommand = sqlComm
            Try
                sqlComm.ExecuteNonQuery()
                MsgBox("删除成功")
                dsData.Tables(0).Rows(dsData.Tables(0).Rows.Count - 1).Delete()

                txtID.Enabled = False
                txtName.Enabled = False
                cmbDepartment.Enabled = False
                cmbTeacher.Enabled = False
                cmbCourse.Enabled = False
                btnCancel.Enabled = True
                btnSave.Enabled = False
                btnAdd.Enabled = False
                btnUpdate.Enabled = False
                btnDelete.Enabled = False
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
        
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        txtID.Enabled = True
        txtName.Enabled = False
        cmbDepartment.Enabled = False
        cmbTeacher.Enabled = False
        cmbCourse.Enabled = False
        btnCancel.Enabled = False
        btnSave.Enabled = False
        btnAdd.Enabled = True
        btnUpdate.Enabled = True
        btnDelete.Enabled = True

        flag = 3
    End Sub
    Private Function check() As Boolean
        If txtID.Text = "" Then
            MsgBox("班级编号不能为空")
            Return False
        End If
        If txtName.Text = "" Then
            MsgBox("班级名称不能为空")
            Return False
        End If
        If txtTime.Text = "" Then
            MsgBox("课程安排不能为空")
            Return False
        End If
        Return True
    End Function
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        If Me.check() = False Then
            Exit Sub
        End If

        Dim strDID As String
        Dim strTID As String
        Dim strCTID As String
        Dim objReader As SqlDataReader

        sqlComm.CommandText = "select DID from DepartmentInfo where Dname = '" & cmbDepartment.SelectedItem & "'"
        objReader = sqlComm.ExecuteReader
        While objReader.Read
            strDID = objReader(0)
        End While
        objReader.Close()
        sqlComm.CommandText = "select TID from teacherInfo where Tname = '" & cmbTeacher.SelectedItem & "'"
        objReader = sqlComm.ExecuteReader
        While objReader.Read
            strTID = objReader(0)
        End While
        objReader.Close()
        sqlComm.CommandText = "select CTID from content where CTname = '" & cmbCourse.SelectedItem & "'"
        objReader = sqlComm.ExecuteReader
        While objReader.Read
            strCTID = objReader(0)
        End While
        objReader.Close()

        If flag = 1 Then        '添加操作

            dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(0) = txtID.Text
            dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(1) = txtName.Text
            dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(2) = cmbDepartment.SelectedItem
            dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(3) = cmbCourse.SelectedItem
            dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(4) = txtTime.Text
            dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(5) = cmbTeacher.SelectedItem

            sqlComm.CommandText = "insert into classInfo values ('" & txtID.Text & "', '" & txtName.Text & "', '" & strDID & "', '" & strTID & "', '" & strCTID & "', '安排课程')"
            daDate.InsertCommand = sqlComm
            Try
                sqlComm.ExecuteNonQuery()
                MsgBox("添加成功")

                txtID.Enabled = False
                txtName.Enabled = False
                cmbDepartment.Enabled = False
                cmbTeacher.Enabled = False
                cmbCourse.Enabled = False
                btnCancel.Enabled = True
                btnSave.Enabled = False
                btnAdd.Enabled = False
                btnUpdate.Enabled = False
                btnDelete.Enabled = False

            Catch ex As Exception
                MsgBox(ex.Message)
                dsData.Tables(0).Rows(dsData.Tables(0).Rows.Count - 1).Delete()

            End Try
        End If

        If flag = 2 Then        '更新操作

            txtID.Text = dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(0)
            txtName.Text = dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(1)
            cmbDepartment.SelectedItem = dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(2)
            cmbCourse.SelectedItem = dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(3)
            txtTime.Text = dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(4)
            cmbTeacher.SelectedItem = dsData.Tables(0).Rows(dgDate.CurrentCell.RowNumber).Item(5)

            sqlComm.CommandText = "update classInfo set Cname = '" & txtName.Text & "', DID = '" & strDID & "', TID = '" & strTID & "', CTID = '" & strCTID & "', CItime = '" & txtTime.Text & "' where CID = '" & txtID.Text & "'"
            daDate.UpdateCommand = sqlComm
            Try
                sqlComm.ExecuteNonQuery()
                MsgBox("更改成功")

                txtID.Enabled = False
                txtName.Enabled = False
                cmbDepartment.Enabled = False
                cmbTeacher.Enabled = False
                cmbCourse.Enabled = False
                btnCancel.Enabled = True
                btnSave.Enabled = False
                btnAdd.Enabled = False
                btnUpdate.Enabled = False
                btnDelete.Enabled = False
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub

   
    Private Sub txtID_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtID.KeyUp
        If flag = 3 Then
            strSelect += txtID.Text
            If strSelect = "" Then
                tableNum = 0
                dsData.Tables(0).Clear()
                daDate.Fill(dsData, "Table")
                dgDate.SetDataBinding(dsData, "Table")
            Else
                tableNum = 1
                sqlComm.CommandText = "select dbo.ClassInfo.CID 班级编号, dbo.ClassInfo.Cname 班级名称, dbo.DepartmentInfo.Dname 所属系部, dbo.Content.CTname 专业, dbo.ClassInfo.CItime 安排课程, dbo.TeacherInfo.Tname 班主任 FROM dbo.ClassInfo, dbo.TeacherInfo, dbo.DepartmentInfo, dbo.Content where dbo.ClassInfo.TID = dbo.TeacherInfo.TID and dbo.ClassInfo.DID = dbo.DepartmentInfo.DID and dbo.ClassInfo.CTID = dbo.Content.CTID and CID like '" & txtID.Text & "%'"
                daDate.SelectCommand = sqlComm
                If dsData.Tables.Count > 1 Then
                    dsData.Tables(1).Clear()
                End If
                daDate.Fill(dsData, "TableSelect")
                dgDate.SetDataBinding(dsData, "TableSelect")
            End If
        End If
    End Sub
End Class