cls_course.cls

学生学籍管理系统

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)
'按课程编号查询，用于修改和删除
Dim i As Integer
  mycnt.QryName = "select * from CourseInfo where CourseID='" & mystr & " '"
  mycnt.openQry
End Function
Public Property Get GetQryCourseByIdRs() As Recordset
'返回按课程编号查询的记录
  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)
'**该存储过程的原理：**
'根据 seminfo中的学期名称，再到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