个人通讯录管理系统(vfp)

《个人通讯录管理系统(vfp)》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、数据库原理课程设计系别：计算机与信息工程系班级：05（2）学号：059080235姓名：吴召兵题目：个人通讯录管理系统指导教师：宋旸评分项目得分程序设计的实用性，通用性动手能力，创新精神总结报告答辩水平总分19摘要日益繁多的人际交往使得我们很难搞清楚与每个人之间的联系方式，特别是对于做经常出差的人来说更是难，所以通讯录能够便捷的给我们带来所需要的相关信息。而随着计算机的普及，人们的生活摆脱了传统式的记事本、电话簿，越来越多的靠计算机来帮助人们记住这些事情，极其简便。这就需要有一个使用的通讯录管理系统，用户可以方便的通过自己电脑的通讯录管理系统，来随时查阅自己所需要的信息，而不必再大费周折去翻开

2、那繁琐的记事本。通讯录管理系统是一个专门针对储存用户联系方式以及一些简单个人信息的实用管理系统，它方便了用户对众多客户、朋友、同事等个人信息的储存和快速查阅的功能，大大减少了查找过程的时间。19第一部分1．1设计构思通讯录管理系统功能需求分析：通讯录管理系统主要功能分为三个模块：用户登录、系统维护以用户登录：用户可通过用户名和密码登录。系统维护：包括对信息添加、删除、查找、修改，修改密码等操作1．2系统数据流图：浏览记录添加记录删除记录修改记录用户修改密码按姓名查询按地址查询按联系方式查询通讯录管理系统数据流图查询方式方、191．3功能结构图：个人通讯录管理系统登录窗口主窗口关于窗口系统功能结

3、构图1．4通用户部分功能图：用户浏览查找修改查询方式退出用户功能1．5开发及运行环境：本系统开发平台及运行环境如下：系统开发平台：MicrosoftVisualFoxPro运行平台：WindowsXP(SP2)/Windows2000(SP4)/WindowsServer2003(SP1)分辨率:最佳效果1024×768像素19第二部分详细设计：2.1.1界面设计如图2.1.2提供登陆通道，任何未登陆者不能对通讯录上的内容进行一系列的操作。192.1.3提供“浏览”、“添加记录”“修改”“删除”等功能。2.2设计思想2.2.1界面主要由登陆区、主窗口组成。登陆区是由用户名、密码两个文本框和“确

4、定”、“取消”两个命令按扭组成。“确定”按钮的代码如下：IFALLTRIM(thisform.txtUserName.Value)==''MessageBox("请输入用户名")RETURNENDIFIFALLTRIM(thisform.txtUserPwd.Value)==''MessageBox("请输入密码")RETURNENDIFSELECT用户表&&查找指定用户名为的记录LocateForAllt(用户名)=Allt(thisform.txtUserName.Value)19IfFound()==.T.&&如果找到IfAllt(密码)==Allt(thisform.txtUserPw

5、d.Value)&&比较密码，成功则进入MessageBox("欢迎光临",64,"提示信息")UserName=用户名UserType=用户类型releasethisformElse&&比较密码不成功MessageBox("密码不正确",16,"错误提示")EndifElse&&没有找到指定用户MessageBox("用户名不存在",16,"错误提示")Endif取消按钮的代码如下：RELEASEthisformONSHUTDOWNDoOnQuitquit2.2.2系统界面主要由王五个菜单项构成，分别是文件（只含退出命令）、用户密码修改、数据（浏览，添加记录，修改，删除）、查询（按姓名查询，

6、按住址查询，按联系方式查询）、帮助。2.2.3菜单各命令及表单的详细设计1、文件菜单下的退出命令退出命令的代码如下：setsysmenutodefaultclearevent2、用户密码修改菜单2.1)修改密码命令的代码：19Dofromfrmpwd2.2)修改密码表单界面及实现界面如下：“确定”按钮的详细代码如下：Ifthisform.txt用户名.Value=""MessageBox("用户名不存在",16,"提示")returnEndifIfALLTRIM(thisform.txtPwd.Value)!=ALLTRIM(thisform.txt密码.Value)MessageBox("密

7、码不正确",16,"提示")returnEndifIfALLTRIM(thisform.txtPwd1.Value)==""MessageBox("请输入新密码",16,"提示")returnEndifIfALLTRIM(thisform.txtPwd1.Value)!=ALLTRIM(thisform.txtPwd2.Value)MessageBox("新密码与确认密码不同",16,"提示")r