variable.bas

采用VisualBasic和SQL Server 2000开发 功能比较全面的旅游资源管理系

Attribute VB_Name = "Variable"
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