多层数据库开发九:查询数据库

     第九章 查询数据库
　　这一章介绍如何用TQuery构件查询数据库，如何经过SQL语句检索、插入、更新和删除数据。SQL是符合工业标准的关系数据库语言，既能够用于远程的基于服务器的数据库，如Sybase、Oracle、InterBase和Microsoft SQL Server，也能够用于本地数据库如Paradox、dBASE、FoxPro和Access以及符合ODBC的数据库。
Array.1 有效地使用查询
　　要有效地使用查询，必须熟悉标准的SQL语言以及所使用的服务器对SQL-Array2的限制和扩展，同时还要熟悉BDE。
Array.1.1 查询桌面数据库
　　做为一个桌面开发者，应对表格、记录和字段的概念有所了解，又能熟练地使用TTable构件访问数据集中的每一条记录和每个字段。
还可使用TTable的范围和过滤功能在数据集中选择一部分记录，前者用于选择一块连续的记录，这些记录的值在一个特定的范围内; 后者用于选择非连续的记录，这些记录符合特定的条件。
　　所谓查询，很是相似于过滤，不一样的是，查询要用到TQuery构件和SQL属性，有时候可能还要用到Params属性。从功能上讲，查询要比过滤复杂和强大些，这主要体如今：
.能够同时查询几个表格
.可让查询结果中只包含部分字段，而过滤将返回全部字段。
　　查询也能够带参数，此时称为参数化查询。所谓参数，相似于变量，它的实际的值由BDE在执行SQL语句以前赋值。参数化查询的好处是，不须要修改SQL语句，只要修改参数的值，就能执行不一样的查询功能。
　　大部分状况下，使用TQuery构件是为了在数据集中选择一部分字段和记录，但也可使用SQL语句实现更新、插入和删除记录的功能，这是与TTable构件的一个区别。
Array.1.2 查询远程数据库
　　要查询远程数据库，必须熟悉SQL语句以及服务器对标准SQL的限制和扩展。
　　TQuery构件的SQL属性用于指定要执行的SQL语句， Params属性用于提供参数。TQuery构件的功能并不仅限于SQL语句和参数，它仍是BDE与应用程序之间的接口。
　　应用程序能够经过TQuery构件的属性和方法来操纵SQL语句和参数。TQuery构件最终仍是经过SQL Links与远程服务器进行通信的，远程服务器把查询结果返回给BDE，再由BDE返回给应用程序。
Array.2 能够查询哪些数据库
　　使用TQuery构件能够查询下列数据库：
　　一是Paradox或dBASE，这是经过BDE内置的Local SQL实现的。Local SQL是SQL-Array2标准的一个子集，支持大部分DML和DDL。
　　二是Local InterBase Server，这是经过InterBase引擎实现的。
　　三是远程数据库，如Oracle、Sybase、MS-SQL Server、InFormix、DB2和InterBase，不过，必须安装了相应的SQL Links驱动程序。不一样的服务器对标准SQL都有不一样的限制和扩展，要查询远程数据库以前，务必要查阅它的有关文档。
　　Delphi 4还支持异构查询，也就是说，能够同时查询几个不一样类型的数据库。
Array.3 使用TQuery构件的通常步骤
　　第一步是把一个TQuery构件放到数据模块上，设置它的DatabaseName属性指定要访问的数据库。对于Paradox和dBASE来讲，DatabaseName属性能够设为BDE别名如DBEMOS、DefaultDD、IBLOCAL等，也能够是自定义的别名或者表所在的路径。
　　对于SQL表来讲，DatabaseName属性只能设为BDE别名。若是应用程序使用TDatabase构件来链接数据库，DatabaseName属性也能够设为应用程序专用的别名。
　　第二步是设置SQL属性指定要执行的SQL语句，有必要的话还能够设置Params属性为SQL语句设置参数。
　　第三步是把TDataSource构件放到数据模块上，设置它的DataSet属性指定TQuery构件。再把TDBGrid构件放到窗体上，设置它的DataSource属性指定TDataSource构件。
　　第四步是执行SQL语句。要执行SQL语句有两种方式，一是在设计期把Active属性设为True，程序启动时将自动执行SQL语句。另外一种方式是在运行期调用Open或ExecSQL执行SQL语句。若是但愿返回查询结果，调用Open，若是不须要返回查询结果，调用ExecSQL。在调用Open或ExecSQL以前，最好先调用Prepare通知服务器做好准备。
　　执行SQL语句所返回的查询结果其实是数据集中知足特定条件的记录所组成的子集，数据库栅格中只显示符合特定条件的记录。
Array.4 指定要执行的SQL语句
　　能够设置SQL属性以指定要执行的SQL语句。在设计期，只要把Active属性设为True，就会自动执行SQL语句。在运行期，首先要调用Prepare通知服务器准备好，而后调用Open或ExecSQL执行SQL函数语句。
Array.4.1 概述
　　SQL属性是一个典型的TStrings对象。SQL属性通常只包含一条完整的SQL语句，但能够分红几行写，TQuery构件会自动把几行字符串合并成一条SQL语句。
　　把SQL语句分红几行写的好处是，SQL语句的逻辑结构比较清楚，有利于从此维护和调试。因此，SQL语句的SELECT部分和WHERE部分通常都不在同一行上。
　　SQL语句能够不带参数，把字段名称和值固定在SQL语句中，例如，下面这个SQL语句就是硬写(Hard-Coded)的：
　　SELECT * FROM Customer WHERE CustNo = 1231
　　注意：若是要查询的是本地数据库，若是SQL语句中的字段名包含空格或其余特殊符号，必须用引号括起来，前面还要加上表格名和小圆点。
　　若是用参数的话，查询就灵活得多，应用程序不须要改写SQL语句自己，只要修改参数的值，就能使SQL语句执行不一样的查询功能。在执行SQL语句以前，TQuery构件会自动把实际的值替换SQL语句中的参数，即便并无显式地调用Prepare函数。
　　下面这条SQL语句是典型的参数化查询：
　　SELECT * FROM Customer WHERE CustNo = :Number
　　其中，Number就是一个参数，它的前面必须加冒号。在运行期，应用程序必须提供Number参数的值，每次执行SQL语句时，Number参数的值能够不一样。
　　参数的值是经过TQuery的Params属性提供的。
Array.4.2 在设计期指定SQL语句
　　在设计期，要指定SQL语句，能够在对象观察器中单击SQL属性边上的省略号按钮，弹出一个字符串列表编辑器，如图Array.1所示。
　　图Array.1 在设计期指定SQL语句
　　SQL语句能够分红几行写，但同一单词不能分开。通常状况下，SQL属性只能包含一条完整的SQL语句，但有些服务器容许同时执行几条SQL语句，这种状况下，能够输入多条SQL语句。
　　若是使用Delphi 4的Client/Server版本或Enterprise版本，也能够用SQLBuilder这个实用工具来创建SQL语句。要使用SQL Builder，在TQuery构件上单击鼠标右键，在弹出的菜单中选择“SQL Builder”命令。
Array.4.3 在运行期指定SQL语句
　　在运行期，要指定SQL属性有三种方式，一是直接设置SQL属性，二是调用LoadFromFile从文件中读取SQL语句，或者从另外一个TStrings对象中得到SQL语句。
　　在直接设置SQL属性以前，首先要调用Close函数。若是SQL属性中原本已经有了SQL语句，还要调用Clear把原来的SQL语句清除。
　　下面的代码演示了怎样在运行期直接设置SQL属性：
With CustomerQuery Do
Begin
Close;
With SQL Do
Begin
Clear;
Add(SELECT * FROM Customer);
Add(WHERE Company = Light Diver);
End;
Open;
End;
　　有时候，可能想在原来的SQL语句的基础上修改或增长一行，这时候就不能调用Clear把原来的SQL语句清掉，例如：
　　CustomerQuery.SQL[1] := WHERE Company = "Light Diver";
　　也能够调用LoadFromFile从文件中获取SQL语句，这主要是由于TStrings对象支持文件操做。LoadFromFile会自动把原来的SQL语句清掉。
　　下面的代码是调用LoadFromFile的例子：
CustomerQuery.Close;
CustomerQuery.SQL.LoadFromFile(c:＼orders.txt);
CustomerQuery.Open;
　　还能够从另外一个TStrings对象中获取SQL语句，这就要调用TStrings的Assign函数。Assign 会自动把原来的SQL语句清空。
　　下面的代码是调用Assign的例子：
CustomerQuery.Close;
CustomerQuery.SQL.Assign(Memo1.Lines);
CustomerQuery.Open;
Array.5 参 数
　　要使用参数化查询，必须在SQL语句中加入参数，例如：
INSERT INTO Country (Name, Capital, Population)
VALUES (:Name, :Capital, :Population)
　　其中，Name、Capital和Population是三个参数。
　　在执行上述SQL语句以前，应用程序应当调用Prepare函数通知BDE和服务器预先分配好资源，以加快查询速度。程序示例以下：
With Query1 Do
Begin
Close;
Unprepare;
ParamByName(Name).AsString := China;
ParamByName(Capital).AsString := Beijing;
ParamByName(Population).AsInteger := 120000;
Prepare;
Open;
End;
Array.5.1 在设计期提供参数
　　要在设计期提供参数，单击Params属性边上的省略号按钮，弹出如图Array.2所示的编辑器。
　　图Array.2 在设计期设置Params属性
　　若是SQL语句中没有包含任何参数，图Array.2所示的编辑器就是空白的。这个编辑器的工具栏老是禁止的，这意味着只能在SQL语句中加入参数。
　　选择其中一个参数(TParam对象)，就能够在对象观察器中设置它的属性，或者创建事件句柄。TParam的主要属性有：
　　DataType属性用于指定参数的数据类型，它的初始值老是ftUnknown，必须设置每一个参数的数据类型。
　　ParamType属性用于指定参数的使用类型，它的初始值也是ptUnknown。
　　Value属性用于给出参数的值。固然，也能够在运行期给出参数的值。
Array.5.2 在运行期提供参数
　　要在运行期访问参数，有三种方式：
　　一是经过ParamByName函数按名称访问参数。
　　二是经过Params属性按序号访问参数。
　　三是经过TParams对象的ParamValues属性按名称访问参数。
　　假设一条SQL语句有三个参数：
　　INSERT INTO "COUNTRY.DB"
　　 (Name, Capital, Continent)
　　 VALUES (:Name, :Capital, :Continent)
　　下面这行代码经过ParamByName函数来访问其中的Capital参数：Query1.ParamByName(Capital).AsString := Edit1.Text;
　　下面这行代码经过Params属性来访问其中的Name参数：　
　　 Query1.Params[0].AsString := Edit1.Text;
　　下面这行代码经过TParams对象的ParamValues属性来同时访问三个参数：
　　 Query1.Params.ParamValues[Country;Capital;Continent] :=VarArrayOf([Edit1.Text, Edit2.Text, Edit3.Text]);
Array.5.3 从另外一个数据集得到参数
　　TQuery构件的DataSource属性用于指定一个数据源(TDataSource构件)，若是应用程序既没有在设计期也没有在运行期给参数赋值，它就在这个数据源中查找与参数名匹配的字段，而后用这个字段的值做为参数的值。
　　假设一个数据模块叫LinkModule，上面有一个TQuery构件叫OrdersQuery，它的SQL语句以下：
　　SELECT CustNo, OrderNo, SaleDate
　　 FROM Orders　WHERE CustNo = :CustNo
　　另外，数据模块上还有下列构件：
.一个TTable构件叫CustomersTable，它的TableName属性设为CUSTOMER.DB。
.一个TDataSource构件叫OrdersSource，它的DataSet属性设为OrdersQuery。
.一个TDataSource构件叫CustomersSource，它的DataSet属性设为CustomersTable。
.OrdersQuery的DataSource属性也设为CustomersSource。
　　假设应用程序有一个窗体叫LinkedQuery，窗体上有两个TDBGrid构件，它们的DataSource属性分别指定CustomersSource和OrdersSource。
　　若是编译和运行这个应用程序，将看到如图Array.3所示的效果：
　　图Array.3 从另外一个数据集得到参数
　　这里简单解释一下图Array.3。若是没有对SQL语句中的:CustNo参数赋值，OrdersQuery将试图从CustomersSource指定的数据集中查找匹配的字段。因为CustomersSource是从CUSTOMER.DB中获取数据的，而CUSTOMER.DB中刚好有一个CustNo字段，因此，:CustNo参数的值就是CustNo字段的值。若是您在显示CUSTOMER.DB的栅格中选择了另外一条记录，将致使:CustNo参数的值跟着变化。
Array.6 执 行 查 询
　　当指定了SQL语句而且提供了参数后，就能够执行查询了。若是是第一次执行查询，最好调用Prepare通知BDE或服务器作好准备，这样能加快查询的速度。
　　既能够在设计期执行查询，也能够在运行期执行查询。
　　要在设计期执行查询，只要把Active属性设为True。不过，在设计期能执行的SQL语句，仅限于SELECT语句，不能是INSERT、UPDATE或DELETE语句。
　　要在运行期执行查询，能够调用Open或ExecSQL函数，其中，Open适合于执行SELECT语句，而ExecSQL适合于执行INSERT、UPDATE或DELETE语句，后者不返回结果。
　　在调用Open或ExecSQL以前，首先要调用Close。程序示例以下：
　　 CustomerQuery.Close;
　　 CustomerQuery.Open;
　　若是在编程的时候没法肯定是否要返回查询结果，能够用Try...Except结构把这两个过程都写进去，通常Open在Try部分调用，而ExecSQL在Except部分调用，这样，即便Open调用失败，也能执行到ExecSQL。程序示例以下：
Try
Query2.Open;
Except
On E: Exception Do
　 If not (E is ENoResultSet) then Raise;
End;
　　前面屡次提到，在执行查询前最好先调用Prepare，尽管这并非必须的。预先调用Prepare可以改善应用程序的性能。程序示例以下：
CustomerQuery.Close;
If not (CustomerQuery.Prepared) then
CustomerQuery.Prepare;
CustomerQuery.Open;
　　上述程序首先调用Close，而后检查Prepared属性，若是这个属性返回True，表示已经准备好，若是这个属性返回False，表示没有准备好，此时就要调用Prepare。
Array.7 异 构 查 询
　　所谓异构查询，就是同时查询几个不一样的数据库。这些数据库的类型能够不一样。例如，能够同时查询Oracle数据库、Sybase数据库和本地的dBASE表。当程序执行异构查询的时候，BDE经过Local SQL来分析和处理这个查询，而不是用与服务器相关的特定的SQL语法。
　　创建一个异构查询的通常步骤是这样的：
　　第一步，把一个TQuery构件放到窗体或数据模块上，让DatabaseName属性空着。
　　第二步，为要查询的每个数据库创建一个单独的BDE别名。
　　第三步，设置SQL属性以指定要执行的SQL语句。在SQL语句中，表的名字前要加别名和冒号，而且用双引号括起来。字段名前要加表名和小圆点。例如：
SELECT Customer.CustNo, Orders.OrderNo
　 FROM "Oracle1:CUSTOMER"
　 JOIN "Sybase1:ORDERS"
　 ON (Customer.CustNo = Orders.CustNo)
WHERE (Customer.CustNo = 1503)
　　第四步，设置Params属性提供参数。
　　第五步，调用Prepare通知BDE或服务器作好准备，而后调用Open或ExecSQL执行查询。若是显式地使用TDatabase构件链接数据库，而且设置了它的DatabaseName属性定义了应用程序专用的别名，在SQL语句中能够用专用的别名代替BDE别名。
Array.8 查 询 结 果
　　默认状况下，查询结果是只读的。应用程序能够用数据控件去显示查询结果，但用户不能编辑数据。怎样才能使用户可以编辑数据呢？
　　要使用户可以编辑数据，必须把TQuery构件的RequestLive属性设为True。不过，把RequestLive属性设为True并不能保证查询结果必定是能够修改的，由于这还取决于查询使用的是Local SQL仍是与服务器相关的SQL。
　　像查询Paradox或dBASE以及异构查询都是使用Local SQL，而查询远程服务器则使用与服务器相关的SQL。即便RequestLive属性设为True，并且查询的是本地数据库，但因为SELECT语句的文法不合适，BDE也将返回只读的查询结果。
　　所以，在编辑数据以前，先要访问CanModify属性。只有当这个属性返回True时，才表示查询结果是可编辑的。