BorlandDelphi教学讲义市公开课一等奖省赛课微课金奖课件

第九章数据库应用程序设计9.1数据库系统概述9.2Delphi数据库应用程序体系结构9.3数据库设计9.4惯用数据库组件9.5数据库应用程序综合实例习题1/719.1数据库系统概述9.1.1基本概念1.数据数据（Data）是数据库中存放基本对象。所谓数据，就是能被计算机识别与处理符号。数据种类很多，如数字、文字、表格、图形、图像、声音等，都属于数据。2．数据库所谓数据库（Database，简称DB）是长久存放在计算机内、有组织、可共享数据集合。数据库中数据按一定数据模型组织、描述和存放，含有较小冗余度、较高数据独立性和易扩展性，并可为各种用户共享。2/719.1数据库系统概述3．数据库管理系统数据库管理系统（DataBaseManagementSystem，简称DBMS）是一个以统一方式管理、维护数据库中数据一系列软件集合。DBMS是位于用户应用程序和操作系统之间数据库管理系统软件，对数据库进行统一管理和控制。它主要功效以下：(1)数据定义功效(2)数据操纵功效(3)数据库运行管理(4)数据库建立和维护功效(5)数据库通信功效3/719.1数据库系统概述4．数据库系统数据库系统（DataBaseSystem，简称DBS）是指在计算机系统中引入数据库后系统，普通由数据库、数据库管理系统和数据库应用程序组成。数据库建立、使用和维护等工作只靠一个DBMS远远不够，还要有专门人员来完成，这些人被称为数据库管理员（DataBaseAdministrator，简称DBA）。4/719.1数据库系统概述9.1.2Delphi数据库特征Delphi提供了许多组件以方便地创建数据库应用程序。它能够访问各种数据库管理系统数据库，数据库对象数据组员既可在设计阶段设置，也可在运行阶段经过程序代码进行设置。Delphi组件面板上提供了数据库应用程序开发中需要使用组件选项卡。5/719.1数据库系统概述9.1.3Delphi能够使用数据源Delphi数据库应用程序能够经过BDE获取它们所需数据，BDE与不一样类型数据源打交道，BDE能够使用数据源见表9-3。6/719.1数据库系统概述表9-3BDE能够使用数据源数据源特征描述dBASE数据库数据库表是经过dBASE数据库管理系统或DBD建立，每一个表是一个独立.dbf文件Paradox数据库数据库表是经过Paradox数据库管理系统.db或dbd建立，每一个表是一个独立文件ASCII文件表是经过DatabaseDesktop建立，每个.txt表是一个独立文件当地InterBase服务器数据库是经过InterBase数据库管理系统.gbd建立，多个表包含在一个数据库文件中SQL数据库服务器数据库是经过对应数据库服务器提供依赖Oracle、Sybase、Informix专用或通用工具建立，也能够经过dbd或数据库管理系统MicrosoftSQLServer创建数据库，并经过SQLLink访问数据库管理系统InterBaseODBC数据源主要是指那些含有ODBC接口数据库系统依赖于如MSAccess、Btrieve等数据库7/719.2Delphi数据库应用程序体系结构一个数据库应用程序往往包含两部分：数据库访问部分和用户界面。数据库访问部分直接或间接访问数据库，这为数据库应用程序和数据库之间提供接口；而用户界面主要是为了方便用户使用，尽可能要设计友好界面，方便用户操作。在编写数据库应用程序时，普通把数据库访问部分和用户界面分别封装到不一样模块中。在Delphi中提供了数据模块（DataModule）这种容器，在编写数据库应用程序时把数据库访问部分内容放在数据模块中，这么就便于数据库应用程序数据存取一致性，便于程序调试和后期维护。数据库应用程序体系结构主要由两方面决定，首先是使用数据库类型（即是当地数据库还是远程数据库），另首先是同时访问数据库用户数以及数据库中需要存放哪些类型信息。由此，数据库应用程序结构能够分为三种：单层结构、两层结构和多层结构。8/719.2Delphi数据库应用程序体系结构9.2.1单层结构在单层数据库应用程序中，应用程序和数据库共享同一个文件系统，它们使用当地数据库或文件来存取数据。一个单层数据库应用程序同时包含了用户界面和数据访问机制（可能是经过BDE，也可能是经过文件）。单层数据库应用程序体系结构如图9-1所表示。在此结构中，能够经过基于BDE数据集组件从当地数据库中获取数据，再经过数据源（DataSource）组件向用户提供数据。9/719.2Delphi数据库应用程序体系结构图9-1单层数据库应用程序结构10/719.2Delphi数据库应用程序体系结构9.2.2两层结构在两层数据库应用程序中，客户程序提供用户界面，经过BDE、ADO从远程数据库服务器获取数据。两层数据库应用程序体系结构如图9-2所表示。把一个单层数据库应用程序转换为两层数据库应用程序，只要修改数据集组件属性连接一个SQL服务器就行了。11/719.2Delphi数据库应用程序体系结构图9-2两层数据库应用程序结构12/719.2Delphi数据库应用程序体系结构9.2.3多层结构多层数据库应用程序是为了适应网络技术飞速发展而发展起来一个新技术。它把整个应用程序分为多个单元，全部单元一齐合作完成对数据库管理。它是建立在两层数据库应用基础上，只要深刻了解了两层数据库模型，就能很好地掌握多层结构数据库应用程序。13/719.2Delphi数据库应用程序体系结构在多层结构数据库应用程序中，客户程序、应用服务器和远程数据库服务器通常分布在不一样机器上。客户程序主要提供用户界面，它向应用服务器请求数据和申请更新数据，再由应用服务器向远程数据库服务器请求数据和申请更新数据。14/719.3数据库设计数据库应用程序设计包含两个部分：数据库设计和应用程序设计。在开发数据库应用程序之前，必须进行需求分析，对数据库概念结构、逻辑结构和物理结构进行规范设计，这是决定数据库应用程序开发成败关键。通常数据库所包含大量信息是以表形式存放。数据库中有表是独立，有表之间存在一定关系，设计数据库就是将大量信息经过分析和归纳，分别存放到多个表中，确定表之间相互关系。15/719.3数据库设计9.3.1惯用数据库在Delphi7中要开发数据库应用程序，首要任务就是访问数据库。Delphi7能够访问各种数据库，如Paradox、Access等基于文本数据库、Oracal、Infomix、MicroSoftSQLServer等大型数据库。对这些数据库访问能够经过BDE、ADO组件中OLEDB方式进行访问。16/719.3数据库设计惯用数据库有1．Paradox2．Access3．大型数据库惯用大型数据库有InterBase、Oracle、Sybase、Infomix、DB2和MicrosoftSQLServer等17/719.3数据库设计9.3.2数据库、表创建与维护1.创建数据库【例9-1】在BDE中创建别名为Rsgl数据库2.创建表【例9-2】在DatabaseDesktop中创建表Department，其结构见表9-4。3.修改表结构4.向表中添加统计【例9-3】向Department表中添加一批统计。18/719.3数据库设计表9-4Department表结构字段名数据类型长度部门号A3部门名称A10责任人A8电话号码A1119/719.3数据库设计字段名数据类型长度职员号A6姓名A8性别A2出生日期D

