publicvar.bas

图书管理系统 1.图书管理系统概述图书管理系统用来管理图书借还过程中的静态和动态信息.本系统是一个典型的图书管理系统,系统管理的信息主要包括图书基本信息,图书存储信息,借书和还书信息,图书预约信息以及

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