📄 dlgmanualtest.frm
字号:
TabIndex = 8
Top = 1680
Width = 3525
WordWrap = -1 'True
End
Begin VB.Label Label1
Alignment = 2 'Center
Height = 555
Index = 5
Left = 7080
TabIndex = 7
Top = 840
Width = 3525
WordWrap = -1 'True
End
Begin VB.Label Label1
Alignment = 2 'Center
Height = 495
Index = 4
Left = 1560
TabIndex = 6
Top = 4200
Width = 3405
WordWrap = -1 'True
End
Begin VB.Label Label1
Alignment = 2 'Center
Height = 495
Index = 3
Left = 1560
TabIndex = 5
Top = 3360
Width = 3405
WordWrap = -1 'True
End
Begin VB.Label Label1
Alignment = 2 'Center
Height = 495
Index = 2
Left = 1560
TabIndex = 4
Top = 2520
Width = 3405
WordWrap = -1 'True
End
Begin VB.Label Label1
Alignment = 2 'Center
Height = 495
Index = 1
Left = 1560
TabIndex = 3
Top = 1680
Width = 3405
WordWrap = -1 'True
End
Begin VB.Label Label1
Alignment = 2 'Center
Height = 495
Index = 0
Left = 1560
TabIndex = 2
Top = 840
Width = 3405
WordWrap = -1 'True
End
End
Attribute VB_Name = "dlgManualTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub CancelButton_Click()
Unload Me
End Sub
Private Sub Command1_Click()
Call Form_Load
End Sub
Private Sub Form_Load()
If ttrain = "100" And ttype = "1" Then
dlgManualTest.Caption = "外观检查"
Label1(0).Caption = "无裂纹、损伤等不正常现象"
Label1(1).Caption = "无剥落或遗漏现象"
Label1(2).Caption = "装配牢固、无松动、滑扣"
Label1(3).Caption = "固定牢固，字迹清晰，并记录编号"
Label1(4).Caption = "必须有清楚的标志"
Label6(0).Caption = "零部件"
Label6(1).Caption = "表面涂饰或油漆零件"
Label6(2).Caption = "紧固件"
Label6(3).Caption = "铭牌及字母牌"
Label6(4).Caption = "套管或端子"
Dim i As Integer
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 = "100" 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 = "100" 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"
Label6(1).Caption = "Ax-a6x6"
For i = 2 To 9
Label1(i).Visible = False
Label6(i).Visible = False
Check1(i).Visible = False
Next i
Label12.Visible = False
dlgManualTest.Width = 5750
ElseIf ttrain = "100" And ttype = "19" Then
dlgManualTest.Caption = "外观检查"
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 + 115) = "合格" Then
Check1(i).Value = 1
ElseIf byqData(i + 115) = "不合格" Then
Check1(i).Value = 0
Else
Check1(i).Value = 2
End If
Next i
dlgManualTest.Width = 5750
ElseIf ttrain = "200" And ttype = "1" Then
dlgManualTest.Caption = "外观检查"
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 = "200" 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 = "200" And ttype = "4" Then
dlgManualTest.Caption = "联结组标号试验"
Label1(0).Caption = "Ⅰ、(Ⅰ0、Ⅰ0)-(Ⅰ0、Ⅰ0）、Ⅰ0、Ⅰ0、Ⅰ0"
Label6(0).Caption = "Ax-a1x1、a2x2、a3x3、a4x4、a5x5、a6x6"
For i = 1 To 9
Label1(i).Visible = False
Label6(i).Visible = False
Check1(i).Visible = False
Next i
Label12.Visible = False
dlgManualTest.Width = 5750
ElseIf ttrain = "200" And ttype = "14" Then
dlgManualTest.Caption = "外观检查"
Label1(0).Caption = "装配牢固、无松动、滑扣现象，且防松标记标记正确"
Label6(0).Caption = "紧固件"
For i = 0 To 8
Label1(i + 1).Visible = False
Label6(i + 1).Visible = False
Check1(i + 1).Visible = False
Next i
Label12.Visible = False
If dkqData(5) = "合格" Then
Check1(i).Value = 1
ElseIf dkqData(5) = "不合格" Then
Check1(i).Value = 0
Else
Check1(i).Value = 2
End If
dlgManualTest.Width = 5750
ElseIf ttrain = "200" And ttype = "20" Then
dlgManualTest.Caption = "外观检查"
Label1(0).Caption = "装配牢固、无松动、滑扣现象，且防松标记标记正确"
Label6(0).Caption = "紧固件"
For i = 0 To 8
Label1(i + 1).Visible = False
Label6(i + 1).Visible = False
Check1(i + 1).Visible = False
Next i
Label12.Visible = False
If dkqData(5) = "合格" Then
Check1(i).Value = 1
ElseIf dkqData(5) = "不合格" Then
Check1(i).Value = 0
Else
Check1(i).Value = 2
End If
dlgManualTest.Width = 5750
ElseIf ttrain = "300" 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
Label6(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 = "300" 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 = "400" And ttype = "1" Then
dlgManualTest.Caption = "外观检查"
Label1(0).Caption = "2226mm+1454mm"
Label1(1).Caption = "1900mm"
Label1(2).Caption = "2885mm"
Label1(3).Caption = "2195mm±3mm"
Label1(4).Caption = "2195mm±3mm"
Label1(5).Caption = "无裂纹、损伤等不正常现象"
Label1(6).Caption = "无剥落或遗漏现象"
Label1(7).Caption = "装配牢固、无松动、滑扣"
Label1(8).Caption = "固定牢固，字迹清晰，并记录编号"
Label1(9).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 = "紧固件"
Label6(8).Caption = "铭牌"
Label6(9).Caption = "套管或端子"
For i = 0 To 9
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 = "400" 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 = "1" Then
dlgManualTest.Caption = "外观检查"
Label1(0).Caption = "2195±3、765±1、865±1、560±1"
Label1(1).Caption = "无裂纹、损伤等不正常现象"
Label1(2).Caption = "无剥落或遗漏现象"
Label1(3).Caption = "装配牢固、无松动、滑扣，且防松标记标记正确"
Label1(4).Caption = "固定牢固，字迹清晰，并记录编号"
Label6(0).Caption = "油箱底座安装尺寸(mm)"
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -