main1.frm
来自「小区巡逻管理靠请系统。需要硬件支持才可以工作」· FRM 代码 · 共 1,674 行 · 第 1/5 页
FRM
1,674 行
Strikethrough = 0 'False
EndProperty
Height = 960
Left = -66975
TabIndex = 12
Top = 4875
Width = 3060
Begin VB.ComboBox portsel
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
ItemData = "main1.frx":04FE
Left = 1365
List = "main1.frx":0508
TabIndex = 13
Text = "COM2"
Top = 315
Width = 1485
End
End
Begin TabDlg.SSTab systab
Height = 7455
Left = -75000
TabIndex = 21
Top = 450
Width = 7380
_ExtentX = 13018
_ExtentY = 13150
_Version = 393216
Tabs = 2
Tab = 1
TabsPerRow = 2
TabHeight = 741
TabMaxWidth = 4057
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "人员异动资料"
TabPicture(0) = "main1.frx":0518
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "DBGridmany"
Tab(0).Control(1)= "ImageList2"
Tab(0).Control(2)= "Toolbarman"
Tab(0).Control(3)= "Datamany"
Tab(0).ControlCount= 4
TabCaption(1) = "巡逻点异动资料"
TabPicture(1) = "main1.frx":0534
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Dataaddy"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Toolbaradd"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "DBGridaddy"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).ControlCount= 3
Begin MSDBGrid.DBGrid DBGridaddy
Bindings = "main1.frx":0550
Height = 5790
Left = 225
OleObjectBlob = "main1.frx":0567
TabIndex = 156
Top = 600
Width = 7065
End
Begin MSDBGrid.DBGrid DBGridmany
Bindings = "main1.frx":0F0C
Height = 5790
Left = -74775
OleObjectBlob = "main1.frx":0F23
TabIndex = 155
Top = 600
Width = 7065
End
Begin MSComctlLib.Toolbar Toolbaradd
Height = 510
Left = 825
TabIndex = 151
Top = 6525
Width = 4890
_ExtentX = 8625
_ExtentY = 900
ButtonWidth = 1720
ButtonHeight = 794
Appearance = 1
TextAlignment = 1
ImageList = "ImageList2"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 5
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "最 前"
Key = "movefirst"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "向 前"
Key = "moveprevious"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "向 后"
Key = "movenext"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "最 后"
Key = "movelast"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删 除"
Key = "delete"
ImageIndex = 5
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList2
Left = -68175
Top = 6525
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 24
ImageHeight = 24
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main1.frx":18C8
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main1.frx":1D1C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main1.frx":2170
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main1.frx":25C4
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main1.frx":2A18
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbarman
Height = 510
Left = -74025
TabIndex = 150
Top = 6450
Width = 4890
_ExtentX = 8625
_ExtentY = 900
ButtonWidth = 1720
ButtonHeight = 794
Appearance = 1
TextAlignment = 1
ImageList = "ImageList2"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 5
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "最 前"
Key = "movefirst"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "向 前"
Key = "moveprevious"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "向 后"
Key = "movenext"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "最 后"
Key = "movelast"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删 除"
Key = "delete"
ImageIndex = 5
EndProperty
EndProperty
End
Begin VB.Data Datamany
Caption = "人员异动资料"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 690
Left = -73350
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 6300
Visible = 0 'False
Width = 5040
End
Begin VB.Data Dataaddy
Caption = "巡逻点异动资料"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 615
Left = 150
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 6525
Visible = 0 'False
Width = 4965
End
End
Begin TabDlg.SSTab edittab
Height = 7440
Left = -75000
TabIndex = 65
Top = 450
Width = 11400
_ExtentX = 20108
_ExtentY = 13123
_Version = 393216
Tabs = 2
TabHeight = 741
TabMaxWidth = 2999
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "人员资料"
TabPicture(0) = "main1.frx":2B30
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "cdecideinputm"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame13"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Frame12"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Frame11"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Frame10"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Frame9"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Frame8"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Frame7"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Frame6"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Frame5"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Frame4"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "Frame3(0)"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "Frame2"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "txtnmem"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "txtidem"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "txttelem"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "txtbirem"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "txtaddem"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "txton"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "txtotherem"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "txtoff"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "dton"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "dtoff"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "dtbir"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).Control(24)= "Toolbarm"
Tab(0).Control(24).Enabled= 0 'False
Tab(0).Control(25)= "txtnameem"
Tab(0).Control(25).Enabled= 0 'False
Tab(0).Control(26)= "Combolsex"
Tab(0).Control(26).Enabled= 0 'False
Tab(0).Control(27)= "datacomman"
Tab(0).Control(27).Enabled= 0 'False
Tab(0).Control(28)= "txtpem"
Tab(0).Control(28).Enabled= 0 'False
Tab(0).Control(29)= "Dataman"
Tab(0).Control(29).Enabled= 0 'False
Tab(0).Control(30)= "printman"
Tab(0).Control(30).Enabled= 0 'False
Tab(0).ControlCount= 31
TabCaption(1) = "巡逻点资料"
TabPicture(1) = "main1.frx":2B4C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "reportadd"
Tab(1).Control(1)= "Dataadd"
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?