m.bas

这是一个图书馆数据库系统

Attribute VB_Name = "M"
Public FileName As String
Public BooksCallByTitle As Boolean
Public TotalIssueBook As Integer
Public RenewalCounter As Integer
Public MaxFineBal As Integer
Public MembershipDuration As Integer
Public MembershipFee As Integer
Public RenewalFees As Integer
Public strConnection As String

Public Sub LoadGlobalVariables()
    Dim db As Connection
    Dim adoprimaryrs As Recordset
    Set db = New Connection
    db.CursorLocation = adUseClient
    db.Open strConnection
    Set adoprimaryrs = New Recordset
    adoprimaryrs.Open "select TotalIssueBooks,RenewalCounter,MaxFineBal, MembershipDuration, MembershipFee, RenewalFees from GlobalVariables ", db, adOpenStatic, adLockOptimistic
    TotalIssueBook = adoprimaryrs.Fields(0)
    RenewalCounter = adoprimaryrs.Fields(1)
    MaxFineBal = adoprimaryrs.Fields(2)
    MembershipDuration = adoprimaryrs.Fields(3)
    MembershipFee = adoprimaryrs.Fields(4)
    RenewalFees = adoprimaryrs.Fields(5)
    db.Close
End Sub