classes/clsApp.vb

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

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

''' <summary>
''' 程序信息类，对应表S_App
''' </summary>
Public Class ClsApp

    Private mAppId As Integer
    Private mAppName As String
    Private mAppVerSion As String
    Private mAppCompany As String
    Private mAppWebUrl As String
    Private mAppEmail As String
    Private mAppMemo As String
    Private mAppPubTime As Date
    Private mAppType As String
    Private mAppExpire As Date
    Private mAppRegisted As Boolean
    Private mAppRegCode As String

    Public Property AppName As String
        Get
            Return mAppName
        End Get
        Set(value As String)
            mAppName = value
        End Set
    End Property

    Public Property AppVerSion As String
        Get
            Return mAppVerSion
        End Get
        Set(value As String)
            mAppVerSion = value
        End Set
    End Property

    Public Property AppCompany As String
        Get
            Return mAppCompany
        End Get
        Set(value As String)
            mAppCompany = value
        End Set
    End Property

    Public Property AppWebUrl As String
        Get
            Return mAppWebUrl
        End Get
        Set(value As String)
            mAppWebUrl = value
        End Set
    End Property

    Public Property AppEmail As String
        Get
            Return mAppEmail
        End Get
        Set(value As String)
            mAppEmail = value