DELPHI基础教程：Delphi开发数据库应用程序概述（二）[2]

数据库窗体专家和数据库 *** 作台（DBD）

Delphi为用户开发简单的数据库应用程序提供了一个开发工具叫做 数据库窗体专家 （Database Form Expert） 在Delphi系统菜单Tool菜单下可以找到

数据库窗体专家能够自动生成简单的数据库应用程序中所必须完成的许多任务 它还可以生成基于单个数据库表的应用程序窗体或基于主要──明细型多个数据库表的应用程序窗体 数据库窗体专家能够自动完成的任务如下

● 放置数据库部件到窗体中（TDataSource部件）

● 为数据集部件（TTable TQuery）和磁盘上的数据库建立连接

● 建立数据源（TDataSource）与数据控制部件的连接 数据源（TDataSource）与 数据访问部件（TTable TQuery）的连接

● 为TQuery部件编写SQL语句

● 为窗体中的部件定义Tab顺序

数据库 *** 作台（DBD）是数据库维护和数据定义工具 程序设计人员利用它可以查询 连接 建立 重构 索引 修改和拷贝数据库表 包括Pà€aradox和dBASE文件和基于 SQL语言的数据库表 而且在使用DBD *** 作Paradox或dBASE的表时 用户不必拥有 Paradox 或dBASE数据库管理系统 DBD还可以把一种格式的数据和数据字典拷贝成另一种格式 例如 你可以将一个dBASE的表拷贝到远程的SQL服务器上的一个数据库中去 有关DBD详细描述 请参看 数据库 *** 作台（DBD）的使用

Delphi数据库应用程序的开发方法和步骤

概述

用Derphi用开数据库应用程序 虽然与开发其他应用程序有相似之处 但是也有一些重要的区别 我们必须要加以注意

利用Delphi的客户/服务器功能 程序设计者可以在本地数据库上或远程数据库服务器上开发客户/服务器模式的应用程序 Delphi 的一个强有力的功能之一是可以将基于本地桌面数据库系统的应用程序很容易地修改成客户/服务器模式的应用 一个Delphi 数据库应用程序访问的是本地数据库还是远程SQL数据库服务器上的数据库 这对于最终用户是完全透明的 即数据库的物理位置对最终用户是透明的 当数据库的物理位置发生变化时 用户界面不必随之变化

因为数据库应用程序的是依赖于它所访问的数据库的 所以在开发数据库应用程序之前必须要建立一个完善的数据库即数据定义 数据定义应当是开发数据库应用程序的一部分 但它超出了书本的范围 有关数据定义的内容 请参看关系数据库设计方面的资料 在我们用Derphi开发一个数据库应用程序时 可能有下列四种情况

数据库不存在或者必须要重新定义 使用DBD为本地数据库定义Paradox或dBASE 数据库表 使用Delphi提供的服务器开发工具如Windows ISQL或DBD定义本地或远程SQL数据库务器上的数据库

数据库在桌面数据库系统中或局域网上（如Paradox或dBASE） 而且BDE 数据库和应用程序在同一台机器上 这是典型的独立应用

数据库在桌面数据库系统中 但是用户要把它改变到SQL数据库服务器中去 这种情况我们在附录C中详细讨论

数据库在SQL数据库服务器中 而且应用程序将到SQL数据库服务器中去访问数据库 这是一个标准的客户/服务器应用

有关开发客户/服务器应用程序的详细内容 参看 客户/服务器应用 一章

数据库应用程序的开发步骤

数据库应用程序的最终目标就是为用户提供一个满足其长期需要的软件产品 因此 成功地开发一个数据库应用程序的关键之一是要详细地定义用户的需求 然后再围绕用户的需求进行开发 数据库应用程序的一般开发的三个基本步骤如下

● 系统设计

● 系统实现

● 系统运行和维护

在这个三个基本步骤中 都包含着数据库的开发和应用程序界面的开发两大类任务 对于一个客户/服务器模式的应用 数据库和应用界面的区别就更明显一些 因为它们运行在不同的平台之上 而且使用的 *** 作系统都常常不一样 如（一个Unix环境的服务器和Windows环境的客户机）

系统设计

系统设计阶段应当根据用户的需求 明确地描述数据库（数据库服务器端）和应用界面（客户机端）实现的功能 即决定哪些功能由服务器端实现 哪些功能由客户机端实现 对于客户/服务器应用程序 许多功能既可以在服务器端实现又可以在客户端实现的 例如一个复杂的数学变换功能既可以由客户端的应用程序实现 也可以由服务器端的存贮过程实现 服务器和客户端应用程序功能的划分往往取决于应用程序运行的硬件环境 例如 如果客户端是低档的PC机 服务器端是高档的工作站 那么大量的计算由服务器完成是比较理想的

系统实现

系统实现阶段的主要任务是使用Delphi提供的工具和部件以及Pascal语言实现系统设计阶段的设想 并进行调试

在系统实现阶段 最好使用数据库的一个备份数据库 这个备份的数据库与原数据库具有相同的结构 但其中的数据库只是原数据库中的一部分 至所以不在原数据库上开发应用程序 是因为考虑到没有调试好的应用程序可能会破坏数据库中的数据或者妨碍数据库的正常 *** 作

如果应用程序是基于远程SQL数据库服务器的 在系统实现阶段可以采用两种方法

