Attribute VB_Name = "標(biāo)準(zhǔn)模塊"
Public ID As String  '存放當(dāng)前用戶ID
Public userName As String  '存放當(dāng)前用戶姓名
Public courseDB As Database   '數(shù)據(jù)庫
Public admin As Boolean   '用來標(biāo)記是否當(dāng)前用戶為管理員
 

' 處理選課請求
Sub commitForm(courseID, courseName)
  With Fillfrm
   .nametxt.Text = userName
   .nametxt.Locked = True
   .IDtxt.Text = ID
   .IDtxt.Locked = True
   .courseNametxt = courseName
   .courseIDtxt = courseID
End With
'顯示 fillfrm窗體
 Fillfrm.Show vbModal
End Sub


'打開數(shù)據(jù)庫
Sub openDB()
  '設(shè)定Jet Engine 的缺省數(shù)據(jù)庫類型

'打開數(shù)據(jù)庫
  Set courseDB = DBEngine.OpenDatabase("I:\VB\course.mdb", False, False)
End Sub