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_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