● 在本地InterBase服务器上 使用数据库的备份数据库进行开发和调试

● 在远程服务器上 使用数据库的备份数据库进行开发和调试

第一种方法优越性在于 它是独立于服务器的 而不至于影响服务器的其它的 *** 作 而且不消耗服务器的资源不增加网络的负担 它的不利的方面是开发出来的应用程序只能在标准的SQL服务器上使用和调试 第二种方法能够使程序设计人员直接感受到服务器的特性 但它在调试阶段要消耗网络和服务器的资源 这种方法具有一定的危险性 程序中的错误可能会导致服务器的瘫痪

系统运行和维护

一个应用系统性能的优劣 效率的高低始终应当由用户来做出判决 应用程序在运行过程中 用户会提出一些新的需求和建议 根据用户需求的变化 应当对应用程序做一定的修改 使其进一步地得到完善和提高

交付数据库应用程序

交付数据库应用程序意味着将它交付给最终用户 并且提供应用程序运行所需的软件 非数据库应用程序往往只需要一个EXE文件 而数据库应用程序要包括下列几类文件

● 数据库应用程序生成的EXE文件和DLL文件（如果有的话）

● 必要的辅助文件（如Readme文件或HLP联机帮助文件）

● 支持访问数据库的BDE 有时也称为IDAPI

● 用于打印输出报表的ReportSmith报表工具

● 如果应用中使用了VBX控件 还要包括VBX和BIVBXII DLL

安装BDE

在交付数据库应用程序时 必须同时在运行应用程序的机器上安装BDE Delphi 本身包含可再安装的BDE 在准备数据库应用程序安装盘时 同时从Delphi中复制一份BDE 到最终用户的机器中 BDE中包含访问多种数据库系统的驱动程序 为了节省磁盘空间 在安装BDE时 可以只安装应用程序必须的驱动程序 例如 如果我们的应用程序只需要访问dBASE数据库文件 那么在安装BDE时 只需安装dBASE的驱动程序就行了 要访问Paradox数据库 BDE至少需要 KB的磁盘空间 BDE主要包括下列文件 请参看DEPLOY TXT文件

lishixinzhi/Article/program/Delphi/201311/25177

Sybase和MicroSoft SQL Server数据库

在建立Sybase或MicroSorft SQL Server的SQL Link时除了需要下列文件外 应用程序还需要Sybase数据库管理系统的客户端的连接产品与网络协议接口

表 建立Sybase数据库的SQL Link所需的文件

━━━━━━━━━━━━━━━━━━━━━━━━━━━

文件名  描 述

───────────────────────────

SQLD_SS DLL  BDE SQL Link for Sybase的驱动程序

SQLD_SS HLP  联机帮助文件

SQL_SS CNF  Sybase驱动程序的BDE配置文件

W DBLIB DLL  Sybase/MC SQL Server客户端的DLL文件

DBNMP DLL  Sybase/MC SQL Server客户端的DLL文件

SYDC LD  Sybase语言驱动程序

SYDC LD  Sybase语言驱动程序

━━━━━━━━━━━━━━━━━━━━━━━━━━━

Informix数据库

在建立Informix的SQL Link时除了需要下列文件外 应用程序还需要Informix数据库管理系统的客户端的连接产品与网络协议接口

表 建立Informix 数据库的SQL Link所需的文件

━━━━━━━━━━━━━━━━━━━━━━━━━━━

文件名   描 述

───────────────────────────

SQLD_ss DLL  BDE SQL Link for Informix的驱动程序

SQLD_INF HLP  联机帮助文件

SQL_INF CNF  Informix驱动程序的BDE配置文件

LDLLSQLW DLL  Informix客户端的DLL文件

ISAM IEM  Informix错误信息文件

OS IEM  Informix错误信息文件

RDS IEM  Informix错误信息文件

SECURITY IEM  Informix错误信息文件

SQL IEM  Informix错误信息文件

━━━━━━━━━━━━━━━━━━━━━━━━━━━

InterBase 数据库

在建立InterBase的SQL Link时除了需要下列文件外 应用程序还需要InterBase数据库管理系统的客户端的连接产品与网络协议接口

表 建立InterBase数据库的SQL Link所需的文件

━━━━━━━━━━━━━━━━━━━━━━━━━━━

文件名   描 述

───────────────────────────

SQLD_IB DLL  BDE SQL Link for InterBase的驱动程序

SQLD_IB HLP  联机帮助文件

SQL_IB CNF  InterBase驱动程序的BDE配置文件

CONNECT EXE  InterBase连接测试诊断工具

CONNECT HLP  InterBase连接测试诊断工具的帮助文件

GDS DLL  InterBase API DLL

REMOTE DLL  InterBase与网络的接口的DLL文件

INTERBASE MSG  InterBase错误信息文件

━━━━━━━━━━━━━━━━━━━━━━━━━━━

返回目录 DELPHI基础教程

       编辑推荐

       Java程序设计培训视频教程

       J EE高级框架实战培训视频教程

Visual C++音频/视频技术开发与实战

Oracle索引技术

ORACLE G数据库开发优化指南

Java程序性能优化 让你的Java程序更快 更稳定

C嵌入式编程设计模式

Android游戏开发实践指南

lishixinzhi/Article/program/Delphi/201311/25179

