VB通讯录管理系统 第8页

VB通讯录管理系统 第8页
Private Sub Picture3_Click()
If MsgBox("是否真的删除！", 48, "提示") = vbOK Then
Data1.Recordset.Edit
Data1.Recordset.Update
Data1.Recordset.Delete
Data1.Recordset.MoveNext
ans = MsgBox("删除成功！", 48, "提示")
End If
End Sub

Private Sub Picture4_Click()
If Data1.Recordset.EOF Then
   ans = MsgBox("这已是最后一条", 48, "提示")
Else
   Data1.Recordset.MoveNext
End If
End Sub

Private Sub Picture5_Click()
If Data1.Recordset.BOF Then
    ans = MsgBox("这已是第一条", 48, "提示")
Else
    Data1.Recordset.MovePrevious
End If
End Sub

Private Sub Picture6_Click()
Data1.Recordset.MoveFirst
End Sub
5.3.3.6　资料删除功能的实现
资料删除功能的界面如下：
图5.3.3.6
此功能实现资料的删除功能。通过上一条、下一条、第一条和最后一条来确定要删除的信息，点击“删除”按钮，可删除。
信息删除窗体的相应代码如下：
Private Sub Picture1_Click()

End Sub

Private Sub Picture2_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub Picture3_Click()
If Data1.Recordset.BOF Then
    ans = MsgBox("这已是第一条", 48, "提示")
Else
    Data1.Recordset.MovePrevious
End If
End Sub

Private Sub Picture4_Click()
If Data1.Recordset.EOF Then
   ans = MsgBox("这已是最后一条", 48, "提示")
Else
   Data1.Recordset.MoveNext
End If
End Sub

Private Sub Picture5_Click()
Data1.Recordset.MoveLast
End Sub

Private Sub Picture6_Click()
If MsgBox("是否真的删除！", 48, "提示") = vbOK Then
Data1.Recordset.Edit
Data1.Recordset.Update
Data1.Recordset.Delete
Data1.Recordset.MoveNext
ans = MsgBox("删除成功！", 48, "提示")
End If
End Sub
5.3.4　通讯录信息菜单的功能实现
在本功能界面中用户可以实现用户浏览、资料浏览、用户查找、资料查找等功能。
5.3.4.1 用户浏览功能的实现
用户浏览功能的界面如下：
图5.3.4.1

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

VB通讯录管理系统 第8页下载如图片无法显示或论文不完整，请联系qq752018766