m.bas

来自「图书管理系统,采用VISUAL BASIC数据库编程技术,可用于课程设计,毕业设」· 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