End Sub 数据库链接 创建命令返回记录集 Function open_connection(table_name As String) Dim sqlstr As String Dim str As String Set con = New Set rst = New = adUseClient sqlstr = "Provider=;" + "Data Source=" + + "\data\" + ";Persist Security Info=False" sqlstr str = "select * from " & table_name & "" '执行SQL查询 str, con, adOpenDynamic, adLockOptimistic
End Function 会员管理模块 权限实现 Public privilege As Integer Public Sub check_privage(rightlevel As Integer) privilege = rst![权限] Call check_privage(privilege) 读者管理、员工管理、账号设置 增 删 改 查 租赁模块 图书查询 连接book表 查询 借书、还书 连接record表 验证用户信息 验证图书信息 增删