datacheck.bas

本程序是计算三角网闭合差的程序,包括建表,数据库数据输入等完整过程

Attribute VB_Name = "DataCheck"
'Sub Data_Check()
'    Dim i As Integer, j As Integer, k As Integer, sum As Integer
'    Dim tmp As String
'    Dim arecord As Recordset
'    If g_ModifyType = 1 Then
'        g_Info1 = 1
'        Set arecord = g_d_Base.OpenRecordset("舱容要素表", dbOpenTable)
'        With arecord
'            .MoveFirst
'            For i = 1 To g_RoomNum
'              For j = 1 To 25
'                If IsNull(.Fields(j)) Then
'                   g_Info1 = 0
'                End If
'               Next j
'              If i < g_RoomNum Then
'                   .MoveNext
'               End If
'            Next i
'        End With
'        arecord.Close
'        If g_Info1 = 1 Then
'             FrmMain.StatusBar1.Panels(1).Text = "舱容要素表已输完"
'             Set arecord = g_d_Base.OpenRecordset("基本信息表", dbOpenTable)
'            With arecord
'                .MoveFirst
'                .Edit
'                .Fields(2) = 1
'                .Update
'                .Bookmark = .LastModified
'             End With
'             arecord.Close
'             Call TakeValue
'         Else
'             FrmMain.StatusBar1.Panels(1).Text = ""
'         End If
'    End If
'    If g_ModifyType = 2 Then
'        g_Info2 = 1
'        For i = 1 To g_RoomNum
'            tmp = g_RoomValObsTabName(i)
'            Set arecord = g_d_Base.OpenRecordset(Trim(tmp), dbOpenTable)
'            With arecord
'                .MoveFirst
'                For j = 1 To g_ObsRowNum(i)
'                   For k = 1 To g_ObsColNum(i)
'                     If IsNull(.Fields(k + 1).Value) Then
'                           g_Info2 = 0
'                     End If
'                   Next k
'                   If j < g_ObsRowNum(i) Then
'                      .MoveNext
'                   End If
'                Next j
'            End With
'            arecord.Close
'        Next i
'        If g_Info2 = 1 Then
'             FrmMain.StatusBar1.Panels(2).Text = "舱容量值表已输完"
'             Set arecord = g_d_Base.OpenRecordset("基本信息表", dbOpenTable)
'             With arecord
'                .MoveFirst
'                .Edit
'                .Fields(3) = 1
'                .Update
'                .Bookmark = .LastModified
'             End With
'             arecord.Close
'             Call TakeObsValue1
'         Else
'             FrmMain.StatusBar1.Panels(2).Text = ""
'         End If
'    End If
'    If g_ModifyType = 3 Then
'        g_Info3 = 1
'        For i = 1 To g_RoomNum
'            Set arecord = g_d_Base.OpenRecordset(Trim(g_RoomValCutTabName(i)), dbOpenTable)
'            With arecord
'                .MoveFirst
'                For j = 1 To 2
'                   For k = 1 To g_CutCol(i)
'                     If IsNull(.Fields(k).Value) Then
'                           g_Info3 = 0
'                     End If
'                   Next k
'                   If j < g_CutCol(i) Then
'                      .MoveNext
'                   End If
'                Next j
'            End With
'            arecord.Close
'        Next i
'        If g_Info3 = 1 Then
'             FrmMain.StatusBar1.Panels(3).Text = "舱内扣除体积表已输完"
'             Set arecord = g_d_Base.OpenRecordset("基本信息表", dbOpenTable)
'             With arecord
'                .MoveFirst
'                .Edit
'                .Fields(4) = 1
'                .Update
'                .Bookmark = .LastModified
'             End With
'             arecord.Close
'             Call TakeObsValue2
'         Else
'             FrmMain.StatusBar1.Panels(3).Text = ""
'         End If
'    End If
'End Sub
'Sub Info_Save()
'   Dim arecord As Recordset
'   Set arecord = g_d_Base.OpenRecordset("基本信息表", dbOpenTable)
'    With arecord
'        .MoveFirst
'        .Edit
'        If g_Info1 = 1 Then .Fields(2) = 1
'        If g_Info2 = 1 Then .Fields(3) = 1
'        If g_Info3 = 1 Then .Fields(4) = 1
'        .Update
'        .Bookmark = .LastModified
'    End With
'    arecord.Close
'End Sub