?? module1.bas
字號:
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -