个人文献管理系统毕业论文

《个人文献管理系统毕业论文》由会员分享，可在线阅读，更多相关《个人文献管理系统毕业论文（49页珍藏版）》请在装配图网上搜索。

1、湖 南 科 技 大 学毕 业 设 计（ 论 文 ）题目个人文献管理系统作者 学院计算机科学与工程学院专业计算机科学与技术学号0905010128指导教师 二一三 年六 月四 日湖 南 科 技 大 学毕业设计（论文）任务书 计算机科学与工程 学院 计算机科学与技术 系（教研室）系（教研室）主任: （签名） 年 月 日学生姓名: 刘军花 学号: 0905010128 专业: 计算机科学与技术 1 设计（论文）题目及专题： 个人文献管理系统 2 学生设计（论文）时间：自 年 月 日开始至 年 月 日止3 设计（论文）所用资源和参考资料：1 Visual Basic 6.0 使用指南作者：Bob Re

2、selman , Richard Peasley , Wayne Pruchniak.出版社：电子工业出版社2 中文版Microsoft Office 97 自学通作者：Ned Snell出版社：机械工业出版社3 Visual Basic 6.0 中文版控件大全作者：Microsoft出版社；电子工业出版社4 中文Access 2000 24学时教程作者：Craig Eddy ，Timothy Buchanan 出版社：机械工业出版社4 设计（论文）应完成的主要内容：（1）文献的基本信息对文基本信息献进行查询；（2）文献及其基本信息的添加，删除；（3）文献类别信息的添加与删除；（4）用户基本信

3、息的设置；用户权限的设置；5 提交设计（论文）形式（设计说明与图纸或论文等）及要求：（1）毕业论文一份；（2）答辩演示稿一份；（3）刻录光盘一份。6 发题时间： 年 月 日指导教师： （签名） 学 生： （签名）湖 南 科 技 大 学毕业设计（论文）指导人评语主要对学生毕业设计（论文）的工作态度，研究内容与方法，工作量，文献应用，创新性，实用性，科学性，文本（图纸）规范程度，存在的不足等进行指导人： （签名）年 月 日 指导人评定成绩： 湖 南 科 技 大 学毕业设计（论文）评阅人评语主要对学生毕业设计（论文）的文本格式、图纸规范程度，工作量，研究内容与方法，实用性与科学性，结论和存在的不足等

4、进行综合评价评阅人： （签名）年 月 日 评阅人评定成绩： 湖 南 科 技 大 学毕业设计（论文）答辩记录日期： 学生： 刘军花 学号： 0905010128 班级： 计算机科学与技术 题目： 个人文献管理系统 提交毕业设计（论文）答辩委员会下列材料：1 设计（论文）说明书共页2 设计（论文）图 纸共页3 指导人、评阅人评语共页毕业设计（论文）答辩委员会评语：主要对学生毕业设计（论文）的研究思路，设计（论文）质量，文本图纸规范程度和对设计（论文）的介绍，回答问题情况等进行综合评价答辩委员会主任： （签名）委员： （签名）（签名）（签名）（签名） 答辩成绩： 总评成绩： 摘 要个人文献管理系统是

5、一个典型的文献信息管理系统(MIS)。其开发的基本过程主要包括后台数据库的建立以及维护和前端应用程序的开发两个方面。其中前者要求建立一个对数据要求一致性，完整性强以及安全性好的数据库,而于后者来说则要求应用程序的功能完备性好和易使用等特点。本文设计了一个“个人文献管理系统”，并使用MICROSOFT公司的VISUAL BASIC 6.0和ACCESS 2000作为它的开发工具。利用其提供的各种面向对象的开发工具，尤其是数据窗口及控件这些能方便而简洁地操纵数据库的智能化对象，来建立一个系统的应用原型。本设计主要实现的功能有查询文献，添加和删除文献，不同格式的文档的导出以及打印，对用户进行用户权限

6、设置和对日志进行清除以及数据的备份恢复。本设计方便用户对日常所需的文献进行快速查找和打印，对文献信息综合管理。关键字：控件；窗体；数据库ABSTRACTA personal file managing system is a typical application of managing information system (known as MIS). Which mainly includes building up data-base of back-end and developing the application interface of front-end. The forme

7、r constructs database with consistency and integrality and security. The later should make the application powerful and easy when used.By looking up lots of datum, the system selected VISUAL BASIC 6.0 and ACCESS2000 presented by MICROSOFT because of its objective tools in Win32. VB offered a series

8、of ActiveX operating a data-base. It can give you a short-cut to build up a prototype of system application.This designing of main function is to look for documents, add and remove documents, and to export and printing of documents in various formats. It also can set user-rights to the user and reco

9、very and backup data. Users are convenient to quickly find and print a document which meets users daily required. Keywords: ActiveX; Form; Field. 湖南科技大学本科生毕业设计（论文）目 录第1章 绪论11.1 引言11.2 个人文献管理系统的介绍11.3 本设计的目的和原则11.4 本设计所使用的开发工具11.5 本文结构2第2章 基础知识和相关技术32.1 编程环境的选择32.2 VB语言及其应用程序基本持点32.3 关系型数据库的实现42.4 开发

10、平台系统提供的基础技术42.4.1 ADO组件的主要对象及其功能42.4.2 VB访问数据库的步骤5第3章 总体设计63.1 项目分析63.2 系统设计63.2.1 系统功能模块层次图及其分析讨论63.2.2 系统的实体属性图73.2.3 系统E-R图83.2.4 类结构设计93.2.5 数据库表的设计9第4章 详细设计与实现124.1 系统数据流图124.2 用户操作流程图124.3 系统模块的设计124.4 图形界面模块的详细设计与实现134.5 系统主要函数的实现30第5章 测试与考核325.1 软件登录界面和主功能界面325.2 功能考核325.3 后台数据库的运行结果图36第6章 结

11、论和展望38参 考 文 献39致 谢40ii湖南科技大学本科生毕业设计（论文）第1章 绪论1.1 引言在论文写作及科学研究的过程中，文献是必不可少的资料和素材。在网络迅速发展的今天，能够获得的文献数量与过去不可同日而语。如此众多的资料为研究工作者提供了巨大的方便，能够保证当前的研究工作站在最前沿的科技基础上，同时避免大量重复低效能的工作。基于此，本文设计了一个“个人文献管理系统”，来帮助使用者有效利用信息资源。本系统能管理个人的文献，从而形成完全个性化的知识环境，创建个人的参考文献数据库，保存有价值的参考文献，并对这些文献进行管理、检索、阅读和使用。用户利用个人文献管理系统，可以非常方便地查找

12、自己积累的有价值的参考文献书目。1.2 个人文献管理系统的介绍个人文献管理系统主要实现如下几部分功能：可以对不同类型的文献进行录入和删除；不同格式的文献可以导出标准的文献参考信息文档；根据不同要求（如时间，作者，类别，文献名称）对于录入的参考文献进行查询，或者对于录入的文献建立文件夹及对相应的备注信息进行管理；能够对文献数据进行及时刷新，数据备份和对日志进行清除和管理以及对文档进行查询打印。1.3 本设计的目的和原则个人文献管理系统开发的主要目的是为了服务用户，方便用户对个人日常所需的文档进行添加，分类，存储，查询，打印以及备份恢复。个人文献管理系统设计原则是力求完成任务书所要求的功能模块的同

13、时做到程序的健壮性和界面的人性化。1.4 本设计所使用的开发工具本设计使用Visual Basic 6.0作为管理系统的开发平台，ACCESS 2000用于数据源的开发。此外，使用ODBC（开放式数据库连接）进行对数据源的连接，SQL结构化查询语言用于实现查询功能。之所以采用Visual Basic (VB)作为开发平台，主要是考虑到对此种语言的熟悉性以及使用VB能够在较短的时间内给用户提供友好的界面和完善的功能，缩短了开发周期。1.5 本文结构第一章主要对个人文献管理系统做一个大概介绍。简述其实现的主要功能，对本设计所使用的开发工具进行简单介绍以及为何使用这个开发工具，以及对本文的结构进行简