静态方式是把SQL命令文作为TQuery部件的SQL属性值进行设置 这样 当执行应用程序时 Delphi便执行TQuery部件SQL属性中设置的SQL命令 如果是SQL中的查询命令 把TQuery部件通过TDataSource部件与数据控制部件相连 查询的结果将会显示在与 TQuery部件相连接的数据浏览部件中 动态SQL语句是指SQL语句中包含一些参数变量 在程序中可以为这些参数赋值 在程序运行过程中 各个参数值是变化的 TQuery部件的SQL 属性中的SQL语句的编写也有两种方法 一种方法是在程序设置阶段便将相应的SQL语句写入到TQuery的SQL属性中 另一种方法是在Delphi开发的应用程序将SQL语句 包含在Pascal代码单元中

在SQL编程中使用TQuery部件的具体方法步骤如下

①为TQuery部件设置DatabaseName属性 它可以是用BDE建立的数据库的别名 或桌面数据库系统中的目录名或数据库服务器中的文件名 如果在应用中使用了TDatabase 部件 那么TQuery部件的DatabaseName属性可以是TDatabase部件中定义的一个数据库别名 详细情况请参看 TDatabase部件的使用 ;

②为TQuery部件设置SQL属性 TQuery部件的SQL属性值就是应用程序要执行的SQL 命令文本 设置SQL属性有两种方法

● 在程序设计过程中 我们可以通过对象浏览器（Object Inspector）编辑SQL属性在Object Inspector中选择SQL属性 这样会打开String List Editor窗口 在其中我们便可以编写SQL命令 我还可以打开Visual Query Builder来编写SQL命令 （只有Delphi的客户/服务器版本才具有这一工具）

● 将SQL命令包含在Pascal代码单元中

在程序运行过程中 首先调用TQuery部件的Close方法关闭当前的TQuery部件 然后调用Clear方法清除SQL属性 并说明新的SQL命令文本 然后调用Add方法 将新的SQL命令文本加入到SQL属性中

③通过调用TQuery部件的Open方法或ExecSQl方法执行 SQL 命令 Open 方法只执行Select命令 ExecSQL方法还可以执行其它的SQL命令 Open方法和ExecSQL 方法的区别我们在后面的章节里会进一步地加以讨论的

如果使用动态SQL语句 首先调用prepare方法 给动态SQL语句中的参数赋值 然后再调用Open方法或ExecSQL方法 调用propare 方法并不是必须的 但是对于要多次执行TQuery部件中SQL属性中的动态SQL语句 调用Prepare可以大大提高TQuery部件执行SQL语句的性能

在TQuery部件中编写简单的SQL查询命令

在这一节里我们将学习如何使用TQuery部件编写简单的SQL查询命令 并在Delphi 应用程序中实现SQL查询

例如 如果我们想查询出表Customer DB中客户的编号和公司名称 我们按下列步骤来实现

①在应用窗体中放置一个TQuery部件 一个TDataSource部件一个TDataGrid部件 并将它们连接起来

②设置窗体TQuery 部件Query 的DatabaseName属性值为DBDEMOS

③双击Object Inspector窗口中Query 的SQL 属性 Delphi 将显示 String List Editor窗口

④在图 中的窗口中输入SQL语句

Select CustNo Company From Custormer;

⑤单击OK按钮 关闭String List Editor窗口

⑥设置Query的Open属性为True

SQL语言编程概述

在Delphi应用程序中的SQL命令语句是包含在TQuery部件的SQL属性中 TQuery部件的SQL属性是TString类型的 也就是说SQL属性值是一个字符串列表 这个字符串列表非常类似于一个字符串类型的数组 有关TString类型的信息请参看联机帮助 在前一节里我们介绍了TQuery部件可以执行两种SQL语句

● 静态SQL语句

● 动态SQL语句

静态SQL语句在程序设计时便已固定下来 它不包含任何参数和变量 例如下面的语句便是一条静态SQL语句

Select From Cusromer Where CustNo = ;

而动态SQL语句 也被称作参数化的语句 在其中间包含着表示字段名或表名的参数 例如下面的语句是一条动态SQL语句

Select From Customer Where CustNo =: Number;

其中的变量Number便是一个参数变量 它由一个冒号引导 在程序运行过程中 必须要为该参数赋值 该条SQL语句才能正确执行 每次运行应用程序时可以为该参数变量赋予不同的值

SQL命令文本的编写

使用String List Editor编写

我们要为TQuery部件的SQL属性设置SQL命令文本时 可以在应用窗体中选择TQuery部件且双击Object Inspector窗口中的SQL属性 这样便打开了String List Editor 窗口 在该窗口中我们便可以编写各种SQL命令 如图 所示

在编写完适当的SQL语句之后 选择 OK 按钮便可以将编辑器中的 SQL 命令文装入到TQuery部件的SQL属性中 选择SAVE按钮可以将编写好的SQL命令保存到一个文件中供以后编程时使用 我们在编写SQL命令文本时还可以选择Load按钮从一个 SQL 命令文件中调入SQL命令 在程序运行过程中 要想设置TQuery部件的SQL属性 必须首先调用Close方法 关闭TQuery部件 然后再调用Clear方法清除SQL属性中现存的SQL命令语句 最后再调用Add方法为SQL属性设置新的SQL命令语句 例如

Query Close {关闭Query ）

Query SQL Clear {清除SQL属性中的SQL命令语句}

Query SQL Add（ Select From Country ）

Query SQL Add（ Where Name = ARGENTINA ）

在为TQuery部件设置SQL属性时调用Close方法总是很安全的 如果TQuery部件已经被关闭了 调用Close方法时不会产生任何影响 在应用程序中为SQL属性设置新的SQL 命令语句时 必须要调用Clear方法以清除SQL属性中现存的SQL命令语句 如果不调用Clear方法 便调用Add方法向SQL属性中设置SQL命令语句 那么新设置的SQL命令语句会追加在现存SQL命令语句后面 在程序运行时常常会出现出乎意料的查询结果甚至程序无法运行下去

在这里要特别注意的 一般情况下TQuery部件的SQL属性只能包含一条完整的SQL语句 它不允许被设置成多条SQL语句 当然有些数据库服务器也支持在TQuery部件的SQL属性中设置多条SQL语句 只要数据库服务器允许这样 我们在编程时可以为 SQL 属性设置多条SQL语句

lishixinzhi/Article/program/Delphi/201311/25145

Delphi提供了两种方式在数据库表中查找记录 Goto方式和Find方式 这两种方式十分相似 它们的主要区别在于为查找指定查找值的方法不一样

使用Goto方式进行数据查找使用的方法有SetKey方法 GotoKey方法和GotoNearest方法 其实际步骤如下

①确保要查找的字段是关键字段或辅助索引字段

②调用SetKey方法把与表对应的TTable部件置成查找状态

③把查找值赋给相应的字段

④调用GotoKey方法 并测试它的返回值检验查找是否成功

假设Table 对应的表中第一个字段是关键字段 Edit 是应用窗体中的一个编辑框 用户可以通过Edit 输入查找值 下面的代码将通过Goto方式进行查找

Table SetKey; {将Table 置成查找状态}

Table Field[ ] AsString := Edit Text; {指定查找值}

Table GotoKey; {进行查找}

上面最后一行代码是根据用户指定的查找值 在表中执行查找 查找的结果有两种 也许成功也许失败 这是由调用GotoKey方法之后返回的布尔值来决定 如果返回True 那么查找成功 并且记录指针会指向与查找值匹配的记录 如果返回Fale 那么查找失败 记录指针的位置不发生变化 下面的代码可以测试调用GotoKey方法之后的返回值 告知用户查找是否成功

Table SetKey;

Table Field[ ] AsString:= Smith ;

If not Table GotoKey then

ShowMessage（ 记录没找到 ）

在这一段代码中 如果在表中没有找到第一个字段值为Smith的记录 该应用程序会d出一个对话框告知用户 记录没有找到

如果在表中存在多个关键字段或辅助索引中包含多个字段时 你在进行查找时 只想为第一个字段指定查找值 那么必须要设置TTable部件的KeyFieldCount的属性值为 如果想为多个字段指定查找值 只能为相邻的字段指定查找值 例如辅助索引 有三个字段 那么我们只能为第一个字段 第一和第二个字段 第一和第二以及第三个字段指定查找值 而不能为第一和第三个字段指定查找值

GotoNearest方法的使用与GotoKey方法完全一样 只是它用于不精确查找 它不要求查找结果与查找值精确匹配 当表中有与查找值精确匹配的记录时 它将记录指针移到该记录处 当表中没有与查找值精确匹配的记录时 它会查找出与查找值最接近的记录 并将记录指针移到该记录处

下面是应用GotoNearest方法的一段代码

Table SetKey;

Table Fields[ ] AsString:= Sm ;

Table GotoNearest;

执行上述代码后 若表中存在第一个字段值等于Sm的记录时 记录指针将移到该记录处 若表中不存在第一个字段值等于Sm的记录 而存在第一个字段值等于Smith的记录 那么记录指针会移到该记录处

如果我们不是以数据库表中的关键字段作为查找字段 我们也可以为TTable部件的IndexFieldName属性中的字段或IndexName属性中的字段指定查找值进行数据查找 例如 假设Customer表中有一个名叫CityIndex的辅助索引 我们为CityIndex中的字段指定查找值进行查找时 首先设置TTable部件的IndexName属性为CityIndex 然后再进行查找 下面是具体的程序代码

Table IndexName := CityIndex ;

Table Open;

Table SetKey;

Table FieldByName{ City ） AsString := Edit Text;

Table GotoKey;

使用Find方式 使用Find方式在数据库中进行数据查找的方法有 FindNearest方法和FindKey方法

FindKey方法和FindNearest方法为数据查找提供了一个简单的方法 它们将SetKey 指定查找值 执行查找三个步骤融合在一步里完成 它们在指定查找值时 是把各字段的查找值组成一个数组传给FindKey或FindNearest 下面是使FindKey方法的一个例子

假设Tabel 对应的表中的第一个字段是关键字段

Table FindKey（[Edit Text]）

如果用GotoKey方法完成这一功能则需要编写下面代码

Table SetKey;

Table Fields[ ] AsStrine := Edit Text;

Table GotoKey;

FindKey方法和FindNearest方法的区别与GotoKey和GotoNearest方法的区别是一样的

创建主要──明细数据库应用

TTable部件中MasterSource属性和MasterFields属性是用于定义两个数据库表的一对多的关系 MasterSource属性指定主表对应的TDataSource部件 MasterFields属性指定主表和明细表之间建立联系的字段 主表和明细表之间建立一对多关系时 可能不只是基于一个字段 可能有多个字段 如果有多个字段 那么在说明MasterFields属性时 多个字段之间要用分号隔开 如Table MasterFields := OrderNo;CustNo 在设计阶段可以使用字段连接设计器（Field Link Designer）为两上表创建一对多的关系 在Object Inspector 中双击TTable部件的MasterFields便可以打开Field Link Designer 进行一对多关系的创建

Field Link Designer提供了一种可视化的方法来创建主要──明细表之间的一对多关系 图中Available Indexes组合框中存放着明细表中的关键字段和索引字段 可以选择索引字段进行连接 在主表中选择一个用于连接的关键字段 然后将其与明细表中相应的关键字段连接 单击Add按钮 主要──明细表的连接字段将显示在Joined Fields列表框中 如

CustNo >CustNo

TDataSource部件及其应用

TDataSource部件是开发数据库应用程序中用到的非常重要的部件 它是连接数据集部件TTable或TQuery和数据浏览部件的桥梁 TDataSource部件本身十分简单 它所拥有的属性 事件和方法都比较少 在使用该部件时无需作太多的工作 它主要是为数据浏览部件服务的 如果在应用程序中没有使用数据浏览部件 我们也没有必要为应用程序设置TDataSource部件

TDataSource部件的属性

TDataSource部件除了其他部件都拥有的Name属性和Tag属性之外 主要有下面几个属性

DataSet属性 该属性说明TDataSource部件从中获取数据的数据集的名字 它可以是TTable部件的名字 也可以是TQuery部件的名字 甚至还可以指定其他窗体内的数据集作为该属性的值 如在下面的程序中我们指定窗体Form 中的table 作为窗体Form 中的DataSource 的DataSet属性值

TForm Formcreate（Sender : Tobject）

Begin

DataSource DataSet := Form Table ;

end;

Enable属性 Enable属性可以暂时性地切断TDataSource部件和与之相连的数据集部件的连接 这是一个布尔型变量 当它的值为False时 TDataSource部件和数据集部件的连接被切断 且所有与TDataSource部件相连的数据浏览部件中将变为一片空白 不显示任何数据信息 当Enabled的值变为True时 TDataSource部件和数据集部件的连接恢复 且与TDataSource部件相连的数据浏览部件恢复显示数据 不过要实现上述这些功能 一般不使用TDataSource部件的Enabled属性 而是调用数据集部件的DisableControls方法和EnableControls 方法 因为调用这两个方法可以方便地控制与数据集部件相连的所有TDataSource部件以及与TDataSource部件相连的数据浏览部件

AutoEdit属性 这是一个布尔型变量 它用于说明是否将与TDataSource部件相连的数据集置于编辑状态 当AutoEdit的值为True时 应用程序运行时 与TDataSource相连的数据集部件自动地被设置成编辑状态 当用户在与TDataSource部件相连的数据浏览部件中输入新的值时 数据集部件中的记录也随之改变 如果AutoEdit的值为False 用户想通过数据浏览部件或程序修改数据集中的记录 必须要调用数据集部件的Edit方法 将其置为编辑状态之后才能够进行

lishixinzhi/Article/program/Delphi/201311/25159

其他语言

用于开发数据库应用程序的语言中 还可以使用目前数常见的 面向对象程序设计 （OOP）语言 如C++ Objact Pascal等 OOP代表了一种完全不同的程序设计方法 在这种程序设计方法中 活动被定义为在 对象 上发生的 *** 作 而不是作为一系列过程来定义的 在数据库应用程序中使用OOP语言的情况正在不断增加

开发数据库应用程序使用的另一种语言是 宏 语言 宏语言不是一种完全的程序设计语言 它实际上是一个用户手工输入的表 这个表被输入到应用程序中 以便自动执行一定的任务 对于某个特定应用的高级语言 宏语言通常可以在低档DBMS软件中或数据库服务器的前端中找到

最后 还有一种 Query By Example （QBE 范例查询）语言 严格地讲QBE不是一种语言 它是面向用户提供了一个或多个空表的界面 这些空表对应于数据库中的表 用户可以通过键盘选择需要查询的列 并在适当的列中填入条件从而定义查询的检索条件 然后DBMS就把QBE转换成相应的动作 以完成用户要求的查询任务

Delphi的数据库特性及功能简介

直到目前为止 计算机软件的开发分为两个不同的体系 其中一个体系是使用传统的程序设计语言（如Pascal Basic和C等）开发数值控制 数值运算等软件 围绕它们的重点是算术 数据结构以及近年产生的面向对象技术 另一个体系则是通用的数据库管理软件领域（数据库应用程序的开发） 这两个体系的发展都极为迅猛 但是二者并没出现混合渗透迹象 如果使用数据库语言进行传统的算术编程 虽然也能完成相应的功能 但是其编程过程可能极为复杂 如果使用传统的编程语言进行数据库编程 通过调用专用的数据库应用程序接口函数和过程 利用这些函数和过程提供的功能 可能也能做得比较完善 但这做起来大多是极其困难的 而Delphi结合了两个体系的优点 它结合了传统的编程语言Object Pascal和数据库语言的强大功能 它即可以用于传统的算术编程又可以用于数据库编程 特别是Delphi具有强大的数据库功能 利用Delphi的数据库工具 我们根本不需要编写任何Object Pascal代码便可以创建一个简单的数据库应用

Delphi是Borland公司于 年底发布的用于开发数据库应用程序的工具 它是面向对象的 它是目前开发客户/服务器数据库应用程序的强有力的工具 Delphi在Window 以上版本的系统环境下运行 目前具有两个版本 Delphi的标准版本和客户/服务器版本 标准版本包含一个Borland Database Engine的局部拷贝 它允许用户创建能访问dBASE Paradox和Local InterBase 服务器的数据库应用 它还支持具有 ODBC 接口的数据库 Delphi的客户/服务器版本包括Borland SQL Link 它能直接访问 ORACLE SyBase 和Microsoft SQL Server Informix以及InterBase数据库服务器

Delphi可以访问多种数据库管理系统的数据库 凭借窗体（Forms）和报表（Reports） BDE（Borland Database Engine）可以访问诸如Paradox dBASE 本地InterBase 服务器的数据库 也可以访问远程数据库服务器上的数据库（如ORACLE SyBase Informix等客户/服务器数据库中的数据库） 或任何经ODBC（Open Database Connecticity） 可访问的数据库管理系统中的数据库

Delphi的数据库特性

跟其他的应用程序一样 Delphi提供了许多部件以方便地创建数据库应用程序 数据库对象的数据成员既可在设计阶段设置 也可在运行阶段通过程序代码进行设置 Delphi的部件板上提供了两页数据库应用程序开发中所要使用的部件

数据访问页（Data Access Page）上的部件用于直接访问数据库中的数据库表

数据控制页（Data Control Page）上的部件用来与用户交互 显示 修改数据库中的数据

数据库应用程序首先是利用Delphi提供的数据库部件与BDE建立联系 然后再通过BDE与数据库联系 下图阐述了Delphi的数据库工具和部件 Delphi数据库应用程序与BDE 数据源之间的关系

下表概括了Delphi的数据库特性

表 Delphi的数据库特性

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

工具和部件   主 要 用 途

──────────────────────────────────────

Data Access Components  访问数据库 数据库表 存贮过程等

──────────────────────────────────────

Data Control Components  与用户交互 提供显示 修改数据库中数据的界面

──────────────────────────────────────

Database Desktop（DBD）  建立 索引 查询数据库表以及访问 编辑来自各数据中的数据

──────────────────────────────────────

ReportSmith  建立 浏览和打印数据库表中的数据

──────────────────────────────────────

Borland Database Engine  数据库应用通过BDE访问dBASE Paradox数据库中的数据（BDE）  和本地InterBase数据库服务器中的数据

──────────────────────────────────────

BDE Configuration  建立和管理BDE与数据库建立连接时所使用的数据库的

Utility  别名

──────────────────────────────────────

Local InterBase Server  它是一个单用户 多例程的本地SQL数据库服务器 可在单机环境下用来开发或测试客户/服务器数据库应用程序 然后再将之扩展成一个访问远程数据库服务器如ORACLE SyBase Informix等

──────────────────────────────────────

InterBase SQL Link  连接Delphi数据库应用程序一本地InterBase服务器的驱动程序

Delphi上述这些特性使得我们创建数据库应用程序通过BDE能够很灵活地与 dBASE Paradox Local InterBase数据库服务器进行连接并可以方便地访问其中的数据 我们在创建一个简单的数据库应用时通过使用Delphi提供的上述工具和部件甚至可以不需编写任何程序

BDE被自动地包含在Delphi中 因此 我们在创建数据库应用程序时 不必关心BDE的有关内容 Delphi的安装程序自动为Paradox dBASE和本地InterBaseServer 安装相应的驱动程序 并建立了有关的配置 DBE Configuration Utility 可以建立应用程序与数据库的连接信息 还可以为数据库设置别名

下表列出了Delphi开发Client/Server应用程序的有关特性 这些特性扩展了 Delphi访问远程数据库的功能 如SQL数据库服务器（ORACLE SyBase Informix Microsoft SQL Server InterBase）

表 Delphi Client/server数据库特性

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

工 具   主 要 用 途

─────────────────────────────────

SQL Drivers  SQL Drivers中的SQL link和ReportSmith为Delphi数据库应用程序提供了访问远程SQL服务器的驱动程序 如访问ORACLE SyBase Microsoft SQL server Informix Intermix

 ─────────────────────────────────

lishixinzhi/Article/program/Delphi/201311/25183

数据控制部件

数据控制部件页上的部件 主要用于设计用户界面 对数据库中的数据进行浏览 编辑 插入 删除等 *** 作 因而数据控制部件常常又被称为数据浏览部件 数据控制部件其实是在Standard页上的标准部件的基础上 相应地增加了数据浏览功能 使得它们能够显示和编辑数据库中数据信息

数据控制部件既能够把数据库中的数据显示到窗体中 又可以将其自身的经过修改的数据写回到数据库中 下表列出了数据控制页上的数据控制部件及它们的主要用途

表 数据控制部件

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

部件名称   主 要 用 途

───────────────────────────────

TDBNavigator  使用该部件可以向前向后移动记录指针 可以使用该部件对单条记录进行编辑 还可以用它来插入 删除记录以及刷新显示和取消前一次的 *** 作

───────────────────────────────

它是显示数据库中的数据的文本框 它只能显示

TDBText  数据库表当前记录的字段值 用户不能对其中的

数据进行修改

───────────────────────────────

TDBEdit  它是显示和编辑数据库表中的数据的编辑框 它既可以显示又可以编辑数据库表中当前记录的字段值

───────────────────────────────

TDBCheckBox  它是浏览数据库中的数据的检查框 它可以用来显示和编辑数据库中的布尔型字段的字段值

───────────────────────────────

TDBListBox  它是浏览数据库中的数据的列表框 它可以用一个列表框来显示数据库表中一个字段的值

───────────────────────────────

TDBComboBox  它是浏览数据库中的数据的组合框 它可以用一个组合框来显示数据库表中一个字段的值

───────────────────────────────

TDBRadioGroup  它是浏览数据库表中的数据的单选钮 用一组单选钮可以确定显示数据库表中哪一个字段

───────────────────────────────

TDBGrid  它是浏览数据库中的数据的网格 以网格的方式显示数据库中的数据 在网格中还可以对数据库中的数据进行编辑 利用Fields Editor可以对数据库表中字段的显示格式 显示顺序 是否显示等进行控制

───────────────────────────────

TDBMemo  它主要用于浏览数据库中备注型的字段 它可以用来显示数据库表中当前记录中的BLOB型字段

───────────────────────────────

TDBImage  它是浏览数据库中的数据的图像框 它可以用于显示 拷贝 粘贴据库表中图像类型的字段

───────────────────────────────

TDBLookUpList  它是浏览数据库表中的数据的列表框 在基于一个数据库表的应用中 用它可以显示另一个数据库表中一个指定的字段值

───────────────────────────────

TDBLookUpCombo 它是浏览数据库表中的数据的组合框 在基于一个数据库表的应用中 用它可以显示另一个数据库表中一个指定的字段值

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

数据控制部件为开发Delphi数据库应用程序提供可视化的用户界面 不管应用程序是访问本地数据库中的数据文件 还是访问远程数据库服务器中的数据文件 用户界面都是一致的 即数据库的物理位置对数据控制部件是透明的

lishixinzhi/Article/program/Delphi/201311/25176

delphi连接数据库的时候可以通过配置实现（前面输入或者ini文件读取用户名和密码、实例名）等信息，实现连接数据库的过程（准确来说不是静态绑定的）；

你应该可以这样处理：

1、客户端（访问数据库验证输入的密码是否正确）正确后连接服务端；（要求两个都能连接数据库）；

2、客户端发密码信息给服务端验证，这样就涉及到服务端和客户端的网络通信问题；

增加字段部件

字段编辑器Fields Editor中的Add Fields菜单项用于向数据集部件中增加字段部件的 单击Add Fields菜单项时便会打开增加字段部件对话框 如图 所示 Available Fields列表框中显示出数据集部件TTable或TQuery中当前可以用于创建永久字段部件的全部的字段 也就是说Available Fields列表框中显示字段是数据库表中实际存在的字段 而且还没有为这些字段创建相应的永久性的字段部件 在缺省状态下所有的字段都被选择用于创建相应的永久性的字段部件 用鼠标单击其中的字段名可以有选择地创建其相应的永久性的字段部件 选择好有关的字段名之后 单击OK按钮便可以创建永久性的字段部件

字段编辑器的增加字段部件对话框

删除字段部件

用字段编辑器Fields Editor为数据集部件创建好的字段部件都会显示在字段编辑器的Fields列表框中 如果用户认为其中的一些字段部件不合适或不再需要时 可以单击这些不需要的字段部件 然后单击鼠标右键d出一佣d出式菜单 从d出式菜单中选择Delete菜单项 便可删除相应的字段部件 如果在d出式菜单中单击Select All菜单项 然后选择Delete菜单项 这样会删除已创建好的所有的字段部件 某一个字段部件被删除以后 通过单击Add Fields菜单项可以重新创建 只是先前为该字段部件设定的一些属性将不复存在

定义新的字段部件

字段编辑器Fields Editor中的d出式菜单中New Fields菜单项是用来为数据集部件TTable或TQuery创建用于显示目的的新的字段部件 我们可以用它来为数据库表中实际存在的字段创建新的字段部件（如改变字段的数据类型 使它的字段值被显示时不再需有关的类型转换） 但是我们使用New Fields菜单项创建新的字段部件主要是创建计算字段 计算字段并不与数据库表中实际存在的字段对应 它的字段值是根据表中其它的字段值计算而来的 具体的计算表达式由用户为TTable部件或TQuery部件的OnCalCFields事件编写程序代码时决定

定义（创建）计算字段的过程如下

单击字段编辑器中的New Fields菜单项 定义字段对话框如图 所示

在FieldName编辑框中输入新字段部件的名字 或者从下拉式列表框中选择一个已存在的字段部件的名字

在FieldType列表框中为新字段部件选择一个字段类型

单击Calculated检查框 确认定义的新字段部件是计算字段

单击ok按钮 创建上述定义的计算字段部件 此时该字段部件的名字会自动地加入到字段编辑中的Fields列表框中

创建新的计算字段

新的计算字段创建好了之后 它是没有任何字段值的 我们必须要编写相应的程序代码 根据数据库表中实际存在的字段的字段值为计算字段的宝定义字段值 我们为计算字段所在数据集部件的OnCalcFields事件编写代码来为计算字段赋值 其步骤如下

选择数据集部件TTable或TQuery

单击数据集部件的事件页

双击OnCalcFields事件为TTable或TQuery部件编写事件处理过程

TReport部件及其应用

在一般的数据库应用程序中都包含着为最终用户提供输出报表的功能 使用Delphi开发数据库应用程序时 可以使用一个叫TReport的部件来执行报表功能的 报表的具体格式和内容是由Delphi提供的一个专用报表生成工具ReprotSmith创建的 它报表的具体格式和内容生成一个报表文件 然后为TReport部件设置相应的属性参数 由TReport部件执行报表功能

我们可以在设计阶段双击TReport部件 调用ReportSimith工具或者在Delphi程序组内双击ReportSmith图标来调用ReportSmith工具来创建一个报表文件 具体的 *** 作步骤和设计方法请参看ReportSimth工具的使用说明

我们在使用TReport部件执行报表功能时 要设置TReport部件的一些的一些属性 这些属性是

ReportName属性 说明报表文件的名字 就是用ReportSmith创建的报表文件

ReportDir属性 说明报表文件所在的途径名

PreView属性 这是一个布尔型属性 若它的值为True 那么在执行报表功能时 只是在屏幕上显示报表 若它的值为False 则报表内容将在缺省的打印机打印出来

AutoUnload属性 布尔型属性 它的值为True时 在执行完一个报表功能后 自动地从内存中卸出ReportSmith工具 它的值为False时 在运行完一个报表功能后 不从内存中卸出ReportSmith工具 一般情况下 如果应用程序只有一个报表或者只有较少的报表要输出时 应设置AutoUnload属性为True 如果应用程序一次要输出多个报表 那么要应设置AutoUnload属性为False

InitialValues属性 这是一个字符串类型的属性 它是说明报表文件中使用的变量 每一条说明一个变量 如

ReportVAR := Value;

要详细了解创建和使用报表变量的过程请参看创建报表一节

TReport部件要真正执行报表功能以输出一个报表需要调用Run方法 如下所示

Report Run;

TReport部件所具有的重要方法如表 所示

表 TReport部件的方法

━━━━━━━━━━━━━━━━━━━━━━━━━━━━

方法 功 能

────────────────────────────

Run 执行报表功能 输出报表

RunMacro 发送一个宏命令给Reportimith工具

Connect 预先连接报表文件和数据库 在输出报表时不需要登录到数据库

SetVariable 改变说明的报表变量

ReCalcReport 当报表变量改变以后 重新输出报表

━━━━━━━━━━━━━━━━━━━━━━━━━━━━

还有一些其他的数据访问部件如TBatchMove部件 它主要用在两个数据库表之间移动或拷贝帆数据记录 具体的使用请参看本地SQL服务器的使用

应用举例 多个窗体显示同一个数据库表

在应用当中 我们常常需要以不同的视图显示同一个数据库表中的内容 例如要在两窗体中同时显示一个数据库表中一个记录的不同字段时 我们必须要想办法使两个窗体中的数据浏览部件同步地显示数据库表中的同一条记录的不同字段的值 要想做到以不同的视图显示同一个数据库表中的记录 下面两条规则是很重要的

● 多个TDataSource部件能够同时访问同一个数据集部件

● 在多个窗体中显示同一个表时 必须为每个窗体设置一个TDataSource部件 只须为其中的一个窗体设置一个TTable部件

例如 如果想在窗体Form 和Form 中同时显示一个数据库表的记录 最简单可行的办法是 为Form 和Form 各设置一个TDataSource部件叫DataSource DataSource 并在Form 中设置一个TTable部件Table 连接Form 中的Datasource 和Table 在程序运行过程中设置Form 中的DataSource 的DataSet属性为Form 中的Table 代码如下

Format DataSource Dataset := Form Table ;

这样 当Table 被打开时 两个窗体中便可以同步地显示数据库表中的同一条记录了

一个名叫OForms DPR的例子在C:\Delphi\DEMos\DB\TwoForms中（如果Delphi安装在其它的磁盘驱动器中 从相应的磁盘驱动器中可以找到该例子） 它演示了在两个窗体中显示同一个数据库表的记录 应用程序在第一个窗体中打开Contry DB表 并在窗体中显示Name Captial和Continent字段 在第二个窗体中显示Area和Population字段 在第一个窗体中有一个按钮用于打开第二个窗体 两个窗体中都有TDBNavigator部件 用于记录的导航

返回目录 DELPHI基础教程

       编辑推荐

       Java程序设计培训视频教程

       J EE高级框架实战培训视频教程

Visual C++音频/视频技术开发与实战

Oracle索引技术

ORACLE G数据库开发优化指南

Java程序性能优化 让你的Java程序更快 更稳定

C嵌入式编程设计模式

Android游戏开发实践指南

lishixinzhi/Article/program/Delphi/201311/25156

以上就是关于DELPHI基础教程：Delphi开发数据库应用程序概述（二）[2]全部的内容，包括:DELPHI基础教程：Delphi开发数据库应用程序概述（二）[2]、DELPHI基础教程：Delphi开发数据库应用程序概述（二）[4]、DELPHI基础教程：SQL编程（一）[2]等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！