VB通讯录样本.docx
《VB通讯录样本.docx》由会员分享,可在线阅读,更多相关《VB通讯录样本.docx(18页珍藏版)》请在冰豆网上搜索。
VB通讯录样本
管理信息系统
课程设计报告
设计题目:
个人通讯录系统分析与设计
班
级管111
学
号3110511012
姓
名刘兴
指导教师张鹏/杜占河
貶场銘丿A字
第一部分3
1.1设计构思.3
1.2系统数据流图:
.4
1.3功能结构图:
.5
1.4通用户部分功能图:
.5
1.5数据字典:
.5
1.6E-R图:
6
1.5开发及运行环境:
.7
第二部分详细设计:
8
2.1.1界面设计如图.8
2.1.2提供登陆通道.8
2.1.3提供“浏览”、“添加记录”“修改”“删除”等功能.9
2.1.4提供用户密码修改功能。
1..1
2.1.5查询功能界面12
2.2设计思想.13
2.2.1界面13
2.2.2系统界面14
第三部分菜单各命令及表单的详细设计15
1、文件菜单下的退出命令15
2、用户密码修改菜单15
2.1)修改密码命令的代码:
15
2.2)修改密码表单界面及实现15
3、数据菜单及各命令表单详细设计17
3.1浏览命令及表单的实现17
3.2添加记录命令及表单的实现17
3.3修改命令及表单的实现20
3.4删除命令及表单的实现24
4、查询菜单及各命令表单详细设计26
4.1按姓名查询命令及表单的实现26
4.2按地址查询命令及表单的实现27
4.3按联系方式查询命令及表单的实现29
第四部分总结30
摘要
日益繁多的人际交往使得我们很难搞清楚与每个人之间的联系方式,特别是对于做经常出差的人来说更是难,所以通讯录能够便捷的给我们带来所需要的相关信息。
而随着计算机的普及,人们的生活摆脱了传统式的记事本、电话簿,越来越多的靠计算机来帮助人们记住这些事情,极其简便。
这就需要有一个使用的通讯录管理系统,用户可以方便的通过自己电脑的通讯录管理系统,来随时查阅自己所需要的信息,而不必再大费周折去翻开那繁琐的记事本。
通讯录管理系统是一个专门针对储存用户联系方式以及一些简单个人信息的实用管理系统,它方便了用户对众多客户、朋友、同事等个人信息的储存和快速查阅的功能,大大减少了查找过程的时间。
第一部分
1.1设计构思
通讯录管理系统功能需求分析:
通讯录管理系统主要功能分为三个模块:
用户登录、系统维护以用户登录:
用户可通过用户名和密码登录。
系统维护:
包括对信息添加、删除、查找、修改,修改密码等操作
1.2系统数据流图:
图1-2数据流程图
1.3功能结构图:
图1-3功能结构图
1.4通用户部分功能图:
图1-4用户部分功能图
1.5数据字典:
数据元素
数据类型
长度
来源
admin_no
char
8
administrator
admin_name
char
20
administrator
admin_password
char
20
administrator
Collegue_name
char
20
collegue
Collegue_sex
char
2
collegue
Collegue_age
int
4
collegue
Collegue_company
char
10
collegue
Family_sex
char
10
family
Family_age
int
4
family
Family_phone
char
15
family
Family_address
char
40
family
Family_relation
char
10
family
Family_name
char
20
family
Friend_name
char
8
friend
Friend_sex
char
20
friend
Friend_age
int
4
friend
Friend_phone
char
15
friend
Friend_address
char
20
friend
图1-5数据字典
1.6E-R图:
图1-6E-R图
1.5开发及运行环境:
本系统开发平台及运行环境如下:
系统开发平台:
MicrosoftVisualFoxPro
运行平台:
WindowsXP(SP2)/Windows2000(SP4)/WindowsServer2003
(SP1)
分辨率:
最佳效果1024X768像素
第二部分详细设计:
2.1.1界面设计如图
2.11界面设计图
2.1.2提供登陆通道
任何未登陆者不能对通讯录上的内容进行一系列的操作
2.12登陆通道
删除”等功能
2.1.3提供“浏览”、“添加记录”“修改”
2.13
数据浏览
数据功能
2.14数据浏览添加记录功能
2.15通讯录输入窗口修改删除功能
2.16删除功能
2.1.4提供用户密码修改功能。
2.17用户密码修改
2.1.5查询功能界面
按姓名查询
2.18姓名查询
按住址查询
2.19地址查询
按联系方式查询
2.10通讯方式查询
2.2设计思想
2.2.1界面
主要由登陆区、主窗口组成。
登陆区是由用户名、密码两个文本框和“确定”、“取消”两个命令按扭组成。
“确定”按钮的代码如下:
IFALLTRIM(thisform.txtUserName.Value)==''
MessageBoxC请输入用户名")
RETURN
ENDIF
IFALLTRIM(thisform.txtUserPwd.Value)==''
MessageBox("请输入密码")
RETURN
ENDIF
SELECT用户表
&&查找指定用户名为的记录
LocateForAllt(用户名)=Allt(thisform.txtUserName.Value)
IfFound()==.T.&&如果找到
IfAllt(密码)==Allt(thisform.txtUserPwd.Value)&&比较密码,成功则进入
MessageBox("欢迎光临",64,"提示信息")
UserName=用户名
UserType=用户类型
releasethisform
Else&&比较密码不成功
MessageBox("密码不正确",16,"错误提示")
Endif
Else&&没有找到指定用户
MessageBox("用户名不存在",16,-错误提示")
Endif
取消按钮的代码如下:
RELEASEthisform
ONSHUTDOWNDoOnQuit
quit
2.2.2系统界面
主要由王五个菜单项构成,分别是文件(只含退出命令)、用户密码修改、数据(浏览,添加记录,修改,删除)、查询(按姓名查询,按住址查询,按联系方式查询)、帮助。
第三部分菜单各命令及表单的详细设计
1、文件菜单下的退出命令
退出命令的代码如下:
setsysmenutodefault
clearevent
2、用户密码修改菜单
2.1)修改密码命令的代码:
Dofromfrmpwd
2.2)修改密码表单界面及实现
界面如下:
“确定”按钮的详细代码如下:
Ifthisform.txt用户名.Value=""
MessageBoxC用户名不存在",16,"提示")
return
Endif
IfALLTRIM(thisform.txtPwd.Value)!
=ALLTRIM(thisform.txt密码.Value)
MessageBox("密码不正确",16,"提示")
return
Endif
IfALLTRIM(thisform.txtPwd1.Value)==""
MessageBox("请输入新密码",16,-提示")
return
Endif
IfALLTRIM(thisform.txtPwd1.Value)!
=ALLTRIM(thisform.txtPwd2.Value)
MessageBox(噺密码与确认密码不同",16,"提示")
return
Endif
&&设置用户记录的密码
thisform.txt密码.Value=ALLTRIM(thisform.txtPwd1.Value)
TableUpdate(.T.)&&保存缓冲区中的数据
releasethisform&&关闭表单
MessageBox("密码已经成功修改,请在下次登录时使用新密码")
3、数据菜单及各命令表单详细设计
3.1浏览命令及表单的实现
(1)浏览命令的实现代码如下:
Dofrom浏览
(2)浏览表单的界面
3.2添加记录命令及表单的实现
(1)浏览命令的实现代码如下:
Dofrom浏览
(2)添加记录表单的界面及详细代码
“增加”按钮代码如下“
insertblank
thisform.txt编号.value=str(recno(),4,0)jtdz=thisform.txt家庭地址.valuexm=thisform.txt姓名.valuebhdh=thisform.txt办公电话.valuexb=thisform.txt性另S.valueqq=thisform.txtqq.valueemail=thisform.txte_mail.valuezzdh=thisform.txt住宅电话.valuebz=thisform.txt备注.valuesj=thisform.txt手机.valuexlt=thisform.txt小灵通.value
thisform.refresh
“保存”按钮代码如下“
ifempty(xm)
messagebox(姓名不能为空!
")
else
go1
locatenextrecno()-1for姓名==xm
iffound()
ifmessagebox('记录已经存在,是否替换?
",1+48,"警告")=1
replace通讯录.家庭地址withjtdz;
通讯录.姓名withxm,通讯录.办公电话withbgdh;
通讯录.性别withxb,通讯录.qqwithqq;
通讯录.e_mailwithemail,;
通讯录.住宅电话withzzdh,通讯录.备注withbz;
通讯录.手机withsj;
通讯录.小灵通withxlt
endif
else
repl通讯录.家庭地址withjtdz;
通讯录.姓名withxm,通讯录.办公电话withbgdh;
通讯录.性别withxb,通讯录.qqwithqq;
通讯录.e_mailwithemail,;
通讯录.住宅电话withzzdh,通讯录.备注withbz;
通讯录.手机withsj,通讯录.小灵通withxltendifendif
“浏览”按钮代码如下
doform浏览thisform.release
“退出”按钮代码如