commcls.cls

vb实现的全面质量管理系统

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
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

'保持属性值的局部变量
Private mvarAciveCon As Object '局部复制
Private mvarUserRoleId As String '局部复制
Private mvarUserRolePass As String '局部复制
Private mvarUserAdoConStr As String '局部复制
Public Sub RunApp(AppCode As String, RunAuthority As String)
If GlobalCon Is Nothing Then
   MsgBox "没有传入有效的数据库连接，不能执行该功能！", vbExclamation
   Exit Sub
End If
NowFormName = AppCode
NowUserFuncQx = RunAuthority
Select Case UCase(AppCode)
    Case "BOM"  'BOM管理
        FrmBom.Show
        
    Case "CHECK"    '产品结构校验
        FrmBom.Show
        
    Case "BOMWT"  '产品定额工时生成
        
        
    Case "EOM"  '工程改变单
        FrmEco.Show
        
    Case "LOTREPLACE"   '物品成批替代
        FrmLotReplace.Show
        
        
    Case "WC"   '工作中心
        Bas_WorkCenter_Frm.Show
    
    Case "FACCAL"    '工厂日历
        Bas_FacCalendar_Frm.Show 1
        
    Case "WCCAL"    '工作中心日历
        Bas_WorkCenterCal.Show 1
    
    Case "ROUTE"    '工艺路线
        FrmWorkRoute.Show 1
    
End Select


End Sub

Public Property Let UserAdoConStr(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.UserAdoConStr = 5
    mvarUserAdoConStr = vData
    AdoConnectionStr = vData
End Property


Public Property Get UserAdoConStr() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.UserAdoConStr
    UserAdoConStr = mvarUserAdoConStr
End Property



Public Property Let UserRolePass(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.UserRolePass = 5
    mvarUserRolePass = vData
    RolePass = vData
End Property


Public Property Get UserRolePass() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.UserRolePass
    UserRolePass = mvarUserRolePass
End Property



Public Property Let UserRoleId(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.UserRoleId = 5
    mvarUserRoleId = vData
    RoleID = vData
End Property


Public Property Get UserRoleId() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.UserRoleId
    UserRoleId = mvarUserRoleId
End Property



Public Property Set AciveCon(ByVal vData As Object)
'向属性指派对象时使用，位于 Set 语句的左边。
'Syntax: Set x.AciveCon = Form1
    Set mvarAciveCon = vData
    Set GlobalCon = vData
    
End Property


Public Property Get AciveCon() As Object
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.AciveCon
    Set AciveCon = mvarAciveCon
End Property