module1.bas

酒店课房管理系统。完成酒店的客房入住

Attribute VB_Name = "Module1"
Public CustClass As String   'CustClass用来标志客户类型
Public Function GetDBPath() 'GetDBPath 函数用来获取要操作的数据库的路径
    Dim dbPathStr As String 'dbPathStr 用来保存数据库的路径
    dbPathStr = App.Path
    If Right(App.Path, 1) <> "\" Then dbPathStr = App.Path & "\"
    dbPathStr = dbPathStr & "dbHotel.mdb"
    GetDBPath = dbPathStr
End Function