14、要说明。第二章主要描述本设计所用的编程环境的选择，有关VB语言的简单介绍和所使用的数据库的简要概述，以及还有开发工具的相关主要基础技术的一些介绍。第三章主要描述系统的总体设计，包括项目分析和本设计主要功能模块层次图，设计主要用到的类的介绍及说明，系统的E-R图的设计及本设计所用到的主要的数据库表的设计。第四章描述系统的详细设计，对系统数据流程图的分析，对用户操作流程图的简要分析，本设计功能模块的详细介绍，对本系统主要功能模块进行详细设计及实现。第五章测试与功能的考核，主要测试本设计实现的功能是否与所描述的功能相符合。第六章对本系统的总结以及日后的发展前景进行描述及展望。- 2 -第2章 基础知

15、识和相关技术2.1 编程环境的选择本文设计的个人文献管理系统，使用Visual Basic 6.0作为数据库的开发平台。而3.0版以后的Visual Basic都具有数据库的连接和处理功能。而且Microsoft公司把许多新的数据访问功能都添加到Visual Basic中，所以它与普通的开发平台相比，用Visual Basic 6.0作为数据库开发平台有以下优点：1）简洁性Visual Basic提供了很多数据控件。利用这些控件，编程人员只要编写少量的代码甚至不用编写任何代码就可以直接访问数据库，从而对数据库进行浏览。很大程度上减少了编程人员的工作量，有效的提高了工作效率。2）灵活性Visua

16、l Basic不像一般的数据库平台那样局限于特定的应用程序结构，也不用某些指令对当前打开的数据库进行操作。因而对编程人员来说，用它比较灵活方便，不用进行频繁的写代码。3）可扩充性Visual Basic是一种可以扩充的语言，在其数据库应用方面尤甚。在Visual Basic中，可以使用ActiveX控件(以前版本中称为VBX或OLE控件)。这些控件可以由Microsoft公司提供，也可以由第三方开发者提供。利用这些控件，编程人员可以很容易地在Visual Basic中增加一些新功能，并扩充Visual Basic数据存取控制的指令系统。把Visual Basic 6.0作为数据库前端的设计平台

17、，可以把所选择的数据项按用户的要求显示出来。而数据库系统被称为后端，后端数据库通常称为一个关系表的集合。本设计之所以选择Visual Basic作为开发数据库前端应用程序的工具，主要是因为Visual Basic可以和多种数据库连接。即目前较为流行的大多数数据库都可以与Visual Basic连接，Visual Basic通过不同的方式与各种数据库进行连接。其主要有三种方式，即Access数库引擎、Microsoft ODBC驱动程序以及第三方ODBC驱动程序。2.2 VB语言及其应用程序基本持点Visual Basic 6.0是Windows应用程序开发工具，是目前较为广泛的、简单易学易用的

18、面向对象的开发工具之一。选择Visual Basic语言，很大一部分原因是它提供了大量的控件，而这些控件可用于快速便捷的设计界面和实现各种功能，从而减少了编程人员的工作量，提高了编程的效率。同时简化了界面设计过程，进而有效的提高了应用程序的运行效率以及程序的健壮可靠性。2.3 关系型数据库的实现Access是一种关系数据库的工具，同时也是开发人员所选的较通用的数据库之一。Access 2000数据库能汇集各种信息以供用户进行查询、存储和检索。而且它提供了数据表示图或能自定义的窗体来收集信息。其中数据表示图提供了一种类似于Excel的电子表格，可以使数据库简洁且一目了然，方便用户进行操作和浏览。

19、而创建的自定义报表则可根据设计需求来用于打印或输出数据库中的相关信息。同时Access也提供了数据的存储库，它可以使用桌面数据库文件，同时把数据库文件置于网络文件的服务器中，进而与其他网络用户共享此数据库。综上所知，Access作为关系数据库的开发工具已具备了许多的优点。同时它还可以在一个数据包中拥有桌面和关系数据库的便利及其强大功能。数据库不仅是能存储数据，而且能对数据进行相关的操作及显示其相应的操作结果。它的作用在于组织和表达信息，即就是所有信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。2.4 开发平台系统提供的基础技术2.

20、4.1 ADO组件的主要对象及其功能ADO组件又称为数据库访问组件，主要是对数据库进行相关操作。它提供了以下七种对象：1） Connection：连接数据库。2） Command：数据库源操作进行定义的命令。3） Recordset：提供返回的记录集。其中Recordset中LockType属性的设置值如表2.1所示。表2.1 Recordset对象的LockType属性的设置表常量值说明adLockReadOnly1默认值，只读。不能对数据进行更改adLockPressimistic2保守式记录锁定（逐条）。即提供者执行必要的操作用以确保成功的编辑记录。通常采用立即锁定数据源的记录方式。ad

21、LockOptimistic3开放式记录锁定（逐条）。提供开放式锁定，同时只在调用Updata方法时锁定记录。adLockBatchOptimistic4开放式批更新。用于与立即更新模式相反的批更新模式。4） Fields：返回单一数据字段5） Parametes：表示Command对象的参数。6） Property：单独的一个用来提供属性功能。7） Error：为程序提供处理错误的功能。使用ADO对象可以岁数据库进行建立和管理的连接，并能按数据库服务器的要求来获得数据，并执行更新、删除、添加数据等操作，以及能够获取ODBC的错误信息等。2.4.2 VB访问数据库的步骤1）定义数据库组件Dim

22、 conn As New ADODB.Connection其中conn为连接对象Dim reco As New ADODB.Recordset其中reco为结果集对象2）打开连接数据库conn.Open driver=sql server;server=localhost;uid=sa;pwd=;database=student。而对于Access数据库，连接语句为conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path + student.mdb3）设定SQL语句，使用“Execute”命令，即可开始执行访问数据库的

23、动作4）关闭结果集对象，断开与数据库的连接reco.Closeconn.Close- 11 -第3章 总体设计3.1 项目分析计算机的价格已经十分低廉，性能也有很大的提升。目前，许多用户拥有支持本系统的应用平台。本系统的设计将为用户个人文档办公的工作效率带来一个很大的飞跃。主要表现在以下几个方面：首先，本系统的运行可以节省很多资源，提高资源利用率。其次，本系统方便用户对所需文献进行综合管理和查找，可以大大的提高用户工作效率和资源利用率。根据对电子文献文档管理的一般操作，个人文献管理系统主要实现的功能应该有：1） 操作员管理功能：向系统中添加操作员。为操作员提供不同等级的权限，根据不同的权限赋予

24、不同的操作员权限。2） 管理，导出和打印文档：对于不同的文档进行标准格式的导出，进行文档类型管理。文档类型数目理论上可以任意多个，可以根据用户要求进行查询然后打印各种类型的文档。3） 添加、修改、删除文档：对于每个文档都可以指定其存储地，对于文档的存储文件可以修改其文件类型。对于文档也可以添加简短的备注项，以方便用户在不需要打开文档便能对文档有个大致的了解。对于文档的电子存储文件，用户可以在系统界面上点击相应的按钮就可以自动选择相应的程序对文档进行打开，从而进行查看阅读。4） 文档的查询功能：可以根据用户提供的精确文档名，入库时间，文档类型，类别名以及作者名进行文档的查找。同时为了保护文档的统

25、计信息以防外流，所以本设计设计不支持模糊查找。3.2 系统设计3.2.1 系统功能模块层次图及其分析讨论本系统是以个人文献管理系统为原型设计开发的，系统功能结构模块层次图如图3.1所示。根据此图，本文设计的文献管理系统的基本功能有：1） 文献类别管理：主要是文献的分类管理，标注类别名称和备注信息，方便用户对文档的分类和信息查找。2） 用户管理和密码修改：包含用户基本信息的注册以及密码的修改。3） 权限设置：对用户权限的分配与管理，保证数据的安全性。4） 文献添加：包括添加文献的类别，作者，文档类型，文档的标题，文档的存储路径以及备注信息。5） 文献删除：主要对不必要的文档进行删除操作，方便用户

26、管理，提高资源利用率。6） 文献查询：用户可以通过文档的存储文件夹，入库存档日期，作者名，文献名称及文献类别进行查找。7） 文献导出：可以在本系统主功能界面上显示要查看的文档，同时可以将不同格式的文档转化为标准文档。8） 文献打印：用户可以通过自己的需求情况对文档进行打印。9） 数据刷新：对本系统进行相关操作后，如添加，删除，点击数据刷新后就会在在系统主界面上实时显示更新。10） 日志管理：用户每天对文档的管理使用情况。图3.1 系统功能模块层次图3.2.2 系统的实体属性图1) 用户基本信息实体图如Error! Reference source not found.所示，用户属性包括用户名，

27、密码，用户ID，用户角色。图3.2 用户基本信息实体图2) 文献基本信息实体图如图3.3所示，文献基本信息属性包括文献ID，类别名，文档名，作者名，文档类型，入库时间，备注。图3.3 文献基本信息实体属性图3) 文献类别信息实体图如图3.4所示，文献类别信息属性包括类别名，类别ID，备注。图3.4 文献类别信息实体属性图3.2.3 系统E-R图如Error! Reference source not found.所示，用户可以查询，添加，删除文献的基本信息，也可以对文献类别进行添加查询。图3.5 系统E-R图3.2.4 类结构设计本设计的主要类及其说明如表3.1所示。表3.1 类的介绍及说明表

28、类类型说明Cmd_Save_ClickPrivate sub保存文献信息类，对文献的基本信息进行添加，并加以保存Tree_changesPublic Sub自定义一个过程，用于显示TreeView控件中的数据Cmd_cx_ClickPrivate Sub查询文献信息，通过对类别名，入库日期，文档名，文档类型，作者名设定为查询条件，通过选择其中一个或几个进行查询DocDelPrivate Sub删除文本数据信息，并添加到日志信息中Timer1_TimerPrivate Sub在窗体的状态栏中显示当前系统的日期时间Toolbar1_ButtonClickPrivate Sub单击工具栏中的按钮，调

29、用相应的窗体，完成相应的操作LeftSide_Resize/RightSide_ResizePrivate Sub向左/右拖拽函数Cmd_ql_ClickPrivate Sub清除当前的日志信息,删除数据表，刷新纪录List_ChangePrivate Sub更改记录，移动记录指针Cmd_Add_ClickPrivate Sub注册用户的基本信息Cmd_Select_ClickPrivate Sub对 0 Then 记录集大于零则执行MPassword = AdoRs.Fields(mm) 将mm字段信息赋给MPassword变量If Txt_Password.Text = MPassword

30、 Then 判断数据的密码是否正确Name1 = Cbx_Name.Text 将用户选择的名称赋给Name1变量frm_main.StatusBar1.Panels.Item(2).Text = 当前操作员： + AdoRs.Fields(xm) 当前操作员姓名显示在主窗体的状态栏中frm_main.Show 通过身份验证则显示主窗体Unload MeElseMsgBox 密码不正确,请您确认后重新输入, , 提示信息Txt_Password.Text = 1Txt_Password.SetFocusEnd IfElseMsgBox 对不起 没有此用户的信息, , 提示信息Cbx_Name.T

31、ext = Txt_Password.Text = End IfAdoRs.Close 关闭数据表2）主界面模块个人文献管理系统的主界面设计如图4.4所示。由菜单栏和工具栏组成，其中菜单栏包括基础信息设置，文献管理，系统设置，和退出系统。工具栏包括文献类别，文献添加，文献删除，文献查询，文献导出，文献打印，用户管理，和退出。同时可以在窗体的状态栏中显示当前系统的日期时间；用户可以通过直接点击工具栏进行下一个相应的功能界面，同时也可以通过菜单栏中选中所需功能按钮进入下一个功能界面。图4.4 系统主功能界面a）显示当前系统的日期时间模块Private Sub Timer1_Timer()Statu

32、sBar1.Panels(4).Text = Format(Now, hh点mm分ss秒)End Subb）文献删除信息模块如图4.5所示，程序开始时，连接数据库开始准备工作，选择要删除的文件；确认是否删除文件；如删除，则删除文件并添加到日志信息中；完成后结束退出同时关闭数据库。图4.5 删除文献流程图c）调用文献查询模块Private Sub CXWD_Click() 文档信息查询frm_cx.ShowEnd Subd）调用用户管理模块Private Sub YHGL_Click() 用户管理frm_yhgl.Show 1End Sube）调用数据恢复模块Private Sub SJHF_C

