departmentmanage.vb

ADO.net项目“教师信息管理系统”

Imports System.Data.SqlClient
Public Class DepartmentManage
    Implements IBLL.IDepartmentManage

#Region "定义成员 "
    Dim myIDAL As IDAL.IDAL
    Dim m_Title As String = "部门设置与管理"
    Dim m_TableName As String = "部门管理"
    Dim m_StoredProcedure As String = "查询部门管理"
    Shared m_DataSet As New DataSet
    Dim m_Code As String
    Dim m_Name As String

#End Region

#Region "构造函数"
    Public Sub New()
        myIDAL = CType( _
        System.Reflection.Assembly.Load("DataAccessTire"). _
        CreateInstance("DataAccessTire.DataAccess"), IDAL.IDAL)
    End Sub
#End Region

#Region "定义属性 "
    Public ReadOnly Property Title() As String _
    Implements IBLL.IDepartmentManage.Title
        Get
            Return m_Title
        End Get
    End Property

    Public ReadOnly Property DataSet() As System.Data.DataSet _
    Implements IBLL.IDepartmentManage.DataSet
        Get
            Return m_DataSet
        End Get
    End Property

    Public Property TableName() As String _
    Implements IBLL.IDepartmentManage.TableName
        Get
            Return m_TableName
        End Get
        Set(ByVal Value As String)
            m_TableName = Value
        End Set
    End Property

    Public Property Code() As String _
    Implements IBLL.IDepartmentManage.Code
        Get
            Return m_Code
        End Get
        Set(ByVal Value As String)
            m_Code = Value
        End Set
    End Property

    Public Property Name() As String _
    Implements IBLL.IDepartmentManage.Name
        Get
            Return m_Name
        End Get
        Set(ByVal Value As String)
            m_Name = Value
        End Set
    End Property
#End Region

#Region "定义方法 "
    Public Function myFill() As Boolean _
    Implements IBLL.IDepartmentManage.myFill
        Try
            myIDAL.myFill(m_DataSet, m_StoredProcedure, m_TableName, Nothing)
            Return True
        Catch ex As Exception
            Throw New Exception(ex.Message)
            Return False
        End Try
    End Function

    Public Function myAdd() As Boolean _
    Implements IBLL.IDepartmentManage.myAdd
        Try
            '定义主键
            m_DataSet.Tables(m_TableName).PrimaryKey = New DataColumn() { _
            m_DataSet.Tables(m_TableName).Columns("部门编码")}
            '搜索记录
            Dim foundRow As DataRow = m_DataSet.Tables(m_TableName).Rows.Find(m_Code)
            If Not (foundRow Is Nothing) Then
                Throw New Exception("该记录已存在！")
                Exit Function
            End If
            '新建行对象
            Dim myRow As DataRow
            With m_DataSet.Tables(m_TableName)
                myRow = .NewRow
                myRow("部门编码") = m_Code
                myRow("部门名称") = m_Name
                '将新行添加到数据集中的行集合中
                .Rows.Add(myRow)
            End With
            myIDAL.myUpdate(m_DataSet, m_StoredProcedure, m_TableName, Nothing)
            Return True
        Catch ex As Exception
            Throw New Exception(ex.Message)
            Return False
        End Try
    End Function

    Public Function myEdit(ByVal intPosition As Integer) As Boolean _
    Implements IBLL.IDepartmentManage.myEdit
        Try
            With m_DataSet.Tables(m_TableName)
                .Rows(intPosition)("部门名称") = m_Name
            End With
            myIDAL.myUpdate(m_DataSet, m_StoredProcedure, m_TableName, Nothing)
            Return True
        Catch ex As Exception
            Throw New Exception(ex.Message)
            Return False
        End Try
    End Function

    Public Function DeleteRecord(ByVal intPosition As Integer) As Boolean _
    Implements IBLL.IDepartmentManage.DeleteRecord
        Try
            m_DataSet.Tables(m_TableName).Rows(intPosition).Delete()
            myIDAL.myUpdate(m_DataSet, m_StoredProcedure, m_TableName, Nothing)
            '级联删除
            Dim myParameters As SqlParameter() = { _
            New SqlParameter("@ClassCode", SqlDbType.VarChar, 2)}
            myParameters(0).Value = m_Code
            myIDAL.myExecuteNonQuery("删除教师基本情况记录", myParameters)
            myIDAL.myExecuteNonQuery("按部门删除教师联系方式", myParameters)
            Return True
        Catch ex As Exception
            Throw New Exception(ex.Message)
            Return False
        End Try
    End Function
#End Region

End Class