数据库系统案例图书管理系统

图书管理系统样板，案例，初学者参考。用VB和access做的。Public sys_loginsucceeded As Boolean '用户登录标志 Public sys_userid As String '用户id Public sys_borrowlimit As Integer '结束时限 Public sys_continuelimit As Integer '续借时限 Public sys_maxborrow As Integer '最大借书量 Public sys_maxpenalty As Double '最高罚款额 Public sys_daypenalty As Double '每日罚款 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_borrowlimit = rst.fields("借书时限") sys_continuelimit = rst.fields("续借时限") sys_maxborrow = rst.fields("最大借书量") sys_maxpenalty = rst.fields("最高罚款额") sys_daypenalty = rst.fields("每日罚款") End If End Sub