classes/ClsTEmployee.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Public Class ClsTEmployee
    'T_Employee(6)

    Private m_EmployeeId As Integer '0
    Private m_EmployeeCode As String '1 员工编码，可为空
    Private m_DepartmentId As Integer  '2 部门编号 
    Private m_departmentName As String '3 部门名称
    Private m_EmployeeName As String '4 员工姓名
    Private m_Contact As String '5 员工联系方式

    Public Property EmployeeId As Integer
        Get
            Return m_EmployeeId
        End Get
        Set(value As Integer)
            m_EmployeeId = value
        End Set
    End Property

    Public Property EmployeeCode As String
        Get
            Return m_EmployeeCode
        End Get
        Set(value As String)
            m_EmployeeCode = value
        End Set
    End Property

    Public Property DepartmentId As Integer
        Get
            Return m_DepartmentId
        End Get
        Set(value As Integer)
            m_DepartmentId = value
        End Set
    End Property

    Public Property DepartmentName As String
        Get
            Return m_departmentName
        End Get
        Set(value As String)
            m_departmentName = value
        End Set
    End Property

    Public Property EmployeeName As String
        Get
            Return m_EmployeeName
        End Get
        Set(value As String)
            m_EmployeeName = value
        End Set
    End Property

    Public Property Contact As String
        Get
            Return m_Contact
        End Get
        Set(value As String)