DelphiAccess图书管理系统方案

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

2、效的计算机管理的方案。主要完成对图书管理系统的分析与设计、数据库模式分析、系统功能模块划分，并由此设计了数据库结构和应用程序。本系统界面友好，操作简单，比较实用。关键词关键词：图书管理系统；Delphi ；Access 数据库. . . . - 2 - / 29目目 录录第一章 系统概述.- 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、.3 逻辑结构设计.- 11 -4.4 主要功能模块设计.- 12 -总结.- 27 -参考文献.- 29 -. . . . - 3 - / 29第一章第一章 系统概述系统概述在如今的各行各业中都离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统就是为了管理好图书馆书籍、读者信息而设计的。传统的系部图书管理一直采用手工操作，入库、借阅、查

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

5、 开发工具简介开发工具简介2.12.1 DelphiDelphi 简述简述本系统选用的数据库语言介绍如下：Delphi 是一种可视化的、面对对象和调用事件驱动方式的结构化高级程序设计，可用于开发 Windows 环境下的种类应用程序。它简单易学、效率高，且功能强大，程序开发人员不必具有 C/C+编程基础。在 Delphi 环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用 Windows 部的应用程序接口(API)函数，以与动态库(DLL)、动态数据交换(DDE)、对象的与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出 Windows 环境下功能强大、图形

6、界面丰富的应用软件系统。总的来说，Delphi 具有以下特点：（1）可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Delphi 提供了可视化设计工具，把 Windows 界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件” ，即图形对象，并设置这些图形对象的属性。Delphi 自动产生界面设计

7、代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。（2）面向对象的程序设计 Delphi 7 支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全一样。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而 Delphi 则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Delphi 自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。（3）结构

8、化程序设计语言Delphi 具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。. . . . - 5 - / 29Delphi 语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Delphi 是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计 Delphi 程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离 Delphi 环境，直接在 Windows 环境下运行。（4）事件驱动编程机制Delphi 通过事件来执

9、行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用 Delphi 设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。（5）访问数据库Delphi 具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理 Microsof

10、t Access 格式的数据库，并提供了强大的数据存储和检索功能。同时，Delphi 还能直接编辑和访问其他外部数据库，如 Sql ， dBASE，FoxPro，Paradox 等，这些数据库格式都可以用 Delphi 编辑和处理。Delphi 提供开放式数据连接，即 ODBC 功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如 SQL Server，Oracle 等。在应用程序中，可以使用结构化查询语言 SQL 数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的 SQL 的编程技术，为单机上运行的数据库提供了 S

11、QL 网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。（6）动态数据交换(DDE)利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态. . . . - 6 - / 29地到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新的数据。Visual Basic 提供了动态数据交换的编程技术，可以在应用程序中与其他 Windows 应用程序建立动态数据交换，在不同的应用程序之间进行通信。（7）对象的与嵌入(OLE)对象的与嵌入(OLE)将每个应用程序都看做是一个对象

12、(object)，将不同的对象(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE 技术是 Microsoft 公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行和嵌入，是一种应用程序一体化的技术。利用 OLE 技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全一样的操作。（8）动态库(DLL)Delphi 是一种高级程序设计语言，不具备低级语言的功能，对访问机

13、器硬件的操作不太容易实现。但它可以通过动态库技术将 C/C+或汇编语言编写的程序加入到 Delphi 应用程序中，可以像调用部函数一样调用其他语言编写的函数。此外，通过动态库，还可以调用 Windows 应用程序接口(API)函数，实现 SDK 所具有的功能。2.22.2 AccessAccess 简介简介Microsoft Office Access（前名 Microsoft Access）是由微软发布的关联式数据库管理系统。它结合了 Microsoft Jet Database Engine 和 图形用户界面两项特点，是 Microsoft Office 的成员之一。其实 Access 也

14、是微软公司另一个通讯程序的名字，想与 ProComm 以与其他类似程序来竞争。可是事后微软证实这是个失败计划，并且将它中止。数年后他们把名字重新命名于数据库软件。另外，Access 还是 c 语言的一个函数名和一种交换机的主干道模式。Access 的主要用途：Microsoft Access 在很多地方得到广泛使用，例如小型企业，大公司的部门，和喜爱编程的开发人员专门利用它来制作处理数据的桌面系统。它也常被用来开发简单的 WEB 应用程序这些应用程序都利用 ASP 技术在 Internet Information Services 运行。比较复. . . . - 7 - / 29杂的 WEB

15、应用程序则使用 PHP/MySQL 或者 ASP/Microsoft SQL Server。 它的使用方便程度和强大的设计工具为初级程序员提供许多功能。不过，这种便于使用可能使人误解。这类开发者都是没有在应用或者数据设计方面训练的办公室从业人员。因此许多人以为这样的开发者能够创造可用的系统，但也有很多人认为工具本身的局限性产生了这样的误导。 一些专业的应用程序开发人员使用 Access 用作 快速应用开发，特别是给街道上的推销员制作一个初型或独立应用程序的工具。可是如果是透过网络存取数据的话，Access 的可扩放性并不高因此当程序被较多使用者使用时，他们的选择多会是倾向于一些客户端-服务器为

16、本的方案，例如 Oracle、DB2、Microsoft SQL Server、Windows SharePoint Services、PostgreSQL、MySQL、Alpha Five、MaxDB，或者 Filemaker。无论如何，不少 Access 的功能（表单，报告，序列和 VB 代码）可以用作其他数据库的后期应用，包括 JET（档案为主的数据库引擎，Access 缺省使用） 、Microsoft SQL Server、Oracle 和任何其他跟 ODBC 兼容的产品。这种方法允许开发者把一个成熟的应用的数据移动到一台更大功率的服务器而没有已经在适当的位置牺牲发展。 很多 Micr

17、osoft Access 的开发者使用 Leszynski 命名约定，虽然这不普遍；它是一次编程大会，并非一个 DBMS 实施的规章。Access 的优点：（1）存储方式简单，易于维护管理 Access 管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在后缀为（.mdb 或.accdb）的 数据库文件中，便于用户的操作和管理。 （2)面向对象 Access 是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对象组成的，对每个对象它都定义一组方法和属性，以定义该对象的行为和外国，用户还可

