作者：[美国] Steve Teixeira
改编: doomtoo0（红羽）
动态sql是指在运行过程中根据不同的情况来修改的sql语句。delphi中TQuery的sql属性编辑器可输入静态的sql语句，当然您可以这样写：
select *from CUSTOMER where COUNTRY=:abcdef;
这样您就可以传参数值实现动态sql查询了。
对于参数化查询来说，delphi可供的方法很多，列如通过params特性或params特性编辑器提供参数值、调用ParamByName()方法提供参数。
下面两个sql语句似乎是都是对的：
SELECT *FROM PART ORDER BY:ORDERVAL;
SELECT *FROM:TABLENAME;
不幸的是，您无法改变sql语句的字段名和表名，那么，如何使sql语句具有灵活性？这里介绍format()函数来构建sql语句。
如果您有C或C++编程的经验，您会发现，format()函数与C中的print()函数很相似.
这里简单介绍format()函数，详细说明请查阅帮助。
使用format()来自定义字符串，需要指定格式化子句。格式化子句指明在一个给定字符串的何处插入特定类型的字符串。格式化子句是由一个百分比符号%和一个类型符组成的。下面列出了一些类型符：
c 字符类型
d 整数类型
f 浮点类型
p 指针类型
s 字符串类型
请看下面的例子：
s:=format(‘My name is %s and I‘m %d years old.‘,[‘Xavier‘,32]);
有两个格式化子句。%s表示此处插入一个字符串，%d表示此处插入一个整数。
format()函数用一个参数数组给出要替换的值，然后返回结果字符串。
这样，象前面列举的两个sql语句，要构造字段名和表名可变的sql语句，您就可以使用format()函数。
下面给出程序代码(指定字段排序)，在type段有程序用到的控件，table1对应与PARTS.DB表。
unit MainFrm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, DB, DBTables, StdCtrls;
type
TMainForm = class(TForm)
dbMain: TDatabase;
lbFields: TListBox;
tblParts: TTable;
dsParts: TDataSource;
dbgParts: TDBGrid;
qryParts: TQuery;
lblFields: TLabel;
procedure FormCreate(Sender: TObject);
procedure lbFieldsClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
procedure TMainForm.FormCreate(Sender: TObject);
//将字段名列到列表框中
begin
{ Retrieve a list of field names from the PARTS.DB table so that
the use can select the field on which to sort the query. These
fields names are placed into a TListBox. }
tblParts.Open;
try
tblParts.GetFieldNames(lbFields.Items);
finally
tblParts.Close;
end;
end;
procedure TMainForm.lbFieldsClick(Sender: TObject);
{ 使用format()函数指定排序的字段}
{ Define a constant string from which the SQL string will be built }
const
SQLString = ‘SELECT * FROM PARTS ORDER BY %s‘;
//定义一个常量字符串以供sql语句使用.
begin
with qryParts do
begin
Close; // Make sure the query is closed.
SQL.Clear; // Clear any previous SQL statement.
{ Now add the new SQL statement constructed with the format
function }
SQL.Add(Format(SQLString, [lbFields.Items[lbFields.ItemIndex]]));
//加入用format函数构建的新sql语句.
Open; { Now open Query1 with the new statement }
end;
end;
end.
