variable.bas

一个小型管理系统.~!!不同的用户拥有不同的权限

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'客户类别数组
Public Arr_CustType() As String
Public Arr_CostID() As String
'房间分类数组
Public Arr_RoomType() As String
Public Arr_TypeId() As Long
'食品分类数组
Public Arr_FoodClass() As String
'Public Arr_ClassId() 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  '结款对象
Public MyFood As New Food  '食品对象
Public MyRate As New Rate