clsstart.bas

物流管理系统

Attribute VB_Name = "clsStart"
Option Explicit

Public trycount As Integer
Public db As clsDataBase
Public AppPath As String
Public sys As New clsSystem           '密码尝试次数

Const CompanyName As String = "物流管理系统"

Public Sub Main()

    If App.PrevInstance Then
        MsgBox "系统已经在运行!", vbExclamation, "提示信息"
        End
    End If
    Call sys.Initialize
    Call frmLogin.Show
End Sub