module1.bas

学生选课vb‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序?】蝪b‘源程序

Attribute VB_Name = "标准模块"
Public ID As String  '存放当前用户ID
Public userName As String  '存放当前用户姓名
Public courseDB As Database   '数据库
Public admin As Boolean   '用来标记是否当前用户为管理员
 

' 处理选课请求
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


'打开数据库
Sub openDB()
  '设定Jet Engine 的缺省数据库类型

'打开数据库
  Set courseDB = DBEngine.OpenDatabase("I:\VB\course.mdb", False, False)
End Sub