📄 addressbook.frm
字号:
Width = 2295
End
Begin VB.TextBox Text1
DataField = "其他电话"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 4
Left = 1440
TabIndex = 5
Top = 2280
Width = 2055
End
Begin VB.TextBox Text1
DataField = "工作电话"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 3
Left = 1440
TabIndex = 4
Top = 1800
Width = 2055
End
Begin VB.TextBox Text1
DataField = "家庭电话"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 1440
TabIndex = 3
Top = 1320
Width = 2055
End
Begin VB.TextBox Text1
DataField = "姓名"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Index = 1
Left = 1080
TabIndex = 2
Top = 645
Width = 1935
End
Begin VB.TextBox Text1
DataField = "ID"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Index = 0
Left = 120
TabIndex = 1
Top = 645
Width = 855
End
Begin VB.Label Label1
Caption = "邮政编码"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 6
Left = 11160
TabIndex = 63
Top = 720
Width = 1215
End
Begin VB.Label Label4
Caption = "恢复"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 255
Left = 5280
TabIndex = 61
Top = 720
Width = 615
End
Begin VB.Label Label3
Alignment = 2 'Center
Caption = "高亮显示"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 4200
TabIndex = 60
Top = 720
Width = 1095
End
Begin VB.Line Line1
X1 = 120
X2 = 14880
Y1 = 1200
Y2 = 1200
End
Begin VB.Label Label1
Caption = "其他电话"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 120
TabIndex = 56
Top = 2280
Width = 1215
End
Begin VB.Label Label1
Caption = "工作电话"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 120
TabIndex = 55
Top = 1800
Width = 1215
End
Begin VB.Label Label1
Caption = "分组"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 11
Left = 3120
TabIndex = 21
Top = 360
Width = 615
End
Begin VB.Label Label1
Caption = "联系地址"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 10
Left = 5880
TabIndex = 20
Top = 720
Width = 1215
End
Begin VB.Label Label1
Caption = "电子邮件"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 8
Left = 7680
TabIndex = 19
Top = 1320
Width = 1215
End
Begin VB.Label Label1
Caption = "传真"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 4320
TabIndex = 18
Top = 2280
Width = 615
End
Begin VB.Label Label1
Caption = "移动电话"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 3720
TabIndex = 17
Top = 1320
Width = 1215
End
Begin VB.Label Label1
Caption = "家庭电话"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 120
TabIndex = 16
Top = 1320
Width = 1215
End
Begin VB.Label Label1
Caption = "姓名"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 1080
TabIndex = 15
Top = 360
Width = 615
End
Begin VB.Label Label1
Caption = "ID"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 120
TabIndex = 14
Top = 360
Width = 375
End
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "D:\程序\AddressBook\address97.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 5880
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "address"
Top = 11040
Visible = 0 'False
Width = 2535
End
Begin VB.Menu d
Caption = "文件"
Begin VB.Menu d1
Caption = "退出"
End
End
Begin VB.Menu p
Caption = "打印"
Begin VB.Menu p1
Caption = "打印当前"
End
End
End
Attribute VB_Name = "AddressBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim search, s1, s2, s3, s4, s5, s6, s7, s8, s9, e10 As String
Dim selection, e1, e2, e3, e4, e5, e6, e7, e8, e9 As String
Dim DBSource As String
Private Sub Check1_Click(Index As Integer)
On Error GoTo Handcheck
selection = ""
If Check1(0).Value = 1 Then
If selection <> "" Then
e1 = ",家庭电话"
Else
e1 = "ID,姓名,家庭电话"
End If
selection = selection + e1
End If
If Check1(1).Value = 1 Then
If selection <> "" Then
e2 = ",工作电话"
Else
e2 = "ID,姓名,工作电话"
End If
selection = selection + e2
End If
If Check1(2).Value = 1 Then
If selection <> "" Then
e3 = ",其他电话"
Else
e3 = "ID,姓名,其他电话"
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -