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_LevDirValue(g_MaxPotNum) As Double '水平方向观测值
Public g_StaPotName(g_MaxPotNum) As String '水平方向观测值的测站名
Public g_EndPotName(g_MaxPotNum) As String '水平方向观测值的目标名
Public g_Pro As String '项目名称
Public g_Loc As String '项目地点
Public g_ObsName As String '观测者
Public g_ObsData As String '观测日期
Public g_CalName As String '计算者
Public g_Np As Integer '打印的起始页号
'Public g_StaNum(g_MaxPotNum) As Single '测站数
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