8婚否L

1职称A10职务A10基本工资$

6部门号A3简历M100表9-5Employees表结构20/719.3数据库设计表9-6Department表中统计信息部门号部门名称责任人电话号码001技术处丁一56221356002生产处杨帆4522554221/719.4惯用数据库组件Delphi7提供了很多数据库组件，使得开发数据库应用程序变得相当轻易。Delphi7中为了创建数据库应用程序需要使用BDE数据集组件、数据访问组件和数据控制组件。Delphi使用可视化组件创建数据库应用程序，跟创建其它非数据库应用程序一样，数据库组件都具备一定属性，程序设计人员能够在设计过程中设置组件各种属性，也能够在程序运行过程中经过程序来设置组件各种属性。在Delphi组件面板上DataAccess和DataControl选项卡上组件是用于开发数据库应用程序。数据访问组件、数据控制组件以及它们与数据库、用户界面有机联络如图9-14所表示。22/719.4惯用数据库组件图9-14数据库组件体系结构23/719.4惯用数据库组件9.4.1BDE数据集组件BDE选项卡上有数据集组件TTable、TQuery、TStoredProc以及与TQuery组件相联络TUpdateSQL组件。Database与Session组件用于建立数据库连接；BatchMove组件用于复制数据；NestedTable组件主要用于将主从关系数据嵌套在子数据库表格中。BDEClientDataSet组件将ClientDataSet与BDE相关数据访问组件结合起来。24/719.4惯用数据库组件1．TTable组件(1)用途TTable组件是使用频率最高数据库组件，该组件能够建立数据库应用程序(2)主要属性①Active属性②DatabaseName属性③TableName属性④TableType属性⑤Exclusive属性25/719.4惯用数据库组件(3)与表创建与删除相关属性与方法①Fields属性②FieldDefs属性③CreateTable方法④DeleteTable方法⑤RenameTable方法(4)与数据库表索引相关属性和方法①IndexName属性②IndexFieldCount属性和IndexFields属性③IndexDefs属性④GetIndexNames方法26/719.4惯用数据库组件(5)数据查询①Locate方法和Lookup方法②GotoKey方法和FindKey方法③GotoNearest方法和FindNearest方法④SetKey方法(6)与表统计定位、增加、删除、修改操作相关属性和方法①BOF和EOF属性②RecNo属性③First方法和Last方法④Prior方法和Next方法⑤Append方法和AppendRecord方法⑥Insert方法和InsertRecord方法⑦Post方法和Edit方法⑧Cancel方法和Delete方法⑨SetRecords方法⑩EmptyTable方法27/719.4惯用数据库组件【例9-4】在例9-3所创建数据库基础上使用Table组件实现查询、插入、删除、更新功效。查询代码编写单击设计界面中“查询”按钮，查询employees.db数据库表中统计。Delphi提供了各种实现查询功效方法：①调用Locate方法在“查询”按钮Onclick事件处理程序中加入以下代码：procedureTForm1.Button1Click(Sender:TObject);beginTable1.Locate('姓名','丁一',[]);//查询姓名为“丁一”统计end;28/719.4惯用数据库组件②调用GotoKey方法在查询之前，要确保查询字段是关键字段或辅助索引字段，假如要查询字段不是关键字段或辅助索引字段，则查询过程失败，系统会报错。比如，在“查询”按钮Onclick事件处理程序中加入以下代码：procedureTForm1.Button1Click(Sender:TObject);beginTable1.IndexFieldNames:='职员号';//指定查询字段

