clsstart.bas

来自「物流管理系统」· BAS 代码 · 共 21 行

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