GOINFGS

Option Explicit

Private Sub btnStop_Click()
    OperateDev2 GetDevNoFromTagGruup(Me), "停车"
End Sub

Private Sub CFixPicture_Activated()
  Application.ActiveWindow.Caption = Me.Comments
  If Not (Me.DevNo.Caption Like "@devno@") Then
opendigitalpoint ("fix32." + SCADA_NAME + "." + "DQ" + Me.DevNo.Caption + ".f_cv")
opendigitalpoint "fix32." + SCADA_NAME + "." + "DT" + Me.DevNo.Caption + ".f_cv"
End If
End Sub

Private Sub CFixPicture_Initialize()
  Me.DocumentHeight = Me.ViewportHeight
  Me.DocumentWidth = Me.ViewportWidth
End Sub

Private Sub btnRun_Click()
    OperateDev2 GetDevNoFromTagGruup(Me), "启车"
End Sub

Private Sub btnCancel_Click()
    ClosePicture Me.Name
End Sub

Private Sub DataLink7_Click()
    '下面的注释已自动加入。
    '任何修改都可能对该功能造成不利的影响
    '脚本编写专家。
    'WizardName=数据输入
 On Error GoTo ErrorHandler
 If blnDataEntryFrmFlag <> True Then
     Dim dblLow As Double
     Dim dblHigh As Double
     Dim blnFetch, blnContinous As Boolean
     Dim intReturn As Integer
     GetFormSlider
     FetchLimits "fix32.fix.AO@devno@.f_cv", dblHigh, dblLow, intReturn
     If (dblHigh > 32767) Then
         MsgBox " The high limit cannot be greater than 32,767 for this type of Data Entry, Please choose another."
         Exit Sub
     End If
     blnFetch = True
     blnContinous = False
     Slider.SetWriteContinous blnContinous
     Slider.Slider1.Min = CInt(dblLow)
     Slider.Slider1.Max = CInt(dblHigh)
     Slider.GetTheVars A:=1, B:="fix32.fix.AO@devno@.f_cv"
     Slider.lblLow.Caption = dblLow
     Slider.lblHigh.Caption = dblHigh
     Slider.Show
 End If
 Exit Sub
ErrorHandler:
 HandleError
End Sub