VB通讯录管理系统 第5页

End Sub

Private Sub yhcx_Click()
yhfind.Show
End Sub

Private Sub yhll_Click()
yhreview.Show
End Sub

Private Sub yhsc_Click()
yhdel.Show
End Sub

Private Sub zlll_Click()
review.Show
End Sub

Private Sub zlsc_Click()
del.Show
End Sub

Private Sub zlxg_Click()
zlbrowse.Show
End Sub

Private Sub zlyl_Click()
DataReport1.Show
End Sub

Private Sub zx_Click()
If MsgBox("您确实要注销吗?", vbYesNo + vbQuestion, "友情/系统—注销") = vbYes Then
        Unload Me
        load.Show
End If
End Sub5.3.1 系统菜单功能的实现

系统菜单功能中包括系统注销、和系统退出两个功能，用户可以根据需要选择相应的功能。
5.3.1.1　系统注销功能的实现
系统注销功能的界面图如下：
图5.3.1.1
 

在本界面中，用户通过注销，实现用户重新登录。详细代码如下：
Private Sub xt_Click()
If MsgBox("您确实要注销吗?", vbYesNo + vbQuestion, "友情/系统—注销") = vbYes Then
        Unload Me
        load.Show
End If
End Sub

5.3.1.2 退出功能的实现
系统退出功能的界面图如下：
图3.3.2
 
此功能主要是退出本系统。代码如下：
Private Sub xt_Click()
    If MsgBox("您确实要退出吗?", vbYesNo + vbQuestion, "友情系统—退出") = vbYes Then                                “对话框信息”
        End
    End If
End Sub
§5.3.2　管理功能的实现
在本功能界面中用户可以实现用户注册、资料添加、用户修改、资料修改、用户删除、资料删除等功能。
5.3.2.1 用户注册的功能实现
界面如下：
图5.3.2.1
 
在本界面中，用户通过输入用户名和密码后点击“确定”按钮来注册用户。在此界面中是通过一个Data数据控制项把用户名和密码添加到用户数据库中。点击“确定”按钮后系统就会把用户名和密码添加到数据库中。注册窗体的详细代码如下：
Private Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Form_Load()
Data1.DatabaseName = App.Path + "\db.mdb"End SubPrivate Sub Picture2_Click()

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