《《Delphi程序设计与应用教程》电子教案 第六章 Delphi与数据库》由会员分享，可在线阅读，更多相关《《Delphi程序设计与应用教程》电子教案 第六章 Delphi与数据库（85页珍藏版）》请在金锄头文库上搜索。
1、第六章 Delphi 7与数据库,6.1数据库简介 6.2 Delphi7的数据库访问机制 6.3 数据库组件 6.4 TField对象的使用 6.5 数据集的操作 6.6 TQuery组件 6.7 BDE综合实例 6.8 ADO技术,6.1数据库简介,数据库（Database，DB）是指为了满足一定范围内众多用户的需要，在计算机中建立的一个可以长期存储的、有组织的、可共享的数据集合。一个数据库可以包含许多数据表文件、索引文件以及其他文件。 数据库系统（Database System，DBS）是指具有数据管理功能的计算机系统，它一般由数据库、数据库管理系统（Database Manngemen
2、t System ，DBMS）和应用系统构成。 数据库管理系统为用户或应用程序提供访问数据库的方法，包括数据库的建立、查询、更新以及各种数据控制等。,数据库系统根据数据的组织方式，主要分为层次数据库系统、网状数据库系统、关系型数据库系统和面向对象数据库系统等几类。,Delphi支持关系型数据库，关系型数据库由表组成，一个关系用一个二维表来定义：表的行定义了事物的一组属性数据，称为记录；表的列定义了事物的某种属性，称为字段。,一个数据库应用程序在逻辑上通常由两部分组成：数据库访问模块和用户界面，这就是数据库应用程序的层次结构。在单层的数据库应用程序中，应用程序和数据库共享一个文件系统，它们使用本
3、地数据库或文件来存取数据；在双层的数据库应用程序中，客户程序提供用户界面，通过各种数据访问引擎（如BDE、ADO等）从远程数据库服务器获取数据；在多层的数据库应用程序中，客户程序、应用服务器和远程服务器分布在不同的机器上。,6.2 Delphi7的数据库访问机制,一、 Delphi与数据库 二、Delphi的数据库体系 三、 Borland数据库引擎（BDE） 四、Database Desktop的使用 五、 数据库浏览器（Database Explorer）,一、 Delphi与数据库,Delphi提供丰富的组件来访问各种类型的数据库，例如，组件面板的BDE页、ADO页和InterBase页
4、，以及其他页上的一些通用组件都用于数据库的访问 。 Delphi利用BDE或ADO提供的驱动程序，可以访问不同的数据库。BDE提供的驱动程序多用于访问本地数据库，例如Paradox和dBASE。,二、Delphi的数据库体系,三、 Borland数据库引擎（BDE）,Borland推出了一个数据库引擎（Borland Database Engine，BDE），通过它可以访问本地数据库和远程数据库中的数据，开发出具有可伸缩体系结构的数据库应用程序。有了BDE，就可以将一组相关的表放进一个目录中，给这组相关表起个别名，从而得到一个逻辑表集合，即虚拟数据库。通过BDE中的这些虚拟数据库，就可以连接到
5、这些表。,BDE管理器（BDE Administrator）是设置和管理BDE的工具，它可以用来管理BDE中的数据库别名和驱动器。通过BDE管理器，建立一个虚拟数据库，其操作步骤如下： 步骤一：执行【开始】【程序】【Borland Delphi7】【BDE Administrator】菜单命令，打开BDE 管理器窗口。 步骤二：右击Database页标签，选择【Object】【New】菜单项，弹出选择数据库驱动器的对话框，根据需要选择适当的驱动器。单击OK按钮，关闭该对话框，回到BDE管理器窗口。,步骤三：在BDE管理器左窗口的新建项目中，输入一个新的数据库别名MyData。 步骤四：在Pat
6、h框中输入D: Data（该文件夹由用户事先建立），为数据库别名MyData指定路径D: Data。 注：要删除别名，可在Database页标签中选择要删除的别名，右击后选择Delete即可。也可以使用后面介绍的数据库桌面和数据库浏览器定义和删除数据库别名。,四、Database Desktop的使用,Database Desktop是Delphi中提供的数据库管理工具，使用它可以建立和修改数据表结构，完成简单数据的输入及其他操作。 选择执行菜单【Tools】【DataBase Desktop】项，或【开始】【程序】【Borland Delphi7】【Database Desktop】菜单项，
7、可以打开Database Desktop的操作窗口。,1. 定义数据库别名 选择执行菜单【Tools】【Alias Manager】项，打开别名管理操作窗口。 单击【New】按钮，在Database Alias 和Path 框中分别输入新的别名和路径，可以定义新的别名。 单击【Remove】按钮可以删除别名。,2. 设置工作目录及私有目录 工作目录是指数据库工作平台首先找到文件的地方，私有目录是用户自己使用的目录，其他网络用户无法看到这个目录。 工作目录菜单项“Work Directory”及私有目录菜单项“Private Directory”都在“File”菜单下。,3. 建立数据表结构 在
8、数据库桌面环境下执行菜单【File】【New】【Table】项，选择数据库类型Paradox，单击Ok，进入表结构定义窗口。,4. 保存数据表文件 可以将数据表保存在当前目录（当前目录就是工作目录），也可以指定数据库别名，即为数据表确定了相应的文件夹位置，还可以选择其他的文件夹。,5. 建立索引 在建立数据表的结构后，还要根据功能的要求对数据表定义关键字。定义关键字的目的是为了对数据表建立一种索引，以便实现多表间的同步操作以及实现对数据表分类排序和快速查询。 要建立一个索引，就要指定一个索引关键字（它由一个或几个连续的字段组成）。同时系统要为每个索引建立一个对应的索引文件。 索引可分为主索引与
9、次索引两种。主索引关键字所对应的数据必须唯一，且必须是最前面的几个字段，而次索引没有这个限制。每个文件只能建立一个主索引，而次索引可以建立多个。,建立主索引 在数据库桌面的结构定义窗口，将光标移到关键字字段的Key列的下面，双击或按空格键，系统在该位置显示一个“*”号，此字段即成了关键字字段。 建立次索引 在数据库桌面的结构定义窗口，单击Table Properties下拉按钮，选择Secondary Indexes菜单项，单击Define按钮，打开“Define Secondary Indexes”对话框， 选择次关键字字段（可选择多个），完成后按OK按钮。这时会出现Save Index A
10、s对话框，在该对话框中指定次索引文件名。,6. 设置有效性检查 点击Table Properties下拉按钮，选择Validity Checks功能项，然后用鼠标选择一个字段，便可以对该字段设置有效性检查。 7. 设置口令 点击Table Properties下拉按钮，选择Password Security功能项，在弹出的对话框中输入指定的口令，即可对该数据表实现数据保护。,8. 设置参照完整性 点击Table Properties下拉按钮，选择Table Lookup功能项，可以进行参照完整性设置。 9. 输入数据 数据表中数据的输入，一般来说，既可以在数据库桌面环境下进行，也可以在应用程序
11、的运行环境进行。但有些类型的字段（例如，备注型M、位图型G及对象型O）必须由应用程序提供相应的功能，在程序运行状态下，通过执行某种操作才能完成信息的输入。,五、数据库浏览器,数据库浏览器可用于定义数据库别名、查询或编辑数据库中的各类信息，如数据库的参数设置、各数据表文件的结构及数据，也可以使用SQL语句进行查询。 选择执行【Database】【Explorer】菜单命令，打开数据库浏览器，也可以选择执行【开始】【程序】【Borland Delphi7】【SQL Explorer】菜单命令打开数据库浏览器。,6.3 数据库组件,Delphi使用VCL将BDE封装成组件，为数据库应用程序提供统一的
12、访问接口，组件面板的BDE页、Data Access页和Data Controls页提供了不同的数据库组件。其中，BDE页和Data Access页的组件为非可视组件，Data Controls页的组件为可视组件。,BDE组件集（BDE页）：提供了以BDE方式访问数据库的数据表和查询等数据集组件，如TTable、TQuery、TStoredProc等； 数据访问组件集（DataAccess页）：提供了数据源等连接组件； 数据控制组件集（DataControls页）：用来浏览和编辑数据，为用户使用数据库提供接口，如TDBGrid、TDBEdit、TDBMemo等。,一、TTable组件,TTab
13、le组件用于连接一个数据表并对数据表的各种状态进行控制，它通过BDE从一个数据库表格中取得数据，并通过TDataSource组件将数据传递给一个或多个数据控制组件，或者反之，从数据控制组件得到的信息通过BDE传递给数据库。 TTable组件既可以访问本地的数据库，也可以访问ODBC数据库，还可以访问远程数据库。,1. TTable组件连接数据表的一般步骤 步骤一：把一个TTable组件放到窗体上，设置DatabaseName属性指定要访问的数据库。 步骤二：设置TableName属性指定要访问的表。 步骤三：把一个TDataSource组件放到窗体上，设置DataSet属性指向该TTable组
14、件。 步骤四：把一个数据控制组件放到窗体上，设置DataSource属性指向该DataSource组件。 步骤五：把TTable组件的Active属性设为True。,2. 字段组件的访问 字段组件对应着数据表中实际的字段，读写数据表中的字段值是通过访问相应的字段组件进行的。一般采用的方法有两种： 使用数据集组件的Fields属性 可以通过Fields属性的下标（即索引号）来访问各字段，索引号从0开始。例如，Table1.Fields0表示当前记录的第一个字段的数据。如： Table1.Fields0.AsString:=Edit1.Text; Edit1.Text:=Table1.Fields
15、0.AsString;,使用数据集组件的FieldByName方法 用这种方法访问字段组件时，必须知道数据表中各个字段的名字。例如： Edit1.Text:=Table1.FieldByName (Name).AsString;,3. 记录的增加与删除 Insert方法：在当前记录之前插入一条新的记录。 Append方法：在文件的最后追加一条新的记录。 Delete方法：删除数据表中的当前记录。EmptyTable方法：删除表中的所有记录。使用该方法前必须将表关闭，删除的数据是不能恢复的，只删除记录数据而保留表的结构。例如： Table1.Active:=False; Table1.Empty
16、Table;,DeleteTable方法：删除一个与TTable组件相连的数据表。使用DeleteTable方法之前，数据表必须关闭。该方法不仅删除表中的所有记录，而且也删除表的结构。,二、TDataSource组件,TDataSource组件是联系数据集组件与数据控制组件的桥梁。其常用属性如下： AutoEdit属性：该属性值是一个布尔值，用于说明是否将数据集置于编辑状态，为Ture时允许用户编辑数据集中的数据。 DataSet属性：指明与当前数据源组件相联系的数据集组件对象的名字。 Enabled属性：该属性值是一个布尔值，决定了与此数据源组件相连的数据控制组件是否显示数据。为True（默认值）时，数据控制组件将显示数据。,三、数据控制组件,数据控制组件也称为数据感知组件，它应用程序的接口，让用户能浏览和操作数据库。 数据控制组件在Data Controls页上。 数据控制组件与数据集组件之间的联系是通过数据源组件TDataSource来实现的。,数据控制组件常用属性： DataSource：将此属性设置为窗体上数据源组件的名称，
