📄 通讯录.frm
字号:
VERSION 5.00
Begin VB.Form Form1
BackColor = &H00FFFF00&
BorderStyle = 0 'None
Caption = "B.C通讯录"
ClientHeight = 6450
ClientLeft = 2595
ClientTop = 1395
ClientWidth = 5760
FillColor = &H0080FF80&
ForeColor = &H00FFFFFF&
Icon = "通讯录.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "通讯录.frx":0442
ScaleHeight = 6450
ScaleWidth = 5760
ShowInTaskbar = 0 'False
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
DataField = "zhiwu"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 315
Index = 11
Left = 4200
TabIndex = 10
Text = " "
Top = 3240
Width = 1095
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
DataField = "name"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 315
Index = 0
Left = 840
TabIndex = 1
Top = 1380
Width = 1695
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
DataField = "gzdw"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 315
Index = 1
Left = 840
TabIndex = 9
Text = " "
Top = 3240
Width = 2415
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
DataField = "email"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 315
Index = 10
Left = 840
TabIndex = 11
Text = " "
Top = 3720
Width = 4455
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
DataField = "birstday"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 315
Index = 9
Left = 840
TabIndex = 3
Text = " "
Top = 1800
Width = 1695
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
DataField = "bp"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 315
Index = 8
Left = 840
TabIndex = 5
Text = " "
Top = 2280
Width = 1695
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
DataField = "youbian"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 315
Index = 7
Left = 4200
TabIndex = 8
Text = " "
Top = 2760
Width = 1095
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
DataField = "gx"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 315
Index = 6
Left = 3600
TabIndex = 2
Text = " "
Top = 1380
Width = 1695
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
DataField = "tel"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 315
Index = 5
Left = 3600
TabIndex = 4
Text = " "
Top = 1800
Width = 1695
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
DataField = "sj"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 315
Index = 4
Left = 3600
TabIndex = 6
Text = " "
Top = 2280
Width = 1695
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
DataField = "add"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 315
Index = 3
Left = 840
TabIndex = 7
Text = " "
Top = 2760
Width = 2415
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
DataField = "beizhu"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 1395
Index = 2
Left = 840
TabIndex = 12
Text = " "
Top = 4200
Width = 4455
End
Begin VB.Data Data1
BackColor = &H00C0FFFF&
Caption = "个人通讯录数据库"
Connect = "Access"
DatabaseName = "C:\程序之家\通讯录\通讯录\address.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
ForeColor = &H00FF0000&
Height = 375
Left = 1080
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "address"
Top = 720
Width = 3735
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = " 编辑"
ForeColor = &H00FF0000&
Height = 375
Left = 2160
TabIndex = 31
Top = 5880
Width = 735
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "职务"
ForeColor = &H00FF0000&
Height = 255
Left = 3720
TabIndex = 30
Top = 3360
Width = 375
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "工作单位"
ForeColor = &H00FF0000&
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -