dlgmanualtest.frm

电力机车牵引变压器试验站总控程序

                byqData(40 + i) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(40 + i) = "不合格"
            ElseIf Check1(i) = 2 Then
                byqData(228) = "未完成"
            End If
        Next
    
    ElseIf ttrain = "100" And ttype = "19" Then
        byqData(232) = "完成"
        For i = 0 To 3
            If Check1(i).Value = 1 Then
                dkqData(i + 5) = "合格"
            ElseIf Check1(i).Value = 0 Then
                dkqData(i + 5) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                dkqData(65) = "未完成"
            End If
        Next i
    
    ElseIf ttrain = "200" And ttype = "1" Then
        byqData(225) = "完成"
        For i = 0 To 3
            If Check1(i).Value = 1 Then
                byqData(i + 5) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 5) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(225) = "未完成"
            End If
        Next i
        
    ElseIf ttrain = "200" And ttype = "2" Then
        byqData(226) = "完成"
        If Check1(0).Value = 1 Then
            byqData(15) = "合格"
        ElseIf Check1(0).Value = 0 Then
            byqData(15) = "不合格"
        ElseIf Check1(0) = 2 Then
            byqData(226) = "未完成"
        End If
    
    ElseIf ttrain = "200" And ttype = "4" Then
        byqData(228) = "完成"
        If Check1(0).Value = 1 Then
            byqData(40) = "合格"
        ElseIf Check1(0).Value = 0 Then
            byqData(40) = "不合格"
        ElseIf Check1(0) = 2 Then
            byqData(228) = "未完成"
        End If
    
    ElseIf ttrain = "200" And ttype = "14" Then
        dkqData(65) = "完成"
        If Check1(0).Value = 1 Then
            dkqData(5) = "合格"
        ElseIf Check1(0).Value = 0 Then
            dkqData(5) = "不合格"
        ElseIf Check1(i).Value = 2 Then
            dkqData(65) = "未完成"
        End If
    
    ElseIf ttrain = "200" And ttype = "20" Then
        dkqData(132) = "完成"
        If Check1(0).Value = 1 Then
            dkqData(72) = "合格"
        ElseIf Check1(0).Value = 0 Then
            dkqData(72) = "不合格"
        ElseIf Check1(i).Value = 2 Then
            dkqData(132) = "未完成"
        End If
    
    ElseIf ttrain = "300" And ttype = "1" Then
        byqData(225) = "完成"
        For i = 0 To 2
            If Check1(i).Value = 1 Then
                byqData(i + 5) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 5) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(225) = "未完成"
            End If
        Next i
        
    ElseIf ttrain = "300" And ttype = "2" Then
        byqData(226) = "完成"
        If Check1(0).Value = 1 Then
            byqData(15) = "合格"
        ElseIf Check1(0).Value = 0 Then
            byqData(15) = "不合格"
        ElseIf Check1(0) = 2 Then
            byqData(226) = "未完成"
        End If
        
     ElseIf ttrain = "300" And ttype = "7" Then
        byqData(232) = "完成"
        For i = 0 To 4
            If Check1(i).Value = 1 Then
                byqData(i + 115) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 115) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(232) = "未完成"
            End If
        Next i
        
    ElseIf ttrain = "400" And ttype = "1" Then
        byqData(225) = "完成"
        For i = 0 To 9
            If Check1(i).Value = 1 Then
                byqData(i + 5) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 5) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(225) = "未完成"
            End If
        Next i
        
    ElseIf ttrain = "400" And ttype = "2" Then
        byqData(226) = "完成"
        If Check1(0).Value = 1 Then
            byqData(15) = "合格"
        ElseIf Check1(0).Value = 0 Then
            byqData(15) = "不合格"
        ElseIf Check1(0) = 2 Then
            byqData(226) = "未完成"
        End If

    ElseIf ttrain = "400" And ttype = "7" Then
        byqData(232) = "完成"
        For i = 0 To 5
            If Check1(i).Value = 1 Then
                byqData(i + 115) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 115) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(232) = "未完成"
            End If
        Next i

    ElseIf ttrain = "500" And ttype = "1" Then
        byqData(225) = "完成"
        For i = 0 To 4
            If Check1(i).Value = 1 Then
                byqData(i + 5) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 5) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(225) = "未完成"
            End If
        Next i
        
    ElseIf ttrain = "500" And ttype = "2" Then
        byqData(226) = "完成"
        If Check1(0).Value = 1 Then
            byqData(15) = "合格"
        ElseIf Check1(0).Value = 0 Then
            byqData(15) = "不合格"
        ElseIf Check1(0) = 2 Then
            byqData(226) = "未完成"
        End If
        
    ElseIf ttrain = "500" And ttype = "4" Then
        byqData(228) = "完成"
        For i = 0 To 3
            If Check1(i).Value = 1 Then
                byqData(40 + i) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(40 + i) = "不合格"
            ElseIf Check1(i) = 2 Then
                byqData(228) = "未完成"
            End If
        Next
        
    ElseIf ttrain = "500" And ttype = "14" Then
        dkqData(65) = "完成"
        For i = 0 To 1
            If Check1(i).Value = 1 Then
                dkqData(5 + i) = "合格"
            ElseIf Check1(i).Value = 0 Then
                dkqData(5 + i) = "不合格"
            ElseIf Check1(i) = 2 Then
                dkqData(65) = "未完成"
            End If
        Next
        
    ElseIf ttrain = "500" And ttype = "18" Then
        dkqData(132) = "完成"
        For i = 0 To 1
            If Check1(i).Value = 1 Then
                dkqData(72 + i) = "合格"
            ElseIf Check1(i).Value = 0 Then
                dkqData(72 + i) = "不合格"
            ElseIf Check1(i) = 2 Then
                dkqData(132) = "未完成"
            End If
        Next
    
    ElseIf ttrain = "600" And ttype = "1" Then
        byqData(225) = "完成"
        For i = 0 To 2
            If Check1(i).Value = 1 Then
                byqData(i + 5) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 5) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(225) = "未完成"
            End If
        Next i
        
    ElseIf ttrain = "600" And ttype = "2" Then
        byqData(226) = "完成"
        If Check1(0).Value = 1 Then
            byqData(15) = "合格"
        ElseIf Check1(0).Value = 0 Then
            byqData(15) = "不合格"
        ElseIf Check1(0) = 2 Then
            byqData(226) = "未完成"
        End If
        
    ElseIf ttrain = "600" And ttype = "7" Then
        byqData(232) = "完成"
        For i = 0 To 5
            If Check1(i).Value = 1 Then
                byqData(i + 115) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 115) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(232) = "未完成"
            End If
        Next i

    ElseIf ttrain = "700" And ttype = "1" Then
        byqData(225) = "完成"
        For i = 0 To 7
            If Check1(i).Value = 1 Then
                byqData(i + 5) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 5) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(225) = "未完成"
            End If
        Next i
        
    ElseIf ttrain = "700" And ttype = "2" Then
        byqData(226) = "完成"
        If Check1(0).Value = 1 Then
            byqData(15) = "合格"
        ElseIf Check1(0).Value = 0 Then
            byqData(15) = "不合格"
        ElseIf Check1(0) = 2 Then
            byqData(226) = "未完成"
        End If
        
    ElseIf ttrain = "700" And ttype = "7" Then
        byqData(232) = "完成"
        For i = 0 To 5
            If Check1(i).Value = 1 Then
                byqData(i + 115) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 115) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(232) = "未完成"
            End If
        Next i

    ElseIf ttrain = "800" And ttype = "1" Then
        byqData(225) = "完成"
        For i = 0 To 3
            If Check1(i).Value = 1 Then
                byqData(i + 5) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 5) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(225) = "未完成"
            End If
        Next i
        
    ElseIf ttrain = "800" And ttype = "2" Then
        byqData(226) = "完成"
        If Check1(0).Value = 1 Then
            byqData(15) = "合格"
        ElseIf Check1(0).Value = 0 Then
            byqData(15) = "不合格"
        ElseIf Check1(0) = 2 Then
            byqData(226) = "未完成"
        End If
        
    ElseIf ttrain = "800" And ttype = "7" Then
        byqData(232) = "完成"
        For i = 0 To 6
            If Check1(i).Value = 1 Then
                byqData(i + 115) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 115) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(232) = "未完成"
            End If
        Next i

    ElseIf ttrain = "900" And ttype = "1" Then
        byqData(225) = "完成"
        For i = 0 To 8
            If Check1(i).Value = 1 Then
                byqData(i + 5) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 5) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(225) = "未完成"
            End If
        Next i
        
    ElseIf ttrain = "900" And ttype = "2" Then
        byqData(226) = "完成"
        If Check1(0).Value = 1 Then
            byqData(15) = "合格"
        ElseIf Check1(0).Value = 0 Then
            byqData(15) = "不合格"
        ElseIf Check1(0) = 2 Then
            byqData(226) = "未完成"
        End If
        
    ElseIf ttrain = "900" And ttype = "7" Then
        byqData(232) = "完成"
        For i = 0 To 3
            If Check1(i).Value = 1 Then
                byqData(i + 115) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 115) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(232) = "未完成"
            End If
        Next i

    ElseIf ttrain = "1000" And ttype = "1" Then
        byqData(225) = "完成"
        For i = 0 To 4
            If Check1(i).Value = 1 Then
                byqData(i + 5) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 5) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(225) = "未完成"
            End If
        Next i
        
    ElseIf ttrain = "1000" And ttype = "2" Then
        byqData(226) = "完成"
        If Check1(0).Value = 1 Then
            byqData(15) = "合格"
        ElseIf Check1(0).Value = 0 Then
            byqData(15) = "不合格"
        ElseIf Check1(0) = 2 Then
            byqData(226) = "未完成"
        End If

    ElseIf ttrain = "1000" And ttype = "7" Then
        byqData(232) = "完成"
        For i = 0 To 6
            If Check1(i).Value = 1 Then
                byqData(i + 115) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 115) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(232) = "未完成"
            End If
        Next i

    ElseIf ttrain = "1100" And ttype = "1" Then
        byqData(225) = "完成"
        For i = 0 To 4
            If Check1(i).Value = 1 Then
                byqData(i + 5) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 5) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(225) = "未完成"
            End If
        Next i
        
    ElseIf ttrain = "1100" And ttype = "2" Then
        byqData(226) = "完成"
        If Check1(0).Value = 1 Then
            byqData(15) = "合格"
        ElseIf Check1(0).Value = 0 Then
            byqData(15) = "不合格"
        ElseIf Check1(0) = 2 Then
            byqData(226) = "未完成"
        End If
        
    ElseIf ttrain = "1100" And ttype = "7" Then
        byqData(232) = "完成"
        For i = 0 To 5
            If Check1(i).Value = 1 Then
                byqData(i + 115) = "合格"
            ElseIf Check1(i).Value = 0 Then
                byqData(i + 115) = "不合格"
            ElseIf Check1(i).Value = 2 Then
                byqData(232) = "未完成"
            End If
        Next i

    End If
    Unload Me
    
End Sub