cls_exam.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_Exam"
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 Sub OpenExamInfo()
' 打开考试表
  mycnt.RcdName = "ExamInfo "
  mycnt.openRcd
End Sub

Public Property Get GetExamRs() As Recordset
'返回考试表的记录
  Set GetExamRs = mycnt.MRecordset
End Property