📄 frmzbjl.frm
字号:
Tab(4).Control(20)= "Check9"
Tab(4).Control(21)= "Command25"
Tab(4).Control(22)= "Text25"
Tab(4).ControlCount= 23
TabCaption(5) = "定值变更"
TabPicture(5) = "frmzbjl.frx":00A1
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "Label52"
Tab(5).Control(1)= "Label53"
Tab(5).Control(2)= "Label54"
Tab(5).Control(3)= "Label55"
Tab(5).Control(4)= "Label64"
Tab(5).Control(5)= "Label65"
Tab(5).Control(6)= "Label66"
Tab(5).Control(7)= "Label67"
Tab(5).Control(8)= "Label88"
Tab(5).Control(9)= "Command19"
Tab(5).Control(10)= "Combo26"
Tab(5).Control(11)= "Combo29"
Tab(5).Control(12)= "Combo28"
Tab(5).Control(13)= "Combo27"
Tab(5).Control(14)= "Combo25"
Tab(5).Control(15)= "Combo24"
Tab(5).Control(16)= "Combo23"
Tab(5).Control(17)= "Combo22"
Tab(5).Control(18)= "Combo18"
Tab(5).Control(19)= "Combo19"
Tab(5).Control(20)= "Combo20"
Tab(5).Control(21)= "Combo21"
Tab(5).Control(22)= "DTPicker14"
Tab(5).Control(23)= "DTPicker15"
Tab(5).Control(24)= "Text1"
Tab(5).Control(25)= "Text2"
Tab(5).Control(26)= "Command18"
Tab(5).Control(27)= "Check12"
Tab(5).Control(28)= "Check13"
Tab(5).Control(29)= "Text27"
Tab(5).Control(30)= "Command27"
Tab(5).ControlCount= 31
TabCaption(6) = "停电通知"
TabPicture(6) = "frmzbjl.frx":00BD
Tab(6).ControlEnabled= 0 'False
Tab(6).Control(0)= "Label36"
Tab(6).Control(1)= "Label37"
Tab(6).Control(2)= "Label38"
Tab(6).Control(3)= "Label39"
Tab(6).Control(4)= "Label42"
Tab(6).Control(5)= "Label57"
Tab(6).Control(6)= "Label89"
Tab(6).Control(7)= "Label93"
Tab(6).Control(8)= "DTPicker9"
Tab(6).Control(9)= "DTPicker10"
Tab(6).Control(10)= "DTPicker11"
Tab(6).Control(11)= "Text13"
Tab(6).Control(12)= "Text14"
Tab(6).Control(13)= "Command20"
Tab(6).Control(14)= "Command21"
Tab(6).Control(15)= "Combo45"
Tab(6).Control(16)= "Combo51"
Tab(6).ControlCount= 17
TabCaption(7) = "拉闸限电"
TabPicture(7) = "frmzbjl.frx":00D9
Tab(7).ControlEnabled= 0 'False
Tab(7).Control(0)= "Label43"
Tab(7).Control(1)= "Label44"
Tab(7).Control(2)= "Label45"
Tab(7).Control(3)= "Label46"
Tab(7).Control(4)= "Label47"
Tab(7).Control(5)= "Label48"
Tab(7).Control(6)= "Label49"
Tab(7).Control(7)= "Label25"
Tab(7).Control(8)= "Label26"
Tab(7).Control(9)= "Label90"
Tab(7).Control(10)= "Label94"
Tab(7).Control(11)= "Command13"
Tab(7).Control(12)= "DTPicker13"
Tab(7).Control(13)= "Combo12"
Tab(7).Control(14)= "Combo13"
Tab(7).Control(15)= "Combo14"
Tab(7).Control(16)= "DTPicker12"
Tab(7).Control(17)= "Text16"
Tab(7).Control(18)= "Command12"
Tab(7).Control(19)= "Combo41"
Tab(7).Control(20)= "Combo42"
Tab(7).Control(21)= "Text26"
Tab(7).Control(22)= "Check10"
Tab(7).Control(23)= "Check11"
Tab(7).Control(24)= "Command26"
Tab(7).Control(25)= "Text15"
Tab(7).ControlCount= 26
TabCaption(8) = "其它"
TabPicture(8) = "frmzbjl.frx":00F5
Tab(8).ControlEnabled= 0 'False
Tab(8).Control(0)= "Command15"
Tab(8).Control(1)= "Command14"
Tab(8).Control(2)= "Text17"
Tab(8).Control(3)= "Label50"
Tab(8).ControlCount= 4
TabCaption(9) = "自动化"
TabPicture(9) = "frmzbjl.frx":0111
Tab(9).ControlEnabled= 0 'False
Tab(9).Control(0)= "Command8"
Tab(9).Control(1)= "Check15"
Tab(9).Control(2)= "Text30"
Tab(9).Control(3)= "Text29"
Tab(9).Control(4)= "Check14"
Tab(9).Control(5)= "Text28"
Tab(9).Control(6)= "DTPicker18"
Tab(9).Control(7)= "Combo47"
Tab(9).Control(8)= "Combo46"
Tab(9).Control(9)= "Label77"
Tab(9).Control(10)= "Label63"
Tab(9).Control(11)= "Label62"
Tab(9).Control(12)= "Label61"
Tab(9).Control(13)= "Label60"
Tab(9).Control(14)= "Label59"
Tab(9).Control(15)= "Label58"
Tab(9).ControlCount= 16
TabCaption(10) = "通信"
TabPicture(10) = "frmzbjl.frx":012D
Tab(10).ControlEnabled= 0 'False
Tab(10).Control(0)= "Command28"
Tab(10).Control(1)= "Check17"
Tab(10).Control(2)= "Text33"
Tab(10).Control(3)= "Text32"
Tab(10).Control(4)= "Check16"
Tab(10).Control(5)= "Text31"
Tab(10).Control(6)= "Combo49"
Tab(10).Control(7)= "Combo48"
Tab(10).Control(8)= "DTPicker19"
Tab(10).Control(9)= "Label78"
Tab(10).Control(10)= "Label76"
Tab(10).Control(11)= "Label75"
Tab(10).Control(12)= "Label74"
Tab(10).Control(13)= "Label73"
Tab(10).Control(14)= "Label72"
Tab(10).Control(15)= "Label71"
Tab(10).ControlCount= 16
Begin VB.TextBox Text34
BackColor = &H00C0C0C0&
ForeColor = &H00800000&
Height = 390
Left = -70560
TabIndex = 245
Text = "Text34"
Top = 840
Width = 1095
End
Begin VB.ComboBox Combo51
Height = 300
Left = -64920
TabIndex = 241
Text = "Combo51"
Top = 1680
Width = 1215
End
Begin VB.ComboBox Combo50
BackColor = &H00FFC0C0&
ForeColor = &H00800000&
Height = 300
Left = -74040
TabIndex = 240
Text = "Combo50"
Top = 2280
Width = 1215
End
Begin VB.CommandButton Command28
Caption = "添加"
Height = 375
Left = -65760
TabIndex = 227
Top = 2280
Width = 975
End
Begin VB.CheckBox Check17
Caption = "只写入值班记录"
ForeColor = &H00800000&
Height = 255
Left = -67560
TabIndex = 226
Top = 2040
Width = 2295
End
Begin VB.TextBox Text33
BackColor = &H00C0C0C0&
ForeColor = &H00800000&
Height = 615
Left = -74280
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 225
Text = "frmzbjl.frx":0149
Top = 2160
Width = 6495
End
Begin VB.TextBox Text32
BackColor = &H00C0C0C0&
ForeColor = &H00800000&
Height = 855
Left = -67920
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 222
Text = "frmzbjl.frx":0152
Top = 960
Width = 4095
End
Begin VB.CheckBox Check16
Caption = "Check14"
Height = 255
Left = -69120
TabIndex = 221
Top = 1560
Width = 255
End
Begin VB.TextBox Text31
ForeColor = &H00800000&
Height = 270
Left = -71160
TabIndex = 220
Text = "Text31"
Top = 1560
Width = 1935
End
Begin VB.ComboBox Combo49
ForeColor = &H00800000&
Height = 300
Left = -74040
TabIndex = 215
Text = "Combo49"
Top = 1320
Width = 1455
End
Begin VB.ComboBox Combo48
ForeColor = &H00800000&
Height = 300
Left = -74040
TabIndex = 214
Text = "Combo48"
Top = 960
Width = 1455
End
Begin VB.CommandButton Command8
Caption = "添加"
Height = 375
Left = -65760
TabIndex = 212
Top = 2280
Width = 975
End
Begin VB.CheckBox Check15
Caption = "只写入值班记录"
ForeColor = &H00800000&
Height = 255
Left = -67560
TabIndex = 211
Top = 2040
Width = 2295
End
Begin VB.TextBox Text30
BackColor = &H00C0C0C0&
ForeColor = &H00800000&
Height = 615
Left = -74280
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 210
Text = "frmzbjl.frx":015B
Top = 2160
Width = 6495
End
Begin VB.TextBox Text29
BackColor = &H00C0C0C0&
ForeColor = &H00800000&
Height = 855
Left = -67920
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 207
Text = "frmzbjl.frx":0162
Top = 960
Width = 4095
End
Begin VB.CheckBox Check14
Caption = "Check14"
Height = 255
Left = -69120
TabIndex = 206
Top = 1440
Width = 255
End
Begin VB.TextBox Text28
ForeColor = &H00800000&
Height = 270
Left = -71160
TabIndex = 205
Text = "Text28"
Top = 1440
Width = 1935
End
Begin MSComCtl2.DTPicker DTPicker18
Height = 255
Left = -71160
TabIndex = 203
Top = 960
Width = 1935
_ExtentX = 3413
_ExtentY = 450
_Version = 393216
CustomFormat = "yyyy-MM-dd hh:mm"
Format = 23592963
UpDown = -1 'True
CurrentDate = 37925
End
Begin VB.ComboBox Combo47
ForeColor = &H00800000&
Height = 300
Left = -73920
TabIndex = 201
Text = "Combo47"
Top = 1440
Width = 1455
End
Begin VB.ComboBox Combo46
ForeColor = &H00800000&
Height = 300
Left = -73920
TabIndex = 199
Text = "Combo46"
Top = 960
Width = 1455
End
Begin VB.ComboBox Combo45
Height = 300
Left = -67320
TabIndex = 197
Text = "Combo45"
Top = 1680
Width = 1215
End
Begin VB.ComboBox Combo44
BackColor = &H00FFC0C0&
ForeColor = &H00800000&
Height = 300
Left = 5040
TabIndex = 194
Text = "Combo44"
Top = 480
Width = 1095
End
Begin VB.CommandButton Command27
Caption = "调入记录"
Height = 375
Left = -64680
TabIndex = 193
Top = 360
Width = 1095
End
Begin VB.TextBox Text27
Height = 375
Left = -71520
TabIndex = 192
Text = "Text27"
Top = 960
Width = 2415
End
Begin VB.CheckBox Check13
Caption = "只写入值班记录"
Height = 255
Left = -65760
TabIndex = 191
Top = 960
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -