main1.frm
来自「小区巡逻管理靠请系统。需要硬件支持才可以工作」· FRM 代码 · 共 1,674 行 · 第 1/5 页
FRM
1,674 行
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 390
Left = 3450
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 2625
Visible = 0 'False
Width = 1140
End
Begin MSDBCtls.DBCombo selectkhman
Bindings = "main1.frx":04CE
DataSource = "datakhman"
Height = 450
Left = 375
TabIndex = 191
Top = 2775
Width = 3840
_ExtentX = 6773
_ExtentY = 794
_Version = 393216
Text = ""
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
End
Begin VB.TextBox Txtm
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 450
Left = 1650
TabIndex = 185
Top = 1200
Width = 2800
End
Begin VB.TextBox txtonkm
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 2550
Locked = -1 'True
TabIndex = 158
Top = 4350
Width = 1665
End
Begin VB.TextBox txtnamekm
Enabled = 0 'False
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 = 157
Top = 4350
Width = 1665
End
Begin VB.Frame Frame22
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 360
TabIndex = 58
Top = 240
Width = 3855
Begin VB.Label Label21
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 = 240
TabIndex = 59
Top = 240
Width = 3015
End
End
Begin VB.Frame Frame23
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 360
TabIndex = 56
Top = 1080
Width = 1200
Begin VB.Label Label22
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 = 285
Index = 0
Left = 140
TabIndex = 57
Top = 220
Width = 1000
End
End
Begin VB.Frame Frame24
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 360
TabIndex = 54
Top = 1800
Width = 3855
Begin VB.Label Label23
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 = 55
Top = 240
Width = 3375
End
End
Begin VB.Frame Frame25
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 360
TabIndex = 51
Top = 3360
Width = 3855
Begin VB.Label Label24
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 = 53
Top = 240
Width = 1455
End
Begin VB.Label Label25
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 = 1950
TabIndex = 52
Top = 240
Width = 1815
End
End
Begin VB.CommandButton cinfwritem
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 = 50
Top = 4950
Width = 3735
End
End
Begin VB.Frame hframe2
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5600
Left = -69000
TabIndex = 39
Top = 1800
Width = 4575
Begin MSDBCtls.DBCombo selectkhadd
Bindings = "main1.frx":04E6
DataSource = "datakhadd"
Height = 450
Left = 450
TabIndex = 192
Top = 2700
Width = 3765
_ExtentX = 6641
_ExtentY = 794
_Version = 393216
Text = ""
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
End
Begin VB.Data datakhadd
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 690
Left = 3600
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3150
Visible = 0 'False
Width = 1140
End
Begin VB.TextBox txtx
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 450
Left = 1650
TabIndex = 186
Top = 1200
Width = 2800
End
Begin VB.TextBox txtpakx
Enabled = 0 'False
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?