1、 2013年09月09日 至 2013年09月23日得分项百分比得分题目的新颖程度及难度5语言的难度及熟悉程度设计结果(机器上验收)60设计文档20设计过程态度10总评(五级制)一、 课程设计目的 在日常生活中,通讯录是不可或缺的一个工具,它能准确记录我们所要联系的人的各种资料,方便我们和别人交流。这个小小的系统设计可以帮助我更好的巩固学过的VB一级数据库方面的知识,让我学会如何可以简单的将前台与后台联系起来。 二、 课程设计内容 随着计算机技术的发展,传统的笔记本式的通讯录已经落伍,设计这个程序就是为了更好地对自己经常联系的个人信息进行管理而产生,主要是针对个人信息的管理。包括联系人的姓名、
2、年龄、性别、工作单位、家庭住址,电话号码等等。对这些信息可以通过输入认证密码来添加,删除,修改等管理操作。三、软硬件环境及系统所采用的体系结构(1)操作系统:Windows7 (2)数据库系统:Microsoft SQL Server2008企业版(3)体系结构:系统的体系结构为C/S结构 (4)开发工具:前台为VB,后台数据库为SQL Server四、需求分析本软件可以满足用户的基本要求,联系人查询,添加,修改,删除等功能因有尽有,而且通过账户名和密码可以更好的保护个人的隐私,从而加强程序的安全性。五、系统设计1,程序流程图 否 是是2,数据库设计(1)系统E-R图 (2)逻辑模式 管理员登
3、录 (用户名 密码) 联系人(姓名 年龄 手机 生日 籍贯 QQ Email) 其中,波浪线为主键。 根据这些需要,本系统需要联系人表、密码表。六、系统的实施1,建立数据库结构 本设计使用的是Microsoft SQL Server 2008数据库。程序中共应用了两张数据表,分别是“密码”数据表和“联系人”数据表。这两张数据表的结构如表1和表2所示。 1 密码数据表 该表主要用于管理员登录通讯录的权限,只有表中存在的用户才可以登录该系统。2 联系人数据表联系人数据表主要用于浏览通讯录的详细信息,该数据表中记录着通信人的姓名、方式及非类信息等。2,配置数据源 打开SQL Server企业管理器,
4、配置连接,创建名为“TXL”的数据库。创建数据库后,为数据库添加数据表, 测试成功:3,程序设计1 登录界面Private Sub Command1_Click()Dim cn As ADODB.ConnectionDim rs As ADODB.RecordsetDim cm As ADODB.CommandSet cn = New ADODB.ConnectionSet rs = New ADODB.RecordsetSet cm = New ADODB.CommandDim strcnn As Stringstrcnn = driver=sql server;server=(local)
5、;database=TXL;cn.Open strcnncm.ActiveConnection = cnstrsql = select * from dl where zh= + Text1.Text + and mm= + Text2.Text + Set rs = cn.Execute(strsql)If rs.EOF = False ThenForm1.ShowUnload MeElseMsgBox (用户名或密码错误,请重新登录!)End IfEnd SubPrivate Sub Command2_Click()EndPrivate Sub Form_Load()Text2.Text
6、= Text1.Text = Text2.PasswordChar = *Private Sub Picture1_Click()2 主界面Private Sub msquitsys_Click()Form5.ShowPrivate Sub msstuinfo_Click()Form3.ShowPrivate Sub msstuscore_Click()Form4.ShowPrivate Sub msstusearch_Click()Form2.Show End Sub3 查询联系人页面Dim sqlstr As Stringsqlstr = select * from ps where xm
7、 = & Text1 & Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF ThenMsgBox 对不起,您查找的联系人不存在!Form2.Hide 4 修改联系人页面Adodc1.Recordset.AddNewWith Adodc1.RecordsetAdodc1.Recordset.Fields(xm) = Trim(Text1.Text)age) = Trim(Text2.Text)tel) = Trim(Text3.Text)csrq) = Trim(Text4.Text)jg) = Trim(Text
8、5.Text)qq) = Trim(Text6.Text)dzyx) = Trim(Text7.Text)If Text1.Text = Adodc1.Recordset.Fields() Then添加成功!Text1.SetFocus该联系人已存在,不能重复添加!Command1.Enabled = TrueEnd WithDim res As Integerres = MsgBox(是否要删除联系人 + Adodc1.Recordset() + 的记录!, vbExclamation + vbYesNo + vbDefaultButton2)If res = vbYes ThenAdodc
9、1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF = True ThenAdodc1.Recordset.MoveLastPrivate Sub Command3_Click()Adodc1.Recordset.Update修改成功Private Sub Command4_Click()Form3.Hide在初始化程序时,通过ADO对象访问数据库“关系”表中的数据,从而实现导入联系人的数据信息。七、系统评价及心得体会经过两周的时间,完成了对通讯录的设计,经过多次程序的改进与调试,基本符合了老师提出的要求。从最初
10、的茫然,到慢慢进入状态,再到对思路的慢慢清晰,整个设计过程难以用语言表达。遇到困难,我会觉得无从下手,通过查找资料最终解决了问题;当困难解决了,我会觉得豁然开朗。思路打开了;当设计经过有一次次的修改后,我觉得很有成就感。虽然此次设计圆满的完成了,但我深知,探求真知的路程永远不会结束。而成才而言,则是一个漫长积累的过程,必须要执着进取,踏实奋斗,才有望品尝成功的喜悦。 总之,向着自己的目标前进,充实的过好每一天,只要无悔,便是成功。而成才而言,则是一个漫长积累的过程,必须要执着进取,踏实奋斗,才有望品尝成功的喜悦人在不同的时期会有不同的观点和想法,但这只是形式上的改变,其基础却已深深扎根于思维深处,是再难总之,向着自己的目标前进,充实的过好每一天,只要无悔,便是成功。总之,通过这次毕业设计的实践,提高我需要的知识、技能,素质,或是在实践中锻炼自己相关的素质,为将来进入社会打下良好的基础。八、参考文献数据库系统原理与应用 孟彩霞 编著Visual Basic程序设计语言 周元哲 编著九、附录:源代码登录页面
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1