variable.bas

Visual Basic + Oracle 9i数据库应用系统开发与实例《小区物业管理系统》,界面还行

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'服务器名称
Public ServerName As String
'读取表中列值的变量
Public ColVal As String
'房型数组
Public Arr_HouseStyle() As String
'楼房数组
Public Arr_Building() As String
'收费项目数组
Public Arr_ChargeItem() As String
'类模块对象
Public MyUser As New Users '用户对象
Public CurUser As New Users  '当前用户对象
Public MyStyle As New HouseStyle  '户型对象
Public MyBuilding As New Building  '楼房对象
Public MyHouse As New HouseInfo  '房屋对象
Public CurHouse As New HouseInfo  '当前选择的房屋对象
Public MyOwner As New HouseOwner  '业主对象
Public MyComp As New Complain  '投诉对象
Public MyRepair As New Repair  '报修对象
Public MyChargeItem As New ChargeItem  '收费项目对象
Public MyRecord As New RecordItem  '收费记录对象
Public MyCharging As New Charging  '收费对象
Public MyProj As New Project  '工程对象
Public MyPark As New Parking  '车位对象
Public MyClean As New CleanUp  '保洁对象