Delphi+Access图书管理系统.doc

Delphi 图书管理系统 1 图书管理系统图书管理系统 摘要 摘要 当今 信息技术飞速发展 深刻的影响着我们的日常生活的方方面面 随着信 息技术的不断发展 其在图书信息化管理方面也得到越来越深入且广泛的应用 如何将先 进的信息技术运用到图书管理中 用来改变图书的传统管理模式 多方面的 多角度满足 图书管理的要求 成为了高校系部图书管理的当务之急 要高效率地把内部活动有机地组 织起来 就必须建立与自身特点相适应的图书管理系统 本文介绍了在 Delphi 7 环境下采用 自上而下地总体规划 自下而上地应用开发 的 策略开发一个图书馆管理系统的过程 通过分析图书馆对于书本 读者 用户的管理 创建 了一套行之有效的计算机管理的方案 主要完成对图书管理系统的分析与设计 数据库模 式分析 系统功能模块划分 并由此设计了数据库结构和应用程序 本系统界面友好 操 作简单 比较实用 关键词关键词 图书管理系统 Delphi Access 数据库 Delphi 图书管理系统 2 目目 录录 第一章 系统概述 3 第二章 开发工具简介 4 2 1 DELPHI简述 4 2 2 ACCESS简介 6 第三章系统分析 9 3 1 系统需求分析 9 3 2 系统的可行性分析 9 第四章 系统设计 10 4 1 项目规划 10 4 2 功能框架图 10 4 3 逻辑结构设计 11 4 4 主要功能模块设计 12 总结 27 参考文献 29 Delphi 图书管理系统 3 第一章第一章 系统概述系统概述 在如今的各行各业中都离不开信息处理 这正是计算机被广泛应用于信息管理系统的 环境 计算机的最大好处在于利用它能够进行信息管理 使用计算机进行信息控制 不仅 提高了工作效率 而且大大的提高了其安全性 尤其对于复杂的信息管理 计算机能够充 分发挥它的优越性 计算机进行信息管理与信息管理系统的开发密切相关 系统的开发是 系统管理的前提 本系统就是为了管理好图书馆书籍 读者信息而设计的 传统的系部图书管理一直采用手工操作 入库 借阅 查询等各个环节都大量消耗了 人力 物力 流程繁琐复杂 管理难度大 加之图书库存的日益庞大 数据受工作量 工 作习惯等因素制约 工作人员难以对图书数据进行准确的统计 分析 致使在工作中经常 出现错误和漏洞 采用计算机管理系统管理图书 可以充分利用现代化管理手段规范操作 科学 有序 高效地进行图书信息管理 并且由系统自动进行图书入库 出库等计算 相 关信息不需要重复录入 杜绝了差错 大大提高了工作效率 本图书管理系统可以说是一个综合性的图书管理系统 它集成了图书管理系统 读者 管理系统 借阅管理系统等多种功能 紧密结合用户的使用要求 因而具有较强的实用性 和先进性 Delphi 图书管理系统 4 第二章第二章 开发工具简介开发工具简介 2 1 Delphi 简述简述 本系统选用的数据库语言介绍如下 Delphi 是一种可视化的 面对对象和调用事件驱动方式的结构化高级程序设计 可用 于开发 Windows 环境下的种类应用程序 它简单易学 效率高 且功能强大 程序开发人 员不必具有 C C 编程基础 在 Delphi 环境下 利用事件驱动的编程机制 新颖易用的可 视化设计工具 使用 Windows 内部的应用程序接口 API 函数 以及动态链接库 DLL 动 态数据交换 DDE 对象的链接与嵌入 OLE 开放式数据访问 ODBC 等技术 可以高效 快速地开发出 Windows 环境下功能强大 图形界面丰富的应用软件系统 总的来说 Delphi 具有以下特点 1 可视化编程 用传统程序设计语言设计程序时 都是通过编写程序代码来设计用户界面 在设计过 程中看不到界面的实际显示效果 必须编译后运行程序才能观察 如果对界面的效果不满 意 还要回到程序中修改 有时候 这种编程 编译 修改的操作可能要反复多次 大大影 响了软件开发效率 Delphi 提供了可视化设计工具 把 Windows 界面设计的复杂性 封装 起来 开发人员不必为界面设计而编写大量程序代码 只需要按设计要求的屏幕布局 用 系统提供的工具 在屏幕上画出各种 部件 即图形对象 并设置这些图形对象的属性 Delphi 自动产生界面设计代码 程序设计人员只需要编写实现程序功能的那部分代码 从 而可以大大提高程序设计的效率 2 面向对象的程序设计 Delphi 7 支持面向对象的程序设计 但它与一般的面向对象的程序设计语言 C 不 完全相同 在一般的面向对象程序设计语言中 对象由程序代码和数据组成 是抽象的概 念 而 Delphi 则是应用面向对象的程序设计方法 OOP 把程序和数据封装起来作为一个 对象 并为每个对象赋予应有的属性 使对象成为实在的东西 在设计对象时 不必编写 建立和描述每个对象的程序代码 而是用工具画在界面上 Delphi 自动生成对象的程序代 码并封装起来 每个对象以图形方式显示在界面上 都是可视的 3 结构化程序设计语言 Delphi 具有高级程序设计语言的语句结构 接近于自然语言和人类的逻辑思维方式 Delphi 图书管理系统 5 Delphi 语句简单易懂 其编辑器支持彩色代码 可自动进行语法错误检查 同时具有功能 强大且使用灵活的调试器和编译器 Delphi 是解释型语言 在输入代码的同时 解释系统将高级语言分解翻译成计算机可 以识别的机器指令 并判断每个语句的语法错误 在设计 Delphi 程序的过程中 随时可以 运行程序 而在整个程序设计好之后 可以编译生成可执行文件 EXE 脱离 Delphi 环境 直接在 Windows 环境下运行 4 事件驱动编程机制 Delphi 通过事件来执行对象的操作 一个对象可能会产生多个事件 每个事件都可以 通过一段程序来响应 例如 命令按钮是一个对象 当用户单击该按钮时 将产生一个 单击 CLICK 事件 而在产生该事件时将执行一段程序 用来实现指定的操作 在用 Delphi 设计大型应用软件时 不必建立具有明显开始和结束的程序 而是编写若 干个微小的子程序 即过程 这些过程分别面向不同的对象 由用户操作引发某个事件来 驱动完成某种特定的功能 或者由事件驱动程序调用通用过程来执行指定的操作 这样可 以方便编程人员 提高效率 5 访问数据库 Delphi 具有强大的数据库管理功能 利用数据控件和数据库管理窗口 可以直接建立 或处理 Microsoft Access 格式的数据库 并提供了强大的数据存储和检索功能 同时 Delphi 还能直接编辑和访问其他外部数据库 如 Sql dBASE FoxPro Paradox 等 这些数据库格式都可以用 Delphi 编辑和处理 Delphi 提供开放式数据连接 即 ODBC 功能 可通过直接访问或建立连接的方式使用 并操作后台大型网络数据库 如 SQL Server Oracle 等 在应用程序中 可以使用结构化 查询语言 SQL 数据标准 直接访问服务器上的数据库 并提供了简单的面向对象的库操作 指令和多用户数据库访问的加锁机制和网络数据库的 SQL 的编程技术 为单机上运行的数 据库提供了 SQL 网络接口 以便在分布式环境中快速而有效地实现客户 服务器 client server 方案 6 动态数据交换 DDE 利用动态数据交换 Dynamic Data Exchange 技术 可以把一种应用程序中的数据动态 Delphi 图书管理系统 6 地链接到另一种应用程序中 使两种完全不同的应用程序建立起一条动态数据链路 当原 始数据变化时 可以自动更新链接的数据 Visual Basic 提供了动态数据交换的编程技术 可以在应用程序中与其他 Windows 应用程序建立动态数据交换 在不同的应用程序之间进 行通信 7 对象的链接与嵌入 OLE 对象的链接与嵌入 OLE 将每个应用程序都看做是一个对象 object 将不同的对象链 接 link 起来 再嵌入 embed 某个应用程序中 从而可以得到具有声音 影像 图像 动 画 文字等各种信息的集合式的文件 OLE 技术是 Microsoft 公司对象技术的战略 它把 多个应用程序合为一体 将每个应用程序看做是一个对象进行链接和嵌入 是一种应用程 序一体化的技术 利用 OLE 技术 可以方便地建立复合式文档 compound document 这种 文档由来自多个不同应用程序的对象组成 文档中的每个对象都与原来的应用程序相联系 并可执行与原来应用程序完全相同的操作 8 动态链接库 DLL Delphi 是一种高级程序设计语言 不具备低级语言的功能 对访问机器硬件的操作不 太容易实现 但它可以通过动态链接库技术将 C C 或汇编语言编写的程序加入到 Delphi 应用程序中 可以像调用内部函数一样调用其他语言编写的函数 此外 通过动态链接库 还可以调用 Windows 应用程序接口 API 函数 实现 SDK 所具有的功能 2 2 Access 简介简介 Microsoft Office Access 前名 Microsoft Access 是由微软发布的关联式数据库 管理系统 它结合了 Microsoft Jet Database Engine 和 图形用户界面两项特点 是 Microsoft Office 的成员之一 其实 Access 也是微软公司另一个通讯程序的名字 想与 ProComm 以及其他类似程序来竞争 可是事后微软证实这是个失败计划 并且将它中止 数年后他们把名字重新命名于数据库软件 另外 Access 还是 c 语言的一个函数名和一种 交换机的主干道模式 Access 的主要用途 Microsoft Access 在很多地方得到广泛使用 例如小型企业 大公司的部门 和喜爱 编程的开发人员专门利用它来制作处理数据的桌面系统 它也常被用来开发简单的 WEB 应 用程序 这些应用程序都利用 ASP 技术在 Internet Information Services 运行 比较复 Delphi 图书管理系统 7 杂的 WEB 应用程序则使用 PHP MySQL 或者 ASP Microsoft SQL Server 它的使用方便程度和强大的设计工具为初级程序员提供许多功能 不过 这种便于使 用可能使人误解 这类开发者都是没有在应用或者数据设计方面训练的办公室从业人员 因此许多人以为这样的开发者能够创造可用的系统 但也有很多人认为工具本身的局限性 产生了这样的误导 一些专业的应用程序开发人员使用 Access 用作 快速应用开发 特别是给街道上的推 销员制作一个初型或独立应用程序的工具 可是如果是透过网络存取数据的话 Access 的 可扩放性并不高 因此当程序被较多使用者使用时 他们的选择多会是倾向于一些客户端 服务器为本的方案 例如 Oracle DB2 Microsoft SQL Server Windows SharePoint Services PostgreSQL MySQL Alpha Five MaxDB 或者 Filemaker 无论如何 不少 Access 的功能 表单 报告 序列和 VB 代码 可以用作其他数据库的后期应用 包括 JET 档案为主的数据库引擎 Access 缺省使用 Microsoft SQL Server Oracle 和任 何其他跟 ODBC 兼容的产品 这种方法允许开发者把一个成熟的应用的数据移动到一台更大 功率的服务器而没有已经在适当的位置牺牲发展 很多 Microsoft Access 的开发者使用 Leszynski 命名约定 虽然这不普遍 它是一次 编程大会 并非一个 DBMS 实施的规章 Access 的优点 1 存储方式简单 易于维护管理 Access 管理的对象有表 查询 窗体 报表 页 宏和模块 以上对象都存放在后缀 为 mdb 或 accdb 的 数据库文件中 便于用户的操作和管理 2 面向对象 Access 是一个面向对象的开发工具 利用面向对象的方式将数据库系统中的各种功能 对象化 将数据库管理的各种功能封装在各类对象中 它将一个应用系统当作是由一系列 对象组成的 对每个对象它都定义一组方法和属性 以定义该对象的行为和外国 用户还 可以按需要给对象扩展方法和属性 通过对象的方法 属性完成数据库的操作和管理 极 大地简化了用户的开发工作 同时 这种基于面向对象的开发方式 使得开发应用程序更 为简便 Delphi 图书管理系统 8 3 界面友好 易操作 Access 是一个可视化工具 是风格与 Windows 完全一样 用户想要生成对象并应用 只要使用鼠标进行拖放即可 非常直观方便 系统还提供了表生成器 查询生成器 报表 设计器以及数据库向导 表向导 查询向导 窗体向导 报表向导等工具 使得操作简便 容易使用和掌握 4 集成环境 处理多种数据信息 Access 基于 Windows 操作系统下的集成开发环境 该环境集成了各种向导和生成器工 具 极大地提高了开发人员的工作效率 使得建立数据库 创建表 设计用户界面 设计 数据查询 报表打印等可以方便有序地进行 5 Access 支持 ODBC 开发数据库互连 Open Data Base Connectivity 利用 Access 强大的 DDE 动态数据交换 和 OLE 对象的联接和嵌入 特性 可以在一个数据 表中嵌入位图 声音 Excel 表格 Word 文档 还可以建立动态的数据库报表和窗体等 Access 还可以将程序应用于网络 并与网络上的动态数据相联接 利用数据库访问页对象 生成 HTML 文件 轻松构建 Internet Intranet 的应用 6 支持广泛 易于扩展 弹性较大 能够将通过链接表的方式来打开 EXCEL 文件 格式化文本文件等 这样就可以利用数 据库的高效率对其中的数据进行查询 处理 还可以通过以 Access 作为前台客户端 以 SQL Server 作为后台数据库的方式 如 ADP 开发大型数据库应用系统 Delphi 图书管理系统 9 第三章系统分析第三章系统分析 3 1 系统需求分析系统需求分析 根据高校图书管理的实际要求 结合本系统开发的要求 对与本章所要介绍的 图书 管理系统 的需求实现如下功能 1 信息管理功能 这一功能包括书籍信息管理 读者信息管理 借阅信息管理三部 分 其中书籍信息管理包括添加书籍信息 修改书籍信息 删除书籍信息等 读者信息管 理包括添加读者信息 修改读者信息 删除读者信息等 借阅信息管理包括添加借阅信息 修改借阅信息 删除借阅信息等 2 信息查询 这一功能包括书籍信息查询 读者信息查询 借阅信息管理三部分 其中书籍信息查询是通过书名 书号等对书籍信息进行查询 读者信息查询是通过读者名 借书证号等对读者信息进行查询 借阅信息查询是通过书名 书号等对图书的借出和归还 情况进行查询 3 2 系统的可行性分析系统的可行性分析 开发任何一个基于计算机的系统 都会受到时间和资源上的限制 因此 在接受任何 一个项目开发任务之前 必须根据客户可能提供的时间和资源条件进行可行性分析 以减 少项目开发的风险 避免人力 物力和财力的浪费 本系统数据库采用目前比较流行的 Microsoft Access 该数据库处理数据库比较方便 对于普通用户操作起来也比较方便 开发工具采用 Delphi7 Delphi7 是目前应用最广泛的 数据库系统开发工具 可以快速开发 Windows 应用程序 Delphi 图书管理系统 10 第四章第四章 系统设计系统设计 4 1 项目规划项目规划 图书管理系统是一个典型的数据库应用系统 包括图书管理模块 读者管理模块 借 阅管理模块 信息查询模块等 1 图书管理模块 图书管理模块主要实现新书录入和书籍信息的添加 修改 删除等功能 2 读者管理模块 读者管理模块主要实现读者信息的添加 修改 删除等功能 3 借阅管理模块 借阅管理模块主要实现书籍借出归还信息的添加 修改 删除等功能 4 信息查询模块 信息查询模块主要实现书籍信息 读者信息和借阅信息的查询功能 4 2 功能框架图功能框架图 图书管理系统的功能框架图如图 1 所示 Delphi 图书管理系统 11 图书管理信息 图书管理系统 信息管理信息查询 读者管理信息 借阅管理信息 图书信息查询 读者信息查询 借阅信息查询 图书信息添加 图书信息修改 图书信息删除 读者信息添加 读者信息修改 读者信息删除 借阅信息添加 借阅信息修改 借阅信息删除 图 1 系统功能框架图 4 3 逻辑结构设计逻辑结构设计 由于图书管理系统涉及到的数据量不是很大 Access 数据库就能满足存储数据的要求 所本系统采用 Access 数据库作为系统的后台数据库 数据库名称为 BookManage mdb 在 该数据库中共包含了 3 张表 数据库建立成功后就要开始建立数据库中的各个表 本系统 包含的表有 Book Lend Reader 4 3 1 数据表概要说明数据表概要说明 如表 1 所示 表 1 数据库表 表名称功能描述 Book图书信息 Delphi 图书管理系统 12 Lend书籍借阅信息 Reader读者信息 4 3 2 主要数据表结构主要数据表结构 图书信息表主要保存书籍详细信息 结构如表 2 所示 表 2 Book 字段名数据类型长度主键否允许空否 Code文本10是否 Name文本50否否 Author文本50否否 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 主窗体设计主窗体设计 主窗体是程序的控制中心 其他模块都是通过主窗体来调用的 所以主窗体的界面设 计要美观而且易于操作 图书管理系统主窗体运行结果如图 2 所示 Delphi 图书管理系统 13 图 2 主窗体截图 主窗体功能实现部分代码如下 unit Main interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls Buttons ComCtrls ExtCtrls jpeg type TMainForm class TForm Image1 TImage Panel1 TPanel Panel2 TPanel PageControl1 TPageControl TabSheet1 TTabSheet BitBtn3 TBitBtn BitBtn2 TBitBtn Delphi 图书管理系统 14 BitBtn4 TBitBtn BitBtn1 TBitBtn TabSheet2 TTabSheet BitBtn8 TBitBtn BitBtn5 TBitBtn BitBtn6 TBitBtn BitBtn7 TBitBtn Label1 TLabel procedure 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 Public declarations end begin LendForm Show end procedure TMainForm BitBtn4Click Sender TObject begin Delphi 图书管理系统 15 Close end procedure TMainForm BitBtn5Click Sender TObject begin QueryForm Show end end 4 4 2 图书管理模块设计图书管理模块设计 通过图书管理主要实现图书的入库记录以及图书信息的添加 修改 删除等 其运行 结果如图 3 图 4 所示 图 3 图书管理截图 1 Delphi 图书管理系统 16 图 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 TTabSheet Panel1 TPanel Bevel2 TBevel StaticText1 TStaticText Delphi 图书管理系统 17 procedure DataSource1DataChange Sender TObject Field TField private Private declarations public Public declarations end var BookForm TBookForm implementation uses DataModule R dfm procedure TBookForm Button1Click 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 图书管理系统 18 begin try with 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 mbok 0 end end end begin end end Delphi 图书管理系统 19 4 4 3 读者管理模块设计读者管理模块设计 通过读者管理功能主要实现对读者详细信息的添加 修改 删除等功能 其运行结果 如图 5 所示 图 5 读者管理截图 图书管理功能实现部分代码如下 unit Reader interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls ComCtrls type TReaderForm class TForm GroupBox3 TGroupBox Button3 TButton Button4 TButton GroupBox2 TGroupBox Delphi 图书管理系统 20 GroupBox1 TGroupBox RadioButton1 TRadioButton RadioButton2 TRadioButton GroupBox4 TGroupBox Edit3 TEdit Edit1 TEdit Edit2 TEdit StaticText1 TStaticText StaticText2 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 Sender TObject procedure Button2Click Sender TObject procedure ListView1Click Sender TObject private Private declarations public Public declarations end Delphi 图书管理系统 21 begin for i 0 to ListView1 Items Count 1 do if ListView1 Items i Selected then begin RadioButton2 Checked True Edit1 Text ListView1 Items i Caption Edit2 Text ListView1 Items i SubItems Strings 0 if ListView1 Items i SubItems Strings 1 男 then ComboBox1 ItemIndex 0 else ComboBox1 ItemIndex 1 Edit3 Text ListView1 Items i SubItems Strings 2 end end end 4 4 4 借阅管理模块设计借阅管理模块设计 通过借阅管理功能主要实现对书籍借出及归还的详细情况的添加 修改 删除等 其 运行结果如图 6 所示 Delphi 图书管理系统 22 图 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 integer Delphi 图书管理系统 23 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 TObject 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 Public declarations CanLand boolean end Delphi 图书管理系统 24 procedure TLendForm Button3Click Sender TObject begin Close end 4 4 5 信息查询系统信息查询系统 通过信息查询功能主要实现对于图书信息 读者信息 以及书籍借阅信息的查询 其 运行结果如图 7 图 8 图 9 所示 查询图书基本信息 见图 7 图 7 信息查询截图 1 查询读者基本信息 见图 8 Delphi 图书管理系统 25 图 8 信息查询截图 2 查询借阅基本信息 见图 9 图 9 信息查询截图 3 Delphi 图书管理系统 26 查询功能实现部分代码如下 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 RadioButton1 TRadioButton RadioButton2 TRadioButton RadioButton3 TRadioButton RadioButton4 TRadioButton CheckBox1 TCheckBox StaticText1 TStaticText Button2 TButton StaticText2 TStaticText ListView1 TListView TabSheet2 TTabSheet GroupBox2 TGroupBox RadioButton5 TRadioButton RadioButton6 TRadioButton Ch