module1.bas

中北大学数据库课程设计

Attribute VB_Name = "Module1"
Option Explicit
Public conn As New ADODB.Connection     '定义连接对象
Public select_menu As String            '定义所选择的菜单
Public userID As String                 '表示当前用户ID
Public userpow As String                '表示用户权限
Public book_num As String               '所借图书编号