module1.bas

来自「用于生产企业设备备件管理系统」· BAS 代码 · 共 31 行

Attribute VB_Name = "Module1"
Option Explicit

Sub Main()
    If GetSetting(App.EXEName, "Settings", "FirstRun", "True") = "True" Then
        SaveSetting App.EXEName, "Settings", "FirstRun", "False"
        Call SaveSetting(App.EXEName, "Settings", "DataPath", App.Path & "\data.mdb")
        Call SaveSetting(App.EXEName, "Settings", "BackUpPath", App.Path & "\backup")
        MyAppInfo.DataPath = App.Path & "\data.mdb"
        MyAppInfo.BackUpPath = App.Path & "\backup"
    Else
        MyAppInfo.DataPath = GetSetting(App.EXEName, "Settings", "DataPath", App.Path & "\data.mdb")
        MyAppInfo.BackUpPath = GetSetting(App.EXEName, "Settings", "BackUpPath", App.Path & "\backup")
    End If
    
    MaxPageSize = 100
    StrConn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & MyAppInfo.DataPath
    Dim frmLoginForm As New frmLogin
    frmLoginForm.Show vbModal
    If frmLoginForm.bOK = False Then
        Unload frmLoginForm
        End
    Else
        Unload frmLoginForm
    End If
    
    frmMain.Show
    
End Sub