dlgobjectselection.frm

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

                        End If
                    Case 3
                        dlgSS4GTesttype.Label30(4).Caption = "施加电压5kV、频率50Hz，lmin无击穿及闪络现象"
                        dlgSS4GTesttype.Label30(5).Caption = ""
                   '     dlgSS4GTesttype.Label30(5).Enabled = True
                        If byqData(118) <> "" Then
                            dlgSS4GTesttype.Label30(5).Caption = byqData(118)
                            dlgSS4GTesttype.Label30(5).Enabled = False
                        End If
                    Case 4
                        dlgSS4GTesttype.Label30(4).Caption = "施加电压5kV、频率50Hz，lmin无击穿及闪络现象"
                        dlgSS4GTesttype.Label30(5).Caption = ""
                   '     dlgSS4GTesttype.Label30(5).Enabled = True
                        If byqData(118) <> "" Then
                            dlgSS4GTesttype.Label30(5).Caption = byqData(118)
                            dlgSS4GTesttype.Label30(5).Enabled = False
                        End If
                    Case Else
                End Select
                dlgSS4GTesttype.Frame30.Enabled = True
                dlgSS4GTesttype.Frame40.Enabled = False
                dlgSS4GTesttype.Frame50.Enabled = False
                dlgSS4GTesttype.Frame60.Enabled = False
                
            ElseIf ttrain = "200" And ttype = "10" Then
                If i = 1 Then
                    dlgSS4GTesttype.Label50(5).Caption = byqData(129)
                    dlgSS4GTesttype.Label50(12).Caption = byqData(131)
                End If
                
            ElseIf ttrain = "200" And ttype = "13" Then
                For u = 17 To 28
                    dlgSS4GTesttype.Label60(u).Caption = ""
                Next
                dlgSS4GTesttype.Text6.Text = strTemp + Chr(13) + Chr(10) + dlgSS4GTesttype.Text6.Text
                dlgSS4GTesttype.Label60(17).Caption = Label1(i).Caption
                Select Case i
                    Case 0
                        dlgSS4GTesttype.Label60(18).Caption = "186.9"
                        dlgSS4GTesttype.Label60(20).Caption = "1680"
                        dlgSS4GTesttype.Label60(22).Caption = "13.2±15%"
                        dlgSS4GTesttype.Label60(25).Caption = "90±15%"
                    Case 1
                        dlgSS4GTesttype.Label60(18).Caption = "140.2"
                        dlgSS4GTesttype.Label60(20).Caption = "1680"
                    Case 2
                        dlgSS4GTesttype.Label60(18).Caption = "93.46"
                        dlgSS4GTesttype.Label60(20).Caption = "1680"
                    Case 3
                        dlgSS4GTesttype.Label60(18).Caption = "93.46"
                        dlgSS4GTesttype.Label60(20).Caption = "1680"
                    Case 4
                        dlgSS4GTesttype.Label60(18).Caption = "93.46"
                        dlgSS4GTesttype.Label60(20).Caption = "1680"
                    Case 5
                        dlgSS4GTesttype.Label60(18).Caption = "46.73"
                        dlgSS4GTesttype.Label60(20).Caption = "1680"
                    Case 6
                        dlgSS4GTesttype.Label60(18).Caption = "46.73"
                        dlgSS4GTesttype.Label60(20).Caption = "1680"
                    Case 7
                        dlgSS4GTesttype.Label60(18).Caption = "46.73"
                        dlgSS4GTesttype.Label60(20).Caption = "1680"
                    Case 8
                        dlgSS4GTesttype.Label60(18).Caption = "46.73"
                        dlgSS4GTesttype.Label60(20).Caption = "1680"
                    Case 9
                        dlgSS4GTesttype.Label60(18).Caption = "140.20"
                        dlgSS4GTesttype.Label60(20).Caption = "1680"
                    Case 10
                        dlgSS4GTesttype.Label60(18).Caption = "140.20"
                        dlgSS4GTesttype.Label60(20).Caption = "1680"
                    Case 11
                        dlgSS4GTesttype.Label60(18).Caption = "23.37"
                        dlgSS4GTesttype.Label60(20).Caption = "1680"
                    Case 12
                        dlgSS4GTesttype.Label60(18).Caption = "23.37"
                        dlgSS4GTesttype.Label60(20).Caption = "1680"
                    Case 13
                        dlgSS4GTesttype.Label60(18).Caption = "3.50"
                        dlgSS4GTesttype.Label60(20).Caption = "840"
                    Case 14
                        dlgSS4GTesttype.Label60(18).Caption = "10"
                        dlgSS4GTesttype.Label60(20).Caption = "625"
                    Case Else
                End Select
                dlgSS4GTesttype.Frame30.Enabled = False
                dlgSS4GTesttype.Frame40.Enabled = False
                dlgSS4GTesttype.Frame50.Enabled = False
                dlgSS4GTesttype.Frame60.Enabled = True
                
            ElseIf ttrain = "200" And ttype = "17" Then
                dlgSS4GTesttype.Text6.Text = strTemp + Chr(13) + Chr(10) + dlgSS4GTesttype.Text6.Text
                dlgSS4GTesttype.Label30(3).Caption = Label1(i).Caption
                Select Case i
                    Case 0
                        dlgSS4GTesttype.Label30(4).Caption = "施加50Hz、6000V电压，1min无击穿及闪络现象"
                    Case 1
                        dlgSS4GTesttype.Label30(4).Caption = "施加50Hz、6000V电压，1min无击穿及闪络现象"
                    Case 2
                        dlgSS4GTesttype.Label30(4).Caption = "施加50Hz、6000V电压，1min无击穿及闪络现象"
                    Case 3
                        dlgSS4GTesttype.Label30(4).Caption = "施加50Hz、6000V电压，1min无击穿及闪络现象"
                    Case Else
                End Select
                dlgSS4GTesttype.Frame30.Enabled = True
                dlgSS4GTesttype.Frame40.Enabled = False
                dlgSS4GTesttype.Frame50.Enabled = False
                dlgSS4GTesttype.Frame60.Enabled = False
            
            ElseIf ttrain = "200" And ttype = "18" Then
                dlgSS4GTesttype.Text6.Text = strTemp + Chr(13) + Chr(10) + dlgSS4GTesttype.Text6.Text
                dlgSS4GTesttype.Label70(4).Caption = Label1(i).Caption
                Select Case i
                    Case 0
                        dlgSS4GTesttype.Label70(5).Caption = "15mH±15%"
                    Case 1
                        dlgSS4GTesttype.Label70(5).Caption = "15mH±15%"
                    Case 2
                        dlgSS4GTesttype.Label70(5).Caption = "15mH±15%"
                    Case 3
                        dlgSS4GTesttype.Label70(5).Caption = "15mH±15%"
                    Case Else
                End Select
                dlgSS4GTesttype.Frame30.Enabled = False
                dlgSS4GTesttype.Frame40.Enabled = False
                dlgSS4GTesttype.Frame50.Enabled = False
                dlgSS4GTesttype.Frame60.Enabled = False
                dlgSS4GTesttype.Frame70.Enabled = True
            
            ElseIf ttrain = "200" And ttype = "23" Then
                dlgSS4GTesttype.Text6.Text = strTemp + Chr(13) + Chr(10) + dlgSS4GTesttype.Text6.Text
                dlgSS4GTesttype.Label30(3).Caption = Label1(i).Caption
                Select Case i
                    Case 0
                        dlgSS4GTesttype.Label30(4).Caption = "施加电压7kV，频率50HZ，1min无击穿及闪络现象"
                    Case 1
                        dlgSS4GTesttype.Label30(4).Caption = "施加电压7kV，频率50HZ，1min无击穿及闪络现象"
                    Case 2
                        dlgSS4GTesttype.Label30(4).Caption = "施加电压7kV，频率50HZ，1min无击穿及闪络现象"
                    Case 3
                        dlgSS4GTesttype.Label30(4).Caption = "施加电压7kV，频率50HZ，1min无击穿及闪络现象"
                    Case Else
                End Select
                dlgSS4GTesttype.Frame30.Enabled = True
                dlgSS4GTesttype.Frame40.Enabled = False
                dlgSS4GTesttype.Frame50.Enabled = False
                dlgSS4GTesttype.Frame60.Enabled = False
                
            ElseIf ttrain = "200" And ttype = "24" Then
                dlgSS4GTesttype.Text6.Text = strTemp + Chr(13) + Chr(10) + dlgSS4GTesttype.Text6.Text
                dlgSS4GTesttype.Label70(4).Caption = Label1(i).Caption
                Select Case i
                    Case 0
                        dlgSS4GTesttype.Label70(5).Caption = "0.92mH±3.5%"
                    Case 1
                        dlgSS4GTesttype.Label70(5).Caption = "0.92mH±3.5%"
                    Case 2
                        dlgSS4GTesttype.Label70(5).Caption = "0.92mH±3.5%"
                    Case 3
                        dlgSS4GTesttype.Label70(5).Caption = "0.92mH±3.5%"
                    Case Else
                End Select
                dlgSS4GTesttype.Frame30.Enabled = False
                dlgSS4GTesttype.Frame40.Enabled = False
                dlgSS4GTesttype.Frame50.Enabled = False
                dlgSS4GTesttype.Frame60.Enabled = False
                dlgSS4GTesttype.Frame70.Enabled = True
                
            ElseIf ttrain = "500" And ttype = "6" Then
                dlgJYDZXSBTest.Label16.Caption = Label1(i).Caption
                If tobj = " 0" Then
                    dlgJYDZXSBTest.Label5.Caption = "≥1000MΩ"
                Else
                    dlgJYDZXSBTest.Label5.Caption = "≥500MΩ"
                End If
                
            ElseIf ttrain = "500" And ttype = "8" Then
                dlgSS7CTesttype.Text6.Text = strTemp + Chr(13) + Chr(10) + dlgSS7CTesttype.Text6.Text
                dlgSS7CTesttype.Label30(3).Caption = Label1(i).Caption
                Select Case i
                    Case 0
                        dlgSS7CTesttype.Label30(4).Caption = "施加电压5kV、频率50Hz，lmin无击穿及闪络现象"
                        dlgSS7CTesttype.Label30(5).Caption = ""
                   '     dlgss7cTesttype.Label30(5).Enabled = True
                        If byqData(115) <> "" Then
                            dlgSS7CTesttype.Label30(5).Caption = byqData(115)
                            dlgSS7CTesttype.Label30(5).Enabled = False
                        End If
                    Case 1
                        dlgSS7CTesttype.Label30(4).Caption = "施加电压3.5kV、频率50Hz，lmin无击穿及闪络现象"
                        dlgSS7CTesttype.Label30(5).Caption = ""
                   '     dlgss7cTesttype.Label30(5).Enabled = True
                        If byqData(116) <> "" Then
                            dlgSS7CTesttype.Label30(5).Caption = byqData(116)
                            dlgSS7CTesttype.Label30(5).Enabled = False
                        End If
                    Case 2
                        dlgSS7CTesttype.Label30(4).Caption = "施加电压3.5kV、频率50Hz，lmin无击穿及闪络现象"
                        dlgSS7CTesttype.Label30(5).Caption = ""
                   '     dlgss7cTesttype.Label30(5).Enabled = True
                        If byqData(117) <> "" Then
                            dlgSS7CTesttype.Label30(5).Caption = byqData(117)
                            dlgSS7CTesttype.Label30(5).Enabled = False
                        End If
                    Case 3
                        dlgSS7CTesttype.Label30(4).Caption = "施加电压3kV、频率50Hz，lmin无击穿及闪络现象"
                        dlgSS7CTesttype.Label30(5).Caption = ""
                   '     dlgss7cTesttype.Label30(5).Enabled = True
                        If byqData(118) <> "" Then
                            dlgSS7CTesttype.Label30(5).Caption = byqData(118)
                            dlgSS7CTesttype.Label30(5).Enabled = False
                        End If
                    Case 4
                        dlgSS7CTesttype.Label30(4).Caption = "施加电压3kV、频率50Hz，lmin无击穿及闪络现象"
                        dlgSS7CTesttype.Label30(5).Caption = ""
                   '     dlgss7cTesttype.Label30(5).Enabled = True
                        If byqData(118) <> "" Then
                            dlgSS7CTesttype.Label30(5).Caption = byqData(119)
                            dlgSS7CTesttype.Label30(5).Enabled = False
                        End If
                    Case 5
                        dlgSS7CTesttype.Label30(4).Caption = "施加电压4kV、频率50Hz，lmin无击穿及闪络现象"
                        dlgSS7CTesttype.Label30(5).Caption = ""
                   '     dlgss7cTesttype.Label30(5).Enabled = True
                        If byqData(118) <> "" Then
                            dlgSS7CTesttype.Label30(5).Caption = byqData(120)
                            dlgSS7CTesttype.Label30(5).Enabled = False
                        End If
                    Case Else
                End Select
                dlgSS7CTesttype.Frame30.Enabled = True
                dlgSS7CTesttype.Frame40.Enabled = False
                dlgSS7CTesttype.Frame50.Enabled = False
                dlgSS7CTesttype.Frame60.Enabled = False
                
            ElseIf ttrain = "500" And ttype = "13" Then
                For u = 17 To 28
                    dlgSS7CTesttype.Label60(u).Caption = ""
                Next
                dlgSS7CTesttype.Text6.Text = strTemp + Chr(13) + Chr(10) + dlgSS7CTesttype.Text6.Text
                dlgSS7CTesttype.Label60(17).Caption = Label1(i).Caption
                Select Case i
                    Case 0
                        dlgSS7CTesttype.Label60(18).Caption = "68.76"
                        dlgSS7CTesttype.Label60(20).Caption = "2775"
                        dlgSS7CTesttype.Label60(22).Caption = "16.154"
                    Case 1
                        dlgSS7CTesttype.Label60(18).Caption = "68.76"
                        dlgSS7CTesttype.Label60(20).Caption = "2775"
                        dlgSS7CTesttype.Label60(22).Caption = "15.751"
                    Case 2
                        dlgSS7CTesttype.Label60(18).Caption = "68.76"
                        dlgSS7CTesttype.Label60(20).Caption = "2775"
                        dlgSS7CTesttype.Label60(22).Caption = "15.656"
                    Case 3
                        dlgSS7CTesttype.Label60(18).Caption = "68.76"
                        dlgSS7CTesttype.Label60(20).Caption = "2775"
                        dlgSS7CTesttype.Label60(22).Caption = "16.043"
                    Case 4
                        dlgSS7CTesttype.Label60(18).Caption = "137.5"
                        dlgSS7CTesttype.Label60(20).Caption = "2775"
                        dlgSS7CTesttype.Label60(22).Caption = "9.108"
                    Case 5
                        dlgSS7CTesttype.Label60(18).Caption = "137.5"
                        dlgSS7CTesttype.Label60(20).Caption = "2775"
                        dlgSS7CTesttype.Label60(22).Caption = "8.955"
                    Case 6
                        dlgSS7CTesttype.Label60(18).Caption = "275.04"
                        dlgSS7CTesttype.Label60(20).Caption = "2775"
                        dlgSS7CTesttype.Label60(22).Caption = "16.6＋15%"
                        dlgSS7CTesttype.Label60(25).Caption = "109.6+15%"
                    Case 7
                        dlgSS7CTesttype.Label60(18).Caption = "23.285"
                        dlgSS7CTesttype.Label60(20).Caption = "667"
                        dlgSS7CTesttype.Label60(22).Caption = "10.08"
                    Case 8
                        dlgSS7CTesttype.Label60(18).Caption = "23.285"
                        dlgSS7CTesttype.Label60(20).Caption = "667"
                        dlgSS7CTesttype.Label60(22).Caption = "10.01"
                    Case 9
                        dlgSS7CTesttype.Label60(18).Caption = "46.57"
                        dlgSS7CTesttype.Label60(20).Caption = "667"
                        dlgSS7CTesttype.Label60(22).Caption = "11.98"
                    Case 10
                        dlgSS7CTesttype.Label60(18).Caption = "1.44"
                        dlgSS7CTesttype.Label60(20).Caption = "213.1"
                        dlgSS7CTesttype.Label60(22).Caption = "1.049"
                    Case 11
                        dlgSS7CTesttype.Label60(18).Caption = "1.44"
                        dlgSS7CTesttype.Label60(20).Caption = "213.1"
                        dlgSS7CTesttype.Label60(22).Caption = "1.071"
                    Case 12
                        dlgSS7CTesttype.Label60(18).Caption = "12.8"
                        dlgSS7CTesttype.Label60(20).Caption = "812"
                        dlgSS7CTesttype.Label60(22).Caption = "3.355"
                    Case Else
                End Select
                dlgSS7CTesttype.Frame30.Enabled = False
                dlgSS7CTesttype.Frame40.Enabled = False
                dlgSS7CTesttype.Frame50.Enabled = False
                dlgSS7CTesttype.Frame60.Enabled = True
                
            ElseIf ttrain = "500" And ttype =