18、以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。 . . . . - 8 - / 29（3）界面友好、易操作 Access 是一个可视化工具，是风格与 Windows 完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以与数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。 （4）集成环境、处理多种数据信息 Access 基于 Windows 操作系统下的集成开发环境，该环境集成了各种

19、向导和生成器工具，极提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查询、报表打印等可以方便有序地进行。 （5）Access 支持 ODBC（开发数据库互连，Open Data Base Connectivity） ，利用Access 强大的 DDE（动态数据交换）和 OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、声音、Excel 表格、Word 文档，还可以建立动态的数据库报表和窗体等。Access 还可以将程序应用于网络，并与网络上的动态数据相联接。利用数据库访问页对象生成 HTML 文件，轻松构建 Internet/Intranet 的应用。 （6）

20、支持广泛，易于扩展，弹性较大 能够将通过表的方式来打开 EXCEL 文件、格式化文本文件等，这样就可以利用数据库的高效率对其中的数据进行查询、处理。还可以通过以 Access 作为前台客户端，以 SQL Server 作为后台数据库的方式（如 ADP）开发大型数据库应用系统。. . . . - 9 - / 29第三章系统分析第三章系统分析3.13.1 系统需求分析系统需求分析根据高校图书管理的实际要求，结合本系统开发的要求，对与本章所要介绍的“图书管理系统”的需现如下功能：（1）信息管理功能：这一功能包括书籍信息管理，读者信息管理，借阅信息管理三部分。其中书籍信息管理包括添加书籍信息、修改书籍

21、信息、删除书籍信息等；读者信息管理包括添加读者信息、修改读者信息、删除读者信息等；借阅信息管理包括添加借阅信息，修改借阅信息，删除借阅信息等。（2）信息查询：这一功能包括书籍信息查询，读者信息查询，借阅信息管理三部分。其中书籍信息查询是通过书名、书号等对书籍信息进行查询；读者信息查询是通过读者名，借书证号等对读者信息进行查询；借阅信息查询是通过书名、书号等对图书的借出和归还情况进行查询。3.23.2 系统的可行性分析系统的可行性分析开发任何一个基于计算机的系统，都会受到时间和资源上的限制。因此，在接受任何一个项目开发任务之前，必须根据客户可能提供的时间和资源条件进行可行性分析，以减少项目开发的

22、风险，避免人力、物力和财力的浪费。本系统数据库采用目前比较流行的 Microsoft Access，该数据库处理数据库比较方便，对于普通用户操作起来也比较方便；开发工具采用 Delphi7，Delphi7 是目前应用最广泛的数据库系统开发工具，可以快速开发 Windows 应用程序。. . . . - 10 - / 29第四章第四章 系统设计系统设计4.14.1 项目规划项目规划图书管理系统是一个典型的数据库应用系统，包括图书管理模块，读者管理模块，借阅管理模块，信息查询模块等。（1）图书管理模块图书管理模块主要实现新书录入和书籍信息的添加、修改、删除等功能。（2)读者管理模块读者管理模块主要

23、实现读者信息的添加、修改、删除等功能。（3)借阅管理模块借阅管理模块主要实现书籍借出归还信息的添加、修改、删除等功能。（4)信息查询模块信息查询模块主要实现书籍信息，读者信息和借阅信息的查询功能。4.24.2 功能框架图功能框架图图书管理系统的功能框架图如图 1 所示. . . . - 11 - / 29图 1 系统功能框架图4.34.3 逻辑结构设计逻辑结构设计由于图书管理系统涉与到的数据量不是很大，Access 数据库就能满足存储数据的要求，所本系统采用 Access 数据库作为系统的后台数据库。数据库名称为 BookManage.mdb，在该数据库中共包含了 3 表。数据库建立成功后就要

