📄 dataviewfrm.frm
字号:
TabIndex = 32
Top = 852
Width = 180
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "kg"
Height = 180
Left = 1848
TabIndex = 31
Top = 528
Width = 192
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "℃"
Height = 180
Left = 1848
TabIndex = 30
Top = 192
Width = 180
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 1716
Index = 2
Left = 48
Top = 3684
Width = 2028
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 1788
Index = 1
Left = 48
Top = 1860
Width = 2028
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 1788
Index = 0
Left = 48
Top = 36
Width = 2028
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "三号阀开度"
ForeColor = &H80000006&
Height = 180
Index = 2
Left = 96
TabIndex = 29
Top = 4454
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "三号釜温度"
ForeColor = &H80000006&
Height = 180
Index = 2
Left = 96
TabIndex = 28
Top = 3810
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "三号罐液位"
ForeColor = &H80000006&
Height = 180
Index = 2
Left = 96
TabIndex = 27
Top = 4132
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "一甲胺流量"
ForeColor = &H80000006&
Height = 180
Index = 2
Left = 96
TabIndex = 26
Top = 5100
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "一甲胺用量"
ForeColor = &H80000006&
Height = 180
Index = 2
Left = 120
TabIndex = 25
Top = 4776
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "二号阀开度"
ForeColor = &H80000006&
Height = 180
Index = 1
Left = 96
TabIndex = 20
Top = 2672
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "二号釜温度"
ForeColor = &H80000006&
Height = 180
Index = 1
Left = 96
TabIndex = 19
Top = 1986
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "二号罐液位"
ForeColor = &H80000006&
Height = 180
Index = 1
Left = 96
TabIndex = 18
Top = 2329
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "一甲胺流量"
ForeColor = &H80000006&
Height = 180
Index = 1
Left = 96
TabIndex = 17
Top = 3360
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "一甲胺用量"
ForeColor = &H80000006&
Height = 180
Index = 1
Left = 96
TabIndex = 16
Top = 3015
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "一号阀开度"
ForeColor = &H80000006&
Height = 180
Index = 0
Left = 96
TabIndex = 12
Top = 858
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "一号釜温度"
ForeColor = &H80000007&
Height = 180
Index = 0
Left = 96
TabIndex = 11
Top = 204
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "一号罐液位"
ForeColor = &H80000006&
Height = 180
Index = 0
Left = 96
TabIndex = 10
Top = 531
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "一甲胺流量"
ForeColor = &H80000006&
Height = 180
Index = 0
Left = 96
TabIndex = 9
Top = 1512
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
BackColor = &H0000C000&
BackStyle = 0 'Transparent
Caption = "一甲胺用量"
ForeColor = &H80000006&
Height = 180
Index = 0
Left = 96
TabIndex = 8
Top = 1185
Width = 900
End
End
Attribute VB_Name = "dataviewfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Option Base 1
Private mvarfyfWenDu(3) As Single '本地复本
Private mvartlfaKaiDu(3) As Single '本地复本
Private mvaryjaLiuLiang(3) As Single '本地复本
Private mvarjlgYeWei(3) As Single '本地复本
Private mvaryjayongliang(3) As Single
Private mvarindex As Integer
Private Sub Form_Load()
Left = 0
Top = baojingfrm.Top + baojingfrm.Height
Height = Screen.Height - baojingfrm.Top - baojingfrm.Height
End Sub
'**************************************************
'以下属性值变化由mainfrm中的sampletimer_Timer事件触发
'**************************************************
'**********************
'窗体属性: 计量罐液位
'**********************
Public Property Let jlgYeWei(ByVal vData As Single)
mvarjlgYeWei(mvarindex) = vData
Text3(mvarindex - 1).Text = Format(CStr(vData), "0.0")
End Property
Public Property Get jlgYeWei() As Single
jlgYeWei = mvarjlgYeWei(mvarindex)
End Property
'**********************
'窗体属性: 一甲胺流量
'**********************
Public Property Let yjaLiuLiang(ByVal vData As Single)
mvaryjaLiuLiang(mvarindex) = vData
Text4(mvarindex - 1).Text = Format(CStr(vData), "0.0")
End Property
Public Property Get yjaLiuLiang() As Single
yjaLiuLiang = mvaryjaLiuLiang(mvarindex)
End Property
'**********************
'窗体属性: 投料阀开度
'**********************
Public Property Let tlfaKaiDu(ByVal vData As Single)
mvartlfaKaiDu(mvarindex) = vData
Text5(mvarindex - 1).Text = Format(CStr(vData), "0.0")
End Property
Public Property Get tlfaKaiDu() As Single
tlfaKaiDu = mvartlfaKaiDu(mvarindex)
End Property
'**********************
'窗体属性: 反应釜温度
'**********************
Public Property Let fyfWenDu(ByVal vData As Single)
mvarfyfWenDu(mvarindex) = vData
Text2(mvarindex - 1).Text = Format(CStr(vData), "0.0")
End Property
Public Property Get fyfWenDu() As Single
fyfWenDu = mvarfyfWenDu(mvarindex)
End Property
'**********************
'窗体属性: 反应釜号
'**********************
Public Property Let Index(ByVal vData As Single)
mvarindex = vData
End Property
Public Property Get Index() As Single
Index = mvarindex
End Property
'**********************************
'窗体属性: 反应开始到现在一甲胺已用量
'**********************************
Public Property Let yjaYongLiang(ByVal vData As Single)
mvaryjayongliang(mvarindex) = vData
Text6(mvarindex - 1).Text = Format(CStr(vData), "0.0")
End Property
Public Property Get yjaYongLiang() As Single
yjaYongLiang = mvaryjayongliang(mvarindex)
End Property
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -