m.bas

来自「学生选课系统」· BAS 代码 · 共 28 行

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