variable.bas

酒店管理系统 基于VB和SQL的一个很好的程序 可以实现酒店的日常管理工作

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  '结款对象