【最新资料】Delphi Access图书管理系统

1、Delphi 图书管理系统 - 1 - 图书管理系统图书管理系统 摘要：摘要：当今，信息技术飞速发展，深刻的影响着我们的日常生活的方方面面。随着信息 技术的不断发展，其在图书信息化管理方面也得到越来越深入且广泛的应用。如何将先进 的信息技术运用到图书管理中，用来改变图书的传统管理模式，多方面的、多角度满足图 书管理的要求，成为了高校系部图书管理的当务之急。要高效率地把内部活动有机地组织 起来，就必须建立与自身特点相适应的图书管理系统。 本文介绍了在 Delphi 7 环境下采用“自上而下地总体规划，自下而上地应用开发”的策 略开发一个图书馆管理系统的过程。通过分析图书馆对于书本,读者,用户的管

2、理，创建了 一套行之有效的计算机管理的方案。主要完成对图书管理系统的分析与设计、数据库模式 分析、系统功能模块划分，并由此设计了数据库结构和应用程序。本系统界面友好，操作 简单，比较实用。 关键词关键词：图书管理系统；Delphi ；Access 数据库 Delphi 图书管理系统 - 2 - 目目 录录 第一章 系统概述.- 3 - 第二章 开发工具简介.- 4 - 2.1 DELPHI简述 .- 4 - 2.2 ACCESS简介 .- 6 - 第三章系统分析.- 9 - 3.1 系统需求分析 .- 9 - 3.2 系统的可行性分析 .- 9 - 第四章 系统设计.- 10 - 4.1 项目

3、规划.- 10 - 4.2 功能框架图.- 10 - 4.3 逻辑结构设计.- 11 - 4.4 主要功能模块设计.- 12 - 总结.- 27 - 参考文献.- 29 - Delphi 图书管理系统 - 3 - 第一章第一章 系统概述系统概述 在如今的各行各业中都离不开信息处理，这正是计算机被广泛应用于信息管理系统的环 境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提 高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分 发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系 统管理的前提。本系统就是为了管理好图

4、书馆书籍、读者信息而设计的。 传统的系部图书管理一直采用手工操作，入库、借阅、查询等各个环节都大量消耗了人 力、物力，流程繁琐复杂，管理难度大，加之图书库存的日益庞大，数据受工作量、工作 习惯等因素制约，工作人员难以对图书数据进行准确的统计、分析，致使在工作中经常出 现错误和漏洞。采用计算机管理系统管理图书，可以充分利用现代化管理手段规范操作， 科学、有序、高效地进行图书信息管理，并且由系统自动进行图书入库、出库等计算，相 关信息不需要重复录入，杜绝了差错，大大提高了工作效率。 本图书管理系统可以说是一个综合性的图书管理系统，它集成了图书管理系统、读者管 理系统、借阅管理系统等多种功能，紧密结

5、合用户的使用要求，因而具有较强的实用性和 先进性。 Delphi 图书管理系统 - 4 - 第二章第二章 开发工具简介开发工具简介 2.1 Delphi 简述简述 本系统选用的数据库语言介绍如下： Delphi 是一种可视化的、面对对象和调用事件驱动方式的结构化高级程序设计，可用于 开发 Windows 环境下的种类应用程序。它简单易学、效率高，且功能强大，程序开发人员 不必具有 C/C+编程基础。在 Delphi 环境下，利用事件驱动的编程机制、新颖易用的可视 化设计工具，使用 Windows 内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态 数据交换(DDE)、对象的链接与

6、嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快 速地开发出 Windows 环境下功能强大、图形界面丰富的应用软件系统。 总的来说，Delphi 具有以下特点： （1）可视化编程： 用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程 中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意， 还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了 软件开发效率。Delphi 提供了可视化设计工具，把 Windows 界面设计的复杂性“封装”起 来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求

7、的屏幕布局，用系 统提供的工具，在屏幕上画出各种“部件” ，即图形对象，并设置这些图形对象的属性。 Delphi 自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从 而可以大大提高程序设计的效率。 （2）面向对象的程序设计 Delphi 7 支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完 全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念； 而 Delphi 则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象， 并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和 描述每

