dlgtrainmodel.frm

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

VERSION 5.00
Begin VB.Form dlgTrainModel 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "车型选择"
   ClientHeight    =   4335
   ClientLeft      =   2760
   ClientTop       =   3630
   ClientWidth     =   5805
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4335
   ScaleWidth      =   5805
   ShowInTaskbar   =   0   'False
   Begin VB.OptionButton Option1 
      Caption         =   "270Km/h空心轴传动动力机车"
      Enabled         =   0   'False
      Height          =   495
      Index           =   10
      Left            =   2760
      TabIndex        =   12
      Top             =   3000
      Width           =   2655
   End
   Begin VB.OptionButton Option1 
      Caption         =   "200Km/h交流传动车"
      Enabled         =   0   'False
      Height          =   495
      Index           =   9
      Left            =   480
      TabIndex        =   11
      Top             =   3000
      Width           =   2055
   End
   Begin VB.OptionButton Option1 
      Caption         =   "先锋号"
      Enabled         =   0   'False
      Height          =   495
      Index           =   8
      Left            =   3960
      TabIndex        =   10
      Top             =   2040
      Width           =   1215
   End
   Begin VB.OptionButton Option1 
      Caption         =   "模块SS7E"
      Enabled         =   0   'False
      Height          =   495
      Index           =   7
      Left            =   2160
      TabIndex        =   9
      Top             =   2040
      Width           =   1215
   End
   Begin VB.OptionButton Option1 
      Caption         =   "SS7E"
      Enabled         =   0   'False
      Height          =   495
      Index           =   6
      Left            =   480
      TabIndex        =   8
      Top             =   2040
      Width           =   1215
   End
   Begin VB.OptionButton Option1 
      Caption         =   "SS7D"
      Enabled         =   0   'False
      Height          =   495
      Index           =   5
      Left            =   3960
      TabIndex        =   7
      Top             =   1080
      Width           =   1215
   End
   Begin VB.OptionButton Option1 
      Caption         =   "SS7C"
      Height          =   495
      Index           =   4
      Left            =   2160
      TabIndex        =   6
      Top             =   1080
      Width           =   1215
   End
   Begin VB.OptionButton Option1 
      Caption         =   "SS7"
      Enabled         =   0   'False
      Height          =   495
      Index           =   3
      Left            =   480
      TabIndex        =   5
      Top             =   1080
      Width           =   1215
   End
   Begin VB.OptionButton Option1 
      Caption         =   "SS6B"
      Enabled         =   0   'False
      Height          =   495
      Index           =   2
      Left            =   3960
      TabIndex        =   4
      Top             =   240
      Width           =   1215
   End
   Begin VB.OptionButton Option1 
      Caption         =   "SS4 改"
      Height          =   495
      Index           =   1
      Left            =   2160
      TabIndex        =   3
      Top             =   240
      Width           =   1215
   End
   Begin VB.OptionButton Option1 
      Caption         =   "SS3B"
      Height          =   495
      Index           =   0
      Left            =   480
      TabIndex        =   2
      Top             =   240
      Width           =   1215
   End
   Begin VB.CommandButton CancelButton 
      Caption         =   "Cancel"
      Height          =   375
      Left            =   3360
      TabIndex        =   1
      Top             =   3720
      Width           =   1215
   End
   Begin VB.CommandButton OKButton 
      Caption         =   "OK"
      Height          =   375
      Left            =   1200
      TabIndex        =   0
      Top             =   3720
      Width           =   1215
   End
End
Attribute VB_Name = "dlgTrainModel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub CancelButton_Click()
    ttrain = ""
    Unload Me
End Sub

Private Sub Form_Load()
    If ttrain <> "" Then
        Dim numTtrain As Integer
        numTtrain = Val(ttrain)
        Dim temp As Integer
        temp = numTtrain / 100 - 1
        Option1(temp).Value = True
    End If
End Sub

Private Sub OKButton_Click()
    continuedTest = False
    ttrain = ""
    If Option1(0).Value = True Then
    ttrain = "100"
    byqData(0) = "SS3B"
    hgqData(0) = "SS3B"
    dkqData(0) = "SS3B"
    ElseIf Option1(1).Value = True Then
    ttrain = "200"
    byqData(0) = "SS4G"
    hgqData(0) = "SS4G"
    dkqData(0) = "SS4G"
    ElseIf Option1(2).Value = True Then
    ttrain = "300"
    byqData(0) = "SS6B"
    hgqData(0) = "SS6B"
    dkqData(0) = "SS6B"
    ElseIf Option1(3).Value = True Then
    ttrain = "400"
    byqData(0) = "SS7"
    hgqData(0) = "SS7"
    dkqData(0) = "SS7"
    ElseIf Option1(4).Value = True Then
    ttrain = "500"
    byqData(0) = "SS7C"
    hgqData(0) = "SS7C"
    dkqData(0) = "SS7C"
    ElseIf Option1(5).Value = True Then
    ttrain = "600"
    byqData(0) = "SS7D"
    hgqData(0) = "SS7D"
    dkqData(0) = "SS7D"
    ElseIf Option1(6).Value = True Then
    ttrain = "700"
    byqData(0) = "SS7E"
    hgqData(0) = "SS7E"
    dkqData(0) = "SS7E"
    ElseIf Option1(7).Value = True Then
    ttrain = "800"
    byqData(0) = "模块SS7E"
    hgqData(0) = "模块SS7E"
    dkqData(0) = "模块SS7E"
    ElseIf Option1(8).Value = True Then
    ttrain = "900"
    byqData(0) = "先锋号"
    hgqData(0) = "先锋号"
    dkqData(0) = "先锋号"
    ElseIf Option1(9).Value = True Then
    ttrain = "1000"
    byqData(0) = "200Km/h交流传动车"
    hgqData(0) = "200Km/h交流传动车"
    dkqData(0) = "200Km/h交流传动车"
    ElseIf Option1(10).Value = True Then
    ttrain = "1100"
    byqData(0) = "270Km/h空心轴传动动力机车"
    hgqData(0) = "270Km/h空心轴传动动力机车"
    dkqData(0) = "270Km/h空心轴传动动力机车"

    Else
    Dim x As Integer
    x = MsgBox("请选择车型！", 0 + 0 + 48, "警告")
    End If
    
    If ttrain <> "" Then
    Unload Me
    End If
End Sub