module1.bas

很好的学习资料

Attribute VB_Name = "Module1"
Public ID As String
Public userName As String
Public courseDB As Database
Public admin As Boolean

Sub commitForm(courseID, courseName)
    'userName = "litingwen"  'OOOOOOOOOO
    ' ID = "0001"
    With fillfrm
    .nametxt.Text = userName
    .nametxt.Locked = True
    .IDtxt.Text = ID
    .IDtxt.Locked = True
    .courseNametxt = courseName
    .courseIDtxt = courseID
    End With
    fillfrm.Show vbModal
End Sub

'  打开数据库
Sub openDB()
    '   设定Jet Engine的缺省数据库类型
    DBEngine.DefaultType = dbUseJet
    '   打开数据库
    Set courseDB = DBEngine.OpenDatabase("course.mdb", False, False)
End Sub