通讯录管理系统VB数据库课程设计Word下载.docx
《通讯录管理系统VB数据库课程设计Word下载.docx》由会员分享,可在线阅读,更多相关《通讯录管理系统VB数据库课程设计Word下载.docx(16页珍藏版)》请在冰豆网上搜索。
2013年09月09日
至2013年09月23日
得分项
百分比
得分
题目的新颖程度及难度
5
语言的难度及熟悉程度
设计结果(机器上验收)
60
设计文档
20
设计过程态度
10
总评(五级制)
一、课程设计目的
在日常生活中,通讯录是不可或缺的一个工具,它能准确记录我们所要联系的人的各种资料,方便我们和别人交流。
这个小小的系统设计可以帮助我更好的巩固学过的VB一级数据库方面的知识,让我学会如何可以简单的将前台与后台联系起来。
二、课程设计内容
随着计算机技术的发展,传统的笔记本式的通讯录已经落伍,设计这个程序就是为了更好地对自己经常联系的个人信息进行管理而产生,主要是针对个人信息的管理。
包括联系人的姓名、年龄、性别、工作单位、家庭住址,电话号码等等。
对这些信息可以通过输入认证密码来添加,删除,修改等管理操作。
三、软硬件环境及系统所采用的体系结构
(1)操作系统:
Windows7
(2)数据库系统:
MicrosoftSQLServer2008企业版
(3)体系结构:
系统的体系结构为C/S结构
(4)开发工具:
前台为VB,后台数据库为SQLServer
四、需求分析
本软件可以满足用户的基本要求,联系人查询,添加,修改,删除等功能因有尽有,而且通过账户名和密码可以更好的保护个人的隐私,从而加强程序的安全性。
五、系统设计
1,程序流程图
否
是
是
2,数据库设计
(1)系统E-R图
(2)逻辑模式
管理员登录(用户名密码)
联系人(姓名年龄手机生日籍贯QQEmail)
其中,波浪线为主键。
根据这些需要,本系统需要联系人表、密码表。
六、系统的实施
1,建立数据库结构
本设计使用的是MicrosoftSQLServer2008数据库。
程序中共应用了两张数据表,分别是“密码”数据表和“联系人”数据表。
这两张数据表的结构如表1和表2所示。
1密码数据表
该表主要用于管理员登录通讯录的权限,只有表中存在的用户才可以登录该系统。
2联系人数据表
联系人数据表主要用于浏览通讯录的详细信息,该数据表中记录着通信人的姓名、方式及非类信息等。
2,配置数据源
打开SQLServer企业管理器,配置连接,创建名为“TXL”的数据库。
创建数据库后,为数据库添加数据表,
测试成功:
3,程序设计
1登录界面
PrivateSubCommand1_Click()
DimcnAsADODB.Connection
DimrsAsADODB.Recordset
DimcmAsADODB.Command
Setcn=NewADODB.Connection
Setrs=NewADODB.Recordset
Setcm=NewADODB.Command
DimstrcnnAsString
strcnn="
driver={sqlserver};
server=(local);
database=TXL;
"
cn.Openstrcnn
cm.ActiveConnection=cn
strsql="
select*fromdlwherezh='
+Text1.Text+"
'
andmm='
+Text2.Text+"
Setrs=cn.Execute(strsql)
Ifrs.EOF=FalseThen
Form1.Show
UnloadMe
Else
MsgBox("
用户名或密码错误,请重新登录!
)
EndIf
EndSub
PrivateSubCommand2_Click()
End
PrivateSubForm_Load()
Text2.Text="
Text1.Text="
Text2.PasswordChar="
*"
PrivateSubPicture1_Click()
2主界面
PrivateSubmsquitsys_Click()
Form5.Show
PrivateSubmsstuinfo_Click()
Form3.Show
PrivateSubmsstuscore_Click()
Form4.Show
PrivateSubmsstusearch_Click()
Form2.Show
EndSub
3查询联系人页面
DimsqlstrAsString
sqlstr="
select*frompswherexm='
&
Text1&
"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.BOFThen
MsgBox"
对不起,您查找的联系人不存在!
Form2.Hide
4修改联系人页面
Adodc1.Recordset.AddNew
WithAdodc1.Recordset
Adodc1.Recordset.Fields("
xm"
)=Trim(Text1.Text)
age"
)=Trim(Text2.Text)
tel"
)=Trim(Text3.Text)
csrq"
)=Trim(Text4.Text)
jg"
)=Trim(Text5.Text)
qq"
)=Trim(Text6.Text)
dzyx"
)=Trim(Text7.Text)
IfText1.Text=Adodc1.Recordset.Fields("
)Then
添加成功!
Text1.SetFocus
该联系人已存在,不能重复添加!
Command1.Enabled=True
EndWith
DimresAsInteger
res=MsgBox("
是否要删除联系人"
+Adodc1.Recordset("
)+"
的记录!
vbExclamation+vbYesNo+vbDefaultButton2)
Ifres=vbYesThen
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOF=TrueThen
Adodc1.Recordset.MoveLast
PrivateSubCommand3_Click()
Adodc1.Recordset.Update
修改成功"
PrivateSubCommand4_Click()
Form3.Hide
在初始化程序时,通过ADO对象访问数据库“关系”表中的数据,从而实现导入联系人的数据信息。
七、系统评价及心得体会
经过两周的时间,完成了对通讯录的设计,经过多次程序的改进与调试,基本符合了老师提出的要求。
从最初的茫然,到慢慢进入状态,再到对思路的慢慢清晰,整个设计过程难以用语言表达。
遇到困难,我会觉得无从下手,通过查找资料最终解决了问题;
当困难解决了,我会觉得豁然开朗。
思路打开了;
当设计经过有一次次的修改后,我觉得很有成就感。
虽然此次设计圆满的完成了,但我深知,探求真知的路程永远不会结束。
而成才而言,则是一个漫长积累的过程,必须要执着进取,踏实奋斗,才有望品尝成功的喜悦。
总之,向着自己的目标前进,充实的过好每一天,只要无悔,便是成功。
而成才而言,则是一个漫长积累的过程,必须要执着进取,踏实奋斗,才有望品尝成功的喜悦人在不同的时期会有不同的观点和想法,但这只是形式上的改变,其基础却已深深扎根于思维深处,是再难总之,向着自己的目标前进,充实的过好每一天,只要无悔,便是成功。
总之,通过这次毕业设计的实践,提高我需要的知识、技能,素质,或是在实践中锻炼自己相关的素质,为将来进入社会打下良好的基础。
八、参考文献
《数据库系统原理与应用》孟彩霞编著
《VisualBasic程序设计语言》周元哲编著
九、附录:
源代码
登录页面