module1.bas

来自「很好的学习资料」· BAS 代码 · 共 30 行

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