通讯录管理系统设计毕业论文.doc

山西煤炭管理干部学院毕业论文通讯录管理系统设计毕业论文1. 引 言通讯录管理系统设计毕业论文可以说是一项琐碎、繁杂而又必须十分细致的工作，是通讯录管理的一项重要内容，是不能允许发生差错的。通讯录要发展为完善的管理体系，可以说通讯录管理的自动化完全是时代进步的必然结果。合理的利用有助于通讯录发展的管理系统是图书管理改革的一种优越的体现。利用通讯录管理系统管理不仅保证了核算准确度，还成倍的提高了工作效率，而且于查询。这样笔者做为通讯录管理系统的设计师独立设计、开发和实施了该系统，在项目实施后得到用户的一致好评。随着时代的进步，通讯录种类也逐渐变得庞大起来。如何管理好图书的信息，成为通讯录管理中一个大的问题。如果能实现通讯录管理的自动化，无疑将给通讯录管理部门带来很大的方便。最初的通讯录管理是靠人工完成的，当通讯录规模较小的时候，人力可以完成，随着通讯规模的逐渐增大，联系的人数越来越多，依然维持着人力进行的通讯录管理，必然回造成工作效率低，工作错误增高的问题。通讯录管理系统就是把分散的通讯录信息实行统一、集中、规范的收集和管理，建立分类编号管理，电脑存储查询以及防火、防潮、防蛀、防盗等现代化、专业化的管理系统。通讯录管理系统就是为人们提供信息咨询、信息检索、信息存取等服务。在传统的通讯录管理工作中,要完成相当数量的职工情况及人事政策法规的查询工作,一般是职工直接到办公室或通过电话查询,使人事工作者在这些常规性的查询及相关政策法规的解答上花费大量时间,不利于工作效率的提高及人事研究工作的深入进行。为有效地处理通讯录信息，同时也为用户提供信息检索和信息统计提供了便利的条件。2 . 系统分析软件需求是指用户对目标软件系统在功能、行为、性能、设计约束等方面的期望。通过对应用问题及其环境的理解与分析，为问题涉及的信息、功能及系统行为建立模型，将用户需求精确化、完全化，最终形成需求规格说明，这一系列的活动即构成软件开发生命周期的需求分析阶段。需求分析是介于系统分析和软件设计阶段之间的重要桥梁。一方面，需求分析以系统规格说明和项目规划作为分析活动的基本出发点，并从软件角度对它们进行检查与调整；另一方面，需求规格说明又是软件设计、实现测试直至维护的主要基础。良好的分析活动有助于避免或尽早发现早期的错误，从而提高软件生产率，降低开发成本，改进软件质量。2.1 可行性研究开发任何一个基于计算机的系统，都会受到时间和资源上的限制。因此，对在接受任何一个项目开发任务之前，必须根据客户可能提供的时间和资源条件进行可行性分析，以减少项目开发风险，避免人力、物力和财力的浪费。可行性分析与风险分析在很多方面是相互关联的，项目风险越大，开发高质量的软件的可行性就越小。2.1.1经济可行性经济可行性，进行成本效益分析，评估项目的开发成本，估算开发成本是否会超过项目预期的全部利润。分析系统开发对其他产品或利润的影响。2.1.2技术可行性技术可行性研究过程中，系统分析员应采集系统性能、可靠性、可维护性和可生产性方面的信息；分析实现系统功能和性能所需要的各种设备、技术、方法和过程；分析项目开发在技术方面可能担负的风险以及技术问题对开发成本的影响。开发一个中小型人事管理系统，涉及到的技术问题不会太多，主要用到的技术就是数据库和一门可视化开发的编程语言。在这方面，数据库主要是用来存放数据，就目前主流的数据库来看，可以考虑采用Microsoft SQL Server是一个安全、可靠的并且支持面向对象设计的数据库系统。因此，我们选择了目前比较流行的Microsoft SQL Server数据库系统；在前台开发编程方面，本系统采用Microsoft公司的Visual Basic 6.0作为主要的开发工具。2.1.3运行可行性运行可行性是对本系统运行后给现行系统带来的影响和后果进行估计和评价。图书管理系统是一款模拟人工管理人士的软件,但优越于人工操作,其工作效率高于人工操作管理降低了企业的人力物力资源,为企业带来更高的经济效益,因此本系统具有极高的运行可行性。综上所述, 图书管理系统是可行的。2.2系统需求分析需求分析是成功实施一个管理系统的基础。只有弄清楚客户的需求，才能真正开发出满足客户需要的信息系统，也才能够真正让整个系统发挥其相应的作用。针对不同企业的营业规模及机构编制的差异，许多更加实用方便的软件系统应运而生，现在不少企业的规模比较大,业务比较复杂。从微观上讲，建立一套企业人事管理系统能够使得企业的领导者对企业人事的现状有一个比较全面和准确的认识，提高了企业的管理水平。从宏观上讲，顺应了社会的信息化,社会化潮流，缩短了整个社会化大生产的周期。因此，开发这样一套图书管理软件成为很有必要的事情。2.2.1通讯管理需求通讯管理主要用于提供快速的目录查询和通讯提醒服务，并记录通讯日志。2.2.2联系人管理需求联系人管理负责管理群组信息和联系人信息，设置优先级，并提供目录查询和打印功能。2.2.3统计分析需求对联系人信息、通讯提醒和通讯日志进行统计分析。2.2.4系统设计目标用于负责用户权限管理，包括用户管理、密码维护、重新登录。3. 总体设计软件设计的主要任务是根据需求规格说明导出系统的实现方案。3.1 系统结构设计C/S结构就是“客户端/服务端”的一种工作模式。一般来说，这种模式都会要求安装一个客户端程序，由这个程序和服务器端进行协同工作，因为由客户端来专门处理一些工作，所以C/S结构的程序一般都功能强大、界面漂亮，由于任务分散在服务器端和客户端分别进行，所以提高了硬件的利用效率，对于程序员来说，编程开发也更加的容易。基于以上原因，在设计图书资源管理系统时，采用了传统的基于两层的C/S结构。3.2 系统功能结构图图书管理系统的功能结构如图1所示。通讯录管理 联系人管理 通讯管理统计分析 系统管理 查询打印 优先级设置 联系人设置群组设置 联系人统计 提醒统计 日志分析 重新登录 密码维护 用户管理 目录查询 通讯提醒 通讯日志 图1 通讯录管理系统结构3.3系统主流程图联系人管理系统管理统计分析合理调控通讯录管理系统通讯管理4. 详细设计 4.1设计目标设计原则（1）安全性、可靠性、容错性安全可靠是一个应用系统的灵魂，一个极小的差错，可能会造成整个系统的瘫痪，甚至可能造成企业的巨大损失。因此系统设计必需把安全性、可靠性、容错性放在首位。（2）开放性、标准化 从发展的眼光看，一个综合的计算机管理系统要实现市场、决策、管理、设计、制造等各环节的信息共享，完成不同制造厂商的设备和计算机软硬件资源的数据交换。建立一个由开放式，标准化的异构式网络系统，开放式标准化的异构式数据库组成的平台来满足当前的需求，同时又能适应今后新技术的引进、开发和推广。 （3）实用、灵活、易于扩展系统设计尽量简单，灵活易于管理，有利于将来需要时进行功能改进和新技术引入。（4）先进性、成熟性我们所处的时代是信息时代，通信和计算机技术的发展日新月异。因而，应用系统的建设不仅应适应新技术发展方向，保证其先进性，同时兼顾成熟的计算机技术、保证系统的可靠。4.2开发及运行环境4.2.1硬件环境4.2.2 软件环境1操作系统：windows 9x,NT,2000,XP2开 发 工 具：VB6.0 + SQL Server2000 3数 据 库: SQL Server 20004.2.3开发工具简介：Visual Basic是Microsoft公司开发出来的最流行软件之一，也是目前社会上最流行的开发工具之一。在众多的产品中Visual Basic是最有影响力。Visual Basic是一个完全可视化的开发环境，面向对象的开发工具，利用它开发出来的软件兼容性好，稳定性高，安全性强，健壮，通用性好，代码量少等。采用事件驱动的结构化高级程序设计语言，它具有强大的数据库操作功能，提供了数据管理器（Data Manager）、数据控件（Data Control）、以及ADO（Activex数据对象）等强大工具，利用它能够建立多种类型的数据库并可以管理维护和使用这些数据。Microsoft SQL Server 2000是美国微软公司推出的使用相当广泛的数据库管理系统，包含一套图形工具，如服务器管理（用于启动和关闭数据库服务）、企业管理器（用于创建和修改数据库及备份数据库等）和查询分析器（用于交互执行Transact-SQL 语句和过程并提供图形查询分析功能）等。SQL Server 2000是为迅速提供可伸缩性电子商务、企业及数据仓库解决方案而开发的完整数据库与分析软件产品。SQL SERVER 2000定位于Internet背景下的数据库应用，它为用户的Web应用提供了一款完善的数据管理和数据分析解决方案。它极大地缩短了用户开发电子商务、数据仓库应用的时间。SQL SERVER 2000还提供对XML(Extensible Markup Language扩展标示语言支持)和HTTP的全方位支持4.3数据库设计根据系统需求分析,系统需要建立7个表.其用途说明如表3所示 ID 数据表名称 数据表用途1 提醒信息表 保存通讯提醒信息 2 通讯日志表 保存公司的通讯日志 3 群组信息表 保存群组信息4 联系人信息表 保存联系人信息 5 用户信息表 保存用户基本信息及密码和权限 4.3.1系统E-R图联系人信息表PK联系人ID群组ID姓名优先级性别身份证号出生日期学历专业地址电话邮箱特长通讯日志表PK日志IDFK2FK1通讯主题通讯时间通讯人员联系人联系方式通讯内容录入人员 群组信息表PK群组ID 群组名称 优先级 建立日期 群组简介 录入人员借还信息表PK借还IDFK2FL1读者号图书号借书日期续借日期还书日期罚款金额备注预约信息表PK预约IDFK2FK1读者号图书号预约日期预约标志4.3.2数据字典 表3.1到3.5给出了5个数据表(t提醒信息表、通讯日志表、群组信息表、联系人信息表、用户信息表)的具体描述,包括字段名称、数据类型、可否为空和说明。1.提醒信息表字段名称 数据类型 可否为空 说明提醒ID Nvarchar(6) 主键 标识种子1、子增1提醒主题 Nvarchar(50) Not Null 提醒主题提醒时间 Datetime(8) Null 提醒时间提醒对象 char（6） 外键 主表为用户信息表联系人 char（5） 外键 主表为联系人信息表联系方式 Nvarchar(50) Null 联系方式提醒内容 Text(16) Null 提醒内容录入人员 char（6） 外键 主表为用户信息表是否完成 char（5） Not Null 新建、完成2.通讯日志表字段名称 数据类型 可否为空 说明日志ID Char(12) 主键 标识种子1、子增1通讯主题 Nvarchar(50) Not Null 通讯主题通讯时间 Datetime(8) Null 通讯时间通讯人员 char（6） 外键 主表为用户信息表联系人 char（5） 外键 主表为联系人信息表联系方式 Nvarchar(50) Null 联系方式通讯内容 Text(16) Null 通讯内容录用人员 Int(4) Not Null 主表为用户信息表3.群组信息表字段名称 数据类型 可否为空 说明群组ID Char(2) 主键 2位编码群组名称 Nvarchar(50) Not Null 群组名称优先级 Char(2) Null 优先级为2建立日期 Datetime(8) Null 群组建立日期群组简介 Text(16) Null 群组简介录入人员 Char(16) 外键 主表为用户信息表4. 联系人信息表字段名称 数据类型 可否为空 说明联系人ID Char(5) 主键 5位编码群组ID Char(2) 外键 主表为群组信息表姓名 Char(2) Not Null 联系人姓名优先级 Char(3) Null 优先级为3性别 Char(2) Null 男、女身份证号 Char(18) Null 身份证号住址 Nvarchar(50) Null 住址电话 Nvarchar(50) Null 电话邮箱 Nvarchar(50) Null 邮箱地址 5. 用户信息表字段名称 数据类型 可否为空 说明用户ID Char6) 主键 6位的用户ID用户名称 Char(2) 外键 用户名称用户类型 Char(2) Not Null 普通员工、管理人员密码 Char(3) Null 密码少于10位模块权限 Char(2) Null 模块权限信息群组权限 Char(18) Null 群组权限信息身份证号 Char(18) Null 身份证号住址 Nvarchar(50) Null 住址电话 Nvarchar(50) Null 电话邮箱 Nvarchar(50) Null 邮箱433 创建数据库在创建数据库之前，用户需要安装MS SQL Server系列的数据库服务器。有三种方法创建数据库：（1） 直接手工建立数据库。打开SQL Server企业管理器，新建一个数据库，数据库的名为“人事管理系统”，然后按照数据字典建立表和表关联。（2） 在SQL Server查询分析器中通过SQL脚本来创建数据库。用户可以使用光盘中的SQL脚本“源程序/03/创建数据库/数据库脚本.sql”来创建数据库对象,完成数据库设计。（3） 使用数据库备份文件还原数据库。用户可以使用光盘中的数据库备份文件“源程序/03/创建数据库/人事管理系统数据库备份“来还原数据库。434 创建表关联通过SQL Server企业管理器可以得到数据库表的关联图，如图3.11所示。所以主表和外键表之间的关系具有如下特征：（1） 对Insert和Update具有强制性。（2） 级联删除相关的记录。 5、主要功能模块设计 5.1 创建系统主界面5.1.1创建工程项目 创建Visual Basic 6.0后,单击【文件】 【新建工程】命令,在下图所示的对话框中选择 【标准EXE】 选项,然后单击 【确定】 按钮。这样，Visual Basic将自动创建一个“工程1”工程项目，包含一个窗体文件夹和一个Form1窗体。在项目的【属性】面板中将项目的“Name”属性值改为”图书管理系统”。5.1.2创建系统主窗体 创建了工程项目后,需要创建系统主窗体、主窗体的菜单,并在主窗体中添加窗体代码.1. 主窗体界面在项目资源管理器中为项目添加一个MDI窗体作为系统主窗体，将其“Name“和”Caption“属性改为”通讯录管理系统“。系统主窗体如图4.1.2所示，其主要控件的属性如表4.1.2所示。图4.1.2 创建人事管理系统项目表4.1.2主窗体属性设置控件 属性 属性值通讯录管理系统（Form） Name 通讯录管理系统 Caption 通讯录管理系统 StartUpPosition 0-Manual WindowState 0-Normal程序代码如下： Private Sub Form_Load()设置权限操作 Dim Mo_rights As String Dim Qu_rights As String Dim msg As String Dim SQL As String SQL = select * from 用户信息表 where 用户ID= & UserID & Set rs = SelectSQL(SQL, msg) Mo_rights = Trim(rs.Fields(模块权限) 保存模块的权限 Qu_rights = Trim(rs.Fields(群组权限) 保存群组的权限 设置模块权限 If InStr(Mo_rights, 通讯管理) Then 通讯管理.Enabled = True Toolbar1.Buttons(1).Enabled = True Toolbar1.Buttons(2).Enabled = True Toolbar1.Buttons(3).Enabled = True Else 通讯管理.Enabled = False Toolbar1.Buttons(1).Enabled = False Toolbar1.Buttons(2).Enabled = False Toolbar1.Buttons(3).Enabled = False End If If InStr(Mo_rights, 群组设置) Then 群组设置.Enabled = True Toolbar1.Buttons(4).Enabled = True Else 群组设置.Enabled = False Toolbar1.Buttons(4).Enabled = False End If If InStr(Mo_rights, 联系人设置) Then 联系人设置.Enabled = True Toolbar1.Buttons(5).Enabled = True Else 联系人设置.Enabled = False Toolbar1.Buttons(5).Enabled = False End If 优先级设置.Enabled = InStr(Mo_rights, 优先级设置) 查询打印.Enabled = InStr(Mo_rights, 查询打印) 联系人统计.Enabled = InStr(Mo_rights, 联系人统计) 提醒统计.Enabled = InStr(Mo_rights, 提醒统计) 日志分析.Enabled = InStr(Mo_rights, 日志分析) 用户管理.Enabled = InStr(Mo_rights, 用户管理) 初始化.Enabled = InStr(Mo_rights, 初始化)End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1: Call 目录查询_Click 调入目录查询 Case 2: Call 通讯提醒_Click 调入通讯提醒 Case 3: Call 通讯日志_Click 调入通讯日志 Case 4: Call 群组设置_Click 调入群组设置 Case 5: Call 联系人设置_Click 联系人设置 Case 6: Call 重新登录_Click 调入重新登录 End SelectEnd SubPrivate Sub 目录查询_Click() A目录查询.Show Enabled = FalseEnd SubPrivate Sub 通讯提醒_Click() A通讯提醒.Show Enabled = FalseEnd SubPrivate Sub 通讯日志_Click() A通讯日志.Show Enabled = FalseEnd SubPrivate Sub 群组设置_Click() B群组设置.Show Enabled = FalseEnd SubPrivate Sub 联系人设置_Click() B联系人设置.Show Enabled = FalseEnd SubPrivate Sub 优先级设置_Click() B优先级设置.Show Enabled = FalseEnd SubPrivate Sub 查询打印_Click() B查询打印.Show Enabled = FalseEnd SubPrivate Sub 联系人统计_Click() C联系人统计.Show Enabled = FalseEnd SubPrivate Sub 提醒统计_Click() C提醒统计.Show Enabled = FalseEnd SubPrivate Sub 日志分析_Click() C日志分析.Show Enabled = FalseEnd SubPrivate Sub 用户管理_Click() D用户管理.Show Enabled = FalseEnd SubPrivate Sub 密码维护_Click() D密码维护.Show Enabled = FalseEnd SubPrivate Sub 重新登录_Click() D重新登录.Show Unload MeEnd SubPrivate Sub 初始化_Click() D初始化.Show Enabled = FalseEnd Sub5.2创建公用模块1.总体模块图通讯录管理系统 系统管理 通讯管理联系人管理 统计分析 图4.3“通讯录管理系统”总体模块图2. 分层模块图（图1到图5）目录查询索群组设置联系人设置通讯管理通讯提醒联系人管理 通讯日志优先级设置图1“通讯管理”功能模块 图2“联系人管理”功能模块日志分析联系人统计提醒统计统计分析用户管理系统管理重新登录密码维护 图3 “统计分析”功能模块 图4系统管理”功能模块 5.2.1“通讯管理”模块 “通讯管理“模块主要包括以下功能模块。目录查询： 负责提供高校的通讯目录查询功能。 通讯提醒：负责给用户提供通讯提醒功能。 通讯日志：负责记录用户的通讯日志。1. “目录查询“模块的实现“目录查询“模块主要负责为用户提供通讯目录查询功能。用户可以进行精确查询，也可以进行模糊查询。不同群组权限的用户可以查询不同群组的联系人。其实现目标、窗体布局和主要程序代码如下所示。（1）实现目标 用户登录系统后，单击【通讯管理】 【目录查询】命令就可以进入如图4.3.1所示的【目录查询】对话框。用户可以选择并填写查询条件，选择所要显示的联系方式，然后单击【查询】按钮来查询通讯目录。（3） 窗体布局“目录查询“窗体主要提供通讯目录查询功能。为了实现该功能，需要如下控件。 1个ComboBox控件，提供查询条件。 6个TextBox控件，用来输入和显示部门信息。 6个CommandButton控件：1个用来查询通讯目录的【查询】按钮；1个用来退出系统的【退出】按钮。其主要控件的属性如表所示 控件 属性 属性值 A目录查询（Form） Name A目录查询 Caption 目录查询 DataGrid1（DataGrid） Caption 查询结果列表 “目录查询”窗体主要控件属性（2） 程序代码 参见附录A 5.2.2“联系人管理”模块 “联系人管理“模块主要包括以下功能模块。 群组设置： 负责管理联系人的群组信息。 联系人设置：负责设置联系人信息。 优先级设置：负责设置群组和联系人的优先级。 查询打印： 负责提供目录查询和打印功能。2. “群组设置“模块的实现“群组设置“模块主要用于负责管理联系人的群组信息，其实现目标、窗体布局和主要程序代码如下所示。（1）实现目标 用户登录系统后，单击【联系人管理】 【群组设置】命令就可以进入如图4.3.2所示的【群组设置】对话框。用户可以添加、修改和删除部门信息。 （2）窗体布局“群组设置”窗体需要如下控件。 a) 2个ComboBox控件，显示查询条件和预约处理标志。b) 3个TextBox控件。c) 6个CommandButton控件：1个预约查询按钮，4个控制光标移动的按钮，1个【处理预约】按钮，1个【添加预约】按钮，1个用来退出系统的【退出】按钮其主要控件的属性如表所示 控件 属性 属性值 B群组设置（Form） Name B群组设置 Caption 群组设置 SSTab1（SSTab 选项卡） Tabs 3 txtGZID（TextBox） MaxLength 4 “群组设置“窗体主要控件属性（3）程序代码 参见附录A 5.2.3“统计分析”模块 “统计分析“模块主要包括以下功能模块。 联系人统计： 负责按群组对联系人进行统计。 提醒统计：负责按联系人、提醒时间和提醒对象分别对通讯提醒信息进行统计分析。 日志分析：负责按通讯时间、通讯人员和联系人分别对通讯日志进行统计分析。1.“联系人统计“模块的实现“联系人统计“模块负责按群组统计联系人，其实现目标、窗体布局和主要程序代码如下所示。（1）实现目标 用户登录系统后，单击【统计分析】 【联系人统计】命令就可以进入如图4.3.3所示的【联系人统计】对话框。（2）窗体布局“还书“窗体主要负责读者还书。为了实现这些功能，需要如下控件。 d) 1个DataGrid控件，显示联系人统计列表。e) 7个Command控件：用来退出系统的【退出】按钮其主要控件的属性如表所示 控件 属性 属性值 C联系人统计（Form） Name C联系人统计 Caption 联系人统计 DataGrid1（DataGrid） Caption 联系人统计 txtHTID（TextBox 签约合同号） MaxLength 10 “联系人统计“窗体主要控件属性（3）程序代码 参见附录A5.2.4“系统管理”模块 “系统管理“模块主要包括以下功能模块。 用户管理： 维护系统用户的基本信息。 密码维护：给用户提供密码维护功能。 重新登录：为用户提供重新登录功能。3.程序代码 参见附录A6.总结经过两个多月的设计和开发，通讯录管理系统基本开发完毕。其功能基本符合用户需求，能够完成资料管理、借、还书的管理。以及各类相关图书的管理。同时也考虑到了图书种类冗余的问题，对于数据的一致性的问题也通过程序进行了有效的解决。回顾该系统从选题，到调研、需求分析、设计、编码实现、测试等，论文的撰写，这系列连贯的过程，感想颇多，收获也很多。大致的总结几点，如下：1设计开发一个软件，首先要了解所涉及到行业的现状，一定要想办法进行行业调研，从不同途径获取该行业的专业知识。合理安排系统设计开发时间，进行实际开发会发现需求分析与系统设计占主要的时间，如果前面的工作做好了，编码实现占用的时间很短。所以我们要借助软件工程的思想-对软件开发过程进行控制。2. 在开发一个系统时，前期的分析准备工作非常的重要。对于系统的需求要明确，这样才能做到有的放矢。特别是对于系统中数据的存储和重要算法的设计，设计的不好会出现大量的冗余，不仅浪费存储空间，还影响查询效率。3.在设计的初期，对一个功能模块的设计，要想出两种或两种以上方案，这样可以进行比较，从而获得更佳的设计方案，设计开发过程中一定要吸取经验教训，避免返工。尤其是一些重要算法或功能。在对具体实现功能模块进行编程时，要养成良好的加注释的习惯，这样的话不仅能理清思路，而且可以为以后的调试程序带来很大的方便。4. 懂得充分利用网络资源，因为实地调研的时间是非常有限的，所以需求分析中大部分分析结构都是在我阅读专业书籍，网络资料后得出的。由于在外面工作以及其他原因，我无法借到专业书籍，只好在浩瀚的网络中寻找我所需要的资料，这无形当中培养了我通过网络获取资料信息的能力。 但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。 各位领导：在本次毕业设计中，我们使用了VB语言。但我对VB语言并不十分了解，在这方面我的指导老师，她为我提供了充分的指导并且认真的为我讲解不理解的地方，指出我的错误。图书管理系统的开发成功是与老师的付出所分不开的，因此我要再次感谢我的指导老师为我们所付出的一切。 致谢经过半年的忙碌和工作，本次毕业设计已经接近尾声，作为一个专科生的毕业设计，由于经验的匮乏，难免有许多考虑不周全的地方，如果没有导师的督促指导，以及一起工作的同学们的支持，想要完成这个设计是难以想象的。在此,我要感谢在选题及研究过程中给与我悉心指导的老师。老师多次询问研究进程，并为我指点迷津，帮助我开拓研究思路，精心点拨、热忱鼓励。老师一丝不苟的作风，严谨求实的态度，踏踏实实的精神，不仅授我以文，而且教我做人，虽历时三载，却给以终生受益无穷之道。对老师的感激之情是无法用言语表达的。因此，本论文的完成，离不开她的悉心指导和孜孜不倦地教诲。回顾三年的大学生活，我是多么庆幸自己能碰上这么多好老师、好同学。他们对我成长的关心和帮助，使我终生受益。在他们身上，我看到的是为人师表的高尚情操，学到的是丰富的知识和做人的道理。在此，对他们表示我最真诚的感谢！同时，我也要感谢我的母校煤干院，是她提供了良好的学习环境和生活环境，让我的大学生活丰富多姿，为我的人生留下精彩的一笔。另外，感谢计算机系06届信管班全体同学的帮助和勉励。同窗之谊和手足之情，我将终生难忘！我愿在未来的学习和研究过程中，以更加丰厚的成果来答谢曾经关心、帮助和支持过我的所有领导、老师、同学、和朋友。学无止境。明天，将是我终身学习另一天的开始！在论文即将完成之际，我的心情无法平静，从开始进入课题到论文的顺利完成，有多少可敬的师长、同学、朋友给了我无言的帮助，在这里请接受我诚挚的谢意!参考文献1 Visual Basic数据库开发关键技术与实例应用 牛春风 人民邮电出版社 2004年5月2Visual Basic程序设计与应用案例 刘钢 高等教育出版社 2003年7月 3 Visual Basic数据库开发实例解析 王永生 机械工业出版社 2003年8月4 Visual FoxPro数据库开发实例解析 韩敏 电子工业出版社 2002年6月5SQL Server数据库开发实例解析 周晓杰、高鉴伟 机械工业出版社 2006年1月6 SQL Server2000基础教程 程克明、张丹 清华大学出版社 2005年5月7 信息系统分析与设计 钟友坤 科学出版社 2005年5月附录A1.“目录查询”模块程序代码Option ExplicitDim rs As ADODB.RecordsetDim SQL As StringDim msg As StringDim strConnectWay As String 保存要显示的联系方式Dim strWhere As String 保存查询条件Private Sub Form_Load() 初始化群组ID ComboBox Dim rightsQID As String Dim temp As String 得到用户的群组权限 SQL = select 群组权限 from 用户信息表 where 用户ID= & UserID & Set rs = SelectSQL(SQL, msg) rightsQID = rs.Fields(群组权限) Set rs = Nothing 初始化群组ID ComboBox SQL = select 群组ID,群组名称 from 群组信息表 Set rs = SelectSQL(SQL, msg) Do While Not rs.EOF temp = rs.Fields(群组ID) If InStr(rightsQID, temp) Then C