8、个对象的程序代码，而是用工具画在界面上，Delphi 自动生成对象的程序代码并封 装起来。每个对象以图形方式显示在界面上，都是可视的。 （3）结构化程序设计语言 Delphi 具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。 Delphi 图书管理系统 - 5 - Delphi 语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能 强大且使用灵活的调试器和编译器。 Delphi 是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以 识别的机器指令，并判断每个语句的语法错误。在设计 Delphi 程序的过程中，随时可以运 行程序，而在整个

9、程序设计好之后，可以编译生成可执行文件(.EXE)，脱离 Delphi 环境， 直接在 Windows 环境下运行。 （4）事件驱动编程机制 Delphi 通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通 过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单 击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。 在用 Delphi 设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干 个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱 动完成某种特定的功能，或者由事件驱动程序调用通

10、用过程来执行指定的操作，这样可以 方便编程人员，提高效率。 （5）访问数据库 Delphi 具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或 处理 Microsoft Access 格式的数据库，并提供了强大的数据存储和检索功能。同时， Delphi 还能直接编辑和访问其他外部数据库，如 Sql ， dBASE，FoxPro，Paradox 等， 这些数据库格式都可以用 Delphi 编辑和处理。 Delphi 提供开放式数据连接，即 ODBC 功能，可通过直接访问或建立连接的方式使用并 操作后台大型网络数据库，如 SQL Server，Oracle 等。在应用程序中，可

11、以使用结构化查 询语言 SQL 数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指 令和多用户数据库访问的加锁机制和网络数据库的 SQL 的编程技术，为单机上运行的数据 库提供了 SQL 网络接口，以便在分布式环境中快速而有效地实现客户/服务器 (client/server)方案。 （6）动态数据交换(DDE) 利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地 Delphi 图书管理系统 - 6 - 链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始 数据变化时，可以自动更新链接的数据。Visua

12、l Basic 提供了动态数据交换的编程技术， 可以在应用程序中与其他 Windows 应用程序建立动态数据交换，在不同的应用程序之间进 行通信。 （7）对象的链接与嵌入(OLE) 对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接 (link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、 文字等各种信息的集合式的文件。OLE 技术是 Microsoft 公司对象技术的战略，它把多个 应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一 体化的技术。利用 OLE 技术，可以方便地建立复合式文

13、档(compound document)，这种文档 由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并 可执行与原来应用程序完全相同的操作。 （8）动态链接库(DLL) Delphi 是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太 容易实现。但它可以通过动态链接库技术将 C/C+或汇编语言编写的程序加入到 Delphi 应 用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库， 还可以调用 Windows 应用程序接口(API)函数，实现 SDK 所具有的功能。 2.2 Access 简介简介 Microsoft Of

14、fice Access（前名 Microsoft Access）是由微软发布的关联式数据库管 理系统。它结合了 Microsoft Jet Database Engine 和 图形用户界面两项特点，是 Microsoft Office 的成员之一。其实 Access 也是微软公司另一个通讯程序的名字，想与 ProComm 以及其他类似程序来竞争。可是事后微软证实这是个失败计划，并且将它中止。 数年后他们把名字重新命名于数据库软件。另外，Access 还是 c 语言的一个函数名和一种 交换机的主干道模式。 Access 的主要用途： Microsoft Access 在很多地方得到广泛使用，例如

15、小型企业，大公司的部门，和喜爱编 程的开发人员专门利用它来制作处理数据的桌面系统。它也常被用来开发简单的 WEB 应用 程序这些应用程序都利用 ASP 技术在 Internet Information Services 运行。比较复杂 Delphi 图书管理系统 - 7 - 的 WEB 应用程序则使用 PHP/MySQL 或者 ASP/Microsoft SQL Server。 它的使用方便程度和强大的设计工具为初级程序员提供许多功能。不过，这种便于使用 可能使人误解。这类开发者都是没有在应用或者数据设计方面训练的办公室从业人员。因 此许多人以为这样的开发者能够创造可用的系统，但也有很多人认为

16、工具本身的局限性产 生了这样的误导。 一些专业的应用程序开发人员使用 Access 用作 快速应用开发，特别是给街道上的推销 员制作一个初型或独立应用程序的工具。可是如果是透过网络存取数据的话，Access 的可 扩放性并不高因此当程序被较多使用者使用时，他们的选择多会是倾向于一些客户端-服 务器为本的方案，例如 Oracle、DB2、Microsoft SQL Server、Windows SharePoint Services、PostgreSQL、MySQL、Alpha Five、MaxDB，或者 Filemaker。无论如何，不少 Access 的功能（表单，报告，序列和 VB 代码）

17、可以用作其他数据库的后期应用，包括 JET（档案为主的数据库引擎，Access 缺省使用） 、Microsoft SQL Server、Oracle 和任 何其他跟 ODBC 兼容的产品。这种方法允许开发者把一个成熟的应用的数据移动到一台更大 功率的服务器而没有已经在适当的位置牺牲发展。 很多 Microsoft Access 的开发者使用 Leszynski 命名约定，虽然这不普遍；它是一次编 程大会，并非一个 DBMS 实施的规章。 Access 的优点： （1）存储方式简单，易于维护管理 Access 管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在后缀为 （.mdb 或

18、.accdb）的 数据库文件中，便于用户的操作和管理。 （2)面向对象 Access 是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对 象化，将数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对 象组成的，对每个对象它都定义一组方法和属性，以定义该对象的行为和外国，用户还可 以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极大 地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为 简便。 Delphi 图书管理系统 - 8 - （3）界面友好、易操作 Access 是一个可视化工具，是风格与 Wind

