cls_sem.cls

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

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()
'只有学年名称一个字段的记录，且不重复
  mycnt.QryName = "select DISTINCT yearname from SemInfo order by yearname desc"
  mycnt.openQry
End Function
Public Property Get GetQrySemOnlyYearNameRs() As Recordset
'返回只有学年名称一个字段的记录
  Set GetQrySemOnlyYearNameRs = mycnt.MQueryRs
End Property

Public Function QuerySemID()
'含学期编号,学期名称的记录，且不重复
  mycnt.QryName = "select semid,semname from SemInfo"
  mycnt.openQry
End Function
Public Property Get GetQrySemID() As Recordset
'返回含学期编号,学期名称的记录
  Set GetQrySemID = mycnt.MQueryRs
End Property

Public Function PrcSemStudentNumber(semid As String)
'按学期编号调用存储过程,统计人数
    mycnt.PrcName = "QueryStudentNumber"
    mycnt.PrcPra = "@pra"
    mycnt.OpenPrc semid
End Function

Public Property Get GetPrcSemStudentNumber() As Recordset
'按学期编号调用存储过程,返回统计人数
  Set GetPrcSemStudentNumber = mycnt.MStoreProcRS
End Property

Public Function PrcSemGraduateStudentNumber(semid As String)
'按学期编号调用存储过程,统计毕业人数
    mycnt.PrcName = "QueryGraduateStudentNumber"
    mycnt.PrcPra = "@pra"
    mycnt.OpenPrc semid
End Function

Public Property Get GetPrcSemGraduateStudentNumber() As Recordset
'按学期编号调用存储过程,返回毕业人数
  Set GetPrcSemGraduateStudentNumber = mycnt.MStoreProcRS
End Property

Public Function PrcSemByYearName(yearname As String)
'按学年名称调用存储过程
    mycnt.PrcName = "QuerySemByYearName"
    mycnt.PrcPra = "@pra"
    mycnt.OpenPrc yearname
End Function

Public Property Get GetPrcSemByYearNameRs() As Recordset
'将按学年名称调用存储过程查询到的记录返回
  Set GetPrcSemByYearNameRs = mycnt.MStoreProcRS
End Property

Public Function PrcSemBySemName(semname As String)
'按学期名称调用存储过程
    mycnt.PrcName = "QuerySemBySemName"
    mycnt.PrcPra = "@pra"
    mycnt.OpenPrc semname
End Function

Public Property Get GetPrcSemBySemNameRs() As Recordset
'将按学期名称调用存储过程查询到的记录返回
  Set GetPrcSemBySemNameRs = mycnt.MStoreProcRS
End Property