cldata.cls

很好的学习资料可供参考有实例从图书馆着的希望有帮祝

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Dim DELibrary As DataEnvLibrary

Public Sub OpenDbCon(ByVal strDz As String)
    '创建新的数据环境对象
    Set DELibrary = New DataEnvLibrary
    DELibrary.contLibrary.ConnectionString = _
     "Provider=Microsoft.Jet.OLEDB.4.0;" & _
     "Persist Security Info=False;" & _
     "Data Source=" & strDz & "\Library.mdb"
    '打开新的连接
    DELibrary.contLibrary.Open
End Sub

Public Sub CloseDbCon()
    '关闭连接
    DELibrary.contLibrary.Close
    '释放的数据环境对象
    Set DELibrary = Nothing
End Sub

Public Function rsSystemEnter(ByVal strAdminID As String, ByVal strPassword As String) As ADODB.Recordset
    DELibrary.SystemEnter strAdminID, strPassword
    Set rsSystemEnter = DELibrary.rsSystemEnter
End Function

Public Function rsAdminRegister() As ADODB.Recordset
    DELibrary.rsAdminRegister.Open
    Set rsAdminRegister = DELibrary.rsAdminRegister
End Function

Public Function rsBookSortRegister() As ADODB.Recordset
    DELibrary.rsBookSortRegister.Open
    Set rsBookSortRegister = DELibrary.rsBookSortRegister
End Function

Public Function rsBookSort() As ADODB.Recordset
    DELibrary.rsBookSort.Open
    Set rsBookSort = DELibrary.rsBookSort
End Function

Public Function rsBookRegister(ByVal strSort As String) As ADODB.Recordset
    DELibrary.BookRegister strSort
    Set rsBookRegister = DELibrary.rsBookRegister
End Function

Public Sub InsBook(ByVal lngBookNumber As Long, bModality As Byte, ByVal dtDate As Date)
    DELibrary.InsBook lngBookNumber, bModality, dtDate
End Sub

Public Function rsBookIDList(ByVal strSortID As String) As ADODB.Recordset
    DELibrary.BookIDList strSortID
    Set rsBookIDList = DELibrary.rsBookIDList
End Function

Public Function rsBookInformation(ByVal strSort As String, ByVal strBook As String, _
ByVal bModality As Byte, dtDate1 As Date, dtDate2 As Date) As ADODB.Recordset
    DELibrary.BookInformation strSort, strBook, bModality, dtDate1, dtDate2
    Set rsBookInformation = DELibrary.rsBookInformation
End Function

Public Function rsReaderRegister(ByVal strReaderID As String) As ADODB.Recordset
    DELibrary.ReaderRegister strReaderID
    Set rsReaderRegister = DELibrary.rsReaderRegister
End Function

Public Function rsBookStat(ByVal lngBookNumber As Long) As ADODB.Recordset
    DELibrary.BookStat lngBookNumber
    Set rsBookStat = DELibrary.rsBookStat
End Function

Public Function rsBorrowStat(ByVal strReaderID As String) As ADODB.Recordset
    DELibrary.BorrowStat strReaderID
    Set rsBorrowStat = DELibrary.rsBorrowStat
End Function


Public Function rsBookSortStat(ByVal strSortID As String) As ADODB.Recordset
    DELibrary.BookSortStat strSortID
    Set rsBookSortStat = DELibrary.rsBookSortStat
End Function

Public Function rsValidatePassword(ByVal strAdminID As String, ByVal strPassword As String) As ADODB.Recordset
    DELibrary.ValidatePassword strAdminID, strPassword
    Set rsValidatePassword = DELibrary.rsValidatePassword
End Function

Public Sub UpdataPassword(ByVal strAdminID As String, ByVal strOldPassword As String, ByVal strNewPassword As String)
    DELibrary.UpdataPassword strAdminID, strOldPassword, strNewPassword
End Sub

Public Function rsAlrBorrowBook(ByVal strReaderID As String) As ADODB.Recordset
    DELibrary.AlrBorrowBook strReaderID
    Set rsAlrBorrowBook = DELibrary.rsAlrBorrowBook
End Function

Public Function rsReaderIDStat(ByVal strReaderID As String) As ADODB.Recordset
    DELibrary.ReaderIDStat strReaderID
    Set rsReaderIDStat = DELibrary.rsReaderIDStat
End Function

Public Function rsAlrBorrowInf(ByVal lngBookID As Long) As ADODB.Recordset
    DELibrary.AlrBorrowInf lngBookID
    Set rsAlrBorrowInf = DELibrary.rsAlrBorrowInf
End Function

Public Function UpdataBookList(ByVal lngBookID As Long, bState As Byte)
    DELibrary.UpdataBookList lngBookID, bState
End Function

Public Function rsWaitBorrowInf(ByVal lngBookNumber As Long) As ADODB.Recordset
    DELibrary.WaitBorrowInf lngBookNumber
    Set rsWaitBorrowInf = DELibrary.rsWaitBorrowInf
End Function

Public Function rsWaitBorrowList(ByVal lngBookNumber As Long) As ADODB.Recordset
    DELibrary.WaitBorrowList lngBookNumber
    Set rsWaitBorrowList = DELibrary.rsWaitBorrowList
End Function

Public Function rsWaitBorrowStat(ByVal strReaderID As String, ByVal lngBookNumber As Long) As ADODB.Recordset
    DELibrary.WaitBorrowStat strReaderID, lngBookNumber
    Set rsWaitBorrowStat = DELibrary.rsWaitBorrowStat
End Function

Public Function rsBorrowStatistic() As ADODB.Recordset
    DELibrary.rsBorrowStatistic.Open
    Set rsBorrowStatistic = DELibrary.rsBorrowStatistic
End Function

Public Sub DelLoseBook()
    DELibrary.DelLoseBook
End Sub