19、ows 完全一样，用户想要生成对象并应用，只 要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设 计器以及数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便， 容易使用和掌握。 （4）集成环境、处理多种数据信息 Access 基于 Windows 操作系统下的集成开发环境，该环境集成了各种向导和生成器工具， 极大地提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据 查询、报表打印等可以方便有序地进行。 （5）Access 支持 ODBC（开发数据库互连，Open Data Base Connectivity） ，利用 Acce

20、ss 强大的 DDE（动态数据交换）和 OLE（对象的联接和嵌入）特性，可以在一个数据 表中嵌入位图、声音、Excel 表格、Word 文档，还可以建立动态的数据库报表和窗体等。 Access 还可以将程序应用于网络，并与网络上的动态数据相联接。利用数据库访问页对象 生成 HTML 文件，轻松构建 Internet/Intranet 的应用。 （6）支持广泛，易于扩展，弹性较大 能够将通过链接表的方式来打开 EXCEL 文件、格式化文本文件等，这样就可以利用数据 库的高效率对其中的数据进行查询、处理。还可以通过以 Access 作为前台客户端，以 SQL Server 作为后台数据库的方式（如

21、 ADP）开发大型数据库应用系统。 Delphi 图书管理系统 - 9 - 第三章系统分析第三章系统分析 3.1 系统需求分析系统需求分析 根据高校图书管理的实际要求，结合本系统开发的要求，对与本章所要介绍的“图书管 理系统”的需求实现如下功能： （1）信息管理功能：这一功能包括书籍信息管理，读者信息管理，借阅信息管理三部分。 其中书籍信息管理包括添加书籍信息、修改书籍信息、删除书籍信息等；读者信息管理包 括添加读者信息、修改读者信息、删除读者信息等；借阅信息管理包括添加借阅信息，修 改借阅信息，删除借阅信息等。 （2）信息查询：这一功能包括书籍信息查询，读者信息查询，借阅信息管理三部分。其

22、中书籍信息查询是通过书名、书号等对书籍信息进行查询；读者信息查询是通过读者名， 借书证号等对读者信息进行查询；借阅信息查询是通过书名、书号等对图书的借出和归还 情况进行查询。 3.2 系统的可行性分析系统的可行性分析 开发任何一个基于计算机的系统，都会受到时间和资源上的限制。因此，在接受任何一 个项目开发任务之前，必须根据客户可能提供的时间和资源条件进行可行性分析，以减少 项目开发的风险，避免人力、物力和财力的浪费。 本系统数据库采用目前比较流行的 Microsoft Access，该数据库处理数据库比较方便， 对于普通用户操作起来也比较方便；开发工具采用 Delphi7，Delphi7 是目

