cls_class.cls

来自「学生信息的管理是学校经常遇到的问题。学生数量的积聚增加和学生认识制度的改革」· CLS 代码 · 共 67 行

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_Class"
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 QueryClassById(mystr As String)
'按班级编号查询，用于修改和删除
Dim i As Integer
  mycnt.QryName = "select * from ClassInfo where ClassID='" & mystr & " '"
  mycnt.openQry
End Function
Public Property Get GetQryClassByIdRs() As Recordset
'返回按班级编号查询的记录
  Set GetQryClassByIdRs = mycnt.MQueryRs
End Property
Public Sub OpenClass()
  mycnt.RcdName = "ClassInfo "
  mycnt.openRcd
End Sub
Public Property Get GetClassRs() As Recordset
'返回班级表的记录
  Set GetClassRs = mycnt.MRecordset
End Property

Public Function PrcClassById(myclassid As String)
'**该存储过程的原理：**
'根据 seminfo中的学期名称，再到courseinfo表中找符合该两表共同字段semid的记录
  mycnt.PrcName = "QueryClass"
  mycnt.PrcPra = "@pra"
  mycnt.OpenPrc myclassid
End Function

Public Property Get GetPrcClassByIdRs() As Recordset
'返回班级表的记录
  Set GetPrcClassByIdRs = mycnt.MStoreProcRS
End Property

Public Function PrcClassIdBySemID(semid As String)
'调用存储过程查询班级编号
  mycnt.PrcName = "QueryClassID"
  mycnt.PrcPra = "@pra"
  mycnt.OpenPrc semid
End Function

Public Property Get GetPrcClassIdBySemIDRs() As Recordset
'返回班级编号的记录
  Set GetPrcClassIdBySemIDRs = mycnt.MStoreProcRS
End Property