announce.bas

用于河南省主体功能区区划的一个小地理信息系统

Attribute VB_Name = "announce"
Public islawedit As Integer

'声明查询图层名数组和查询字段数组

Public querystr  As New Collection
Public querynamestr  As New Collection       'String

Public queryenable As Boolean

'声明列表浏览器中选定记录集的字符串集
'Public sellstitems() As String
'Public sellst As Boolean

'声明
Public queryrecs As New Collection         'MapObjects2.Recordset

'声明属性浏览框对应的图层名

'Public attlyrnames() As String

'判断frmatt中cmdsel()是否应用
'及其应用后选定的记录集
'Public cmdselapp As Boolean
'
'Public cmdselrecs As MapObjects2.Recordset
'判断frmatt中cmdidentify使用
Public frmattidentify As Boolean
Public identifytxt As String


'判断选择预测的公路路段
Public selwayofappraisal As Boolean

'判断选择预测的铁路路段
Public SelectRailway As Boolean
'铁路预测中心点
Public SelRailwayPt_x As Single
Public SelRailwayPt_y As Single
'铁路预测路段记录集
Public SelRailwayRecs As MapObjects2.Recordset
'铁路预测路段实体
Public SelRailway As MapObjects2.Line
'铁路鼠标选择路段
Public RailwayContour As Boolean


'预测路段记录集
Public selwayrecs As MapObjects2.Recordset
'预测路段实体
Public selway As MapObjects2.Line
'鼠标选择路段
Public drawcontour As Boolean

'建筑物周围道路噪声分布
Public drawcontour_BA As Boolean
'预测中心点
Public selwayofpt_x As Single
Public selwayofpt_y As Single


'Public h() As Double
'Public C() As Double
'Public T() As Double
'Public D() As Double
'Public b() As Double, ba() As Double, bm() As Double, bh() As Double
'Public n1 As Integer, n2 As Integer

'判断道路两侧状况，路堤或路堑、屏障、树林、建筑
Public wsideoptions(3) As Boolean
'判断铁路两侧状况，路堤或路堑、屏障、树林、建筑
Public RnMsideOpt(5) As Boolean

'边坡相对路面高度
Public wnbankH As Double
'斜坡角度
Public wnbankAngle As Double
'边坡反射系数
Public wnbankRef As Double

'声障距路中心垂直距离
Public Distbartoway As Double
'声障顶部与路面相对距离
Public Hbartoptowaylevel As Double
'屏障反射系数
Public Kbar As Double
'屏障底部与路面相对高度
Public Hbarbottom As Double
'屏障高度
Public Hbar As Double
'隔声损失
Public acutbar As Double

'树林近点距离
Public Distwoodclose As Double
'树林远点距离
Public Distwoodfar As Double
'树林与地面高度
Public Hwoodtowaylevel As Double
'树林绝对高度
Public Hwood As Double
'树林底部与地面相对高度
Public Hwoodbottom As Double

'建筑物参数
Public wnbuildParameter() As Double
'-------点源预测----------
Public Pnpredict_Enable As Boolean
'预测中心点
Public Pnpredict_pt_x As Single
Public Pnpredict_pt_y As Single
Public Pdrawcontour As Boolean

'噪声投诉点位确定
Public Pnt_x As Single
Public Pnt_y As Single
Public PntSelect As Boolean
Public SelPnt As MapObjects2.Point
Public PntDraw As Boolean

'-------用户管理----------
Public userchange As Boolean

Public usermanage As Boolean
Public Sptdatamanage As Boolean

Public LoginSucceeded As Boolean

'视图管理
Public M_extent As New Collection
Public M_K As Integer
'噪声投诉底图点选
Public RptPntSelect As Boolean
'监测分析中的区域网格点绘制
Public inspectmousegrid As Boolean
Public inspectmousegrid1 As Boolean
Public deletepoint As Boolean
'监测区域网格绘制
Public drawGridBoln As Boolean
Public GridRect As MapObjects2.Polygon
Public GridPts As MapObjects2.Points
Public gridPt As MapObjects2.Point
'监测区域网格点绘制
Public drawPointBoln As Boolean
Public Ppt As MapObjects2.Point
Public ppts As MapObjects2.Points

'矩形的集合
Public moSymbol As New MapObjects2.Symbol
'Public moPolygons As New Collection
Public lPoly  As Long
'Public moPoint As New Collection
Public lPoint  As Long
'定义区域现状评价与查询统计开关
Public XZPJ As Boolean
Public CXTJ As Boolean
Public TXTchange As Boolean