计算机应用技术专科论文.doc

专科生毕业设计（论文）题目 通讯录管理系统的设计与实现 目 录摘要1关键词1Abstract2Key words2引言31系统概述41.1系统开发方法41.2系统体系结构和开发技术41.2.1 VB41.2.2 Access42系统调研及可行性分析52.1系统调研52.2系统总体目标52.3技术可行性分析53系统分析63.1系统需求分析63.1.1功能需求63.1.2性能需求63.2系统流程图64系统设计84.1概要设计84.1.1功能模块结构图84.1.2功能模块描述84.2数据库设计94.2.1 E-R模型设计94.2.2表设计94.3详细设计104.3.1用户登录模块设计104.3.2系统设置模块设计114.3.3联系人信息模块设计114.3.4组群信息模块设计124.3.5信息查询模块设计135系统实现155.1用户登录模块实现155.2系统设置模块165.3联系人信息模块实现165.4组群信息模块实现195.5信息查询模块实现216系统测试236.1系统登录模块测试236.2联系人信息模块测试236.3测试总结24参考文献：25致谢26通讯录管理系统的设计与实现摘要：互联网的出现与迅速发展，信息技术步伐的加快，使得个人面临着众多的挑战与竞争，在竞争过程中，对信息的掌握程度、信息获取是否及时、信息能否得到充分的利用、对信息的反应是否敏感准确，也越来越成为衡量一个人竞争能力的重要因素。随着中国加入WTO，每个人在努力提高自身的竞争力。通过用VB6.0编写通讯录管理系统，利用软件工程原理，采用面向对象的编程方法，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面，实现了信息管理的自动化和信息化。本系统是一个通讯录自动化系统，它简单易操作，只要用户有一个属于自己的帐号，就可以方便的使用本系统了。关键词：VB6.0；Access数据库；通讯录管理系统；设计；开发Design and Implementation of the Address Book Management SystemStudent majoring in Computer Application Technology Kong LinghaoTutor Liu ChunyingAbstract: the emergence of the Internet and rapid development, speed up the pace of information technology, make individual faces the challenge of numerous and competition, and in the process of competition, the master degree of information, information acquisition are in time, information can be fully utilized, the reaction is sensitive to information accurately, also more and more become the measure of a man competition ability of important factor. With Chinas accession to the WTO, everyone in efforts to improve their own competitiveness. Write the address book through VB6.0 by management system, with the software engineering theory, by using object oriented programming method, and its development mainly include the setting and maintenance of database and development of front application program of two aspects, realize the information management of automation and information. This system is an address book automation system, its simple easy to operate, as long as the user is its account, it can be convenient to use this system. Key words: VB6.0; The Access database; Address book management system; Design; development引言 传统的用人脑记通讯信息不但麻烦，而且还十分的耗费人力和时间。而通讯系统对用户的姓名、手机号码、住宅号码、电话、传真、邮箱等进行了综合统计和管理，使你能够更快的得到自己想要的信息。近年来，随着企业彼此间的竞争日趋激烈，信息技术在企业的发展中占据着越来越重要的地位。在企业的通讯录的管理上，企业经营中不可或缺的一部分，为管理者进行管理决策和进行各种信息的查询工作提供了重要的依据。通讯录管理系统是一个企业单位不可缺少的部分，它的内容对于企业的决策者和管理者来说都至关重要，所以通讯录管理系统能够为企业管理者提供充足的信息和快捷的查询手段。本文对系统开发中面临的问题及其解决方案进行详细的设计及合理安排，根据所掌握的VB技术对系统的各个功能进行了实现。本管理系统设计合理、界面美观、操作方便、运行稳定、功能完备，为进行现代化的档案管理工作起到了重要作用，具有较高的实用价值。1系统概述1.1系统开发方法伴随知识经济的发展和现代信息技术的不断改进，人们的生活节奏越来越快，而对信息的要求越来越高，快捷方便已经成为信息的一个重要指标。对普通的联系人管理系统进行分析后，可了解到该系统实现如下功能：系统设置，添加联系人，新建组群，查找联系人，删除联系人等功能。1.2系统体系结构和开发技术本系统采用C/S体系结构，后台使用了Access数据库，只需使用帐号登录该系统，就可以根据需要进行相应的操作。管理员可以对个人信息进行添加、删除、修改等操作，避免了很多不必要的麻烦；其他用户可以对人物信息进行查询，并可以在系统里直接联系该用户，为用户提供了很大的方便。1.2.1 VBVisual Basic 在原有BASIC 语言的基础上进一步发展，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可以建立实用的应用程序。Visual Basic 不仅是 Visual Basic 编程语言。Visual Basic 编程系统,MicrosoftExcel 的Applications Edition,Microsoft Access和Windows的许多其他应用程序都使用这一语言。Visual Basic Scripting Edition (VBScript) 是广泛使用的脚本语言，它是 Visual Basic 语言的子集1。这样，在学习 Visual Basic 中得到的经验可应用到所有这些领域中。从开发个人使用或小组使用的小工具，到大型企业应用系统，甚至通过Internet 的遍及全球分布式应用程序，都可在 Visual Basic 提供的工具中各取所需。在本系统中，运用了窗体的结构及常用的属性、事件和方法，同时用到了命令按钮（Commandbutton）、文本框(TextBox)、标签(Label)等几个常见控件。并对单选按钮(OptionButton)、复选框(CheckBox)、列表框(ListBox)、定时器(Timer)等控件的常用属性、事件和方法都进行了使用。1.2.2 Access Access 是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS），是Office系列应用软件之一2。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。Access是一个可视化工具，是风格与Windows完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、报表设计器以及数据库向导、表向导、查询向导、报表向导等工具，使得操作简便，容易使用和掌握。2系统调研及可行性分析2.1系统调研通过对通讯录系统进行了解分析后，确定了本系统将要实现的功能。（1）在系统设置模块中实现对用户基本信息的设置和保存、以及对该系统的一些设置。（2）在联系人信息模块中实现系统存储用户输入的联系人信息的增加、修改、删除。（3）在组群信息模块中实现系统存储用户输入的组群信息的增加、修改、删除。（4）在信息查询模块中实现系统对联系人信息、组群信息和存储空间信息的综合查询。2.2系统总体目标本通讯录管理系统在使用上比较方便、简单；界面设计上美观大方；后期维护上比较容易，如要对功能模块方面作修改，则无需进行整个系统的重新架构。2.3技术可行性分析本系统是一个典型的数据库应用程序。现有的数据库应用程序开发技术已非常成熟，利用现有技术完全可以实现预定的功能。系统采用VB6.0开发工具，该工具功能强大，扩展性强，适合任何的编程工作，这些技术完全胜任开发任务；并且利用该工具能使操作人员可在短时间能完全掌握系统维护工作3。系统运用了Access作为后台数据库，而Access是一个非常优秀的小型数据库管理软件，方便使用，性能稳定。于是，采用VB6.0+Access技术完全能够实现本系统的开发。3系统分析3.1系统需求分析经过以上对本系统的调研及可行性分析后，下面将对系统在功能上以及性能上进行进一步的需求分析。3.1.1功能需求（1）系统设置功能主要对于系统的基本情况设置，如默认的联系人排序方式（如按输入顺序、姓名、拼音等），可以根据实际情况添加系统设置。（2）添加联系人功能能录入新数据，当录入重复的姓名和电话号码时，则提示数据录入重复并取消录入；当通信录中超过150条信息时，录入的新数据能按递增的顺序自动进行条目编号4。录入信息主要包括：姓名、手机、住宅电话、办公电话、传真、电子邮件、分类（可选项有：A办公类；B 个人类；C 商务类）等。（3）联系人信息管理功能选中某个人的姓名时，可对此人的相应数据进行修改和删除。（4）组群信息管理功能可以创建组群，并将已有的联系人归类，便于管理，并可以对组群信息进行修改和删除。（5）查询功能选择此功能时，可以根据输入任何一项联系人信息查询联系人详细信息；根据输入的组群名，查询该群包括的联系人。3.1.2性能需求l 设备需求：PC机，Windows 2000/98/XP操作系统， P以上，64MB RAM。l 服务器：采用Access数据库管理。3.2系统流程图 经过对本系统功能的分析，设计了系统流程图，如图3-1所示。登陆判断是否合法系统信息查询信息修改增加修改删除更新错误提示信息更新到数据库查询条件错误提示信息从数据库读取数据图3-1 系统数据流程图4系统设计4.1概要设计4.1.1功能模块结构图 为实现系统的功能，需要对系统各个功能模块结构进行设计，如图4-1所示。通讯录管理系统系统菜单联系人信息增加联系人信息删除联系人信息修改联系人信息新建组群添加联系人到群组查看联系人信息查看存储空间查看分组联系人组群信息信息查询修改组群信息系统设置图4-1 功能模块结构图4.1.2功能模块描述（1）登陆模块根据用户输入的的用户名、密码和用户类型，与数据库中进行匹配，验证帐号和密码。（2）系统设置模块用户选择系统设置功能，系统显示当前设置，并可让用户更改设置，用户更改设置，用户选择保存，系统存储用户修改过的设置，并提示保存成功5。（3）联系人信息模块对联系人的信息根据选择进行相应的修改编辑，再选择保存，系统存储用户输入的联系人信息，并提示保存成功。（4）组群信息模块根据需要添加相应的组群及组群信息，把联系人分类到相应的组群中，系统存储用户输入的组群信息，并提示保存成功。（5）信息查询模块用户输入关键词, 并按搜索键，系统显示搜索到的相关联系人姓名和电话号码列表，用户选择列表中的一项，系统显示用户选中的联系人全部信息6。4.2数据库设计4.2.1 E-R模型设计 为实现本系统的功能，需要对数据库进行设计，要用到E-R模型，E-R模型的设计如图4-2所示。用户手机组群管理管理用户名密码编号姓名手机电话传真邮件分类组群名类型备注图4-2 E-R模型图4.2.2表设计 首先设计表的通讯录，通讯录由字段名、说明、类型、长度、主键或外键组成，如表4-1所示。表4-1通讯录(lianxi)字段名说明类型长度主键或外键bh编号数字整型是xm姓名文本10Sj手机数字长整型zzdh住宅电话数字长整型cz传真数字长整型dzyj电子邮件文本20fl分类文字2其次设计表的组群信息，组群信息由字段名、说明、类型、长度、主键或外键组成，如表4-2所示。表4-2组群信息表(zuqun)字段名说明类型长度主键或外键zqm组群名文本10zqlx组群类型文本2bz备注文本20再设计表的用户信息，用户信息由字段名、说明、数据类型、数据长度是否为主键组成，如表4-3所示。表4-3用户信息表(yonghu)字段名说明数据类型数据长度是否为主键yhm用户名文本型（char）50mm密码文本型（char）504.3详细设计4.3.1用户登录模块设计 用户登录模块主要根据用户登录的信息，与数据库中信息成功匹配后，获得其相应的操作权限。（1） 流程图要实现用户登录，就要设计一个用户登录流程图，如图4-3所示。开始输入帐户、密码判断是否合法用户及身份用户图4-3 用户登录流程图（2）处理说明打开系统，等待用户输入帐号、密码，判断用户输入的信息与后台数据库是否匹配，若不匹配，则刷新页面，等待用户重新输入。4.3.2系统设置模块设计系统设置模块主要实现对用户基本信息的设置和保存、以及对该系统的一些设置。（1） 流程图为了实现对该系统的一些操作，需要对系统设置模块设计流程图，如图4-4所示。成功成功开始窗体初始化系统设置用户组设置保存保存失败失败提示信息提示信息图4-4系统设置模块流程图（2）处理说明单击确认按钮，对系统设置进行保存，并保存用户的信息，保存到系统。4.3.3联系人信息模块设计联系人信息模块主要实现对联系人信息的添加、修改、删除等操作。（1） 流程图要实现对联系人信息的操作，就要设计联系人信息模块的流程图，如图4-5所示。失败失败成功成功开始窗体初始化增加修改删除提示信息保存更新提示信息提示信息图4-5联系人信息模块流程图（2）处理说明1）单击添加按钮，根据需要在文本框里输入相应的联系人信息，单击提交按钮，保存到数据库。2）单击需要修改的联系人，根据需要在文本框中修改信息，单击修改按钮并更新到数据库，若要删除此联系人，则单击删除按钮7。4.3.4组群信息模块设计组群信息模块主要实现对组群信息的修改，新建组群，添加联系人到组群等的操作。（1） 流程图为了实现对群组的操作，就要设计组群信息模块的流程图，如图4-6所示。失败失败成功成功开始窗体初始化添加联系人新建群组修改组群提示信息保存更新提示信息提示信息图4-6组群信息模块流程图（2）处理说明1）单击添加按钮，根据需要在文本框里输入相应的联系人信息，单击提交按钮，保存到数据库。2）单击需要修改的联系人，根据需要在文本框中修改信息，单击修改按钮并更新到数据库，若要删除此联系人，则单击删除按钮8。4.3.5信息查询模块设计综合信息查询模块主要实现用户根据自己的需要对班次的具体信息进行查询，根据班次可以查询对应班次的剩余票数9。（1） 流程图为了实现系统的查询功能，就要设计信息查询模块的流程图，如图4-7所示。正确开始窗体初始化组群信息查询存储空间查询判断输入信息是否正确错误提示信息显示显示错误判断输入信息是否正确提示信息正确联系人信息查询显示图4-7信息查询模块流程图（2）处理说明1）根据输入的联系人信息，在联系人信息表中查询并显示出来。2）根据输入的组群信息，在组群信息表中查询并显示出来10。3）首先判断是否有输入的查询信息，若有，则根据所填信息查询；若没有，则提示“请输入要查询的信息”。5系统实现5.1用户登录模块实现 用代码实现用户登录模块，用户登录模块界面如图5-1所示。图5-1用户登录模块效果图该模块主要根据输入的用户信息，包括用户名和密码判断输入的信息是否正确，主要代码为：Private Sub Command1_Click() Dim user, pws user = Trim(Text1.Text) pws = Trim(Text2.Text)If Text1.Text = ThenMsgBox (请输入用户名！)Else If Text2.Text = Then MsgBox (请输入密码！) Else Adodc1.Recordset.MoveFirst While Not Adodc1.Recordset.EOF If Trim(Adodc1.Recordset.Fields(username) = user And Trim(Adodc1.Recordset.Fields(password) = pws Then userpurview = Adodc1.Recordset.Fields(purview) nickname = Adodc1.Recordset.Fields(nickname) loginname = Adodc1.Recordset.Fields(username) userpsw = Adodc1.Recordset.Fields(password) userid = Adodc1.Recordset.Fields(0) Unload Me frmmain.Show Exit Sub Else Adodc1.Recordset.MoveNext End If Wend If Adodc1.Recordset.EOF Then MsgBox (对不起您输入的用户名和密码错误！) End If End If End IfEnd Sub5.2系统设置模块 用代码实现系统的设置，主要代码如下：Private Sub Command1_Click(Index As Integer)Dim s As ByteIf Option1.Value = True Then!apart_type = TrueElse!apart_type = FlaseEnd IfIf Check1.Value = 1 Thens = 1ElseIf Check2.Value = 1 Thens = 2Elses = 3End IfEnd Sub5.3联系人信息模块实现 联系人信息模块的界面如图5-2所示。图5-2联系人信息模块效果图该模块主要根据输入的联系人信息做一些操作，主要代码为：Private Sub Command1_Click()Dim conid As IntegerIf Text1.Text = ThenMsgBox (请输入联系人姓名！)Else Adodc1.RecordSource = select * from conifo If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst While Not Adodc1.Recordset.EOF If Adodc1.Recordset.Fields(姓名) = Trim(Text1.Text) Then MsgBox (对不起该姓名已经存在，请重新输入！) Exit Sub Else Adodc1.Recordset.MoveNext End If Wend Adodc1.Recordset.MoveLast conid = Adodc1.Recordset.Fields(0).Value + 1 Else conid = 1 End IfAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = conidAdodc1.Recordset.Fields(编号) = Trim(Text1.Text)Adodc1.Recordset.Fields(姓名) = Trim(Text5.Text)Adodc1.Recordset.Fields(手机) = Trim(Text2.Text)Adodc1.Recordset.Fields(住宅电话).Value = Trim(Text3.Text)Adodc1.Recordset.Fields(传真).Value = Trim(Text4.Text)Adodc1.Recordset.Fields(电子邮件).Value = Trim(Text6.Text)Adodc1.Recordset.Fields(分类).Value = Trim(Combo1.Text) Call WriteImage(Adodc1, Trim(mstrFileName)Adodc1.Recordset.UpdateMsgBox (添加成功！)End IfEnd Sub5.4组群信息模块实现 组群信息模块的界面如图5-3所示。图5-3组群信息模块效果图该模块主要根据输入的用户组信息，对组群做一些修改，主要代码为：Private Sub Command1_Click()Dim conid As IntegerIf Text1.Text = ThenMsgBox (请输入组群名！)Else Adodc1.RecordSource = select * from conifo If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst While Not Adodc1.Recordset.EOF If Adodc1.Recordset.Fields(姓名) = Trim(Text1.Text) Then MsgBox (对不起该组群已经存在，请重新输入！) Exit Sub Else Adodc1.Recordset.MoveNext End If Wend Adodc1.Recordset.MoveLast conid = Adodc1.Recordset.Fields(0).Value + 1 Else conid = 1 End IfAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0) = conidAdodc1.Recordset.Fields(组群名) = Trim(Text1.Text)Adodc1.Recordset.Fields(组群类型) = Trim(Combo1.Text)Adodc1.Recordset.Fields(备注).Value = Trim(Text7.Text) Call WriteImage(Adodc1, Trim(mstrFileName)Adodc1.Recordset.UpdateMsgBox (添加成功！)End IfEnd Sub5.5信息查询模块实现 信息查询模块的界面如图5-4所示。图5-4信息查询模块效果图该模块可以用户查询、联系组查询。联系组查询又可以用组名查询，也可以用手机存储空间或SIM卡存储空间查询，主要代码为：Private Sub Command1_Click()If Option1.Value = True Then If Text1.Text Then Adodc1.RecordSource = select * from conifo where 姓名 like % + Trim(Text1.Text) + % MsgBox (Adodc1.RecordSource) Adodc1.Refresh DataGrid1.Refresh Else MsgBox (请输入姓名！) Exit Sub End If End If If Option2.Value = True Then If Text2.Text Then Adodc1.RecordSource = select * from conifo where 手机 like % + Trim(Text2.Text) + % Adodc1.Recordset.Fields(查询次数) = 1 + Adodc3.Recordset.Fields(查询次数) Adodc1.Refresh DataGrid1.Refresh Else MsgBox (请输入手机号！) Exit Sub End If End If End Sub6系统测试6.1系统登录模块测试（1）测试问题表 首先进行系统登录模块测试，如表6-1所示。表6-1测试类别:集成测试产品标识产品中文标识通讯录管理系统系统登录第几次测试2测试工程师XXX测试模块/功能/性能系统登录测试记录单测试时间2012-5-11问题记录序号故障现象级别处理人处理时间处理说明1当输入一用户名及密码后，在数据库中查找无该用户时无提示信息。中孔令浩2012/5/11已处理2管理员登录后显示后台不正确。中孔令浩2012/5/11目前不处理（2）问题严重度描述,如表6-2所示。表6-2问题严重程度级别描述中如界面中的错误，性能不优化，校验不严格等低如提示信息不明确，操作不方便，焦点跳转错误等6.2联系人信息模块测试（1）测试问题表 其次进行联系人信息模块测试，如表6-3所示。表6-3测试类别：集成测试产品标识产品中文标识通讯录管理系统联系人信息第几次测试2测试工程师XXX测试模块/功能/性能系统操作测试记录单测试时间2012-5-11问题记录序号故障现象级别处理人处理时间处理说明1用户登录系统后，对联系人的选择不能在数据库