通讯录管理系统 VB数据库课程设计.docx
- 文档编号:11277741
- 上传时间:2023-02-26
- 格式:DOCX
- 页数:18
- 大小:2.04MB
通讯录管理系统 VB数据库课程设计.docx
《通讯录管理系统 VB数据库课程设计.docx》由会员分享,可在线阅读,更多相关《通讯录管理系统 VB数据库课程设计.docx(18页珍藏版)》请在冰豆网上搜索。
通讯录管理系统VB数据库课程设计
西安郵電大學
综合应用软件课程设计报告
题目:
通讯录管理系统
学院名称
:
计算机学院
专业名称
:
计算机科学与技术
班级
:
计科1102
学号
:
04111043(7)
学生姓名
:
杨康
指导教师
:
孟彩霞
时间
:
2013年09月09日
至2013年09月23日
得分项
百分比
得分
题目的新颖程度及难度
5
语言的难度及熟悉程度
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
EndSub
PrivateSubForm_Load()
Text2.Text=""
Text1.Text=""
Text2.PasswordChar="*"
EndSub
PrivateSubPicture1_Click()
EndSub
2主界面
PrivateSubmsquitsys_Click()
Form5.Show
EndSub
PrivateSubmsstuinfo_Click()
Form3.Show
EndSub
PrivateSubmsstuscore_Click()
Form4.Show
EndSub
PrivateSubmsstusearch_Click()
Form2.Show
EndSub
PrivateSubPicture1_Click()
EndSub
3查询联系人页面
PrivateSubCommand1_Click()
DimsqlstrAsString
sqlstr="select*frompswherexm='"&Text1&"'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.BOFThen
MsgBox"对不起,您查找的联系人不存在!
"
EndIf
EndSub
PrivateSubCommand2_Click()
Form2.Hide
Form1.Show
EndSub
4修改联系人页面
PrivateSubCommand1_Click()
Adodc1.Recordset.AddNew
WithAdodc1.Recordset
Adodc1.Recordset.Fields("xm")=Trim(Text1.Text)
Adodc1.Recordset.Fields("age")=Trim(Text2.Text)
Adodc1.Recordset.Fields("tel")=Trim(Text3.Text)
Adodc1.Recordset.Fields("csrq")=Trim(Text4.Text)
Adodc1.Recordset.Fields("jg")=Trim(Text5.Text)
Adodc1.Recordset.Fields("qq")=Trim(Text6.Text)
Adodc1.Recordset.Fields("dzyx")=Trim(Text7.Text)
IfText1.Text=Adodc1.Recordset.Fields("xm")Then
MsgBox"添加成功!
"
Text1.Text=""
Text1.SetFocus
Else
MsgBox"该联系人已存在,不能重复添加!
"
Command1.Enabled=True
Command1.Enabled=True
EndIf
EndWith
EndSub
PrivateSubCommand2_Click()
DimresAsInteger
res=MsgBox("是否要删除联系人"+Adodc1.Recordset("xm")+"的记录!
",vbExclamation+vbYesNo+vbDefaultButton2)
Ifres=vbYesThen
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOF=TrueThen
Adodc1.Recordset.MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand3_Click()
WithAdodc1.Recordset
Adodc1.Recordset.Fields("xm")=Trim(Text1.Text)
Adodc1.Recordset.Fields("age")=Trim(Text2.Text)
Adodc1.Recordset.Fields("tel")=Trim(Text3.Text)
Adodc1.Recordset.Fields("csrq")=Trim(Text4.Text)
Adodc1.Recordset.Fields("jg")=Trim(Text5.Text)
Adodc1.Recordset.Fields("qq")=Trim(Text6.Text)
Adodc1.Recordset.Fields("dzyx")=Trim(Text7.Text)
Adodc1.Recordset.Update
MsgBox"修改成功"
EndWith
EndSub
PrivateSubCommand4_Click()
Form3.Hide
Form1.Show
EndSub
在初始化程序时,通过ADO对象访问数据库“关系”表中的数据,从而实现导入联系人的数据信息。
七、系统评价及心得体会
经过两周的时间,完成了对通讯录的设计,经过多次程序的改进与调试,基本符合了老师提出的要求。
从最初的茫然,到慢慢进入状态,再到对思路的慢慢清晰,整个设计过程难以用语言表达。
遇到困难,我会觉得无从下手,通过查找资料最终解决了问题;当困难解决了,我会觉得豁然开朗。
思路打开了;当设计经过有一次次的修改后,我觉得很有成就感。
虽然此次设计圆满的完成了,但我深知,探求真知的路程永远不会结束。
而成才而言,则是一个漫长积累的过程,必须要执着进取,踏实奋斗,才有望品尝成功的喜悦。
总之,向着自己的目标前进,充实的过好每一天,只要无悔,便是成功。
而成才而言,则是一个漫长积累的过程,必须要执着进取,踏实奋斗,才有望品尝成功的喜悦人在不同的时期会有不同的观点和想法,但这只是形式上的改变,其基础却已深深扎根于思维深处,是再难总之,向着自己的目标前进,充实的过好每一天,只要无悔,便是成功。
总之,通过这次毕业设计的实践,提高我需要的知识、技能,素质,或是在实践中锻炼自己相关的素质,为将来进入社会打下良好的基础。
八、参考文献
《数据库系统原理与应用》孟彩霞编著
《VisualBasic程序设计语言》周元哲编著
九、附录:
源代码
登录页面
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
EndSub
PrivateSubForm_Load()
Text2.Text=""
Text1.Text=""
Text2.PasswordChar="*"
EndSub
PrivateSubPicture1_Click()
EndSub
主界面
PrivateSubmsquitsys_Click()
Form5.Show
EndSub
PrivateSubmsstuinfo_Click()
Form3.Show
EndSub
PrivateSubmsstuscore_Click()
Form4.Show
EndSub
PrivateSubmsstusearch_Click()
Form2.Show
EndSub
PrivateSubPicture1_Click()
EndSub
查询页面
PrivateSubCommand1_Click()
DimsqlstrAsString
sqlstr="select*frompswherexm='"&Text1&"'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.BOFThen
MsgBox"对不起,您查找的联系人不存在!
"
EndIf
EndSub
PrivateSubCommand2_Click()
Form2.Hide
Form1.Show
EndSub
修改页面
PrivateSubCommand1_Click()
Adodc1.Recordset.AddNew
WithAdodc1.Recordset
Adodc1.Recordset.Fields("xm")=Trim(Text1.Text)
Adodc1.Recordset.Fields("age")=Trim(Text2.Text)
Adodc1.Recordset.Fields("tel")=Trim(Text3.Text)
Adodc1.Recordset.Fields("csrq")=Trim(Text4.Text)
Adodc1.Recordset.Fields("jg")=Trim(Text5.Text)
Adodc1.Recordset.Fields("qq")=Trim(Text6.Text)
Adodc1.Recordset.Fields("dzyx")=Trim(Text7.Text)
IfText1.Text=Adodc1.Recordset.Fields("xm")Then
MsgBox"添加成功!
"
Text1.Text=""
Text1.SetFocus
Else
MsgBox"该联系人已存在,不能重复添加!
"
Command1.Enabled=True
Command1.Enabled=True
EndIf
EndWith
EndSub
PrivateSubCommand2_Click()
DimresAsInteger
res=MsgBox("是否要删除联系人"+Adodc1.Recordset("xm")+"的记录!
",vbExclamation+vbYesNo+vbDefaultButton2)
Ifres=vbYesThen
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOF=TrueThen
Adodc1.Recordset.MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand3_Click()
WithAdodc1.Recordset
Adodc1.Recordset.Fields("xm")=Trim(Text1.Text)
Adodc1.Recordset.Fields("age")=Trim(Text2.Text)
Adodc1.Recordset.Fields("tel")=Trim(Text3.Text)
Adodc1.Recordset.Fields("csrq")=Trim(Text4.Text)
Adodc1.Recordset.Fields("jg")=Trim(Text5.Text)
Adodc1.Recordset.Fields("qq")=Trim(Text6.Text)
Adodc1.Recordset.Fields("dzyx")=Trim(Text7.Text)
Adodc1.Recordset.Update
MsgBox"修改成功"
EndWith
EndSub
PrivateSubCommand4_Click()
Form3.Hide
Form1.Show
EndSub
退出系统页面
PrivateSubForm_Load()
Form1.Hide
EndSub
PrivateSubPicture1_Click()
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 通讯录管理系统 VB数据库课程设计 通讯录 管理 系统 VB 数据库 课程设计