var_def.bas

此程序为水准网平差

Attribute VB_Name = "Var_Def"
Public g_ProDir As String
Public g_CurDir As String
Public g_Info1 As Integer
Public g_Info2 As Integer
Public g_ModifyType As Integer
Public g_ProjectFile As String '项目文件名，包括扩展名和目录名
Public g_ProjectFileName As String '项目文件名，不包括扩展名和目录名
Public g_MyWs As Workspace
Public g_d_Base As Database
Public g_RetVal As Variant
Public Const g_MaxPotNum As Long = 300 '监测点最大个数
Public g_PotNum As Integer '水准点的个数
Public g_ObsNum As Integer '水准高差观测值个数
Public g_InsName As String '仪器名称
Public g_InsNum As String '仪器编号
Public g_PotName(g_MaxPotNum) As String '水准点的点名
Public g_Z(g_MaxPotNum) As Double '水准点的高程
Public g_Z0(g_MaxPotNum) As Double '水准点的近似高程
Public g_DZ(g_MaxPotNum) As Double '水准点的高差改正数
Public g_H(g_MaxPotNum) As Double '水准高差观测值
Public g_StaNum(g_MaxPotNum) As Single '高程观测值的测站数或水准线路长度
Public g_StaPotName(g_MaxPotNum) As String '高程观测值的起点名
Public g_EndPotName(g_MaxPotNum) As String '高程观测值的终点名
Public g_H1(g_MaxPotNum) As Integer '高差观测值起点点号
Public g_H2(g_MaxPotNum) As Integer '高差观测值终点点号
'平差程序所需简单变量
Public g_Pro As String '项目名称
Public g_Loc As String '项目地点
Public g_Obs As String '观测者
Public g_Obd As String '观测日期
Public g_Com As String '计算者
Public g_Cod As String '计算日期
Public g_Els As String '高程系统
Public g_Ed As Integer '已知点个数
Public g_Dd As Integer '未知点个数
Public g_Net As Integer '是否用后验中误差
Public g_Kc As Integer '未知点的近似高程是否已知
Public g_Np As Integer '打印的起始页号
Public g_Ih As Integer '水准尺的读数是否加倍
Public g_Mh As Double '一测站的水准高差的先验中误差
 '设置一些常数值（从 WIN32API.TXT）
Public Const conHwndTopmost = -1
Public Const conHwndNoTopmost = -2
Public Const conSwpNoActivate = &H10
Public Const conSwpShowWindow = &H40
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public WinDows_Path As String
Public WinDowsSystem_Path As String
Public Program_Path As String
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Function IsKeyStrExist(ByVal CoSources As Collection, ByVal KeyStr As String) As Boolean
    Dim tmpVal As Variant
    On Error GoTo ErrorHandler
    tmpVal = CoSources(KeyStr)
    IsKeyStrExist = True
    Exit Function
ErrorHandler:
    IsKeyStrExist = False
End Function