Table1.SetKey;//将Table1置为查询状态

Table1.Fields[0].AsString:='111001';//指定查询字段值

Table1.GotoKey;//进行查询end;

29/719.4惯用数据库组件插入功效实现①用Insert方法实现插入功效在“插入”按钮Onclick事件处理程序中加入以下代码：procedureTForm1.Button2Click(Sender:TObject);beginTable1.Insert;//设置为插入状态

Table1.Fields[0].AsString:='111002';//设置要插入值

Table1.Post;//将插入统计写回数据库End;30/719.4惯用数据库组件②用Append方法实现插入功效在“插入”按钮Onclick事件处理程序中加入以下代码：(*实现在尾部插入一条职员号为“111003”统计*)procedureTForm1.Button2Click(Sender:TObject);beginTable1.Append;//设置为插入状态

Table1.Fields[0].AsString:='111003';//设置要插入值

Table1.Post;//将插入统计写回数据库End;31/719.4惯用数据库组件(4)删除功效实现在“删除”按钮Onclick事件处理程序中加入以下代码：procedureTForm1.Button3Click(Sender:TObject);beginTable1.Delete;//删除统计指针指向统计End;(5)更新功效实现

在“更新”按钮Onclick事件处理程序中加入以下代码：procedureTForm1.Button3Click(Sender:TObject);beginTable1.Edit;//将Table控件置成编辑状态