33、lick() 数据恢复Dim iTask As LongMsgBox 请您注意,为了确保数据安全,在进行数据恢复的同时需要关闭应用程序,并且请您在恢复数据完成之后重新运行应用程序, 64, 提示信息调用数据恢复可执行文件iTask = Shell(App.path & Restore.exe, vbNormalFocus)EndEnd Subf）调用数据刷新模块Private Sub SJSX_Click() 数据刷新Call Tree_changeEnd Sub退出系统。点击退出系统，如确认退出，则点击OK，退出个人文献管理系统。Private Sub TCXT_Click() 退出系统Di

34、m c, pathc = MsgBox(您确认要退出个人文档管理系统吗?, 33, 提示信息)If c = vbOK ThenEndEnd IfEnd Subg）工具栏模块。单击工具栏中的按钮，调用相应的窗体，完成相应的操作。Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1frm_wdlb.Show 1 文档类别管理Case 3frm_add.Show 1 文档信息添加Case 5Call DocDel 删除文本信息Case 7frm_cx.Sho

35、w 1 文档信息查询Case 9On Error GoTo Xx3）文献类别管理模块文献类别管理界面如图4.6所示。文献类别信息包括类别名及相关备注。点击添加按钮，输入类别名及备注，点击保存按钮，把信息存入数据库。打开数据库，显示相关类别信息，点击删除按钮，删除信息。完成后，点击关闭按钮，退出；a） 添加模块。对输入信息进行限定，即必须输入类别名和可选择输入相关备注信息。Private Sub Cmd_Add_Click() 添加按钮 Text1.Text = Text2.Text = Text1.Enabled = TrueText2.Enabled = TrueCmd_add.Enable

36、d = FalseText1.SetFocusCmd_Save.Enabled = TrueEnd Sub图4.6 文献类别管理界面设计图b）删除模块。打开数据库表，如果数据库中有此类别信息记录，则进行删除操作；但如果此类别下有文档信息，则不能被删除，必须先删除文档；反之，确认是否删除此类别；如是，则删除数据，调用显示树状视图控件中的数据，删除节点，更改借点记录；反之完成退出。Private Sub Cmd_del_Click() 删除按钮打开数据表AdoRs1.Openselect*fromtb_DocumentwhereSSLB=&ListView1.SelectedItem.SubIte

37、ms(1) & , Cnn, adOpenKeysetIf AdoRs1.RecordCount 0 Then 如果记录集大于零则执行MsgBox 该类别下有文档信息,不能够被删除, 16, 提示信息ElseDim cc = MsgBox(您确认要删除该类别信息吗, 17, 提示信息)If c = vbOK Then删除数据Set AdoRs = Cnn.Execute(delete tb_wdlb from tb_wdlb where MC= & ListView1.SelectedItem.SubItems(1) & )Text1.Text = Text2.Text = Cmd_Del.E

38、nabled = FalseCall Tree_changes 调用过程Call List_Change 调用过程End IfEnd IfAdoRs1.CloseEnd Subc）保存模块。设置输入正确格式的类别名，然后打开数据库的类别表；如果此类别名在类别表中不存在，则保存此类别信息，插入数据信息；更改节点记录，把信息添加到节点上，更改记录指针，信息保存成功；反之，则提示该类别信息已存在，请更改名称后再保存信息；关闭数据库，退出。Private Sub Cmd_Save_Click() 保存按钮If Text1.Text = ThenMsgBox 输入的类别名称不能为空, 48, 提示信息E

39、lseIf IsNumeric(Text1.Text) ThenMsgBox 不能够输入数字字符名称, 16, 提示信息Text1.Text = Text1.SetFocusElseAdoRs.Open select * from tb_wdlb where Mc= & Text1.Text & , Cnn, adOpenKeyset 打开tb_wdlb表If AdoRs.RecordCount 0 Then 如果记录集大于零则执行MsgBox 该类别信息已经存在,请您更换类别名称后在保存信息, 16, 提示信息ElseSet AdoRs1 = Cnn.Execute(insert into

40、tb_wdlb (Mc,Bz) values( & Text1.Text & , & Text2.Text & ) 插入数据信息Call Tree_changes 调用过程Call List_Change 调用过程MsgBox 信息保存成功, 64, 提示信息Text1.Text = Text2.Text = 设置文本框和按钮不可用Text1.Enabled = FalseText2.Enabled = FalseCmd_Save.Enabled = FalseCmd_add.Enabled = TrueEnd IfAdoRs.CloseEnd IfEnd IfEnd SubPrivate S

41、ub Form_Load()Call List_Change 调用过程End SubPrivate Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)打开数据表AdoRs.Open select*from tb_wdlb where MC= & ListView1.SelectedItem.SubItems(1) & , Cnn, adOpenKeysetIf AdoRs.RecordCount 0 Then 如果记录集大于零则执行Text1.Text = AdoRs.Fields(MC) 将数据表中的MC字段内容赋给Text

42、1文本框Text2.Text = AdoRs.Fields(Bz) 将数据表中的Bz字段内容赋给Text2文本框Cmd_Del.Enabled = True 删除按钮可用End IfAdoRs.Close 关闭数据表End Sub4）文献信息添加模块文献添加界面如图4.7所示。文献添加界面包括选取文件路径，类别名，文档名，作者名，及相关备注。在此界面中管理员或者拥有权限的用户可以对文献进行添加操作。通过打开对话框，选择文件路径，文档类别，输入文档标题，文档类型，作者名中的一项或几项，点击保存按钮，存入数据库，完成信息的添加。加大了文献存储的信息量，方便用户找到自己所需的各方面的文档；图4.7

43、文献信息添加界面设计图文件信息添加模块。首先设置文件类型，如.doc，.execl，.ppt，.rtf，.txt，.pdf，.caj；然后打开对话框，在所在保存路径中选取取文件夹；再输入文献相关基本信息，然后通过点击保存来保存信息，关闭数据库表，退出。Private Sub Cmd_Select_Click() 按钮设置文件类型Common1.Filter = 文件(*.*)|*.*|文档文件(*.doc)|*.doc|Excel文件(*.excel)|*.excel|Powerpoint文件(*.ppt)|*.ppt|RTF格式文件(*.rtf)|*.rtf|纯文本格式(*.txt)|*.t

44、xt|caj格式(*.caj)|*.caj|pdf格式(*.pdf)|*.pdfCommon1.ShowOpen 打开对话框Text1.Text = Common1.FileName 获取文件路径Text2.Text = Dir(Common1.FileName) 文件名称Cmd_Save.Enabled = True 保存按钮可用End SubEnd IfAdoRs.Close 关闭数据表End Sub5）文献信息查询模块文献查询界面如图4.8所示。根据用户需要，界面提供了入库日期，作者名，类别名，文档名，文档类型作为查询条。用户可根据自己所需填入限定条件，然后点击查询按钮。本模块能方便用户

45、快速定位找到自己所需的文档。图4.8 文献查询界面设计图查询模块。连接数据库，设置输入查询条件入库日期，作者名，文档名，及类型选取一个或几个进行查询。选取所属类别查询时，先判断是所有类别还是单一类别名；如在数据库中有记录，则执行查询，并移动记录指针；否则，提示没有符合条件的信息；关闭数据库，退出。Private Sub Cmd_cx_Click() 查询按钮Dim Str_SubItems As ListItem 定义一个ListItem集合Dim sql As Stringsql = select * from tb_TempDoc where 1=1 连接数据库If Text2.Text

46、And Text3.Text Thentime1 = Text2.Text + -1-1time2 = Text3.Text + -12-31sql = sql + and RLSJ & time1 & End IfIf Combo1.Text = Or Combo1.Text = 所有类别 Then 按所有类别查询sql = sql + and WDBT Like % & Text1.Text & % and ZZNAME Like % & Text4.Text & %Else 按所选类别查询sql = sql + and WDBT Like % & Text1.Text & % and Z

47、ZNAME Like % & Text4.Text & % and SSLB= & Combo1.Text & End IfAdoRs.Open sql, Cnn, adOpenKeysetIf AdoRs.RecordCount 0 Then 如果记录集大于零则执行ListView1.ListItems.Clear 删除集合中的全部对象AdoRs.MoveFirst 移动记录指针For i = 1 To AdoRs.RecordCountSet Str_SubItems = ListView1.ListItems.Add() 添加 ListItem 对象到 ListItems 集合中With Str_SubItemsText = AdoRs!SSLBSubItems(1) = AdoRs!WDBTSubItems(2) = AdoRs!ZZNAMESubItems(3) = Ad