mainmodule.bas

一个交通专用的gis-T系统

Attribute VB_Name = "Mainmodule"
'*********************************************************************
'*
'*                本源码完全免费，共交通同仁学习参考                 *
'*                      www.tranbbs.com                              *
'*                   Developed by Yang Ming                          *
'*       Nanjing Institute of City Transportation Planning           *
'*                 请保留本版权信息，谢谢合作                        *
'*                      中国交通技术论坛                             *
'*                                                                   *
'*                                                                   *
'*********************************************************************
Option Explicit

'定义数据库路径名、表和字段。
Public dbname$, tb As TableDef, Fd As Field
'定义SQL查询语句和表名。
Public SQL_str$, TbName$

Public Dirpath As String ' the path of present project


Public ExportHeight As Double ' These are dimensions of the printed/exported output
Public ExportWidth As Double ' They can be set in the "Options" dialog
Public ExportFormat As Integer ' This is the constant that corresponds to the format                            ' of the exported bitmap (e.g. miFormatBMP)
Public ExportFormatString As String ' This is the name of the format (e.g. "Windows Bitmap")
Public ExportFormatExt As String ' This is the 3 letter long extension that

'数据对象
Public allnodenum '所有节点数目
Public alllinknum '所有路段数目

Public step '迭代常熟

Public NodesCoriX() As Single
Public NodesCoriY() As Single
Public NodesType() As String

Public ProjectName As String
Public ProjectPath As String '项目路径
Public mDbBiblio As Database
Public dbpath As String
Public MDBPath As String
Public NodeTablePath As String
Public LinkTablePath As String

Public Const myCoordFactor = 440     '坐标系数
Public Const myNewRouteToolID = 104
Public Const myNewNodeToolID = 500


Public CurrentEditLyr As mapxlib.Layer
Public CurrentEditFeature As mapxlib.Feature
Public ModifyLyrName As String


'是否让SelectionChanged事件发生
Public gbForbidSelChanged As Boolean
Public FrmMax As Boolean

Public X1 As Double
Public Y1 As Double

Public LinkX As Double
Public LinkY As Double

Public LinkStart As Integer
Public LinkEnd As Integer
Public LinkLength As Long
Public LinkIdNum As Long
Public f As New Feature


Public FidIdEdit As Long

'定义图元属性
Public NodeRadius As Single '节点半径
Public NodeColor As Long  '节点颜色
Public LinkWidth As Single '节点半径
Public LinkColor As Long  '节点颜色

Public ExportPath As String
Public ExportSoft As String
Public ExportName As String



Public UserName() As String
Public UserFd() As String

Public FdNum