Table1.Fields[0].AsString:='王芳'Table1.Post;//将修改后统计写回数据库End;32/719.4惯用数据库组件2．TQuery组件(1)用途Delphi中另一个主要数据集组件是TQuery，它需要使用SQL语言命令来进行查询。Delphi经过TQuery组件实现了对SQL语言支持，在Delphi开发数据库应用程序中，SQL语句经过TQuery组件传递到要访问数据库系统数据库引擎上，由数据库引擎详细执行SQL语句，以实现对数据操作，而不是传递给Delphi中BDE，由BDE实施详细SQL动作。33/719.4惯用数据库组件(2)主要属性①DatabaseName属性②SQL属性③Active属性④Filter属性⑤Filtered属性⑥Params属性⑦ExecSQL方法34/719.4惯用数据库组件(3)静态SQL语句和动态SQL语句Delphi中使用SQL语句有两种：静态SQL语句和动态SQL语句。静态SQL语句是指在程序设计阶段，设置TQuery组件SQL属性。这么当设计阶段或者在程序执行阶段设置TQuery组件Active属性为true时，或者在程序运行期间调用TQuery组件Open或ExecSQL方法执行SQL语句。动态SQL语句是指在SQL语句中包含一些参数变量，在程序运行过程中这些变量值都是可变。比如能够设置SQL属性为：Select*fromEmployeeswhere姓名=:name;其中name变量便是一个参数变量，它由一个冒号引导，在程序运行过程中要为参数变量赋值才行，不然SQL语句不能正确执行。35/719.4惯用数据库组件(4)TQuery组件使用方法执行SQL语句有两种方式：一个是在设计期间把Active属性设为true，程序会自动执行SQL语句：另一个方式是在程序运行期间调用TQuery组件Open或者ExecSQL方法执行SQL语句。假如希望返回查询结果，调用Open，假如不需要返回查询结果，调用ExecSQL。在调用Open或ExecSQL之前，最好先调用Prepare方法经过服务器做好准备。执行SQL所返回查询结果实际上是数据集中满足特定条件统计所组成子集，数据库表格只显示符合特定条件统计。在程序运行过程中，首先调用TQuery组件Close方法关闭当前SQL调用，然后调用SQLClear方法去除SQL属性，并使用SQLAdd方法增加新SQL命令到SQL属性中。36/719.4惯用数据库组件在程序运行过程中，首先调用TQuery组件Close方法关闭当前SQL调用，然后调用SQLClear方法去除SQL属性，并使用SQLAdd方法增加新SQL命令到SQL属性中。因为在程序运行过程中，程序设计人员是无法确定TQuery组件中SQL语句是否会返回一个查询结果，所以执行SQL语句时经常在Try…Except模块中。普通形式以下：TryQueryl.Open;ExceptQuery1.ExecSQL;end;37/719.4惯用数据库组件假如使用动态SQL语句，首先调用Prepare方法，给动态SQL语句中参数赋值，然后再调用Open方法或ExecSQL方法。调用Prepare方法并不是必须，不过对于要屡次执行TQuery组件中SQL属性中动态SQL语句，调用Prepare能够大大提升TQuery组件执行SQL语句性能。38/719.4惯用数据库组件【例9-5】在例9-3所创建数据库基础上使用TQuery组件实现查询、插入、删除、更新功效。图9-17窗体界面设计39/719.4惯用数据库组件查询功效实现用TQuery组件实现查询功效SQL语句基本格式以下：SELECT<字段名表或表示式>FROM<表名>[WHERE<条件>][ORDERBY<排序表示式>][GROUPBY<分组表示式>]其中SELECT和FROM子句是不可缺乏。40/719.4惯用数据库组件SELECT子句指出查询结果中显示字段名，以及字段名和函数组成表示式等。若要显示表中全部字段时，可用通配符“*”代替字段名表。FROM子句指定要查询数据库表。WHERE子句定义了查询条件，必须紧跟FROM子句之后，其中<条件>子句是一个逻辑表示式。ORDERBY子句对查询统计结果按照指定字段值进行排序。GROUPBY子句对查询统计结果按照指定字段值进行分组另外，对表数据进行查询时，经常需要对结果进行汇总或计算，SQL语言聚集函数用于计算表中数据，返回单个计算结果。惯用聚集函数主要有以下几个：统计数目COUNT求和SUM平均值AVG最大值MAX最小值MIN

