takeval.bas

该程序是三角网平差程序

Attribute VB_Name = "TakeVal"
Sub TakeValue()
    Dim tmp As String, i As Integer
    Dim t As Double
    Dim arecord As Recordset
    Set arecord = g_d_Base.OpenRecordset("基本信息表", dbOpenTable)
    With arecord
       If .RecordCount > 0 Then
        .MoveFirst
        If .Fields(0) <> "" Then g_Pro = .Fields(0)
        g_Loc = .Fields(1)
        g_InsName = .Fields(2)
        g_InsNum = .Fields(3)
        g_Obs = .Fields(4)
        g_Obd = .Fields(5)
        g_Com = .Fields(6)
        g_Cod = .Fields(7)
        g_Potnum = .Fields(8)
        g_Obsnum = .Fields(9)
'       If .Fields(10) <> "" Then tmp = .Fields(10)
       End If
    End With
    arecord.Close
    Set arecord = g_d_Base.OpenRecordset("点名表", dbOpenTable)
    With arecord
        If .RecordCount > 0 Then
            .MoveFirst
            For i = 1 To g_Potnum
                g_PotName(i) = .Fields(1)
                
                If i < g_Potnum Then
                    .MoveNext
                End If
            Next i
        End If
    End With
    arecord.Close
    Set arecord = g_d_Base.OpenRecordset("观测数据表", dbOpenTable)
    With arecord
      If .RecordCount > 0 Then
         .MoveFirst
         For i = 1 To g_Obsnum
             g_StaPotname(i) = .Fields(1)
             g_EndPotname(i) = .Fields(2)
             g_Dir(i) = .Fields(3)
             If i < g_Obsnum Then
                 .MoveNext
             End If
         Next i
       End If
    End With
    arecord.Close
End Sub