23、前应用最广泛的 数据库系统开发工具，可以快速开发 Windows 应用程序。 Delphi 图书管理系统 - 10 - 第四章第四章 系统设计系统设计 4.1 项目规划项目规划 图书管理系统是一个典型的数据库应用系统，包括图书管理模块，读者管理模块，借阅 管理模块，信息查询模块等。 （1）图书管理模块 图书管理模块主要实现新书录入和书籍信息的添加、修改、删除等功能。 （2)读者管理模块 读者管理模块主要实现读者信息的添加、修改、删除等功能。 （3)借阅管理模块 借阅管理模块主要实现书籍借出归还信息的添加、修改、删除等功能。 （4)信息查询模块 信息查询模块主要实现书籍信息，读者信息和借阅信息的

24、查询功能。 4.2 功能框架图功能框架图 图书管理系统的功能框架图如图 1 所示 Delphi 图书管理系统 - 11 - 图书管理信息 图书管理系统 信息管理信息查询 读者管理信息 借阅管理信息 图书信息查询 读者信息查询 借阅信息查询 图书信息添加 图书信息修改 图书信息删除 读者信息添加 读者信息修改 读者信息删除 借阅信息添加 借阅信息修改 借阅信息删除 Delphi 图书管理系统 - 12 - 图 1 系统功能框架图 4.3 逻辑结构设计逻辑结构设计 由于图书管理系统涉及到的数据量不是很大，Access 数据库就能满足存储数据的要求， 所本系统采用 Access 数据库作为系统的后台

25、数据库。数据库名称为 BookManage.mdb，在 该数据库中共包含了 3 张表。数据库建立成功后就要开始建立数据库中的各个表。本系统 包含的表有 Book，Lend，Reader。 4.3.1 数据表概要说明数据表概要说明 如表 1 所示 表 1 数据库表 表名称功能描述 Book图书信息 Delphi 图书管理系统 - 13 - Lend书籍借阅信息 Reader读者信息 4.3.2 主要数据表结构主要数据表结构 图书信息表主要保存书籍详细信息，结构如表 2 所示 表 2 Book 字段名数据类型长度主键否允许空否 Code文本10是否 Name文本50否否 Author文本50否否

26、Press文本50否否 OutDate日期/时间否否 Memo文本225否 Cost数字长整型否否 Lost文本50否否 读者信息表主要保存读者详细信息，结构如表 3 所示 表 3 Reader 字段名数据类型长度主键否允许空否 ReaderID文本10是否 Name文本50否否 Sex文本1否否 IDCardNo文本20否否 借阅信息表主要保存书籍出归还的详信息，结构如表 4 所示 表 4 Lend 字段名数据类型长度主键否允许空否 Code文本10是否 Reader文本10否否 OutDate日期/时间否否 4.4 主要功能模块设计主要功能模块设计 4.4.1 主窗体设计主窗体设计 主窗体

27、是程序的控制中心，其他模块都是通过主窗体来调用的，所以主窗体的界面设计 要美观而且易于操作。图书管理系统主窗体运行结果如图 2 所示 Delphi 图书管理系统 - 14 - 图 2 主窗体截图 主窗体功能实现部分代码如下 unit Main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, jpeg; type TMainForm = class(TForm) Ima

28、ge1: TImage; Panel1: TPanel; Panel2: TPanel; PageControl1: TPageControl; TabSheet1: TTabSheet; BitBtn3: TBitBtn; BitBtn2: TBitBtn; Delphi 图书管理系统 - 15 - BitBtn4: TBitBtn; BitBtn1: TBitBtn; TabSheet2: TTabSheet; BitBtn8: TBitBtn; BitBtn5: TBitBtn; BitBtn6: TBitBtn; BitBtn7: TBitBtn; Label1: TLabel; pr

29、ocedure FormCreate(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); private Private declarations public Logined:Boolean; Publi

