📄 dlgmanualtest.frm
字号:
Check1(i).Value = 2
End If
Next i
dlgManualTest.Width = 5750
ElseIf ttrain = "500" And ttype = "2" Then
dlgManualTest.Caption = "密封试验"
Label1(0).Caption = "以50.7kPa试压24h，压力表读数不小于30kPa，无渗漏油现象"
Label6(0).Caption = "密封试验"
For i = 1 To 9
Label1(i).Visible = False
Label6(i).Visible = False
Check1(i).Visible = False
Next i
Label12.Visible = False
If byqData(15) = "合格" Then
Check1(0) = 1
ElseIf byqData(15) = "不合格" Then
Check1(0) = 0
Else
Check1(0) = 2
End If
dlgManualTest.Width = 5750
ElseIf ttrain = "500" And ttype = "4" Then
dlgManualTest.Caption = "联结组标号试验"
Label1(0).Caption = "Ⅰ、Ⅰ0、Ⅰ0、Ⅰ0、Ⅰ0"
Label6(0).Caption = "Ax-a1x1、a2x2、a3x3、a4x4"
Label1(1).Caption = "Ⅰ、Ⅰ0、Ⅰ0"
Label6(1).Caption = "AX--a5x5、a6x6"
Label1(2).Caption = "Ⅰ、Ⅰ0"
Label6(2).Caption = "Ax--a7x7"
Label1(3).Caption = "Ⅰ、Ⅰ0、Ⅰ0"
Label6(3).Caption = "AX--a8x8、a9x9"
For i = 4 To 9
Label1(i).Visible = False
Label6(i).Visible = False
Check1(i).Visible = False
Next i
Label12.Visible = False
dlgManualTest.Width = 5750
ElseIf ttrain = "500" And ttype = "14" Then
dlgManualTest.Caption = "外观检查"
Label1(0).Caption = "装配牢固、无松动、滑扣现象"
Label6(0).Caption = "紧固件"
Label1(1).Caption = "绕向及出线标记正确"
Label6(1).Caption = "同一铁心上两个绕组的绕向及出线标记"
For i = 0 To 7
Label1(i + 2).Visible = False
Label6(i + 2).Visible = False
Check1(i + 2).Visible = False
Next i
Label12.Visible = False
dlgManualTest.Width = 5750
ElseIf ttrain = "500" And ttype = "18" Then
dlgManualTest.Caption = "外观检查"
Label1(0).Caption = "装配牢固、无松动、滑扣现象"
Label6(0).Caption = "紧固件"
Label1(1).Caption = "绕向及出线标记正确"
Label6(1).Caption = "同一铁心上两个绕组的绕向及出线标记"
For i = 0 To 7
Label1(i + 2).Visible = False
Label6(i + 2).Visible = False
Check1(i + 2).Visible = False
Next i
Label12.Visible = False
dlgManualTest.Width = 5750
ElseIf ttrain = "600" And ttype = "1" Then
dlgManualTest.Caption = "外观检查"
Label1(0).Caption = "符合图样要求"
Label1(1).Caption = "固定牢固，字迹清晰，并记录编号"
Label1(2).Caption = "必须有清楚的标志"
Label6(0).Caption = "外观"
Label6(1).Caption = "铭牌及标示牌"
Label6(2).Caption = "套管或端子"
For i = 0 To 6
Label1(i + 3).Visible = False
Check1(i + 3).Visible = False
Next i
Label12.Visible = False
For i = 0 To 2
If byqData(i + 5) = "合格" Then
Check1(i).Value = 1
ElseIf byqData(i + 5) = "不合格" Then
Check1(i).Value = 0
Else
Check1(i).Value = 2
End If
Next i
dlgManualTest.Width = 5750
ElseIf ttrain = "600" And ttype = "2" Then
dlgManualTest.Caption = "密封试验"
Label1(0).Caption = "以50.7kPa试压24h，压力表读数不小于30kPa，无渗漏油现象"
Label6(0).Caption = "密封试验"
For i = 1 To 9
Label1(i).Visible = False
Label6(i).Visible = False
Check1(i).Visible = False
Next i
Label12.Visible = False
If byqData(15) = "合格" Then
Check1(0) = 1
ElseIf byqData(15) = "不合格" Then
Check1(0) = 0
Else
Check1(0) = 2
End If
dlgManualTest.Width = 5750
ElseIf ttrain = "700" And ttype = "1" Then
Label1(0).Caption = "3930mm"
Label1(1).Caption = "1820mm"
Label1(2).Caption = "2449mm"
Label1(3).Caption = "2115±3、760±1、710±1、560±1"
Label1(4).Caption = "无裂纹、损伤等不正常现象"
Label1(5).Caption = "无剥落或遗漏现象"
Label1(6).Caption = "装配牢固、无松动、滑扣"
Label1(7).Caption = "固定牢固，字迹清晰，并记录编号"
Label6(0).Caption = "外形尺寸（长）"
Label6(1).Caption = "外形尺寸（宽)"
Label6(2).Caption = "外形尺寸（高）"
Label6(3).Caption = "油箱底座安装尺寸"
Label6(4).Caption = "零部件"
Label6(5).Caption = "表面涂饰或油漆零件"
Label6(6).Caption = "紧固件"
Label6(7).Caption = "铭牌"
For i = 0 To 1
Label1(i + 8).Visible = False
Check1(i + 8).Visible = False
Next i
For i = 0 To 7
If byqData(i + 5) = "合格" Then
Check1(i).Value = 1
ElseIf byqData(i + 5) = "不合格" Then
Check1(i).Value = 0
Else
Check1(i).Value = 2
End If
Next i
ElseIf ttrain = "700" And ttype = "2" Then
dlgManualTest.Caption = "密封试验"
Label1(0).Caption = "以50.7kPa试压24h，压力表读数不小于30kPa，无渗漏油现象"
Label6(0).Caption = "密封试验"
For i = 1 To 9
Label1(i).Visible = False
Label6(i).Visible = False
Check1(i).Visible = False
Next i
Label12.Visible = False
If byqData(15) = "合格" Then
Check1(0) = 1
ElseIf byqData(15) = "不合格" Then
Check1(0) = 0
Else
Check1(0) = 2
End If
dlgManualTest.Width = 5750
ElseIf ttrain = "800" And ttype = "1" Then
Label1(0).Caption = "无裂纹、损伤等不正常现象"
Label1(1).Caption = "无剥落或遗漏现象"
Label1(2).Caption = "装配牢固、无松动、滑扣"
Label1(3).Caption = "固定牢固，字迹清晰，并记录编号"
Label6(0).Caption = "零部件"
Label6(1).Caption = "表面涂饰或油漆零件"
Label6(2).Caption = "紧固件"
Label6(3).Caption = "铭牌"
For i = 0 To 5
Label1(i + 4).Visible = False
Label6(i + 4).Visible = False
Check1(i + 4).Visible = False
Next i
Label12.Visible = False
For i = 0 To 3
If byqData(i + 5) = "合格" Then
Check1(i).Value = 1
ElseIf byqData(i + 5) = "不合格" Then
Check1(i).Value = 0
Else
Check1(i).Value = 2
End If
Next i
dlgManualTest.Width = 5750
ElseIf ttrain = "800" And ttype = "2" Then
dlgManualTest.Caption = "密封试验"
Label1(0).Caption = "以50.7kPa试压24h，压力表读数不小于30kPa，无渗漏油现象"
Label6(0).Caption = "密封试验"
For i = 1 To 9
Label1(i).Visible = False
Label6(i).Visible = False
Check1(i).Visible = False
Next i
Label12.Visible = False
If byqData(15) = "合格" Then
Check1(0) = 1
ElseIf byqData(15) = "不合格" Then
Check1(0) = 0
Else
Check1(0) = 2
End If
dlgManualTest.Width = 5750
ElseIf ttrain = "900" And ttype = "1" Then
dlgManualTest.Caption = "外观检查"
Label1(0).Caption = "无裂纹、损伤等不正常现象"
Label1(1).Caption = "无剥落或遗漏现象"
Label1(2).Caption = "装配牢固、无松动、滑扣"
Label1(3).Caption = "固定牢固，字迹清晰"
Label1(4).Caption = "2112mm±2mm"
Label1(5).Caption = "1693mm±2mm"
Label1(6).Caption = "2630mm"
Label1(7).Caption = "2963mm±3mm"
Label1(8).Caption = "823mm"
Label6(0).Caption = "零部件"
Label6(1).Caption = "表面涂饰或油漆零件"
Label6(2).Caption = "紧固件"
Label6(3).Caption = "铭牌"
Label6(4).Caption = "安装尺寸 （对角线）"
Label6(5).Caption = "安装尺寸 （对角线）"
Label6(6).Caption = "外形尺寸 （长）"
Label6(7).Caption = "外形尺寸 （宽）"
Label6(8).Caption = "外形尺寸 （高）"
Label1(9).Visible = False
Label6(9).Visible = False
Check1(9).Visible = False
For i = 0 To 8
If byqData(i + 5) = "合格" Then
Check1(i).Value = 1
ElseIf byqData(i + 5) = "不合格" Then
Check1(i).Value = 0
Else
Check1(i).Value = 2
End If
Next i
ElseIf ttrain = "900" And ttype = "2" Then
dlgManualTest.Caption = "密封试验"
Label1(0).Caption = "以50.7kPa试压24h，压力表读数不小于30kPa，无渗漏油现象"
Label6(0).Caption = "密封试验"
For i = 1 To 9
Label1(i).Visible = False
Label6(i).Visible = False
Check1(i).Visible = False
Next i
Label12.Visible = False
If byqData(15) = "合格" Then
Check1(0) = 1
ElseIf byqData(15) = "不合格" Then
Check1(0) = 0
Else
Check1(0) = 2
End If
dlgManualTest.Width = 5750
ElseIf ttrain = "1000" And ttype = "1" Then
dlgManualTest.Caption = "外观检查"
Label1(0).Caption = "无裂纹、损伤等不正常现象"
Label1(1).Caption = "无剥落或遗漏现象"
Label1(2).Caption = "装配牢固、无松动、滑扣，且防松标记标记正确"
Label1(3).Caption = "固定牢固，字迹清晰，并记录编号"
Label1(4).Caption = "3061.5mm±1mm（两对角线尺寸）"
Label6(0).Caption = "零部件"
Label6(1).Caption = "表面涂饰或油漆零件"
Label6(2).Caption = "紧固件"
Label6(3).Caption = "铭牌及标示牌"
Label6(4).Caption = "安装尺寸"
For i = 0 To 4
Label1(i + 5).Visible = False
Label6(i + 5).Visible = False
Check1(i + 5).Visible = False
Next i
Label12.Visible = False
For i = 0 To 4
If byqData(i + 5) = "合格" Then
Check1(i).Value = 1
ElseIf byqData(i + 5) = "不合格" Then
Check1(i).Value = 0
Else
Check1(i).Value = 2
End If
Next i
dlgManualTest.Width = 5750
ElseIf ttrain = "1000" And ttype = "2" Then
dlgManualTest.Caption = "密封试验"
Label1(0).Caption = "以49.7kPa试压24h，无渗漏油现象"
Label6(0).Caption = "密封试验"
For i = 1 To 9
Label1(i).Visible = False
Label6(i).Visible = False
Check1(i).Visible = False
Next i
Label12.Visible = False
If byqData(15) = "合格" Then
Check1(0) = 1
ElseIf byqData(15) = "不合格" Then
Check1(0) = 0
Else
Check1(0) = 2
End If
dlgManualTest.Width = 5750
ElseIf ttrain = "1100" And ttype = "1" Then
dlgManualTest.Caption = "外观检查"
Label1(0).Caption = "无裂纹、损伤等不正常现象"
Label1(1).Caption = "无剥落或遗漏现象"
Label1(2).Caption = "装配牢固、无松动、滑扣"
Label1(3).Caption = "固定牢固，字迹清晰，并记录编号"
Label1(4).Caption = "3033mm±1mm（两对角线尺寸）"
Label6(0).Caption = "零部件"
Label6(1).Caption = "表面涂饰或油漆零件"
Label6(2).Caption = "紧固件"
Label6(3).Caption = "铭牌及标示牌"
Label6(4).Caption = "安装尺寸"
For i = 0 To 4
Label1(i + 5).Visible = False
Label6(i + 5).Visible = False
Check1(i + 5).Visible = False
Next i
Label12.Visible = False
For i = 0 To 4
If byqData(i + 5) = "合格" Then
Check1(i).Value = 1
ElseIf byqData(i + 5) = "不合格" Then
Check1(i).Value = 0
Else
Check1(i).Value = 2
End If
Next i
dlgManualTest.Width = 5750
ElseIf ttrain = "1100" And ttype = "2" Then
dlgManualTest.Caption = "密封试验"
Label1(0).Caption = "以49.7kPa试压24h，无渗漏油现象"
Label6(0).Caption = "密封试验"
For i = 1 To 9
Label1(i).Visible = False
Label6(i).Visible = False
Check1(i).Visible = False
Next i
Label12.Visible = False
If byqData(15) = "合格" Then
Check1(0) = 1
ElseIf byqData(15) = "不合格" Then
Check1(0) = 0
Else
Check1(0) = 2
End If
dlgManualTest.Width = 5750
End If
End Sub
Private Sub OKButton_Click()
If ttrain = "100" And ttype = "1" Then
Dim i As Integer
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 = "100" 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 = "100" And ttype = "4" Then
byqData(228) = "完成"
For i = 0 To 1
If Check1(i).Value = 1 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -