variable.bas

Oracle 10g数据库Java开发 源码

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'客户类别数组
Public Arr_CltType() As String
'房间分类数组
Public Arr_RoomType() As String
Public Arr_TypeId() As Long
'类模块对象
Public MyUser As New Users  '用户对象
Public CurUser As New Users  '当前用户对象
Public MyClt As New Client  '客户对象
Public MyRoomType As New RoomType   '客房类型对象
Public MyRoom As New Room   '客房对象
Public MyFood As New Food   '菜谱对象
Public MyRef As New Refectory '餐厅对象
Public MyDuty As New OnDuty   '值班对象
Public MyOrderList As New OrderList  '预定客房列表对象
Public MyOrderRoom As New OrderRoom  '预定客房对象
Public MyReg As New Registration  '入住登记对象
Public MyPayFRoom As New PayforRoom  '结款对象
Public MyOrderFood As New OrderFood  '就餐对象
Public MyFoodList As New FoodList  '就餐菜谱对象
Public MyPayfFood As New PayforFood '就餐收费对象