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)
'加載下拉列表框的數(shù)據(jù)
mycnt.RcdName = "StudentStatus"
mycnt.openRcd

End Function

Public Function PrcStatusPanDuanClass(node As String)
'調(diào)用存儲過程,為獲取班級編號
    mycnt.PrcName = "QueryStatusPanDuanClass"
    mycnt.PrcPra = "@pra"
    mycnt.OpenPrc node
End Function

Public Property Get GetPrcStatusPanDuanClass() As Recordset
'調(diào)用存儲過程,為獲取班級編號
  Set GetPrcStatusPanDuanClass = mycnt.MStoreProcRS
End Property

Public Function QueryStudentStatus()
'只有學籍一個字段的記錄，且不重復(fù)
  mycnt.QryName = "select DISTINCT Status from StudentStatus"
  mycnt.openQry
End Function

Public Property Get GetQryStudentStatus() As Recordset
'返回學籍的記錄
  Set GetQryStudentStatus = mycnt.MQueryRs
End Property