basdim.bas

这是一个图书馆管理系统源程序。非常有用

Attribute VB_Name = "basdim"
Option Explicit
Public admin As Boolean     '确认是否为管理员
Public adminid As String '当前在线管理员id
Public id1 As String
Public tkUserID As String           ' 查看图书或用户资料
Public tkViewFriend As Boolean      ' 是否正在查看好友
Public id As String '用户编号id
Public idname As String  '用户的名字
Public ifuser As String '用户个人信息或其它读取方式 0为个人信息,4为查看用户个人资料,5为调用对象用户资料,6为添加用户,4为个人信息
Public tkTable As String '当前对象(表名)
Public bookindex As Integer '读取用户己借书数量
Public systembooks As Integer '计算出该用户最多借书数量
Public server As String
Public loginname As String
Public password As String