module1.bas

随着学校的规模不断扩大

Attribute VB_Name = "Module1"
Option Explicit

''全局性的数据连接
Public pCN As Connection

Private Sub main()
    Call ConnectDbs
    'frmSplash.Show 1
    frmLogin.Show 1
    'frmSelectLogin.Show 1
    'frmStudentLogin.Show 1
    'frmAnswer.Show 1
End Sub

Private Function ConnectDbs() As Boolean
Dim strError            As String  ''返回的Err值
Dim strConnectString    As String
Dim strDBSName  As String
On Error GoTo Proc_Exit
        strDBSName = App.Path & "\学生档案管理系统.mdb"
        Set pCN = New Connection
        strConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                            & "Data Source=" & strDBSName _
                            & ";Persist Security Info=False"
                            
        pCN.Open strConnectString
        pCN.CursorLocation = adUseClient
        ConnectDbs = True
Proc_Exit:
    If Err.Number <> 0 Then
        MsgBox "数据库连接错误!", vbInformation
        Err.Clear
    End If
End Function