Attribute VB_Name = "PublicVar"
Public Sys_LoginSucceeded As Boolean    '用戶登錄標志
Public Sys_UserID As String             '用戶ID
Public Sys_BorrowLimite As Integer      '借書時限
Public Sys_ContinueLimite As Integer    '續借時限
Public Sys_MaxBorrow As Integer         '最大借書量
Public Sys_MaxPenalty As Double         '最高罰款額
Public Sys_DayPenalty As Double         '每日罰款
Public ConnectionString As String   '數據庫連接字符串
Public Sub SetSystemPar()
'得到參數值
    Dim rst As ADODB.Recordset
    Dim SQL As String
    Dim msg As String
    SQL = "select * from 參數配置表 "
    Set rst = SelectSQL(SQL, msg)
    If rst.RecordCount > 0 Then         '如果存在記錄
        Sys_BorrowLimite = rst.Fields("借書時限")
        Sys_ContinueLimite = rst.Fields("續借時限")
        Sys_MaxBorrow = rst.Fields("最大借書量")
        Sys_MaxPenalty = rst.Fields("最高罰款額")
        Sys_DayPenalty = rst.Fields("每日罰款")
    End If
End Sub