base.bas

来自「很好！ 很实用！ 免费！」· BAS 代码 · 共 65 行

Attribute VB_Name = "Base"
Option Explicit
'公用变量定义,在此定义的变量可以在全局引用
'环境
Public g_ToolBar As Boolean
Public g_MenuTree As Boolean
Public g_StatusBar As Boolean
Public g_ButtonArrange As Boolean
'系统
Public g_cn As ADODB.Connection                 'ADO Connection
Public g_cnString As String                     'ADO ConnectionString
Public g_sUserID As String                      'Current UserID
Public g_sUserName As String                    'Current UserName
Public g_sUserUID As String                     '随机生成的一个ID.每次进入都不一样

Public g_System As clsSystem '由此访问本系统的组件
Public g_Busy As clsSysBusy '系统忙组件
'日志
Public g_sTempFileName As String '存放Temp文件的字符串
'是否测试
Public g_Debug As Boolean
'Microsoft Agent
'Dim m_Agent As String
'Dim m_AgentPath As String
'Dim x_Agent As IAgentCtlCharacterEx
'guid
Dim guiGuid As Object


'起动项
Private Sub Main()
'Splash
    
    frmSplash.Show
    DoEvents
    'guid
    'Set guiGuid = CreateObject("IMSkernel.Guid")
    'busy
    Set g_Busy = New clsSysBusy
    
    If App.PrevInstance Then
        End
    End If
    App.Title = "商业系统"
'Init
    Set g_System = New clsSystem
    If Not g_System.InitSystem() Then
        If MsgBox("系统初始化错误，删除数据连接吗？", vbOKCancel) = vbOK Then
            If Not g_System.delRegString() Then
                MsgBox "系统删除数据连接错误!", vbOKOnly
            End If
        End If
        End  'end application
    End
    End If
    '生成UID
    g_sUserUID = newGUID()
    
    Unload frmSplash
'login
    frmLogin.Show 'can't vbModal,因为不能在任务栏中显示

End Sub