everydepartment.vb

来自「是一个用SQL和VB.NET来做的源码。」· VB 代码 · 共 16 行

Public Class EveryDepartment
    Private strDepartmentName As String

    Public Sub New(ByVal strDepartmentName As String)
        MyBase.New()
        Me.strDepartmentName = strDepartmentName
    End Sub

    Public ReadOnly Property DepartmentName() As String
        Get
            Return strDepartmentName
        End Get
    End Property

End Class