VB通讯录样本Word文件下载.docx

1、第二部分 详细设计： 82.1.1界面设计如图 . 82.1.2提供登陆通道 . 82.1.3提供“浏览”、“添加记录”“修改”“删除”等功能 . 92.1.4提供用户密码修改功能。 1.12.1 .5查询功能界面 122.2设计思想 . 132.2.1界面 132.2.2系统界面 14第三部分 菜单各命令及表单的详细设计 151 、文件菜单下的退出命令 152、 用户密码修改菜单 152.1）修改密码命令的代码： 152.2）修改密码表单界面及实现 153、数据菜单及各命令表单详细设计 173.1浏览命令及表单的实现 173.2添加记录命令及表单的实现 173.3修改命令及表单的实现 203

2、.4删除命令及表单的实现 244、查询菜单及各命令表单详细设计 264.1按姓名查询命令及表单的实现 264.2按地址查询命令及表单的实现 274.3按联系方式查询命令及表单的实现 29第四部分 总结 30摘要日益繁多的人际交往使得我们很难搞清楚与每个人之间的联系方式， 特 别是对于做经常出差的人来说更是难， 所以通讯录能够便捷的给我们带来所 需要的相关信息。而随着计算机的普及， 人们的生活摆脱了传统式的记事本、 电话簿，越来越多的靠计算机来帮助人们记住这些事情，极其简便。这就需 要有一个使用的通讯录管理系统， 用户可以方便的通过自己电脑的通讯录管 理系统，来随时查阅自己所需要的信息，而不必再

3、大费周折去翻开那繁琐的 记事本。通讯录管理系统是一个专门针对储存用户联系方式以及一些简单个人信息的实用 管理系统， 它方便了用户对众多客户、 朋友、同事等个人信息的储存和快速查阅的功能， 大大减少了查找过程的时间。第一部分11 设计构思通讯录管理系统功能需求分析： 通讯录管理系统主要功能分为三个模块：用户登录、系统维护以用户登 录：用户可通过用户名和密码登录。系统维护：包括对信息添加、删除、查找、修改，修改密码等操作1 . 2系统数据流图:图1-2 数据流程图1. 3功能结构图:图1-3功能结构图1 . 4通用户部分功能图：图1-4用户部分功能图1. 5数据字典：数据元素数据类型长度来源adm

4、 in_nochar8admi nistratoradmin _n ame20admin_passwordCollegue_ namecollegueCollegue_sex2Collegue_ageint4Collegue_compa ny10Family_sexfamilyFamily_ageFamily_pho ne15Family_address40Family_relati onFamily_ nameFrie nd_n amefriendFrie nd_sexFrie nd_ageFrie nd_ph oneFrie nd_address图1-5数据字典1 . 6E-R 图:图1-

5、6 E-R图1 . 5开发及运行环境:本系统开发平台及运行环境如下：系统开发平台：Microsoft Visual FoxPro运行平台： Windows XP （SP2） / Windows2000（SP4） / WindowsServer 2003（SP1）分辨率：最佳效果1024 X 768像素第二部分详细设计:2.1.1界面设计如图2.11 界面设计图2.1.2提供登陆通道任何未登陆者不能对通讯录上的内容进行一系列的操作2.12 登陆通道删除”等功能2.1.3 提供“浏览”、“添加记录”“修改”2.13数据浏览数据功能2.14数据浏览 添加记录功能2.15通讯录输入窗口 修改删除功能2

6、.16删除功能2.17用户密码修改2.1.5查询功能界面按姓名查询2.18姓名查询按住址查询2.19地址查询按联系方式查询2.10 通讯方式查询2.2 设计思想2.2.1界面主要由登陆区、主窗口组成。登陆区是由用户名、 密码两个文本框和“确定”、 “取消”两个命令按扭组成。“确定”按钮的代码如下：IF ALLTRIM（thisform.txtUserName.Value） = MessageBoxC请输入用户名）RETURNENDIFIF ALLTRIM（thisform.txtUserPwd.Value） = MessageBox（ 请输入密码 SELECT 用户表& 查找指定用户名为的记录

7、Locate For Allt（用户名）=Allt（thisform.txtUserName.Value）If Found（） = .T. & 如果找到If Allt（ 密码） = Allt（thisform.txtUserPwd.Value） & 比较密码，成功则进入欢迎光临,64,提示信息UserName = 用户名UserType = 用户类型release thisformElse & 比较密码不成功 密码不正确 , 16, 错误提示 Endif 没有找到指定用户用户名不存在,16,-错误提示取消按钮的代码如下：RELEASE thisformON SHUTDOWN Do OnQuit

8、quit2.2.2系统界面主要由王五个菜单项构成，分别是文件（只含退出命令） 、用户密码修改、 数据（浏览，添加记录，修改，删除） 、查询（按姓名查询，按住址查询， 按联系方式查询）、帮助。第三部分菜单各命令及表单的详细设计1、文件菜单下的退出命令退出命令的代码如下：set sysme nu to defaultclear eve nt2、用户密码修改菜单2.1）修改密码命令的代码:Do from frmpwd2.2）修改密码表单界面及实现界面如下:“确定”按钮的详细代码如下：If thisform.txt 用户名 .Value = MessageBoxC用户名不存在,16,提示returnI

9、f ALLTRIM（thisform.txtPwd.Value） != ALLTRIM（thisform.txt 密码 .Value）密码不正确If ALLTRIM（thisform.txtPwd1.Value） = 请输入新密码,16,-提示If ALLTRIM（thisform.txtPwd1.Value） != ALLTRIM（thisform.txtPwd2.Value）MessageBox（噺密码与确认密码不同 设置用户记录的密码thisform.txt 密码.Value = ALLTRIM（thisform.txtPwd1.Value）TableUpdate（.T.） & 保存缓冲

10、区中的数据release thisform & 关闭表单密码已经成功修改，请在下次登录时使用新密码 3、数据菜单及各命令表单详细设计3.1浏览命令及表单的实现（1） 浏览命令的实现代码如下:Do from浏览（2） 浏览表单的界面3.2添加记录命令及表单的实现（1） 浏览命令的实现代码如下：（2） 添加记录表单的界面及详细代码“增加”按钮代码如下“in sert bla nkthisform.txt 编号.value=str（recno（）,4,0） jtdz=thisform.txt 家庭地址.value xm=thisform.txt 姓名.value bhdh=thisform.txt

11、办公电话.value xb=thisform.txt 性另S .value qq=thisform.txtqq.value email=thisform.txte_mail.value zzdh=thisform.txt 住宅电话.value bz=thisform.txt 备注.value sj=thisform.txt 手机.value xlt=thisform.txt 小灵通.valuethisform.refresh“保存”按钮代码如下“if empty（xm）messagebox（姓名不能为空！elsego 1locate next recno（ ）-1 for 姓名 =xmif f

12、ound（ ）if messagebox（记录已经存在，是否替换？ ,1+48,警告）=1replace 通讯录 .家庭地址 with jtdz;通讯录 .姓名 with xm, 通讯录 .办公电话 with bgdh;通讯录 .性别 with xb, 通讯录 .qq with qq;通讯录 .e_mail with email,;通讯录 .住宅电话 with zzdh, 通讯录 .备注 with bz;通讯录 .手机 with sj;通讯录 .小灵通 with xltendifrepl 通讯录 .家庭地址 with jtdz;通讯录 .手机 with sj, 通讯录 .小灵通 with xlt endif en dif“浏览”按钮代码如下do form浏览 thisform.release“退出”按钮代码如