进阶篇 共28页[1 2 3 4 5 6 7 >»<.. 最后一页]

实例创建通讯录

    实例创建通讯录

本实例是对前例的完善，将Data控件的Visible属性设置为False，使之在运行时不可见，而以按钮来操作数据库，使得界面更友好。并且在该程序中能执行添加、删除与查找记录的操作。

在窗体上再放置5个按钮控件、1个组合框控件和1个 文本框控件，运行界面（其中隐藏了Data1）如下：

代码如下：

Private Sub ComAdd_Click()
If ComAdd.Caption = "确定" Then
On Error GoTo errorhandler
Data1.UpdateRecord
Data1.Recordset.MoveFirst
ComPrev.Enabled = True
ComNext.Enabled = True
ComDel.Enabled = True
ComFind.Enabled = True
ComAdd.Caption = "添加"
Else
Data1.Recordset.AddNew
ComAdd.Caption = "确定"
ComPrev.Enabled = False
ComNext.Enabled = False
ComDel.Enabled = False
ComFind.Enabled = False
End If
Exit Sub
errorhandler:
If Err.Number = 524 Then
MsgBox "该记录已存在！", 48, "警告"
End If
End Sub

Private Sub ComDel_Click()
Dim i As Integer
i = MsgBox("真要删除记录吗?", 52, "警告")
If i = 6 Then
Data1.Recordset.Delete
Data1.Refresh
End If
End Sub

Private Sub ComFind_Click()
If TexFind.Text = "" Then
MsgBox "请输入查询内容！", 48, "提示"
Exit Sub
End If
If CobFind.Text = "姓名" Then
Data1.Recordset.FindFirst "姓名=" & "'" & TexFind.Text & "'"
ElseIf CobFind.Text = "电话" Then
Data1.Recordset.FindFirst "电话=" & "'" & TexFind.Text & "'"
ElseIf CobFind.Text = "地址" Then
Data1.Recordset.FindFirst "地址=" & "'" & TexFind.Text & "'"
ElseIf CobFind.Text = "手机" Then
Data1.Recordset.FindFirst "手机=" & "'" & TexFind.Text & "'"
ElseIf CobFind.Text = "传呼" Then
Data1.Recordset.FindFirst "传呼=" & "'" & TexFind.Text & "'"
End If
If Data1.Recordset.NoMatch Then
MsgBox "记录不存在！", 64, "提示"
End If
End Sub

Private Sub ComNext_Click()
Data1.Recordset.MoveNext
ComPrev.Enabled = True
If Data1.Recordset.BOF Then
Data1.Recordset.MoveLast
ComNext.Enabled = False
End If
End Sub

Private Sub ComPrev_Click()
Data1.Recordset.MovePrevious
ComNext.Enabled = True
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
ComPrev.Enabled = False
End If
End Sub

Private Sub Form_Load()
CobFind.AddItem "姓名"
CobFind.AddItem "电话"
CobFind.AddItem "地址"
CobFind.AddItem "手机"
CobFind.AddItem "传呼"
CobFind.Text = "姓名"
End Sub
对象设置如下：