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_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_InsName As String '仪器名称
Public g_InsNum As String '仪器编号
Public Const g_P = 206264.806286
Public Const PI = 3.141592653
Public g_projectfile As String    '//项目文件名
Public arecord As Recordset
Public g_MyWs As Workspace
Public g_d_Base As Database

Public g_Potnum As Integer '//三角网点个数
Public g_Obsnum As Integer  '/观测方向数
Public Const Maxnum As Integer = 300
Public g_PotName(Maxnum) As String   '//点名
Public g_StaPotname(Maxnum) As String  '//
Public g_EndPotname(Maxnum) As String
Public g_Dir(Maxnum) As Double '// 观测方向值
Public g_W(Maxnum) As Double '//三角形闭合差
Public g_PotName1(Maxnum) As String
Public g_PotName2(Maxnum) As String
Public g_PotName3(Maxnum) As String

Public g_md As Double