Delphi中的SQL编程

核心提示： 17.4 动态SQL语句的编程在17.3节中，我们已经介绍了动态SQL语句（又被称为参数化的SQL语句），Delphi中的SQL编程(8)，在其中包含在程序过程中可以变化的参数，在实际的程序设计中使用得更多的是动态SQL语句，依次对应动态SQL 语句中的参数， 也就是说动态SQL语句中第一个参数对应Params[0]

17.4 动态SQL语句的编程

在17.3节中，我们已经介绍了动态SQL语句（又被称为参数化的SQL语句），在其中包含在程序过程中可以变化的参数，在实际的程序设计中使用得更多的是动态SQL语句，因而在这一节里我们重点介绍如何给动态SQL语句的参数赋值，以在应用程序中灵活地使用SQL语句。动态SQL语句的编写、执行等等与17.3节中介绍的SQL语句的编写、执行是一样的。

动态SQL语句中的参数，我们可以通过两种途径来为它赋值：

1. 利用参数编辑器(Parameter Editor)来为参数赋值

具体方法是：选中TQuery部件，单击鼠标右键，然后从中选择Define Parameters 便可以打开参数编辑器。　

例如，在TQuery部件的SQL属性中我们设置如下的SQL语句：　

Setect * From Customer Where CustNO=:Number;

TQuery的DatabaseName属性为DBDEMOS，其中Number为参数变量。我们便可以为参数Number赋值，在Datetype组合框中选择该参数的数据类型为整数Integer，在Value编辑框中可以为参数Number赋一个值，也可以单击Null Value检查框为参数Number赋一个空值Null。给参数赋值之后，单击OK按钮，这样TQuery部件中的SQL 查询便准备好了，而且参数值也被赋给了动态SQL语句中相应的参数，此时当把TQuery 部件的Active属性设置成True时，在与TQuery部件相连的数据浏览部件中会显示出查询结果，通过参数编辑器为参数赋值，这种方式缺乏应有的灵活性，在实际应用中用得较少，在实际应用中程序设计人员希望用更灵活方便的方式为参数赋值，那就是我们接下来要介绍的另一种途径：

2. 在运行过程中，通过程序为参数赋值

用这种方式为参数赋值有三种方法：

①根据参数在SQL语句中出现的顺序，设置TQuery部件的Params属性值为参数赋值。

②直接根据SQL语句中各参数的名字，调用ParamByName方法来为各参数赋值。

③将TQuery部件的DataSource属性设置为另一个数据源，这样将另一个数据源中与当前TQuery部件的SQL语句中的参数名相匹配的字段值赋给其对应的参数。

这三种方法我们将在下面的三小节中具体地介绍

17.4.1 使用Params属性为参数赋值

TQuery部件具有一个Params属性，它们在设计时不可用，在程序运行过程中可用，并且是动态建立的，当为TQuery部件编写动态SQL 语句时， Delphi 会自动地建立一个数组Params，数组Params是以0下标开始的，依次对应动态SQL 语句中的参数， 也就是说动态SQL语句中第一个参数对应Params[0],第二个参数对应params[1]，依此类推。