📄 opc.frm
字号:
VERSION 5.00
Begin VB.Form SimpleOPCInterface
Caption = "OPC客户端"
ClientHeight = 7380
ClientLeft = 60
ClientTop = 345
ClientWidth = 10290
BeginProperty Font
Name = "宋体"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 7380
ScaleWidth = 10290
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton dbStop
Caption = "停止生成数据库"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 9120
TabIndex = 91
ToolTipText = "停止实时数据库的生成，保存为历史数据库供滤波使用"
Top = 240
Width = 975
End
Begin VB.CommandButton DBFilter
Caption = "平均值滤波"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 8160
TabIndex = 90
ToolTipText = "选择好滤波方式后，点击此处进行滤波"
Top = 960
Width = 1695
End
Begin VB.ListBox DBFilterList
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 645
ItemData = "OPC.frx":0000
Left = 8160
List = "OPC.frx":000D
TabIndex = 89
ToolTipText = "用鼠标点选将要进行的滤波操作，然后点击“平均值滤波”按钮"
Top = 1560
Width = 1695
End
Begin VB.Timer Timer1
Enabled = 0 'False
Left = 8040
Top = 2400
End
Begin VB.CommandButton dbCreate
Caption = "生成实时数据库"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 7800
TabIndex = 88
ToolTipText = "在本程序所在文件夹下建立实时数据库"
Top = 240
Width = 1095
End
Begin VB.TextBox OPCItemName
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 4
Left = 120
TabIndex = 86
ToolTipText = "输入OPC项名称，格式为OPC服务器名.工位号名.TAG名"
Top = 5040
Width = 2775
End
Begin VB.CheckBox OPCItemActiveState
Alignment = 1 'Right Justify
Caption = "已激活"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 9
Left = 7560
TabIndex = 81
ToolTipText = "点击此处改变OPC项的激活状态"
Top = 6840
Value = 1 'Checked
Width = 855
End
Begin VB.CheckBox OPCItemActiveState
Alignment = 1 'Right Justify
Caption = "已激活"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 8
Left = 7560
TabIndex = 80
ToolTipText = "点击此处改变OPC项的激活状态"
Top = 6480
Value = 1 'Checked
Width = 855
End
Begin VB.CheckBox OPCItemActiveState
Alignment = 1 'Right Justify
Caption = "已激活"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 7560
TabIndex = 79
ToolTipText = "点击此处改变OPC项的激活状态"
Top = 6120
Value = 1 'Checked
Width = 855
End
Begin VB.CheckBox OPCItemActiveState
Alignment = 1 'Right Justify
Caption = "已激活"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 6
Left = 7560
TabIndex = 78
ToolTipText = "点击此处改变OPC项的激活状态"
Top = 5760
Value = 1 'Checked
Width = 855
End
Begin VB.CheckBox OPCItemActiveState
Alignment = 1 'Right Justify
Caption = "已激活"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 7560
TabIndex = 77
ToolTipText = "点击此处改变OPC项的激活状态"
Top = 5400
Value = 1 'Checked
Width = 855
End
Begin VB.CheckBox OPCItemActiveState
Alignment = 1 'Right Justify
Caption = "已激活"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 7560
TabIndex = 76
ToolTipText = "点击此处改变OPC项的激活状态"
Top = 5040
Value = 1 'Checked
Width = 855
End
Begin VB.CheckBox OPCItemActiveState
Alignment = 1 'Right Justify
Caption = "已激活"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 7560
TabIndex = 75
ToolTipText = "点击此处改变OPC项的激活状态"
Top = 4680
Value = 1 'Checked
Width = 855
End
Begin VB.CheckBox OPCItemActiveState
Alignment = 1 'Right Justify
Caption = "已激活"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 7560
TabIndex = 74
ToolTipText = "点击此处改变OPC项的激活状态"
Top = 4320
Value = 1 'Checked
Width = 855
End
Begin VB.CheckBox OPCItemActiveState
Alignment = 1 'Right Justify
Caption = "已激活"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 7560
TabIndex = 73
ToolTipText = "点击此处改变OPC项的激活状态"
Top = 3960
Value = 1 'Checked
Width = 855
End
Begin VB.CommandButton OPCItemWriteButton
Caption = "写入数据"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 9
Left = 6360
TabIndex = 72
ToolTipText = "点击此处将“写入值”中的数据同步写入服务器"
Top = 6840
Width = 975
End
Begin VB.CommandButton OPCItemWriteButton
Caption = "写入数据"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 8
Left = 6360
TabIndex = 71
ToolTipText = "点击此处将“写入值”中的数据同步写入服务器"
Top = 6480
Width = 975
End
Begin VB.CommandButton OPCItemWriteButton
Caption = "写入数据"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 6360
TabIndex = 70
ToolTipText = "点击此处将“写入值”中的数据同步写入服务器"
Top = 6120
Width = 975
End
Begin VB.CommandButton OPCItemWriteButton
Caption = "写入数据"
Enabled = 0 'False
BeginProperty Font
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -