Attribute VB_Name = "conn"
Public cnn As New ADODB.Connection '定義一個新的ADO數據源
Public kc1 As New ADODB.Recordset '定義一個新的ADO記錄集
Public kc2 As New ADODB.Recordset '
Public kc3 As New ADODB.Recordset '
Public kc4 As New ADODB.Recordset '
Public kc5 As New ADODB.Recordset '

Sub Main()
tkOpenAccessDB App.Path & "\base.mdb"
'此處主要采用了一個過程來定義連接數據庫，當然也可可以將過程完全簡化一下，不過以下的連接參數設計
 '的比較完整，所以仍采用此過程進行連接數據庫,在此代入的參數為當前目錄下base.mdb數據庫
If kc1.State = adStateOpen Then '當前記錄集是否為打開狀態，如果是，則關閉當前記錄集
kc1.Close
End If
kc1.Open "select * from 登陸", cnn, adOpenStatic, adLockReadOnly, adCmdText
'以上這句是以只讀方式進行檢索登陸表，主要是用于確定當前表中是否有登陸內容，防止無用戶而登陸不了系統
If kc1.RecordCount = 0 Then '當當前記錄集返回記錄數為0時，執行添加一條新記錄，作為新的默認登陸帳號
Set kc1 = cnn.Execute("insert into 登陸 values('admin','admin','超級管理員')")
'以上語句是使用了SQL的插入語句，向數據庫中加入新語句
End If
Set kc1 = cnn.Execute("select count(*) from pksystem")
If kc1.Fields(0) > 0 Then
Set kc1 = cnn.Execute("select * from pksystem")
nknumber = kc1.Fields(0) '這里注明全局變量初始值，即當前每天的課程為6節
'以下語句確定表教學時間段是否為空內容,如果是則轉到輸入界面
 Set kc2 = cnn.Execute("select count(*) from 教學時間段")
If kc2.Fields(0) < nknumber Then
   kctable = "教學時間段"
   Form5.Show
Else
Form1.Show '執行完以上操作就可以進入登陸窗體form1
End If
Else
Form3.Show
End If
End Sub
Private Sub tkOpenAccessDB( _
        tkFileName As String, _
        Optional tkUserID As String, _
        Optional tkPassword As String _
    )
    
    On Error GoTo tkFinish
    '以下cnn.open就是第一次使用了用戶傳入的參數打開了連接源
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & tkFileName & ";" & _
        "Mode=Share Deny None;" & _
        "Extended Properties=;" & _
        "Jet OLEDB:System database=;" & _
        "Jet OLEDB:Registry Path=;" & _
        "Jet OLEDB:Database Password=;" & _
        "Jet OLEDB:Engine Type=5;" & _
        "Jet OLEDB:Database Locking Mode=1;" & _
        "Jet OLEDB:Global Partial Bulk Ops=2;" & _
        "Jet OLEDB:Global Bulk Transactions=1;" & _
        "Jet OLEDB:New Database Password=;" & _
        "Jet OLEDB:Create System Database=False;" & _
        "Jet OLEDB:Encrypt Database=False;" & _
        "Jet OLEDB:Don't Copy Locale on Compact=False;" & _
        "Jet OLEDB:Compact Without Replica Repair=False;" & _
        "Jet OLEDB:SFP=False;" & _
        tkUserID, _
        tkPassword
    
    Exit Sub
tkFinish:
    MsgBox Err.Description
    End
    
End Sub