30、c declarations end; begin LendForm.Show; end; procedure TMainForm.BitBtn4Click(Sender: TObject); begin Delphi 图书管理系统 - 16 - Close; end; procedure TMainForm.BitBtn5Click(Sender: TObject); begin QueryForm.Show; end; end. 4.4.2 图书管理模块设计图书管理模块设计 通过图书管理主要实现图书的入库记录以及图书信息的添加、修改、删除等。其运行结 果如图 3、图 4 所示。 图 3 图

31、书管理截图（1） Delphi 图书管理系统 - 17 - 图 4 图书管理截图（2） 图书管理功能实现部分代码如下 unit Book; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, DB, ADODB, DBCtrls, Mask; type TBookForm = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSh

32、eet; Panel1: TPanel; Bevel2: TBevel; StaticText1: TStaticText; Delphi 图书管理系统 - 18 - procedure DataSource1DataChange(Sender: TObject; Field: TField); private Private declarations public Public declarations end; var BookForm: TBookForm; implementation uses DataModule; $R *.dfm procedure TBookForm.Butt

33、on1Click(Sender: TObject); begin if Length(CodeEdit.Text) 10 then begin MessageDlg(书号不正确,mtError,mbok,0); CodeEdit.SetFocus; Exit; end; with DataModuleADO.ADOQuery1 do procedure TBookForm.ComboBox1Change(Sender: TObject); begin if Length(ComboBox1.Text) = 10 then Delphi 图书管理系统 - 19 - begin try with

34、DataModuleADO.ADOTable1 do begin TableName:=book; DBOutDate.DataField:= OutDate; DBName.DataField:= Name; DBAuthor.DataField:= Author; DBPress.DataField:= Press; DBCost.DataField:= Cost; DBMemo.DataField:= Memo; Active:=True; Locate(code,ComboBox1.Text,); Edit; end; except MessageDlg(数据操作出错,mtError,

35、mbok,0); end; end; end; begin end; end. Delphi 图书管理系统 - 20 - 4.4.3 读者管理模块设计读者管理模块设计 通过读者管理功能主要实现对读者详细信息的添加、修改、删除等功能。其运行结果如 图 5 所示 图 5 读者管理截图 图书管理功能实现部分代码如下 unit Reader; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TReader

36、Form = class(TForm) GroupBox3: TGroupBox; Button3: TButton; Button4: TButton; GroupBox2: TGroupBox; Delphi 图书管理系统 - 21 - GroupBox1: TGroupBox; RadioButton1: TRadioButton; RadioButton2: TRadioButton; GroupBox4: TGroupBox; Edit3: TEdit; Edit1: TEdit; Edit2: TEdit; StaticText1: TStaticText; StaticText2

37、: TStaticText; StaticText3: TStaticText; StaticText4: TStaticText; Button2: TButton; Button1: TButton; ListView1: TListView; ComboBox1: TComboBox; procedure Button1Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure RadioButton1Click(Se

38、nder: TObject); procedure Button2Click(Sender: TObject); procedure ListView1Click(Sender: TObject); private Private declarations public Public declarations end; Delphi 图书管理系统 - 22 - begin for i :=0 to ListView1.Items.Count-1 do if ListView1.Itemsi.Selected then begin RadioButton2.Checked:=True; Edit

39、1.Text:= ListView1.Itemsi.Caption; Edit2.Text:=ListView1.Itemsi.SubItems.Strings0; if ListView1.Itemsi.SubItems.Strings1=男 then ComboBox1.ItemIndex:=0 else ComboBox1.ItemIndex:=1; Edit3.Text:=ListView1.Itemsi.SubItems.Strings2; end; end; end. 4.4.4 借阅管理模块设计借阅管理模块设计 通过借阅管理功能主要实现对书籍借出及归还的详细情况的添加、修改、删除

40、等。其运 行结果如图 6 所示 Delphi 图书管理系统 - 23 - 图 6 借阅管理截图 借阅管理功能实现部分代码如下 unit Lend; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, DB, ADODB; type TOwnBook = record Code : string; Name : string; Price : string; OwnDays : in

