publicvar.bas

数据库课程设计图书管理系统

Attribute VB_Name = "PublicVar"
Public Sys_LoginSucceeded As Boolean
Public Sys_UserID As String
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