cls_status.cls

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

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_Status"
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 QueryStatus(mycmb As Object)
'加载下拉列表框的数据
mycnt.RcdName = "StudentStatus"
mycnt.openRcd

End Function

Public Function PrcStatusPanDuanClass(node As String)
'调用存储过程,为获取班级编号
    mycnt.PrcName = "QueryStatusPanDuanClass"
    mycnt.PrcPra = "@pra"
    mycnt.OpenPrc node
End Function

Public Property Get GetPrcStatusPanDuanClass() As Recordset
'调用存储过程,为获取班级编号
  Set GetPrcStatusPanDuanClass = mycnt.MStoreProcRS
End Property

Public Function QueryStudentStatus()
'只有学籍一个字段的记录，且不重复
  mycnt.QryName = "select DISTINCT Status from StudentStatus"
  mycnt.openQry
End Function

Public Property Get GetQryStudentStatus() As Recordset
'返回学籍的记录
  Set GetQryStudentStatus = mycnt.MQueryRs
End Property