module1.bas

来自「很经典的图书管理系统」· BAS 代码 · 共 8 行

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               '所借图书编号