variable.bas

本系统本系统采用VB6.0+SQL2000,紧扣旅游的关键要素,进述如何对这些旅游资源进行管理,具有很强的实用性,既可以作为独立的系统使用,也可以作为旅游企业综合业务管理系统的一个重要组成部分,本系统

Attribute VB_Name = "Variable"
'保存执行SQL语句的字符串
Public SqlStmt As String
'读取表中列值的变量
Public ColVal As String
'地域数组，分别存放本市地域、外埠地域、国外地域
Public d1() As String
Public d2() As String
Public d3() As String
'娱乐厅名称数组
Public ArrPlace() As String
'宾馆名称数组
Public ArrHotel() As String
'餐厅名称数组
Public ArrRes() As String
'娱乐厅名称数组
Public ArrAmuse() As String
'娱乐项目数组
Public ArrItem() As String
'火车车次数组
Public ArrTno() As String
'飞机航班号数组
Public ArrPno() As String
'旅游线路数组
Public ArrLine() As String

'声明类模块变量
Public MyArea As New Area  '地域对象
Public MyPlace As New Place  '景点对象
Public MyHotel As New Hotel  '宾馆对象
Public MyRes As New Restaurant  '餐厅对象
Public MyAmuse As New Amusement  '娱乐对象
Public MyAitem As New AmuseItem  '娱乐项目对象
Public MyTrain As New Train  '火车对象
Public MyTrain1 As New Train
Public MyPlane As New Plane  '飞机对象
Public MyPlane1 As New Plane
Public MyLine As New tline  '旅游线路对象
Public Mylplace As New lplace  '线路景点对象
Public Mylhotel As New lhotel  '线路宾馆对象
Public Mylres As New lres  '线路餐厅对象
Public Mylamuse As New lamuse  '线路娱乐对象
Public Myltrain As New ltrain  '线路火车对象
Public Mylplane As New lplane  '线路飞机对象
Public MyUser As New Users  '用户对象
Public CurUser As New Users  '当前用户对象