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              '要借的书的编号
Public Function ConnectString() _
   As String
   ConnectString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=图书管理系统" '——无须建立.DSN文件，使用连接字符串直接连接数据库
 
End Function