saveodtodb.bas

此程序为水准网平差

Attribute VB_Name = "SaveODToDB"
Public Sub SaveObsToDB()
    Dim tmp As String, i As Integer, ic As Integer
    Dim t As Double
    Dim arecord As Recordset
    Set arecord = g_d_Base.OpenRecordset("基本信息表", dbOpenTable)
    With arecord
          If .RecordCount > 0 Then
              .MoveFirst
              .Delete
'              .Update
          End If
          .AddNew
          .Fields(0) = g_Pro
          .Fields(1) = g_Loc
          .Fields(2) = g_InsName
          .Fields(3) = g_InsNum
          .Fields(4) = g_Obs
          .Fields(5) = g_Obd
          .Fields(6) = g_Com
          .Fields(7) = g_Cod
          .Fields(8) = g_Els
          .Fields(9) = g_Ed
          .Fields(10) = g_Dd
          .Fields(11) = g_ObsNum
          If g_Net = 1 Then
             .Fields(12) = "是"
          Else
             .Fields(12) = "否"
          End If
          If g_Ih = 1 Then
             .Fields(13) = "是"
          Else
             .Fields(13) = "否"
          End If
          .Fields(14) = g_Mh
          .Update
           .Bookmark = .LastModified
           .Close
        End With
        'arecord.Close
        Set arecord = g_d_Base.OpenRecordset("观测数据表", dbOpenTable)
        With arecord
            ic = .RecordCount
            If .RecordCount > 0 Then
              .MoveFirst
              For i = 1 To ic
                   .Delete
                   If i < ic Then
                      .MoveFirst
                  End If
              Next i
            End If
            For i = 1 To g_ObsNum
                .AddNew
                .Fields(0) = i
                .Fields(1) = g_StaPotName(i)
                .Fields(2) = g_EndPotName(i)
                .Fields(3) = g_H(i)
                .Fields(4) = g_StaNum(i)
                .Update
               Next i
            .Close
        End With
     '   arecord .Close
        Set arecord = g_d_Base.OpenRecordset("点名表", dbOpenTable)
        With arecord
            ic = .RecordCount
            If .RecordCount > 0 Then
              .MoveFirst
              For i = 1 To ic
                  .Delete
'                  .Update
                  If i < ic Then
                      .MoveFirst
                  End If
              Next i
            End If
            For i = 1 To g_PotNum
                .AddNew
                .Fields(0) = i
                .Fields(1) = g_PotName(i)
                .Fields(2) = g_Z0(i)
                .Update
            Next i
            .Close
        End With
'        arecord .Close
End Sub