41、teger; Delphi 图书管理系统 - 24 - end; TLendForm = class(TForm) Button1: TButton; Button3: TButton; Button2: TButton; Panel2: TPanel; Bevel1: TBevel; StaticText1: TStaticText; Panel1: TPanel; Bevel2: TBevel; StaticText2: TStaticText; procedure FormShow(Sender: TObject); procedure ComboBox1Change(Sender: T

42、Object); procedure Button1Click(Sender: TObject); procedure ReaderIDEditChange(Sender: TObject); procedure Button2Click(Sender: TObject); procedure ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Button3Click(Sender: TObject); private Private declarations public Publi

43、c declarations CanLand : boolean; end; Delphi 图书管理系统 - 25 - procedure TLendForm.Button3Click(Sender: TObject); begin Close; end; 4.4.5 信息查询系统信息查询系统 通过信息查询功能主要实现对于图书信息，读者信息，以及书籍借阅信息的查询。其运 行结果如图 7、图 8、图 9 所示 查询图书基本信息，见图 7 图 7 信息查询截图（1） 查询读者基本信息，见图 8 Delphi 图书管理系统 - 26 - 图 8 信息查询截图（2） 查询借阅基本信息，见图 9 图 9

44、 信息查询截图（3） Delphi 图书管理系统 - 27 - 查询功能实现部分代码如下 unit InfoQuery; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls, ADODB; type TQueryForm = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; GroupBox1: TGroupBox;

45、RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; RadioButton4: TRadioButton; CheckBox1: TCheckBox; StaticText1: TStaticText; Button2: TButton; StaticText2: TStaticText; ListView1: TListView; TabSheet2: TTabSheet; GroupBox2: TGroupBox; RadioButton5: TRadioButton; Ra

