startpriv.bas

制造业产供销与往来系统源码,包括进销存及全部控件！

Attribute VB_Name = "StartPriv"
Option Explicit

Public gPublicCommon As PublicCommon
Public gPublicFunction As PublicFuncion
Public gDbCommon As DbCommon


Sub Main()
On Error GoTo Errorhandle
   
   If App.PrevInstance = True Then
      Err.Raise vbObjectError + 1, , "系统正在运行！"
      Exit Sub
   End If
   
   Set gDbCommon = New DbCommon
   gDbCommon.ConnectionDb App.Path, 2
   
   Set gPublicCommon = New PublicCommon
   Set gPublicCommon.DbCommon = gDbCommon
   
   Load frmSmsStart
   
Exit Sub
Errorhandle:
   MsgBox Err.Description
End Sub