Attribute VB_Name = "Variable"
'保存執行SQL語句的字符串
Public SqlStmt As String
'客戶類別數組
Public Arr_CustType() As String
'房間分類數組
Public Arr_RoomType() As String
Public Arr_TypeId() As Long
'類模塊對象
Public MyUser As New Users  '用戶對象
Public CurUser As New Users  '當前用戶對象
Public MyCust As New Customer  '客戶對象
Public MyRoomType As New RoomType   '客房類型對象
Public MyRoom As New Room   '客房對象
Public MyOrderList As New OrderList  '預定客房列表對象
Public MyOrderRoom As New OrderRoom  '預定客房對象
Public MyReg As New Registration  '入住登記對象
Public MyPayFRoom As New PayforRoom  '結款對象