class1.vb

来自「Visual.Basic.NET实用编程百例-47.6M.zip」· VB 代码 · 共 38 行

Public Class clsTableData
    Private mlngNumRecords As Integer
    Private mdatWhenModified As Date
    Private mdatWhenCreated As Date
    Private mstrName As String

    Public Sub ExtractStatusData(ByRef tblDef As DAO.TableDef)
        '获得表的属性
        mstrName = tblDef.Name
        mdatWhenModified = tblDef.LastUpdated
        mdatWhenCreated = tblDef.DateCreated
        mlngNumRecords = tblDef.RecordCount
    End Sub
    ReadOnly Property Name() As String
        Get
            Return mstrName
        End Get
    End Property

    ReadOnly Property NumRecords() As Integer
        Get
            NumRecords = mlngNumRecords
        End Get
    End Property

    ReadOnly Property WhenModified() As Date
        Get
            WhenModified = mdatWhenModified
        End Get
    End Property

    ReadOnly Property WhenCreated() As Date
        Get
            WhenCreated = mdatWhenCreated
        End Get
    End Property
End Class