g_main.bas

来自「本人写的一个垃圾代码,主要是实现简单的打印功能」· BAS 代码 · 共 28 行

Attribute VB_Name = "g_Main"
Public myDB As ADODB.Connection
Public fMainForm As MDIfrmMain

Sub Main()
    Call LinkDB
End Sub
Public Sub LinkDB()

    On Error GoTo errLink
    Set myDB = New ADODB.Connection
    myDB.Mode = adModeReadWrite
    myDB.CursorLocation = adUseClient
    myDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\zjdb.mdb"
    myDB.CommandTimeout = 15
    myDB.Open
           
    Set fMainForm = New MDIfrmMain
    Load fMainForm

    fMainForm.Show
Exit Sub
errLink:
    MsgBox "数据库连接失败！系统退出!" + err.Description, vbOKOnly + vbExclamation, "退出"
    End
   
End Sub