module1.bas

实现某班级的图书信息管理

Attribute VB_Name = "Module1"

 '************************************************************************
     '本窗本用于添加新用户
 '*************************************************************************
Option Explicit
Public DataPath As String '这是Data控键共用数据库
Public userPassword As String
Public username As String
Public Sub InitializeDataPath() '对数据库的路径进行初始化，使用相对的路径，只要数据库与程序在同一目录下即可保证数据的正常访问了
  
    If Right(App.Path, 1) <> "\" Then '是为在打包的时候可能出现无斜杆的防错吗？
        DataPath = App.Path & "\librarydb.mdb"
    Else
        DataPath = App.Path & "librarydb.mdb"
    End If
  
End Sub