cdepartments.vb

代码：是由本人自主开发完成的

Public Class CDepartments
    Public DepartmentID As Integer      '院系编号
    Public DepartmentName As String     '院系名称
    Public UpDepartmentID As Integer    '所属院系编号

    Public Sub Initials()           '初始化实例
        DepartmentID = 0
        DepartmentName = ""
        UpDepartmentID = 0
    End Sub

    Public Sub Equal(ByVal tmpdep As CDepartments)     '给实例赋新值
        DepartmentID = tmpdep.DepartmentID
        DepartmentName = tmpdep.DepartmentName
        UpDepartmentID = tmpdep.UpDepartmentID
    End Sub
    Public Function GetDepName(ByVal tmpdepid As String) As String
        Dim sqlstr As String
        sqlstr = "select * from Departments where 院系编号=" & tmpdepid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset.Tables(0).Rows(0).Item("院系名称")
        Else
            Return Nothing
        End If
    End Function
    Public Sub GetDepInfo(ByVal tmpdepname As String)
        Dim sqlstr As String
        sqlstr = "select * from Departments where 院系名称='" & tmpdepname & "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            DepartmentID = dbset.Tables(0).Rows(0).Item("院系编号")
            DepartmentName = dbset.Tables(0).Rows(0).Item("院系名称")
            UpDepartmentID = dbset.Tables(0).Rows(0).Item("所属院系编号")
        Else
            Initials()
        End If
    End Sub
    Public Sub LoadMarjoysToList(ByVal tmplist As ListBox)
        Dim sqlstr As String
        sqlstr = "SELECT * FROM Marjoys WHERE 院系编号=" & DepartmentID.ToString
        Dim dbset As DataSet
        tmplist.Items.Clear()
        dbset = GetDataFromDB(sqlstr)
        If Not (dbset Is Nothing) Then
            Dim drow As DataRow
            For Each drow In dbset.Tables(0).Rows
                tmplist.Items.Add(drow.Item("专业名称"))
            Next
        End If
        dbset = Nothing
    End Sub
    Public Sub LoadDepNodesToTV(ByVal tmptreev As TreeView)
        Dim sqlstr As String
        sqlstr = "select * from Departments where 所属院系编号<=0 order by 院系名称 "
        Dim depdbset As DataSet
        depdbset = GetDataFromDB(sqlstr)
        tmptreev.Nodes.Clear()
        If Not depdbset Is Nothing Then
            Dim depdrow As DataRow
            For Each depdrow In depdbset.Tables(0).Rows
                Dim tnode As TreeNode
                tnode = tmptreev.Nodes.Add(depdrow.Item("院系名称"))
                tnode.ImageIndex = 0
                tnode.SelectedImageIndex = 1
                Dim depchilddbset As DataSet
                depchilddbset = GetDepChildNodes(depdrow.Item("院系编号"))
                If Not depchilddbset Is Nothing Then
                    Dim depchilddrow As DataRow
                    For Each depchilddrow In depchilddbset.Tables(0).Rows
                        Dim childnode As TreeNode
                        childnode = tnode.Nodes.Add(depchilddrow.Item("院系名称"))
                        childnode.ImageIndex = 2
                        childnode.SelectedImageIndex = 3
                    Next
                End If
            Next
        End If
        depdbset = Nothing
    End Sub
    Public Function IsInDB(ByVal tmpdepname As String) As Boolean
        Dim sqlstr As String
        sqlstr = "select * from Departments where 院系名称='" & tmpdepname & "'"
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not (dbset Is Nothing) Then
            dbset = Nothing
            Return True
        Else
            Return False
        End If
    End Function
    Public Function HaveMarjoys(ByVal tmpdepid As Integer) As Boolean
        Dim sqlstr As String
        sqlstr = "select * from Marjoys where 院系编号=" & tmpdepid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            dbset = Nothing
            Return True
        Else
            Return False
        End If
    End Function
    Public Function GetMarjoys(ByVal tmpdepid As Integer) As DataSet
        Dim sqlstr As String
        sqlstr = "select * from Marjoys where 院系编号=" & tmpdepid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function GetDepChildNodes(ByVal tmpupdepid As Integer) As DataSet
        Dim sqlstr As String
        sqlstr = "select * from Departments where 所属院系编号=" & tmpupdepid.ToString
        Dim dbset As DataSet
        dbset = GetDataFromDB(sqlstr)
        If Not dbset Is Nothing Then
            Return dbset
        Else
            Return Nothing
        End If
    End Function
    Public Function DeleteDB() As Boolean
        Dim sqlstr As String
        sqlstr = "DELETE FROM Departments WHERE 院系编号=" & DepartmentID.ToString
        If UpdateDataBase(sqlstr) Then
            Initials()
            Return True
        Else
            Return False
        End If
    End Function
    Public Function ModifyDB() As Boolean
        Dim sqlstr As String
        sqlstr = "UPDATE Departments set 院系名称='" & MakeStr(DepartmentName) & "'" & _
                 " WHERE 院系编号=" & DepartmentID.ToString
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Initials()
            Return False
        End If
    End Function
    Public Function InsertDB() As Boolean
        Dim sqlstr As String
        sqlstr = "insert into Departments(院系编号,院系名称,所属院系编号)" & _
                 " values(" & DepartmentID.ToString & ",'" & MakeStr(DepartmentName) & "'," & _
                 UpDepartmentID.ToString & ")"
        If UpdateDataBase(sqlstr) Then
            Return True
        Else
            Initials()
            Return False
        End If
    End Function
    Public Function GetNewID() As Integer
        Dim i As Integer
        i = 1
        Dim sqlstr As String
        Dim dset As DataSet
        Dim drow As DataRow
        sqlstr = "select * from Departments order by 院系编号"
        dset = GetDataFromDB(sqlstr)
        If Not dset Is Nothing Then
            For Each drow In dset.Tables(0).Rows
                If i = drow.Item("院系编号") Then
                    i = i + 1
                Else
                    Return i
                End If
            Next
        End If
        Return i
    End Function
End Class