24、开始建立数据库中的各个表。本系统包含的表有 Book，Lend，Reader。4.3.14.3.1 数据表概要说明数据表概要说明如表 1 所示表 1 数据库表表名称功能描述Book图书信息图书管理信息图书管理系统信息管理信息查询读者管理信息借阅管理信息图书信息查询读者信息查询借阅信息查询图书信息添加图书信息修改图书信息删除读者信息添加读者信息修改读者信息删除借阅信息添加借阅信息修改借阅信息删除. . . . - 12 - / 29Lend书籍借阅信息Reader读者信息4.3.24.3.2 主要数据表结构主要数据表结构图书信息表主要保存书籍详细信息，结构如表 2 所示表 2 Book字段名数据

25、类型长度主键否允许空否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.44.4 主要功能模块设计主

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

27、orm = class(TForm) Image1: TImage; Panel1: TPanel; Panel2: TPanel; PageControl1: TPageControl; TabSheet1: TTabSheet; BitBtn3: TBitBtn; BitBtn2: TBitBtn;. . . . - 14 - / 29 BitBtn4: TBitBtn; BitBtn1: TBitBtn; TabSheet2: TTabSheet; BitBtn8: TBitBtn; BitBtn5: TBitBtn; BitBtn6: TBitBtn; BitBtn7: TBitBtn

28、; 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 Lo

29、gined:Boolean; Public declarations end;begin LendForm.Show;end;procedure TMainForm.BitBtn4Click(Sender: TObject);begin. . . . - 15 - / 29 Close;end;procedure TMainForm.BitBtn5Click(Sender: TObject);begin QueryForm.Show;end;end.4.4.24.4.2 图书管理模块设计图书管理模块设计通过图书管理主要实现图书的入库记录以与图书信息的添加、修改、删除等。其运行结果如图 3、图

30、4 所示。图 3 图书管理截图（1）. . . . - 16 - / 29图 4 图书管理截图（2）图书管理功能实现部分代码如下unit Book;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, DB, ADODB, DBCtrls, Mask;type TBookForm = class(TForm) PageControl1: TPageControl; TabSheet1: TTab

31、Sheet; Panel1: TPanel; Bevel2: TBevel; StaticText1: TStaticText;. . . . - 17 - / 29 procedure DataSource1DataChange(Sender: TObject; Field: TField); private Private declarations public Public declarations end;var BookForm: TBookForm;implementationuses DataModule;$R *.dfmprocedure TBookForm.Button1Cl

32、ick(Sender: TObject);begin if Length(CodeEdit.Text) 10 then begin MessageDlg(书号不正确,mtError,mbok,0); CodeEdit.SetFocus; Exit; end; with DataModuleADO.ADOQuery1 doprocedure TBookForm boBox1Change(Sender: TObject);begin if Length(ComboBox1.Text) = 10 then. . . . - 18 - / 29 begin try with DataModuleADO

33、.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;

34、 end;end;beginend;end. . . . - 19 - / 294.4.34.4.3 读者管理模块设计读者管理模块设计通过读者管理功能主要实现对读者详细信息的添加、修改、删除等功能。其运行结果如图 5 所示图 5 读者管理截图图书管理功能实现部分代码如下unit Reader;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TReaderForm = class(TForm) Grou

35、pBox3: TGroupBox; Button3: TButton; Button4: TButton; GroupBox2: TGroupBox;. . . . - 20 - / 29 GroupBox1: TGroupBox; RadioButton1: TRadioButton; RadioButton2: TRadioButton; GroupBox4: TGroupBox; Edit3: TEdit; Edit1: TEdit; Edit2: TEdit; StaticText1: TStaticText; StaticText2: TStaticText; StaticText3

36、: 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

37、Button2Click(Sender: TObject); procedure ListView1Click(Sender: TObject); private Private declarations public Public declarations end;. . . . - 21 - / 29begin for i :=0 to ListView1.Items.Count-1 do if ListView1.Itemsi.Selected then begin RadioButton2.Checked:=True; Edit1.Text:= ListView1.Itemsi.Cap

38、tion; 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.44.4.4 借阅管理模块设计借阅管理模块设计通过借阅管理功能主要实现对书籍借出与归还的详细情况的添加、修改、删除等。其运行结果如图 6 所示. . . . - 22 -

39、 / 29图 6 借阅管理截图借阅管理功能实现部分代码如下unit Lend;interfaceuses 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;. . . . - 23 - / 29 end;TLendFo

40、rm = 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:

41、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;.

42、. . . - 24 - / 29procedure TLendForm.Button3Click(Sender: TObject);begin Close;end;4.4.54.4.5 信息查询系统信息查询系统通过信息查询功能主要实现对于图书信息，读者信息，以与书籍借阅信息的查询。其运行结果如图 7、图 8、图 9 所示查询图书基本信息，见图 7图 7 信息查询截图（1）查询读者基本信息，见图 8. . . . - 25 - / 29图 8 信息查询截图（2）查询借阅基本信息，见图 9图 9 信息查询截图（3）. . . . - 26 - / 29查询功能实现部分代码如下unit InfoQ

43、uery;interfaceuses 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: T