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_Sem"
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 QuerySemOnlyYearName()
'只有學(xué)年名稱一個字段的記錄，且不重復(fù)
  mycnt.QryName = "select DISTINCT yearname from SemInfo order by yearname desc"
  mycnt.openQry
End Function
Public Property Get GetQrySemOnlyYearNameRs() As Recordset
'返回只有學(xué)年名稱一個字段的記錄
  Set GetQrySemOnlyYearNameRs = mycnt.MQueryRs
End Property

Public Function QuerySemID()
'含學(xué)期編號,學(xué)期名稱的記錄，且不重復(fù)
  mycnt.QryName = "select semid,semname from SemInfo"
  mycnt.openQry
End Function
Public Property Get GetQrySemID() As Recordset
'返回含學(xué)期編號,學(xué)期名稱的記錄
  Set GetQrySemID = mycnt.MQueryRs
End Property

Public Function PrcSemStudentNumber(semid As String)
'按學(xué)期編號調(diào)用存儲過程,統(tǒng)計人數(shù)
    mycnt.PrcName = "QueryStudentNumber"
    mycnt.PrcPra = "@pra"
    mycnt.OpenPrc semid
End Function

Public Property Get GetPrcSemStudentNumber() As Recordset
'按學(xué)期編號調(diào)用存儲過程,返回統(tǒng)計人數(shù)
  Set GetPrcSemStudentNumber = mycnt.MStoreProcRS
End Property

Public Function PrcSemGraduateStudentNumber(semid As String)
'按學(xué)期編號調(diào)用存儲過程,統(tǒng)計畢業(yè)人數(shù)
    mycnt.PrcName = "QueryGraduateStudentNumber"
    mycnt.PrcPra = "@pra"
    mycnt.OpenPrc semid
End Function

Public Property Get GetPrcSemGraduateStudentNumber() As Recordset
'按學(xué)期編號調(diào)用存儲過程,返回畢業(yè)人數(shù)
  Set GetPrcSemGraduateStudentNumber = mycnt.MStoreProcRS
End Property

Public Function PrcSemByYearName(yearname As String)
'按學(xué)年名稱調(diào)用存儲過程
    mycnt.PrcName = "QuerySemByYearName"
    mycnt.PrcPra = "@pra"
    mycnt.OpenPrc yearname
End Function

Public Property Get GetPrcSemByYearNameRs() As Recordset
'將按學(xué)年名稱調(diào)用存儲過程查詢到的記錄返回
  Set GetPrcSemByYearNameRs = mycnt.MStoreProcRS
End Property

Public Function PrcSemBySemName(semname As String)
'按學(xué)期名稱調(diào)用存儲過程
    mycnt.PrcName = "QuerySemBySemName"
    mycnt.PrcPra = "@pra"
    mycnt.OpenPrc semname
End Function

Public Property Get GetPrcSemBySemNameRs() As Recordset
'將按學(xué)期名稱調(diào)用存儲過程查詢到的記錄返回
  Set GetPrcSemBySemNameRs = mycnt.MStoreProcRS
End Property