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