通讯录管理系统-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联系人数据表联系人数据表主要用于浏览通讯录的详细信息，该数据表中记录着通信人的姓名、方式及非类信息等。管理员联系人管理账号姓名年龄手机生日密码EmailQQ籍贯2，配置数据源打开SQLServer企业管理器，配置连接，创建名为“TXL”的数据库。创建数据库后，为数据库添加数据表，测试成功：3，程序设计1登录界面PrivateSubCommand1_Click()DimcnAsADODB.ConnectionDimrsAsADODB.RecordsetDimcmAsADODB.CommandSetcn=NewADODB.ConnectionSetrs=NewADODB.RecordsetSetcm=NewADODB.CommandDimstrcnnAsStringstrcnn=driver={sqlserver};server=(local);database=TXL;cn.Openstrcnncm.ActiveConnection=cnstrsql=select*fromdlwherezh='+Text1.Text+'andmm='+Text2.Text+'Setrs=cn.Execute(strsql)Ifrs.EOF=FalseThenForm1.ShowUnloadMeElseMsgBox(用户名或密码错误,请重新登录!)EndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Text2.Text=Text1.Text=Text2.PasswordChar=*EndSubPrivateSubPicture1_Click()EndSub2主界面PrivateSubmsquitsys_Click()Form5.ShowEndSubPrivateSubmsstuinfo_Click()Form3.ShowEndSubPrivateSubmsstuscore_Click()Form4.ShowEndSubPrivateSubmsstusearch_Click()Form2.ShowEndSubPrivateSubPicture1_Click()EndSub3查询联系人页面PrivateSubCommand1_Click()DimsqlstrAsStringsqlstr=select*frompswherexm='&Text1&'Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.BOFThenMsgBox对不起，您查找的联系人不存在！EndIfEndSubPrivateSubCommand2_Click()Form2.HideForm1.ShowEndSub4修改联系人页面PrivateSubCommand1_Click()Adodc1.Recordset.AddNewWithAdodc1.RecordsetAdodc1.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)ThenMsgBox添加成功！Text1.Text=Text1.SetFocusElseMsgBox该联系人已存在，不能重复添加！Command1.Enabled=TrueCommand1.Enabled=TrueEndIfEndWithEndSubPrivateSubCommand2_Click()DimresAsIntegerres=MsgBox(是否要删除联系人+Adodc1.Recordset(xm)+的记录！,vbExclamation+vbYesNo+vbDefaultButton2)Ifres=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOF=TrueThenAdodc1.Recordset.MoveLastEndIfEndIfEndSubPrivateSubCommand3_Click()WithAdodc1.RecordsetAdodc1.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.UpdateMsgBox修改成功EndWithEndSubPrivateSubCommand4_Click()Form3.HideForm1.ShowEndSub在初始化程序时，通过ADO对象访问数据库“关系”表中的数据，从而实现导入联系人的数据信息。七、系统评价及心得体会经过两周的时间，完成了对通讯录的设计，经过多次程序的改进与调试，基本符合了老师提出的要求。从最初的茫然，到慢慢进入状态，再到对思路的慢慢清晰，整个设计过程难以用语言表达。遇到困难，我会觉得无从下手，通过查找资料最终解决了问题；当困难解决了，我会觉得豁然开朗。思路打开了；当设计经过有一次次的修改后，我觉得很有成就感。虽然此次设计圆满的完成了，但我深知，探求真知的路程永远不会结束。而成才而言，则是一个漫长积累的过程，必须要执着进取，踏实奋斗，才有望品尝成功的喜悦。总之，向着自己的目标前进，充实的过好每一天，只要无悔，便是成功。而成才而言，则是一个漫长积累的过程，必须要执着进取，踏实奋斗，才有望品尝成功的喜悦人在不同的时期会有不同的观点和想法，但这只是形式上的改变，其基础却已深深扎根于思维深处，是再难总之，向着自己的目标前进，充实的过好每一天，只要无悔，便是成功。总之，通过这次毕业设计的实践，提高我需要的知识、技能，素质，或是在实践中锻炼自己相关的素质，为将来进入社会打下良好的基础。八、参考文献《数据库系统原理与应用》孟彩霞编著《VisualBasic程序设计语言》周元哲编著九、附录：源代码登录页面PrivateSubCommand1_Click()DimcnAsADODB.ConnectionDimrsAsADODB.RecordsetDimcmAsADODB.CommandSetcn=NewADODB.ConnectionSetrs=NewADODB.RecordsetSetcm=NewADODB.CommandDimstrcnnAsStringstrcnn=driver={sqlserver};server=(local);database=TXL;cn.Openstrcnncm.ActiveConnection=cnstrsql=select*fromdlwherezh='+Text1.Text+'andmm='+Text2.Text+'Setrs=cn.Execute(strsql)Ifrs.EOF=FalseThenForm1.ShowUnloadMeElseMsgBox(用户名或密码错误,请重新登录!)EndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Text2.Text=Text1.Text=Text2.PasswordChar=*EndSubPrivateSubPicture1_Click()EndSub主界面PrivateSubmsquitsys_Click()Form5.ShowEndSubPrivateSubmsstuinfo_Click()Form3.ShowEndSubPrivateSubmsstuscore_Click()Form4.ShowEndSubPrivateSubmsstusearch_Click()Form2.ShowEndSubPrivateSubPicture1_Click()EndSub查询页面PrivateSubCommand1_Click()DimsqlstrAsStringsqlstr=select*frompswherexm='&Text1&'Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.BOFThenMsgBox对不起，您查找的联系人不存在！EndIfEndSubPrivateSubCommand2_Click()Form2.HideForm1.ShowEndSub修改页面PrivateSubCommand1_Click()Adodc1.Recordset.AddN