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_Els = .Fields(8)
        g_Ed = .Fields(9)
        g_Dd = .Fields(10)
        g_ObsNum = .Fields(11)
        If .Fields(12) <> "" Then tmp = .Fields(12)
        If tmp = "是" Then
           g_Net = 1
        Else
           g_Net = 0
        End If
        If .Fields(13) <> "" Then tmp = .Fields(13)
        If tmp = "是" Then
           g_Ih = 1
        Else
           g_Ih = 0
        End If
        If .Fields(14) = 0 Then g_Mh = .Fields(14)
        If .Fields(14) <> 0 Then g_Mh = .Fields(14)
       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_Ed + g_Dd
                g_PotName(I) = .Fields(1)
                If I <= g_Ed Then
                    g_Z0(I) = .Fields(2)
                End If
                If I < g_Ed + g_Dd 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_H(I) = .Fields(3)
             g_StaNum(I) = .Fields(4)
             If I < g_ObsNum Then
                 .MoveNext
             End If
         Next I
       End If
    End With
    arecord.Close
End Sub