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