frmclass.vb

教务管理系统：学生成绩管理

        Catch ex As Exception
            WriteErr(ex)
        End Try

    End Sub

    Private Sub CreateTreeThird()

        Try
            Dim sql As String = "SELECT A.CLASSID, A.CLASSNUMBER ,B.DEPARTMENT,A.CLASSYEAR FROM CLASSINFO A,DEPARTMENTINFO B WHERE A.DEPARTMENTID=B.DEPARTMENTID "
            Dim dt As DataTable = GetDataTable(sql)
            Dim node As TreeNode
            Dim node1 As TreeNode
            For Each node In TreeView1.Nodes
                For Each node1 In node.Nodes
                    For i As Integer = 0 To dt.Rows.Count - 1
                        If dt.Rows(i)("CLASSYEAR") = node.Text And dt.Rows(i)("DEPARTMENT") = node1.Text Then
                            Dim str1 As String = dt.Rows(i)("CLASSNUMBER")
                            Dim str2 As String = dt.Rows(i)("CLASSID")
                            node1.Nodes.Add(str1 + ":" + str2)
                        End If
                    Next
                Next
            Next

        Catch ex As Exception
            WriteErr(ex)
        End Try
    End Sub

    Private Sub BindCmbClassDep()

        Try
            Dim sql As String = "SELECT  DEPARTMENT FROM DEPARTMENTINFO"
            Dim dt As DataTable = GetDataTable(sql)
            For i As Integer = 0 To dt.Rows.Count - 1
                Me.CmbClassDep.Items.Add(dt.Rows(i)("department"))
            Next
        Catch ex As Exception
            WriteErr(ex)
        End Try
    End Sub

    Private Sub addCmbClassYear(ByVal year1 As Integer, ByVal year2 As Integer)

        For i As Integer = year1 To year2
            Me.CmbClassYear.Items.Add(i)
        Next

    End Sub

    Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

        Select Case TreeNodeLevel(e.Node)
            Case 1
                CmbClassYear.Text = e.Node.Text
                CmbClassDep.Text = ""
                TxtClassNum.Text = ""
                TxtClassID.Text = ""

            Case 2
                CmbClassYear.Text = e.Node.Parent.Text
                CmbClassDep.Text = e.Node.Text
                TxtClassNum.Text = ""
                TxtClassID.Text = ""
            Case 3
                Dim IDItem(2) As String
                IDItem = e.Node.Text.Split(":"c)

                CmbClassYear.Text = e.Node.Parent.Parent.Text
                CmbClassDep.Text = e.Node.Parent.Text
                TxtClassNum.Text = IDItem(0)
                TxtClassID.Text = IDItem(1)
        End Select

    End Sub

    Private Function DepNameToID(ByVal name As String)
        Try
            Dim sql As String = "SELECT  DEPARTMENTID FROM DEPARTMENTINFO WHERE DEPARTMENT='" + name + "'"
            Dim dt As DataTable = GetDataTable(sql)
            If dt.Rows.Count <> 0 Then
                Return dt.Rows(0)("departmentID")
            End If

        Catch ex As Exception
            WriteErr(ex)
        End Try
    End Function


    Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
        If Me.TxtClassID.Text.Trim() = String.Empty Then
            MessageBox.Show("班级编号不能为空")
            Me.TxtClassID.Focus()
        ElseIf Not JudgeInt(TxtClassID.Text.Trim) Then
            MessageBox.Show("班级编号必须为整数")
            Me.TxtClassID.Focus()
        ElseIf JudgeKeyExist("classinfo", "classid", TxtClassID.Text.Trim) Then
            MessageBox.Show("班级编号已经存在")
            Me.TxtClassID.Focus()
        ElseIf Me.CmbClassYear.Text.Trim() = String.Empty Then
            MessageBox.Show("班级年份不能为空")
            Me.CmbClassYear.Focus()
        ElseIf Me.CmbClassDep.Text.Trim() = String.Empty Then
            MessageBox.Show("班级系别不能为空")
            Me.CmbClassDep.Focus()
        ElseIf Me.TxtClassNum.Text.Trim() = String.Empty Then
            MessageBox.Show("班级名不能为空")
            Me.TxtClassNum.Focus()
        Else
            Me.InsertData()
        End If
    End Sub

    Private Sub BtnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEdit.Click
        If Me.TxtClassID.Text.Trim() = String.Empty Then
            MessageBox.Show("班级编号不能为空")
            Me.TxtClassID.Focus()
        ElseIf Not JudgeInt(TxtClassID.Text.Trim) Then
            MessageBox.Show("班级编号必须为整数")
            Me.TxtClassID.Focus()
        ElseIf Not JudgeKeyExist("classinfo", "classid", TxtClassID.Text.Trim) Then
            MessageBox.Show("要更新的记录集不存在")
            Me.TxtClassID.Focus()
        ElseIf Me.CmbClassYear.Text.Trim() = String.Empty Then
            MessageBox.Show("班级年份不能为空")
            Me.CmbClassYear.Focus()
        ElseIf Me.CmbClassDep.Text.Trim() = String.Empty Then
            MessageBox.Show("班级系别不能为空")
            Me.CmbClassDep.Focus()
        ElseIf Me.TxtClassNum.Text.Trim() = String.Empty Then
            MessageBox.Show("班级名不能为空")
            Me.TxtClassNum.Focus()
        Else
            Me.UpdateData()
        End If
    End Sub

    Private Sub BtnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.Click
        If Me.TxtClassID.Text.Trim() = String.Empty Then
            MessageBox.Show("班级编号不能为空")
            Me.TxtClassID.Focus()
        ElseIf Not JudgeInt(TxtClassID.Text.Trim) Then
            MessageBox.Show("班级编号必须为整数")
            Me.TxtClassID.Focus()
        ElseIf Not JudgeKeyExist("classinfo", "classid", TxtClassID.Text.Trim) Then
            MessageBox.Show("要删除的记录集不存在")
            Me.TxtClassID.Focus()
        Else
            If MessageBox.Show("确定要删除？", "删除确认", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2) = DialogResult.OK Then
                Me.DeleteData()
            End If
        End If
    End Sub

    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
        Me.Close()
    End Sub
    Private Sub InsertData()

        Dim ClassID As Int16 = Int16.Parse(TxtClassID.Text.Trim)
        Dim ClassYear As String = CmbClassYear.Text.Trim
        Dim ClassDep As String = DepNameToID(CmbClassDep.Text.Trim)
        Dim ClassNum As String = TxtClassNum.Text.Trim

        Dim value As String = ClassID.ToString + "," + ClassYear + "," + ClassDep + ",'" + ClassNum + "'"

        Dim sql As String = "INSERT INTO CLASSINFO (CLASSID,CLASSYEAR,DEPARTMENTID,CLASSNUMBER) VALUES(" + value + ")"

        Dim sqlCmd As New SqlCommand
        sqlCmd.Connection = SqlCon
        sqlCmd.CommandText = sql

        Try
            SqlCon.Open()
            sqlCmd.ExecuteNonQuery()
            MessageBox.Show("添加记录成功")
        Catch ex As Exception
            MessageBox.Show("添加记录失败")
            WriteErr(ex)
        Finally
            SqlCon.Close()
        End Try
        BindTree()
    End Sub

    Private Sub UpdateData()

        Dim ClassID As Int16 = Int16.Parse(TxtClassID.Text.Trim)
        Dim ClassYear As String = CmbClassYear.Text.Trim
        Dim ClassDep As String = DepNameToID(CmbClassDep.Text.Trim)
        Dim ClassNum As String = TxtClassNum.Text.Trim

        Dim sql As String = "UPDATE CLASSINFO SET CLASSYEAR=" + ClassYear + ",DEPARTMENTID=" + ClassDep + ",CLASSNUMBER='" + ClassNum + "' WHERE CLASSID= " + ClassID.ToString

        Dim sqlCmd As New SqlCommand
        sqlCmd.Connection = SqlCon
        sqlCmd.CommandText = sql

        Try
            SqlCon.Open()
            sqlCmd.ExecuteNonQuery()
            MessageBox.Show("修改记录成功")
        Catch ex As Exception
            MessageBox.Show("修改记录失败")
            WriteErr(ex)
        Finally
            SqlCon.Close()
        End Try
        BindTree()
    End Sub

    Private Sub DeleteData()

        Dim ClassID As Int16 = Int16.Parse(TxtClassID.Text.Trim)


        Dim sql As String = "DELETE FROM CLASSINFO WHERE CLASSID= " + ClassID.ToString

        Dim sqlCmd As New SqlCommand
        sqlCmd.Connection = SqlCon
        sqlCmd.CommandText = sql

        Try
            SqlCon.Open()
            sqlCmd.ExecuteNonQuery()
            MessageBox.Show("删除记录成功")
        Catch ex As Exception
            MessageBox.Show("删除记录失败")
            WriteErr(ex)
        Finally
            SqlCon.Close()
        End Try
        BindTree()
    End Sub



End Class