41/719.4惯用数据库组件在“查询”按钮Onclick事件处理程序中加入以下代码：procedureTForm1.Button1Click(Sender:TObject);beginQuery1.Close;//修改SQL语句之前先关闭Query组件Query1.SQL.Clear;//去除旧SQL语句Query1.SQL.Add('SELECT*FROMemployees.db');//添加新SQL语句Query1.SQL.Add('WHERE姓名=''丁一''');Query1.Open;//执行SQL语句end;42/719.4惯用数据库组件插入功效实现用TQuery组件实现插入功效SQL语句基本格式以下：INSERTINTO[(<字段名表>)]VALUES该命令功效是在<表名>指定数据库表中，插入统计。指定了插入统计中要赋值字段，VALUES（<字段值表>）指定了要给<字段名表>中字段所赋值。TQuery组件中执行插入功效SQL语句要用ExecSQL方法执行。43/719.4惯用数据库组件在“插入”按钮Onclick事件处理程序中加入以下代码：procedureTForm1.Button2Click(Sender:TObject);beginQuery1.Close;//修改SQL语句之前先关闭Query组件Query1.SQL.Clear;//去除旧SQL语句Query1.SQL.Add('INSERTINTOemployees.db');Query1.SQL.Add('(姓名)');Query1.SQL.Add('VALUES(''李宏伟'')');(*对于字符串中出现单引号要进行特殊处理，所以字符型数据，要用两对单引号括起来)Query1.ExecSQL;//显示插入结果Query1.Close;Query1.SQL.Clear;Query1.SQL.Add('SELECT*FROMemployees.db');Query1.Open;end;44/719.4惯用数据库组件删除功效实现用TQuery组件实现删除功效SQL语句基本格式以下：DELETEFROM<表名>[WHERE<条件>]该语句功效是从<表名>指定数据库表中删除满足条件统计，若省略WHERE子句，表示删除全部统计。TQuery组件中执行删除功效SQL语句要用ExecSQL方法执行。45/719.4惯用数据库组件在“删除”按钮Onclick事件处理程序中加入以下代码：procedureTForm1.Button3Click(Sender:TObject);beginQuery1.Close;Query1.SQL.Clear;Query1.SQL.Add('DELETEFROMemployees.db');Query1.SQL.Add('WHERE姓名=''李宏伟''');Query1.ExecSQL;Query1.Close;Query1.SQL.Clear;Query1.SQL.Add('SELECT*FROMemployees.db');Query1.Open;end;46/719.4惯用数据库组件更新功效实现用TQuery组件实现更新功效SQL语句基本格式以下：UPDATE<表名>SET<字段名>=<新字段值>[WHERE<条件>]该语句功效是将<表名>指定数据库表中满足条件统计中SET子句<字段名>所指定字段值设置为<新字段值>。若省略WHERE子句，表示更新全部统计指定字段值。TQuery组件中执行更新功效SQL语句要用ExecSQL方法执行。47/719.4惯用数据库组件在“更新”按钮Onclick事件处理程序中加入以下代码：procedureTForm1.Button4Click(Sender:TObject);beginQuery1.Close;Query1.SQL.Clear;Query1.SQL.Add('UPDATEemployees.db');Query1.SQL.Add('SET基本工资=基本工资+200');Query1.SQL.Add('WHERE姓名=''杨帆''');Query1.ExecSQL;Query1.Close;Query1.SQL.Clear;Query1.SQL.Add('SELECT*FROMemployees.db');Query1.Open;end;48/719.4惯用数据库组件3.其它BDE组件(1)TBatchMove组件TBatchMove组件能够从数据集中成批地拷贝、删除、更新、添加数据到另外一个数据表中。经常被用来将桌面数据库数据升级到SQL服务器上，或者保留查询后数据用于分析。(2)TSession组件TSession组件连接了数据库引擎BDE和应用程序内Database。在每一个数据库应用程序运行时，Delphi会自动创建一个默认TSesssion组件：Session。在应用程序中加入新数据访问组件和数据集组件时，这些组件会自动地处于默认BDE会话期对象，即Session控制之下，对于简单数据库应用程序只需要使用这个默认TSession组件即可。另外，TSession组件还能提供访问Paradox表和dBASE表口令，指定网络控制文件所在目录，控制数据表连接等功效。49/719.4惯用数据库组件(3)TNestedTable组件经过TNestedTable组件能够访问嵌套数据集中数据。它实现功效类似于Table组件，唯一不一样是TNestedTable组件访问数据是存放在嵌套数据表格中。50/719.4惯用数据库组件9.4.2数据访问（DataAccess）组件数据访问组件建立了数据集组件和数据控制组件之间桥梁，它是编写数据库应用程序所必需；在Delphi7中数据访问组件位于组件面板DataAccess选项卡上，51/719.4惯用数据库组件１．用途TDataSource组件在数据库应用程序编写中经常使用，是连接数据访问组件TTable、TQuery等数据集组件和TDBGfid、TDImage等数据控制组件之间桥梁2．主要属性(1)AutoEdit属性(2)DataSet属性(3)Enabled属性(4)Edit方法(5)IsLinkedTo方法52/719.4惯用数据库组件9.4.3数据控制（DataControls）组件数据控制组件位于组件面板DataControls选项卡上它们主要用于设计数据库应用程序用户界面，对数据库中数据进行浏览、编辑、插入、删除等操作。数据控制组件既能把数据库中数据显示到窗口中，又能够将其本身经过修改数据写回到数据库中。数据控制组件使用相当简单，普通只需设置组件DataSource属性为指定数据访问组件，假如需要话，再设置数据控制组件DataField属性，以说明需要显示数据表中字段。53/719.4惯用数据库组件1.TDBGrid组件(1)用途TDBGrid组件是最惯用采取网格方式显示数据库表中指定字段数据组件，它经过DataSource属性与TTable组件建立连接，显示数据库表中数据，并能够让用户编辑这些数据。(2)主要属性①DataSource属性②Columns属性③FixedColor属性④Options属性⑤TitleFont属性54/719.4惯用数据库组件2．TDBText组件TDBText组件类似于Standard选项卡中Lable组件，是一个只读数据控制组件，主要用于显示数据集中字段类型为文本型字段值。该组件显示是数据表中当前统计指定字段值，因而它显示内容也是动态，在其中显示内容伴随统计指针移动而改变。但该组件不能用于编辑数据库中数据。55/719.4惯用数据库组件3.TDBEdit组件(1)用途TDBEdit组件是用于显示编辑数据表中当前统计各个字段值数据浏览组件，在应用程序中，惯用一个TDBEdit组件来对应表中一个字段，经过设置TDBEdit组件DataSource、DataField属性便能够为TDBEdit组件指定表中对应字段。(2)主要属性①AutoSelect属性②CharCase属性③PasswordChar属性④ReadOnly属性56/719.4惯用数据库组件4.TDBNavigator组件(1)用途TDBNavigator组件主要用来执行在数据集中浏览数据和编辑数据操作，如统计定位、拖入统计、删除统计、保留用户对统计修改等。它提供了一组简单明了控制按钮，如图9-21所表示，用户单击其中按钮能够向前向后移动统计指针、插入统计、修改已存在统计、投寄对统计修改、取消修改、删除统计以及刷新统计显示等。(2)主要属性①DataSource属性②VisibleButtons属性③Hints属性④ShowHint属性⑤Visible属性57/719.4惯用数据库组件9.4.4ADO组件ADO（ActiveXDataObjects）是Microsoft企业面向各种数据高层接口，ADO组件这种层次接口被称为OLEDB。ADO是在Microsoft数据访问技术OLEDB上实现。OLEDB访问速度快，能够访问数据类型丰富，包含对关系型数据库、非关系型数据库、电子邮件、文件系统及定制事务对象访问。ADO组件编写程序，可脱离BorlandBDE，数据控制组件在直接使用ADO组件，在使用ADO组件编写程序，必须正确安装ADO/OLEDB。58/719.4惯用数据库组件ADO组件中有三个关键组件分别是用于数据库连接TADOConnection组件、用于执行SQL命令TADOCommand组件和用于执行返回结果集合请求TADODataSet组件。还有三个与BDE兼容TADOTable、TADOQuery、TADOStoredProc组件，能够用它们将BDE应用程序移植到ADO中。另外有一个TRDSConnection组件，用于访问远程多级应用程序中数据。59/719.5数据库应用程序综合实例9.5.1总体设计人事管理系统就是要实现对单位职员进行管理，整个系统由人事档案管理和部门信息管理组成，包含信息输入、添加、修改、删除、查询等功效。60/719.5数据库应用程序综合实例61/719.5数据库应用程序综合实例9.5.2数据库设计数据库设计是系统实现基础，分为概念设计、逻辑设计和物理设计三步，本系统共有两个数据库：Department和Employees。62/719.5数据库应用程序综合实例9.5.3程序设计1．主界面设计本系统采取多页面方法来实现，系统主界面如图9-25所表示2．子模块设计本系统共包含三个子模块：职员管理模块、部门管理模块和信息查询模块。其界面分别如图9-25、图9-26和图9-27所表示。各模块功效实现基本相同，这里以职员管理模块、部门管理模块部分按钮代码以及信息查询模块查询功效代码为例来介绍各子模块详细实现方法，其它模块实现请读者自行完成。63/719.5数据库应用程序综合实例(1)界面设计(2)编写代码职员管理模块“退出”按钮OnClick事件处理代码以下：procedureTForm1.BitBtn1Click(Sender:TObject);beginclose;end;64/719.5数据库应用程序综合实例部门管理模块“添加”按钮OnClick事件处理代码以下：procedureTForm1.BitBtn6Click(Sender:TObject);beginBitBtn2.Enabled:=false;BitBtn3.Enabled:=false;BitBtn4.Enabled:=false;BitBtn5.Enabled:=false;BitBtn6.Enabled:=false;BitBtn7.Enabled:=false;BitBtn8.Enabled:=false;BitBtn9.Enabled:=True;BitBtn10.Enabled:=True;Table2.Append;end;65/719.5数据库应用程序综合实例“修改”按钮OnClick事件处理代码以下：procedureTForm1.BitBtn7Click(Sender:TObject);beginBitBtn2.Enabled:=false;BitBtn3.Enabled:=false;BitBtn4.Enabled:=false;BitBtn5.Enabled:=false;BitBtn6.Enabled:=false;BitBtn7.Enabled:=false;BitBtn8.Enabled:=false;BitBtn9.Enabled:=True;BitBtn10.Enabled:=True;Table2.Edit;end;66/719.5数据库应用程序综合实例“删除”按钮OnClick事件处理代码以下：procedureTForm1.BitBtn8Click(Sender:TObject);beginifTable2.IsEmptythenMessageDlg('当前无数据，请确认!',mtE