mdlmain.bas

采购信息录入系统,相对来说

Attribute VB_Name = "mdlMain"
'Option Explicit
'Public gConnect As ADODB.Connection
'
'Sub dMain()
'    Dim i As Long
'    gblnLoginSucceeded = False
'    frmSplash.Show
'    DoEvents
'    On Error GoTo ConnectErr
'    Set gConnect = New ADODB.Connection
'    gConnect.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=stock"
'    gConnect.Open
'    On Error GoTo 0
'    Sleep (2000)
'    Unload frmSplash
'
'    frmMain.Show
'    If gblnLoginSucceeded = False Then
'        Unload frmMain
'        End
'    End If
'    Set gMainFormRefer = frmMain
'
'    Exit Sub
'ConnectErr:
'    MsgBox "数据库连接失败,请检查数据源设置是否正确!!!" & Chr(13) & ERR.Description, vbOKOnly + vbExclamation, "警告"
'    On Error GoTo 0
'End Sub
'