VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Cls_Course"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Dim mycnt As Cls_Connect
Private Sub Class_Initialize()
  Set mycnt = New Cls_Connect
End Sub


Public Function QueryCourseById(mystr As String)
'按課程編號(hào)查詢，用于修改和刪除
Dim i As Integer
  mycnt.QryName = "select * from CourseInfo where CourseID='" & mystr & " '"
  mycnt.openQry
End Function
Public Property Get GetQryCourseByIdRs() As Recordset
'返回按課程編號(hào)查詢的記錄
  Set GetQryCourseByIdRs = mycnt.MQueryRs
End Property
Public Sub OpenCourse()
' 打開課程表
  mycnt.RcdName = "CourseInfo "
  mycnt.openRcd
End Sub
Public Property Get GetCourseRs() As Recordset
'返回課程表的記錄
  Set GetCourseRs = mycnt.MRecordset
End Property
Public Function PrcCourseById(mycourseid As String)
'**該存儲(chǔ)過程的原理：**
'根據(jù) seminfo中的學(xué)期名稱，再到courseinfo表中找符合該兩表共同字段semid的記錄
  mycnt.PrcName = "QueryCourse"
  mycnt.PrcPra = "@pra"
  mycnt.OpenPrc mycourseid
End Function
Public Property Get GetPrcCourseByIdRs() As Recordset
'返回課程表的記錄
  Set GetPrcCourseByIdRs = mycnt.MStoreProcRS
End Property