cls_fee.cls

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

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_Fee"
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 QueryFeeByID(mystr As String)
Dim i As Integer
  mycnt.QryName = "select * from FeeInfo where FeeID='" & mystr & " '"
  mycnt.openQry
End Function
Public Property Get GetQryFeeByIdRs() As Recordset
  Set GetQryFeeByIdRs = mycnt.MQueryRs
End Property


Public Sub OpenFee()
Dim i As Integer
  mycnt.QryName = "select * from FeeInfo "
  mycnt.openQry
End Sub
Public Property Get GetFeeRs() As Recordset
  Set GetFeeRs = mycnt.MQueryRs
End Property