frmchartoption.frm

用于控制氧乐果生产的程序

      EndProperty
      Height          =   216
      Left            =   1812
      TabIndex        =   17
      Top             =   2004
      Width           =   432
   End
   Begin VB.Label Label10 
      AutoSize        =   -1  'True
      Caption         =   "上限"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.8
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Left            =   1800
      TabIndex        =   16
      Top             =   1620
      Width           =   432
   End
   Begin VB.Label Label9 
      AutoSize        =   -1  'True
      Caption         =   "上限"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.8
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Left            =   1800
      TabIndex        =   15
      Top             =   1248
      Width           =   432
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      Caption         =   "上限"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.8
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Left            =   1812
      TabIndex        =   14
      Top             =   864
      Width           =   432
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "冷却盐水温度(℃)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.8
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Left            =   100
      TabIndex        =   13
      Top             =   2004
      Width           =   1728
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "一甲胺流量(kg/h)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.8
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Left            =   96
      TabIndex        =   12
      Top             =   1620
      Width           =   1728
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "投料阀开度(%)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.8
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Left            =   100
      TabIndex        =   11
      Top             =   1248
      Width           =   1404
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "计量罐液位(kg)"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.8
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   216
      Left            =   96
      TabIndex        =   10
      Top             =   864
      Width           =   1512
   End
End
Attribute VB_Name = "frmChartOption"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private mintIndex As Integer
Public Property Let fyfIndex(ByVal vData As Integer)
    mintIndex = vData
End Property
Public Property Get fyfIndex() As Integer
    fyfIndex = mintIndex
End Property

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command5_Click()
'*****************************
'读坐标上下限，还原为系统默认值
'*****************************
gsngwdScale(fyfIndex, 1) = gsngfyfwdScaleTop(fyfIndex)
gsngwdScale(fyfIndex, 2) = gsngfyfwdScaleBottom(fyfIndex)

gsngswdScale(fyfIndex, 1) = gsnglqyswdScaleTop
gsngswdScale(fyfIndex, 2) = gsnglqyswdScaleBottom

gsngkdScale(fyfIndex, 1) = gsngtlfkdScaleTop(fyfIndex)
gsngkdScale(fyfIndex, 2) = gsngtlfkdScaleBottom(fyfIndex)

gsngywScale(fyfIndex, 1) = gsngjlgywScaleTop(fyfIndex)
gsngywScale(fyfIndex, 2) = gsngjlgywScaleBottom(fyfIndex)

gsngllScale(fyfIndex, 1) = gsngyjallScaleTop(fyfIndex)
gsngllScale(fyfIndex, 2) = gsngyjallScaleBottom(fyfIndex)

End Sub

Private Sub Form_Load()
txtwdTop.Text = CStr(gsngwdScale(fyfIndex, 1))
txtwdLow.Text = CStr(gsngwdScale(fyfIndex, 2))

txtswdTop.Text = CStr(gsngswdScale(fyfIndex, 1))
txtswdLow.Text = CStr(gsngswdScale(fyfIndex, 2))

txtywTop.Text = CStr(gsngywScale(fyfIndex, 1))
txtywLow.Text = CStr(gsngywScale(fyfIndex, 2))

txtkdTop.Text = CStr(gsngkdScale(fyfIndex, 1))
txtkdLow.Text = CStr(gsngkdScale(fyfIndex, 2))

txtllTop.Text = CStr(gsngllScale(fyfIndex, 1))
txtllLow.Text = CStr(gsngllScale(fyfIndex, 2))

End Sub

Private Sub txtkdLow_GotFocus()
Call GotFocusAgain(txtkdLow)
End Sub

Private Sub txtkdLow_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = vbKeyReturn Then
    If CSng(txtkdTop.Text) > CSng(txtkdLow.Text) Then
        Call Inform(55)
        txtkdTop.SetFocus
    Else
        gsngkdScale(fyfIndex, 1) = CSng(txtkdTop.Text)
        gsngkdScale(fyfIndex, 2) = CSng(txtkdLow.Text)
    End If
End If
End Sub
Private Sub txtkdTop_GotFocus()
Call GotFocusAgain(txtkdTop)
End Sub

Private Sub txtllLow_GotFocus()
Call GotFocusAgain(txtllLow)
End Sub

Private Sub txtllLow_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = vbKeyReturn Then
    If CSng(txtllTop.Text) < CSng(txtllLow.Text) Then
        Call Inform(55)
        txtllTop.SetFocus
    Else
        gsngllScale(fyfIndex, 1) = CSng(txtllTop.Text)
        gsngllScale(fyfIndex, 2) = CSng(txtllLow.Text)
    End If
End If
End Sub

Private Sub txtllTop_GotFocus()
Call GotFocusAgain(txtllTop)
End Sub

Private Sub txtswdLow_GotFocus()
Call GotFocusAgain(txtswdLow)
End Sub

Private Sub txtswdLow_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = vbKeyReturn Then
    If CSng(txtswdTop.Text) < CSng(txtswdLow.Text) Then
        Call Inform(55)
        txtswdTop.SetFocus
    Else
        gsngswdScale(fyfIndex, 1) = CSng(txtswdTop.Text)
        gsngswdScale(fyfIndex, 2) = CSng(txtswdLow.Text)
    End If
End If
End Sub

Private Sub txtswdTop_GotFocus()
Call GotFocusAgain(txtswdTop)
End Sub

Private Sub txtwdLow_GotFocus()
Call GotFocusAgain(txtwdLow)
End Sub

Private Sub txtwdLow_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = vbKeyReturn Then
    If CSng(txtwdTop.Text) < CSng(txtwdLow.Text) Then
        Call Inform(55)
        txtwdTop.SetFocus
    Else
        gsngwdScale(fyfIndex, 1) = CSng(txtwdTop.Text)
        gsngwdScale(fyfIndex, 2) = CSng(txtwdLow.Text)
    End If
End If
End Sub

Private Sub txtwdTop_GotFocus()
Call GotFocusAgain(txtwdTop)
End Sub

Private Sub txtywLow_GotFocus()
Call GotFocusAgain(txtywLow)
End Sub

Private Sub txtywLow_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = vbKeyReturn Then
    If CSng(txtywTop) < CSng(txtywLow.Text) Then
        Call Inform(55)
        txtywTop.SetFocus
    Else
        gsngywScale(fyfIndex, 1) = CSng(txtywTop.Text)
        gsngywScale(fyfIndex, 2) = CSng(txtywLow.Text)
    End If
End If
End Sub

Private Sub txtywTop_GotFocus()
Call GotFocusAgain(txtywTop)
End Sub