毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

VB通讯录管理系统 第4页

更新时间:2009-10-13:  来源:毕业论文
VB通讯录管理系统 第4页
 If Trim(Text2.Text) <> Trim(Text3.Text) Then
        MsgBox "两次输入密码不一样,请确认!", vbOKOnly + vbExclamation, "警告"
        Text2.SetFocus
        Text2.Text = ""
        Text3.Text = ""
        Exit Sub
ww.751com.cn
            Text3.Text = ""
        Else
            Data1.Recordset.AddNew
            Data1.Recordset.Fields("name") = Trim(Text1.Text)
            Data1.Recordset.Fields("passwd") = Trim(Text2.Text)
            Data1.Recordset.Update
            MsgBox "恭喜你,注册成功!", vbOKOnly + vbExclamation, "添加用户"
            Unload Me
        End If
    End If
 End Sub

Private Sub Picture3_Click()
Unload Me
End Sub

Private Sub Picture4_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text3.SetFocus
End Sub
当注册成功后,点击退出按钮,返回到登录界面。在登录界面中用户可以用注册的用户直接登录到通讯录
管理系统的菜单主界面中。
§5.3 系统菜单主界面的功能实现
系统功能界面图如下:
图5.3
 
功能界面中包括系统的所有功能,用户可以通过相应的选择来实现其功能。在工具栏中用户可以直接点击相应的快速运行按钮,就可以直接启动该功能。
系统主界面的代码如下:
Private Sub a_Click()
 about.Show
End Sub

Private Sub bz_Click()
Form1.Show
End Sub

Private Sub cx_Click()
find.Show
End Sub

Private Sub grzl_Click()
appe.Show
End Sub

Private Sub gy_Click()
Form2.Show
End Sub
Private Sub tc_Click()
   If MsgBox("您确实要退出吗?", vbYesNo + vbQuestion, "友情系统—退出") = vbYes Then
        End
    End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button
       Case "浏览"
            review.Show
       Case "资料修改"
            zlbrowse.Show
       Case "查询"
            find.Show
        Case "删除"
            del.Show
        Case "帮助"
           Form1.Show
        Case Else
             If MsgBox("您确实要退出吗?", vbYesNo + vbQuestion, "友情系统—退出") = vbYes Then
                End
             End If
  End Select
End SubPrivate Sub xg_Click()
browse.Show
End SubPrivate Sub yh_Click()
zhuce.Show
End Sub

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

VB通讯录管理系统 第4页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。