📄 tech.ctl
字号:
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 210
Index = 6
Left = 5880
TabIndex = 18
Top = 960
Width = 480
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "时间"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 210
Index = 4
Left = 2400
TabIndex = 15
Top = 960
Width = 420
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "计量"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 210
Index = 1
Left = 5070
TabIndex = 14
Top = 960
Width = 420
End
Begin VB.Label lbName
Alignment = 1 'Right Justify
Caption = "14#皮"
BeginProperty Font
Name = "幼圆"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 30
TabIndex = 13
Top = 30
Width = 675
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 210
Index = 0
Left = 1560
TabIndex = 11
Top = 960
Width = 420
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "煤种"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 210
Index = 9
Left = 8595
TabIndex = 10
Top = 960
Width = 480
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备注"
ForeColor = &H8000000E&
Height = 180
Index = 16
Left = 90
TabIndex = 9
Top = 3420
Width = 360
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "累计"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 210
Index = 10
Left = 4230
TabIndex = 8
Top = 960
Width = 480
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "流程"
ForeColor = &H8000000E&
Height = 180
Index = 2
Left = 30
TabIndex = 6
Top = 1830
Width = 360
End
Begin VB.Label lbls
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "船名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 210
Index = 3
Left = 7320
TabIndex = 7
Top = 960
Width = 480
End
End
Attribute VB_Name = "Tech"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'
Private mDockId As eDock
Public Property Let d计量(ByVal vData As Double)
If vData = 0 Then
If Val(txtF(eShop.e计量).Text) > 10 Then '重设累计清零，新的船
#If dds <> 2 Then
Call zStop
#End If
txtF(eShop.e日期).Text = Format(Date, "YYYY-MM-DD")
txtF(eShop.e时间).Text = Time
End If
End If
If Val(txtF(eShop.e计量).Text) <= 0.5 Then
If vData > 0.5 Then
txtF(eShop.e日期).Text = Format(Date, "YYYY-MM-DD")
txtF(eShop.e时间).Text = Time
End If
End If
txtF(eShop.e计量).Text = Format(vData, "#0.00")
End Property
Public Property Get d计量() As Double
d计量 = Val(txtF(eShop.e计量).Text)
End Property
Public Property Let d累计(ByVal vData As Double)
txtF(eShop.e累计).Text = Format(vData, "#0.00")
End Property
Public Property Get d累计() As Double
d累计 = Val(txtF(eShop.e累计).Text)
End Property
Public Property Let d设定(ByVal vData As Double)
txtF(eShop.e设定).Text = Format(vData, "#0.00")
End Property
Public Property Get d设定() As Double
d设定 = Val(txtF(eShop.e设定).Text)
End Property
Public Property Let d流量(ByVal vData As Double)
txtF(eShop.e流量).Text = Format(vData, "#0.00")
End Property
Public Property Get d流量() As Double
d流量 = Val(txtF(eShop.e流量).Text)
End Property
Public Property Let d流程(ByVal vData As Double)
txtF(eShop.e流程).Text = Format(vData, "#0")
End Property
Public Property Get d流程() As Double
d流程 = Val(txtF(eShop.e流程).Text)
End Property
Public Sub zInit(ByVal vDock As eTech)
'码头
mDockId = vDock
lbName.Caption = NameTech(vDock)
Dim p As eShop
p = eShop.e船名: txtF(p).Text = SetReg.GetSettingStr(Sc_Cang, nmShop(p) & CStr(mDockId), "")
p = eShop.e煤种: txtF(p).Text = SetReg.GetSettingStr(Sc_Cang, nmShop(p) & CStr(mDockId), "")
p = eShop.e流程: txtF(p).Text = SetReg.GetSettingStr(Sc_Cang, nmShop(p) & CStr(mDockId), "")
p = eShop.e设定: txtF(p).Text = SetReg.GetSettingStr(Sc_Cang, nmShop(p) & CStr(mDockId), "")
p = eShop.e备注: txtF(p).Text = SetReg.GetSettingStr(Sc_Cang, nmShop(p) & CStr(mDockId), "")
p = eShop.e日期: txtF(p).Text = SetReg.GetSettingStr(Sc_Cang, nmShop(p) & CStr(mDockId), Format(Date, "YYYY-MM-DD")) '
p = eShop.e时间: txtF(p).Text = SetReg.GetSettingStr(Sc_Cang, nmShop(p) & CStr(mDockId), Time)
'
End Sub
Private Sub zStop()
Dim cmdText As String
Dim v仪表 As String, _
v船名 As String, _
v煤种 As String, _
v流程 As String, _
v设定值 As Double, _
v计量值 As Double, _
v日期 As Date, _
v时间 As Date, _
v备注 As String
Dim p As eShop
Dim dblCang As Double
dblCang = Val(txtF(eShop.e计量).Text) 'mVessel.Pop
'
v仪表 = NameTech(mDockId)
p = eShop.e船名: v船名 = txtF(p).Text
p = eShop.e煤种: v煤种 = txtF(p).Text
p = eShop.e流程: v流程 = txtF(p).Text
p = eShop.e设定: v设定值 = Val(txtF(p).Text)
v计量值 = Format(dblCang, "#0.00")
p = eShop.e日期: v日期 = txtF(p).Text
p = eShop.e时间: v时间 = txtF(p).Text
p = eShop.e备注: v备注 = txtF(p).Text
Call SaveToCiiUS(v仪表, v船名, v煤种, v流程, v设定值, v计量值, v日期, v时间, v备注)
End Sub
Private Sub txtF_Change(Index As Integer)
Select Case Index
Case eShop.e计量
Case eShop.e累计
Case eShop.e流量
' Case eShop.e流程
Case Else
Call SetReg.SaveSettingStr(Sc_Cang, nmShop(Index) & CStr(mDockId), txtF(Index).Text)
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -