module1.bas

本论文以“计算机考试系统”的开发为背景

Attribute VB_Name = "Module1"
Option Explicit

''全局性的当前的套号
Public pintSetNumber As Integer
Public pCN As Connection
Public Type udtStudent
    准考证号 As String
    考生姓名 As String
End Type

Public pudtStudent As udtStudent

Private Sub main()
    Call ConnectDbs
    frmSplash.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