ct_cls.cls

vb不酒店管理系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "CT_Class"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Public Sub START(GWDM As String, GWMC As String, USER As String, NAME As String, RIGHT As String, T_WRK As Workspace)
SYS_GWDM = GWDM
SYS_GWMC = GWMC
SYS_USER = USER
SYS_NAME = NAME
SYS_RIGHT = RIGHT
Set WRK = T_WRK
ct_main.Show (1)

End Sub


Public Property Get XT_RUN() As Variant
XT_RUN = MY_RUN
End Property

Public Property Let XT_RUN(ByVal vNewValue As Variant)
MY_RUN = vNewValue
End Property