46、dioButton6: TRadioButton; CheckBox2: TCheckBox; StaticText3: TStaticText; Edit1: TEdit; Delphi 图书管理系统 - 28 - Button3: TButton; private Private declarations public Public declarations end; begin with ListView3.Items.Add do begin Caption := FieldByName(ReaderID).AsString; SubItems.Add(FieldByName(Name

47、).AsString); if FieldByName(Sex).AsString = 1 then SubItems.Add(女) else SubItems.Add(男); SubItems.Add(FieldByName(Code).AsString); SubItems.Add(FieldByName(OutDate).AsString); SubItems.Add(FloatToStr(Date-FieldByName(OutDate).AsDateTime); SubItems.Add(FieldByName(IDCardNo).AsString); if Date-FieldBy

48、Name(OutDate).AsDateTime 60 then SubItems.Add(FloatToStr(Date-FieldByName(OutDate).AsDateTime- 60)*0.1) else SubItems.Add(0) end; Delphi 图书管理系统 - 29 - 总结总结 本图书管理系统实现了图书管理的基本功能，经过调试运行，表明该系统具有可行性和 可扩充性。但操作系统还有待于进一步的改善，数据库也还有待进一步的完善与规划，使 系统更加高效，更加人性化。 通过几周的设计练习，从系统的需求分析开始，到逻辑结构设计，再到最后的系统实施 与维护，一步步走下来虽然

49、感觉有点累，但每一步都获益匪浅。从这个设计中，不仅仅从 实践中巩固提高了 Delphi 软件的应用和 Access 数据库的相关知识，体会了设计一个系统 的过程，更学到了一种设计分析的思想，一种能力。 在这几周的课程设计中，遇到了各种各样的问题，特别是数据库实现，与系统前台的实 现阶段。为了解决这样那样的问题，我翻阅了不同的书籍，在网上搜索了大量的资料，一 个一个的将问题解决掉。在这期间，无形中锻炼了我分析问题，解决问题的能里，锻炼了 我自主学习的能力。同时也体会到了学习的乐趣和收获的喜悦。 Delphi 图书管理系统 - 30 - 参考文献参考文献 1张世明Delphi 程序设计基础教程、实

50、验、习题北京：电子工业出版社，2010 2梁水Delphi 程序开发范例宝典 第二版北京：人民邮电出版社，2010 3席一凡Delphi 程序设计北京：中国铁道出版社，2008 4段兴Delphi7 实用程序设计 100 例北京：人民邮电出版社，2003 5李俊德Access 2003 入门与实例演练北京：中国青年出版社，2005 6 陈光军，张秀芝Access 2003 实验案例教程北京：中国水利出版社，2009 7马义玲Access 数据库与程序设计教程成都：四川大学出版社，2008 8程伟渊数据库基础：Access 2003 应用教程北京：中国水利水电出版社，2007 Delphi 图书

51、管理系统 31 以下是附加文档，不需要以下是附加文档，不需要 的朋友下载后删除，谢谢的朋友下载后删除，谢谢 顶岗实习总结专题顶岗实习总结专题 1313 篇篇 第一篇第一篇: :顶岗实习总结顶岗实习总结 为了进一步巩固理论知识，将理论与实践有机地结合起来，按照 学校的计划要求，本人进行了为期个月的顶岗实习。这个月里的时 间里，经过我个人的实践和努力学习，在同事们的指导和帮助下， 对村的概况和村委会有了一定的了解，对村村委会的日常工作及内 部制度有了初步的认识，同时，在与其他工作人员交谈过程中学到 了许多难能可贵经验和知识。通过这次实践，使我对村委会实务有 所了解，也为我今后的顺利工作打下了良好的

52、基础。 一、实习工作情况一、实习工作情况 村是一个（此处可添加一些你实习的那个村和村委会的介绍）我 到村村委会后，先了解了村的发展史以及村委会各个机构的设置情 况，村委会的规模、人员数量等，做一些力所能及的工作，帮忙清 理卫生，做一些后勤工作；再了解村的文化历史，认识了一些同事， 村委会给我安排了一个特定的指导人；然后在村委会学习了解其他 人员工作情况，实习期间我努力将自己在学校所学的理论知识向实 Delphi 图书管理系统 32 践方面转化，尽量做到理论与实践相结合。在实习期间我遵守了工 作纪律，不迟到、不早退，认真完成领导交办的工作。 我在村委会主要是负责管理日常信件的工作，这个工作看似轻

53、松， 却是责任重大，来不得办点马虎。一封信件没有及时收发，很有可 能造成工作的失误、严重的甚至会造成巨大的经济损失。很感谢村 委会对我这个实习生的信任，委派了如此重要的工作给我。在实习 过程中，在信件收发管理上，我一直亲力亲为，片刻都不敢马虎。 为了做好信件的管理工作，我请教村委会的老同事、上网查阅相 关资料，整理出了一套信函管理的具体方法。每次邮递员送来的信 件，我都要亲自检查有无开封、损坏的函件，如果发现有损坏的函 件，我马上联络接收人亲自来查收。需要到邮局领取的函件，我都 亲自到邮局领取，并把信函分别发放到每个收件人的手里。对于收 到的所有信函，我都分门别类的登记，标注好收发人的单位、姓

54、名 还有来函日期等等。我对工作的认真负责，受到了村委会领导和同 事们的一致好评，在他们的鼓励下，我的工作干劲更足了。 在工作之余，我还经常去村民家里，帮助他们做一些我力所能及 的事情，也让我收获了很多知识，学会了许多技能。我学会了一些 常见农作物的生长特征，也学会了怎么给农作物施肥，洒药。这些， 都将是我今后人生道路上的宝贵财富。 短短个月的实习生活很快就过去了，这次实习是我从学校踏入社 会的第一步。在这里，我感受到了村民们的纯朴，也体会到了农村 Delphi 图书管理系统 33 生活的不易，更加深刻的认识到了作为当代大学生身上肩负的使命。 在这次实习生活中，村委会的叔叔、阿姨们对我十分的照顾

55、，在工 作中，在生活上都给予了我很多的帮助，也对我寄予了很高的期望。 通过这次实习，锻炼了我的做事能力，养成了对人对事的责任心， 也坚定了我加强学习，提升自我价值的信心。 二、发现的问题和建议二、发现的问题和建议 在此次在村村委会顶岗实习的工作中，确实让我学到了不少书本 以外的知识，同时我也发现了不少问题。 第一，该村村委会的工作人员文化水平相对偏低，在村务工作的 处理上，方式方法比较粗放。 第二，村委会工作人员思想比较守旧，缺乏对新事物、新观念的 学习和认识。 第三，村委会的现代化办公水平还比较低，虽然配备了电脑等现 代化办公工具，但是实际的利用程度很低。 第四，村委会人员由于不是国家编制，

56、工作人员的工作热情和工 作态度不是很积极。 三、实习的心得体会三、实习的心得体会 刚开始去村村委会实习的时候，我的心情充满了激动、兴奋、期 盼、喜悦。我相信，只要我认真学习，好好把握，做好每一件事， 实习肯定会有成绩。但后来很多东西看似简单，其实要做好它很不 Delphi 图书管理系统 34 容易。通过实践我深有感触，实习期虽然很短，却使我懂得了很多。 不仅是进行了一次良好的校外实习. 本文来自公务员之家，查看正文请使用公务员之家站内搜索查看 正文。 第二篇第二篇: :会计顶岗实习工作总结会计顶岗实习工作总结 从我踏进实习单位的那一刻起，我就知道我将经历一段特殊的不 平凡的并且充满收获的人生旅

57、程，那旅程必定在我的生命中写下浓 墨重彩的一笔，必定会在我的生命中留下绚烂多彩的回忆，必定会 给我带来生命中无与伦比的财富。 一、实习目的一、实习目的 毕业实习是我们大学期间的最后一门课程,不知不觉我们的大学 时光就要结束了,在这个时候,我们非常希望通过实践来检验自己掌 握的知识的正确性。在这个时候，我来到圣鹿源生物科技股份有限 公司在这里进行我的毕业实习。 二、实习内容及过程二、实习内容及过程 为了达到毕业实习的预期目的。在学校与社会这个承前启后的实 习环节，我们对自己、对工作有了更具体的认识和客观的评价。在 整个的实习工程中,我总共做了以下的一些工作,同时自己的能力也 得到了相应的提高。

58、Delphi 图书管理系统 35 1.工作能力。在实习过程中，积极肯干，虚心好学、工作认真负 责，胜任单位所交给我的工作，并提出一些合理化建议，多做实际 工作，为企业的效益和发展做出贡献。 2.实习方式。在实习单位，师傅指导我的日常实习，以双重身份 完成学习与工作两重任务。向单位员工一样上下班，完成单位工作； 又以学生身份虚心学习，努力汲取实践知识。 3.实习收获。主要有四个方面。一是通过直接参与企业的运作过 程，学到了实践知识，同时进一步加深了对理论知识的理解，使理 论与实践知识都有所提高，圆满地完成了教学的实践任务。二是提 高了实际工作能力，为就业和将来的工作取得了一些宝贵的实践经 验。三

59、是在实习单位受到认可并促成就业. 本文来自公务员之家，查看正文请使用公务员之家站内搜索查看 正文。 第三篇第三篇: :工厂车间顶岗实习总结工厂车间顶岗实习总结 我怀着激动的心情踏上了期待已久的顶岗实习之路，当我坐上离 开学校的的班车那一刻起，我就知道我将经历一段特殊的不平凡的 并且收获的人生旅程，那旅程必定在我的生命中写下浓墨重彩的一 笔，必定会在我的生命中留下绚烂多彩的回忆，并定会给我带来生 命中无与伦比的财富。那时候对自己的未来希，希在那里能大展拳 脚，实现自己的抱负。那时候想的是多么多么的好啊，直到此刻我 Delphi 图书管理系统 36 才觉得我当时是那么的幼稚，不可能你刚出来什么都没

60、有就让你做 好的岗位。 是的，顶岗实习的生活是艰辛的挑战的。当我们来到实习点面对 一间间产房和一条条流水线时，很多人后悔为什么当初选择了到海 信科龙顶岗实习，但是我想说，这是我所预料到的，这也是我想要 的，我知道人只有在艰苦的环境中才能磨练出坚强的意志，我也知 道吃得苦中苦，方为人上认得道理，我自然还不是人上人，但是我 相信在这个世界上每一个人都渴成功，都渴自己有限的生命能创造 出的价值，都渴为更多的人做出自己能做的一切，都渴在看来你的 生命无可，我自然也比例外。我知道我的实习之路还刚刚开始，我 要经历的还有很多。到啦海信科龙之后，尽管他们很就帮我们把食 宿解决啦，但那里生活习惯和在湖南的时候