cls_student.cls

学生学籍管理系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 1  'vbDataSource
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Cls_student"
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 PrcStudentByNM(mystr As String)
Dim i As Integer
'根据姓名参数调用存储过程
   mycnt.PrcName = "QueryStudentByName"
   mycnt.PrcPra = "@pra"
   mycnt.OpenPrc mystr
End Function
Public Function PrcStudentByID(mystr As String)
Dim i As Integer
'根据编号参数调用存储过程
   mycnt.PrcName = "QueryStudentByIndex"
   mycnt.PrcPra = "@pra"
   mycnt.OpenPrc mystr
End Function
Public Property Get GetPrcStudentRs() As Recordset
'根据姓名或编号参数将调用存储过程的查询结果返回
   Set GetPrcStudentRs = mycnt.MStoreProcRS
End Property


Public Function QryStudentByID(mystr As String)
'根据学生编号查询，用于修改和删除学生记录
    mycnt.QryName = "select * from StudentInfo where StudentID ='" & mystr & "'"
    mycnt.openQry
End Function
Public Property Get GetQryStudentRs() As Recordset
   Set GetQryStudentRs = mycnt.MQueryRs
End Property


Public Function OpenStudent()
'打开学生表，用于增加新学生
    mycnt.RcdName = "StudentInfo"
    mycnt.openRcd
End Function
Public Property Get GetStudentRs() As Recordset
'返回所有学生记录
   Set GetStudentRs = mycnt.MRecordset
End Property