commcls.cls

本代码适合初学数据库者学习借鉴

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CommCls"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private mvarUserID As String 'local copy
Private mvarUserPass As String 'local copy
Private mvarDataConnect As Object 'local copy

Private mvarFilePath As String 'local copy

Public Sub ShowItem(ItemCode As String, EditMode As String)

Select Case Trim$(UCase(ItemCode))
    Case ""

    Case ""

    Case ""

    Case ""

    Case ""

    Case ""

    Case Else
        ShowMsgBox LoadResString(202), vbInformation
        
End Select

End Sub

Public Property Let UserID(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.UserID = 5
    mvarUserID = vData
    NowUserID = vData
End Property


Public Property Get UserID() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.UserID
    UserID = mvarUserID
End Property

Public Property Let UserPass(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.UserPass = 5
    mvarUserPass = vData
    NowUserPass = vData
End Property


Public Property Get UserPass() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.UserPass
    UserPass = mvarUserPass
End Property

Public Property Set DataConnect(ByVal vData As Object)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.DataConnect = Form1
    Set mvarDataConnect = vData
    Set GlobalCon = vData
End Property


Public Property Get DataConnect() As Object
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.DataConnect
    Set DataConnect = mvarDataConnect
End Property

Public Property Let FilePath(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.FilePath = 5
    mvarFilePath = vData
    DocFilePath = vData
    NowFilePath = vData
End Property


Public Property Get FilePath() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.FilePath
    FilePath = mvarFilePath
End Property