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_Pi As Double = 3.1415926536
Public Const g_P As Double = 206264.80625
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_Dir(g_MaxPotNum) As Double '水平方向觀測值
Public g_StaPotName(g_MaxPotNum) As String '水平方向觀測值的起點名
Public g_EndPotName(g_MaxPotNum) As String '水平方向觀測值的終點名
Public g_W(g_MaxPotNum) As Double '三角形閉合差
Public g_PotName1(g_MaxPotNum) As String '三角形閉合差的點名1
Public g_PotName2(g_MaxPotNum) As String '三角形閉合差的點名2
Public g_PotName3(g_MaxPotNum) As String '三角形閉合差的點名3


'平差程序所需簡單變量
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_MD 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