teacher.vb

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

Imports System.Data.SqlClient
Public Class Teacher
    Implements IBLL.ITeacher


#Region "定义成员 "
    Dim myIDAL As IDAL.IDAL
    Dim m_Title As String = "教师基本信息设置与管理"
    Dim m_TableName As String = "教师基本情况表"
    Dim m_StoredProcedure As String = "按部门查询教师基本情况"
    Dim m_DataSet As New DataSet
    Dim m_Class As String
    Dim m_Code As String
    Dim m_Name As String
    Dim m_Sex As String
    Dim m_Birth As Date
    Dim m_Marry As Boolean
    Dim m_Polity As String
    Dim m_Place As String
    Dim m_Level As String
    Dim m_School As String
    Dim m_Remark As String
    Dim m_photo As Byte()
#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.ITeacher.Title
        Get
            Return m_Title
        End Get
    End Property

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

    Public Property TableName() As String _
    Implements IBLL.ITeacher.TableName
        Get
            Return m_TableName
        End Get
        Set(ByVal Value As String)
            m_TableName = Value.Substring(0, 2)
        End Set
    End Property

    Public Property ClassID() As String _
    Implements IBLL.ITeacher.ClassID
        Get
            Return m_Class
        End Get
        Set(ByVal Value As String)
            m_Class = Value
        End Set
    End Property

    Public Property Code() As String _
    Implements IBLL.ITeacher.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.ITeacher.Name
        Get
            Return m_Name
        End Get
        Set(ByVal Value As String)
            m_Name = Value
        End Set
    End Property

    Public Property Sex() As String _
    Implements IBLL.ITeacher.Sex
        Get
            Return m_Sex
        End Get
        Set(ByVal Value As String)
            m_Sex = Value
        End Set
    End Property

    Public Property Birth() As Date _
    Implements IBLL.ITeacher.Birth
        Get
            Return m_Birth
        End Get
        Set(ByVal Value As Date)
            m_Birth = Value
        End Set
    End Property

    Public Property Marry() As Boolean _
    Implements IBLL.ITeacher.Marry
        Get
            Return m_Marry
        End Get
        Set(ByVal Value As Boolean)
            m_Marry = Value
        End Set
    End Property

    Public Property Polity() As String _
    Implements IBLL.ITeacher.Polity
        Get
            Return m_Polity
        End Get
        Set(ByVal Value As String)
            m_Polity = Value
        End Set
    End Property

    Public Property Place() As String _
    Implements IBLL.ITeacher.Place
        Get
            Return m_Place
        End Get
        Set(ByVal Value As String)
            m_Place = Value
        End Set
    End Property

    Public Property Level() As String _
    Implements IBLL.ITeacher.Level
        Get
            Return m_Level
        End Get
        Set(ByVal Value As String)
            m_Level = Value
        End Set
    End Property

    Public Property School() As String _
    Implements IBLL.ITeacher.School
        Get
            Return m_School
        End Get
        Set(ByVal Value As String)
            m_School = Value
        End Set
    End Property

    Public Property Remark() As String _
    Implements IBLL.ITeacher.Remark
        Get
            Return m_Remark
        End Get
        Set(ByVal Value As String)
            m_Remark = Value
        End Set
    End Property

    Public Property Photo() As Byte() _
    Implements IBLL.ITeacher.Photo
        Get
            Return m_photo
        End Get
        Set(ByVal Value As Byte())
            m_photo = Value
        End Set
    End Property
#End Region

#Region "定义方法 "


    Public Function myFill() As Boolean _
    Implements IBLL.ITeacher.myFill
        Try
            Dim myParameters As SqlParameter() = { _
            New SqlParameter("@ClassCode", SqlDbType.VarChar, 2)}
            myParameters(0).Value = m_TableName
            myIDAL.myFill(m_DataSet, m_StoredProcedure, m_TableName, myParameters)
            Return True
        Catch ex As Exception
            Throw New Exception(ex.Message)
            Return False
        End Try

    End Function


    Public Function myAdd() As Boolean _
    Implements IBLL.ITeacher.myAdd
        Try
            '定义主键
            m_DataSet.Tables(m_TableName).PrimaryKey = New DataColumn() { _
            m_DataSet.Tables(m_TableName).Columns("部门编码"), _
            m_DataSet.Tables(m_TableName).Columns("编号")}
            '搜索记录
            Dim findVals(1) As Object
            findVals(0) = m_Class.Trim
            findVals(1) = m_Code.Trim
            '搜索记录
            Dim foundRow As DataRow = m_DataSet.Tables(m_TableName).Rows.Find(findVals)
            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_Class
                myRow("编号") = m_Code
                myRow("姓名") = m_Name
                myRow("性别") = m_Sex
                myRow("出生年月") = m_Birth
                myRow("婚否") = m_Marry
                myRow("政治面貌") = m_Polity
                myRow("籍贯") = m_Place
                myRow("学历") = m_Level
                myRow("毕业时间和地点") = m_School
                myRow("备注") = m_Remark
                myRow("照片") = m_photo
                '将新行添加到数据集中的行集合中
                .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.ITeacher.myEdit
        Try
            With m_DataSet.Tables(m_TableName)
                .Rows(intPosition)("姓名") = m_Name
                .Rows(intPosition)("性别") = m_Sex
                .Rows(intPosition)("出生年月") = m_Birth
                .Rows(intPosition)("婚否") = m_Marry
                .Rows(intPosition)("政治面貌") = m_Polity
                .Rows(intPosition)("籍贯") = m_Place
                .Rows(intPosition)("学历") = m_Level
                .Rows(intPosition)("毕业时间和地点") = m_School
                .Rows(intPosition)("备注") = m_Remark
                .Rows(intPosition)("照片") = m_photo
            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 Overloads Function DeleteRecord(ByVal intPosition As Integer) As Boolean _
    Implements IBLL.ITeacher.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), _
            New SqlParameter("@Code", SqlDbType.VarChar, 4)}
            myParameters(0).Value = m_Class
            myParameters(1).Value = m_Code
            myIDAL.myExecuteNonQuery("删除教师基联系方式", myParameters)
            Return True
        Catch ex As Exception
            Throw New Exception(ex.Message)
            Return False
        End Try
    End Function
#End Region

End Class