《Delphi程序设计及实验指导》电子教案第9章培训课件》由会员分享，可在线阅读，更多相关《Delphi程序设计及实验指导》电子教案第9章培训课件（71页珍藏版）》请在金锄头文库上搜索。
1、1,第九章 数据库应用程序设计,9.1 数据库系统概述 9.2 Delphi数据库应用程序体系结构 9.3 数据库设计 9.4 常用数据库组件 9.5 数据库应用程序综合实例 习题,2,9.1 数据库系统概述,9.1.1 基本概念 1.数据 数据（Data）是数据库中存储的基本对象。所谓数据，就是能被计算机识别与处理的符号。数据的种类很多，如数字、文字、表格、图形、图像、声音等，都属于数据。 2数据库 所谓数据库（Database，简称DB）是长期存储在计算机内的、有组织的、可共享的数据集合。数据库中的数据按一定的数据模型组织、描述和存储，具有较小的冗余度、较高的数据独立性和易扩展性，并可为各
2、种用户共享。,3,9.1 数据库系统概述,3数据库管理系统 数据库管理系统（DataBase Management System，简称DBMS）是一个以统一的方式管理、维护数据库中数据的一系列软件集合。DBMS是位于用户应用程序和操作系统之间的数据库管理系统软件，对数据库进行统一的管理和控制。 它的主要功能如下： (1) 数据定义功能 (2) 数据操纵功能 (3) 数据库的运行管理 (4) 数据库的建立和维护功能 (5) 数据库通信功能,4,9.1 数据库系统概述,4数据库系统 数据库系统（DataBase System，简称DBS）是指在计算机系统中引入数据库后的系统，一般由数据库、数据库管
3、理系统和数据库应用程序组成。数据库的建立、使用和维护等工作只靠一个DBMS远远不够，还要有专门的人员来完成，这些人被称为数据库管理员（DataBase Administrator，简称DBA）。,5,9.1 数据库系统概述,9.1.2 Delphi的数据库特性 Delphi提供了许多组件以方便地创建数据库应用程序。它可以访问多种数据库管理系统的数据库，数据库对象的数据成员既可在设计阶段设置，也可在运行阶段通过程序代码进行设置。Delphi的组件面板上提供了数据库应用程序开发中需要使用的组件选项卡。,6,9.1 数据库系统概述,9.1.3 Delphi可以使用的数据源 Delphi数据库应用程序
4、可以通过BDE获取它们所需的数据，BDE与不同类型的数据源打交道，BDE可以使用的数据源见表9-3。,7,9.1 数据库系统概述,表9-3 BDE可以使用的数据源,8,9.2 Delphi数据库应用程序体系结构,一个数据库应用程序往往包括两部分：数据库访问部分和用户界面。数据库访问部分直接或间接访问数据库，这为数据库应用程序和数据库之间提供接口；而用户界面主要是为了方便用户使用，尽量要设计友好的界面，方便用户操作。 在编写数据库应用程序时，一般把数据库访问部分和用户界面分别封装到不同的模块中。在Delphi中提供了数据模块（Data Module）这种容器，在编写数据库应用程序时把数据库访问部
5、分的内容放在数据模块中，这样就便于数据库应用程序数据存取的一致性，便于程序的调试和后期维护。 数据库应用程序的体系结构主要由两方面决定，一方面是使用的数据库类型（即是本地数据库还是远程数据库），另一方面是同时访问数据库的用户数以及数据库中需要存储哪些类型的信息。由此，数据库应用程序结构可以分为三种：单层结构、两层结构和多层结构。,9,9.2 Delphi数据库应用程序体系结构,9.2.1 单层结构 在单层数据库应用程序中，应用程序和数据库共享同一个文件系统，它们使用本地数据库或文件来存取数据。一个单层的数据库应用程序同时包含了用户界面和数据访问机制（可能是通过BDE，也可能是通过文件）。单层数
6、据库应用程序的体系结构如图9-1所示。在此结构中，可以通过基于BDE的数据集组件从本地数据库中获取数据，再通过数据源（DataSource）组件向用户提供数据。,10,9.2 Delphi数据库应用程序体系结构,图9-1 单层数据库应用程序的结构,11,9.2 Delphi数据库应用程序体系结构,9.2.2 两层结构 在两层数据库应用程序中，客户程序提供用户界面，通过BDE、ADO从远程数据库服务器获取数据。两层数据库应用程序的体系结构如图9-2所示。 把一个单层数据库应用程序转换为两层数据库应用程序，只要修改数据集组件的属性连接一个SQL服务器就行了。,12,9.2 Delphi数据库应用程
7、序体系结构,图9-2 两层数据库应用程序的结构,13,9.2 Delphi数据库应用程序体系结构,9.2.3 多层结构 多层数据库应用程序是为了适应网络技术的飞速发展而发展起来的一种新技术。它把整个应用程序分为多个单元，所有单元一齐合作完成对数据库的管理。它是建立在两层数据库应用基础上的，只要深刻理解了两层数据库模型，就能很好地掌握多层结构数据库应用程序。,14,9.2 Delphi数据库应用程序体系结构,在多层结构数据库应用程序中，客户程序、应用服务器和远程数据库服务器通常分布在不同的机器上。客户程序主要提供用户界面，它向应用服务器请求数据和申请更新数据，再由应用服务器向远程数据库服务器请求
8、数据和申请更新数据。,15,9.3 数据库设计,数据库应用程序的设计包括两个部分：数据库设计和应用程序设计。在开发数据库应用程序之前，必须进行需求分析，对数据库的概念结构、逻辑结构和物理结构进行规范设计，这是决定数据库应用程序开发成败的关键。通常数据库所包含的大量信息是以表的形式存储。数据库中有的表是独立的，有的表之间存在一定的关系，设计数据库就是将大量信息经过分析和归纳，分别存储到多个表中，确定表之间的相互关系。,16,9.3 数据库设计,9.3.1 常用数据库 在Delphi 7中要开发数据库应用程序，首要的任务就是访问数据库。Delphi 7可以访问多种数据库，如Paradox、Acce
9、ss等基于文本的数据库、Oracal、Infomix、MicroSoft SQL Server等大型数据库。对这些数据库的访问可以通过BDE、ADO组件中的OLE DB方式进行访问。,17,9.3 数据库设计,常用数据库有 1Paradox 2Access 3大型数据库 常用的大型数据库有InterBase、Oracle、Sybase、Infomix、DB2和Microsoft SQL Server等,18,9.3 数据库设计,9.3.2 数据库、表的创建与维护 1. 创建数据库 【例9-1】在BDE中创建别名为Rsgl的数据库 2. 创建表 【例9-2】在Database Desktop中创
10、建表Department，其结构见表9-4。 3. 修改表结构 4. 向表中添加记录 【例9-3】向Department表中添加一批记录。,19,9.3 数据库设计,表9-4 Department表结构,20,9.3 数据库设计,表9-5 Employees表结构,21,9.3 数据库设计,表9-6 Department表中的记录信息,22,9.4 常用数据库组件,Delphi 7提供了很多的数据库组件，使得开发数据库应用程序变得相当容易。Delphi 7中为了创建数据库应用程序需要使用BDE数据集组件、数据访问组件和数据控制组件。Delphi使用可视化的组件创建数据库应用程序，跟创建其它的非
11、数据库应用程序一样，数据库组件都具备一定的属性，程序设计人员可以在设计过程中设置组件的多种属性，也可以在程序运行过程中通过程序来设置组件的各种属性。在Delphi组件面板上的Data Access和Data Control选项卡上的组件是用于开发数据库应用程序的。数据访问组件、数据控制组件以及它们与数据库、用户界面的有机联系如图9-14所示。,23,9.4 常用数据库组件,图9-14 数据库组件的体系结构,24,9.4 常用数据库组件,9.4.1 BDE数据集组件 BDE选项卡上有数据集组件TTable、TQuery、TStoredProc以及与TQuery组件相联系的TUpdateSQL组件
12、。Database与Session组件用于建立数据库连接；BatchMove组件用于复制数据；NestedTable组件主要用于将主从关系的数据嵌套在子数据库表格中。BDEClientDataSet组件将ClientDataSet与BDE相关的数据访问组件结合起来。,25,9.4 常用数据库组件,1TTable组件 (1) 用途 TTable组件是使用频率最高的数据库组件，该组件可以建立数据库应用程序 (2) 主要属性 Active属性 DatabaseName属性 TableName属性 TableType属性 Exclusive属性,26,9.4 常用数据库组件,(3) 与表的创建与删除相
13、关的属性与方法 Fields属性 FieldDefs属性 CreateTable方法 DeleteTable方法 RenameTable方法 (4) 与数据库表索引相关的属性和方法 IndexName属性 IndexFieldCount属性和IndexFields属性 IndexDefs属性 GetIndexNames方法,27,9.4 常用数据库组件,(5) 数据查询 Locate方法和Lookup方法 GotoKey方法和FindKey方法 GotoNearest方法和FindNearest方法 SetKey方法 (6) 与表记录的定位、增加、删除、修改操作相关的属性和方法 BOF和EOF
14、属性 RecNo属性 First方法和Last方法 Prior方法和Next方法 Append方法和AppendRecord方法 Insert方法和InsertRecord方法 Post方法和Edit方法 Cancel方法和Delete方法 SetRecords方法 EmptyTable方法,28,9.4 常用数据库组件,【例9-4】在例9-3所创建的数据库基础上使用Table组件实现查询、插入、删除、更新的功能。 查询代码编写 单击设计界面中的“查询”按钮，查询employees.db数据库表中的记录。 Delphi提供了多种实现查询功能的方法： 调用Locate方法 在“查询”按钮的Onc
15、lick事件的处理程序中加入如下代码： procedure TForm1.Button1Click(Sender: TObject); begin Table1.Locate(姓名,丁一,); /查询姓名为“丁一”的记录 end;,29,9.4 常用数据库组件, 调用GotoKey方法 在查询之前，要确保查询的字段是关键字段或辅助索引字段，如果要查询的字段不是关键字段或辅助索引字段，则查询过程失败，系统会报错。 例如，在“查询”按钮的Onclick事件的处理程序中加入如下代码： procedure TForm1.Button1Click(Sender: TObject); begin Tabl
16、e1.IndexFieldNames:=职工号; /指定查询字段 Table1.SetKey; /将Table1置为查询状态 Table1.Fields0.AsString:=111001; /指定查询字段值 Table1.GotoKey; /进行查询end;,30,9.4 常用数据库组件,插入功能实现 用 Insert 方法实现插入功能 在“插入”按钮的Onclick事件的处理程序中加入如下代码： procedure TForm1.Button2Click(Sender: TObject); begin Table1.Insert; /设置为插入状态 Table1.Fields0.AsString:=111002; /设置要插入的值 Table1.Post; /将插入的记录写回数据库 End;,31,9.4 常用数据库组件, 用 Append 方法实现插入功能 在“插入”按钮的Onclick事件的处理程序中加入如下代码： (* 实现在尾部插入一条职工号为“111003”的记录*) procedure TForm1.Button2Click(Sender: TOb
