main1.frm
来自「小区巡逻管理靠请系统。需要硬件支持才可以工作」· FRM 代码 · 共 1,674 行 · 第 1/5 页
FRM
1,674 行
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 375
Locked = -1 'True
TabIndex = 159
Top = 4350
Width = 3840
End
Begin VB.Frame Frame19
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 360
TabIndex = 47
Top = 240
Width = 3855
Begin VB.Label Label26
Alignment = 2 'Center
Caption = "巡 逻 点 资 料"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 48
Top = 240
Width = 3615
End
End
Begin VB.Frame Frame20
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 360
TabIndex = 45
Top = 1080
Width = 1200
Begin VB.Label Label27
Alignment = 2 'Center
Caption = "内 码"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 46
Top = 240
Width = 1000
End
End
Begin VB.Frame Frame21
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 360
TabIndex = 43
Top = 1800
Width = 3855
Begin VB.Label Label28
Alignment = 2 'Center
Caption = "选 择 系 统 卡 号"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 44
Top = 240
Width = 3615
End
End
Begin VB.Frame Frame26
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 360
TabIndex = 41
Top = 3360
Width = 3855
Begin VB.Label Label29
Alignment = 2 'Center
Caption = "安置地点"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 42
Top = 240
Width = 3615
End
End
Begin VB.CommandButton cinfwritex
Caption = "资 料 写 入"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 580
Left = 375
TabIndex = 40
Top = 4950
Width = 3855
End
End
Begin VB.Frame Frame27
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6980
Left = 210
TabIndex = 25
Top = 525
Width = 2640
Begin VB.Frame Frame28
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 645
Left = 210
TabIndex = 37
Top = 210
Width = 2010
Begin VB.Label Label30
Alignment = 2 'Center
Caption = "读入手机资料"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 105
TabIndex = 38
Top = 210
Width = 1800
End
End
Begin VB.CommandButton cstartread
Caption = "开始手机读入"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 540
Left = 210
TabIndex = 1
Top = 945
Width = 2010
End
Begin VB.Frame Frame29
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 645
Left = 210
TabIndex = 35
Top = 1470
Width = 2010
Begin VB.Label reading
Alignment = 2 'Center
Caption = "读 入 中"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 105
TabIndex = 36
Top = 210
Width = 1800
End
End
Begin VB.Frame Frame30
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 645
Left = 210
TabIndex = 33
Top = 2205
Width = 2010
Begin VB.Label nownumber
Alignment = 2 'Center
Caption = "目 前 笔 数"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 105
TabIndex = 34
Top = 210
Width = 1800
End
End
Begin VB.TextBox txtcount
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 435
Left = 210
TabIndex = 32
Top = 2940
Width = 2010
End
Begin VB.Frame Frame31
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 645
Left = 210
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?