知识大全 SQL编程（一）[4]

Posted 2022-07-21 知

篇首语：不要试图去做一个成功的人，要努力成为一个有价值的人。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 SQL编程（一）[4]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：SQL编程（一）[4] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　 利用参数编辑器（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部件相连的数据浏览部件中会显示出查询结果通过参数编辑器为参数赋值这种方式缺乏应有的灵活性在实际应用中用得较少在实际应用中程序设计人员希望用更灵活方便的方式为参数赋值那就是我们接下来要介绍的另一种途径

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

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

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

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

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

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

　　 使用Params属性为参数赋值

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

　　例如一个TQuery部件Query 我们为它编写的动态SQL语句是

　　Insert Into Customer（CustNo Name Country）

　　Values（ CustNo :Name : Country）

　　对于上述这条动态SQL语句中的参数我们可以利用TQuery部件的params 属性为参数赋值

　　Query params[ ] AsString := ;

　　Query params[ ] AsString := Lichtenstein ;

　　Query params[ ] AsString := USA ;

　　上述语句将把赋给参数 Cuse_No Lichtenstein 赋给参数 Name USA 赋给参数 Country

　　 使用ParamByName方法为参数赋值

　　ParamByName是一个函数用动态SQL语句中的参数作为调用ParamByName函数的参数这样便可以为它们赋值使用这种赋值方法必须要知道动态SQL语句参数的名字

　　例如在节中的例子中也可以用下述方法给参数赋值

　　Query ParamByName（ CustNo ） AsString := ;

　　Query ParamByName（ Name ） AsString := Lichtenstein ;

　　Query ParamByName（ Country ） AsString := USA ;

　　使用这种方法同样可以为各参数赋值而且更加直观一些

　　 使用Datasource属性为参数赋值

　　上述两种方法的共同特点是我们在为各参数赋值时我们是知道各参数对应的具体参数值的而在具体的应用程序中有些参数值常常是无法确定的例如参数值来自于另一个查询结果对于这种情况 Delphi提供了使用Datasource属性为动态SQL 语句中尚存在没有赋值的参数时 Delphi 会自动检查 TQuery 部件的 Datasource 属性如果为Datasource属性设置了属性值（该属性的值是另一个TDatasource部件的名字） Delphi 会把没有赋值的参数与TDatasource部件中的各字段比较 Delphi 会将相应的字段值赋给与其相匹配的参数利用这种方法也能实现所谓的连接查询我们在学习使用TTable部件时便会创建主要明细型数据库应用用TQuery部件创建的连接查询与主要明细型应用是相似的

　　例如在如图所示的应用中设置了下列部件

　　● 一个TTable部件

　　名字为Cust 它的DatabaseName属性为DEMOS TableName属性为Customer

　　● 一个TDatasource部件

　　名字为Custsource 其Dataset属性被设置为Cust

　　● 一个TQuery部件

　　名字为ORDERS 其DatabaseName被设置为DEMOS SQL属性值为

　　Select Orders CustNo Orders OrderNo Orders SaleDate FROM Orders

　　WHERE Orders CustNo =: CustNo

　　ORDERS的DataSouce属性被设置为CustSource

　　● 一个TDatasource部件

　　名字为OrderSource 其DataSet属性被设置为Orders

　　● 两个TDBGrid部件

　　它们分别连接CustSource和OrderSource

　　TQuery部件Orders中的动态SQL语句中的参数 CustNo在程序设计过程中没有给它赋值当该应用程序运行时Delphi会自动地到其Datasource属性中说明的数据源CustSource中查找与参数 CustNo匹配的字段而CustSource中正好有一个名字为 CustNo 的字段与参数 CustNo匹配这样Customer表中的CustNo字段值被赋给了参数 : CustNo 而当每移动Customer表中的记录指针参数 CustNo的值会随之改变而参数 CustNo的值发生改变时 Orders中的动态SQL语句会根据新的参数值重新查询从数据库表中获取相应的订单数据这样也变实现了类似于主要明细型应用即连接查询

　　 Prepare方法的使用

　　在使用动态SQL语句编程时常常用到一个很重要的方法prepare 调用prepare 方法之后 Delphi会将带参数的SQL语句传送给与其对应的数据库引擎对动态SQL语句进行语法分析和优化虽然在用动态SQL语句编程时调用prepare方法并不是必须的但是这里我们要极力推荐调用prepare方法因为调用prepare方法后会大大提高动态SQL 语句的执行性能特别是当要反复多次执行同一条动态SQL语句时其优越性会更加明显如果在应用程序中执行一条SQL语句之前并没有显式地调用prepare方法每次在执行SQL 语句时 Delphi会隐含地调用propare方法以准备这个查询

　　TQuery部件还有一个prepare属性这是一个布尔型属性当其属性值为True时表明该查询已被准备好了（ SQL 语句已被传送到数据库引擎中）当我们使用参数编辑器Parameters Editor来为动态SQL语句中的参数赋值时当设置完相应的参数值并退出参数编辑器时 Delphi会隐含地调用prepare方法以准备好查询

　　当SQL语句执行完之后要想准备下一个查询首先必须调用close方法然后才能调用prepare方法准备下一个查询一般来说在一个应用程序中应该调用一次prepare方法常常在窗体的OnCreate事件处理过程中调用prepare方法然后用上述介绍的方法为参数赋值最后调用Open方法或ExecSQL方法执行SQL语句以完成查询

　　当然在调用prepare方法准备好一个查询时会消耗一些数据库资源因而每当一个查询执行完毕之后要养成调用Unprepare方法以撤消查询的好习惯在运行程序过程中通过程序改变TQuery部件的SQL属性值时 Delphi会自动地调用Close方法和Unprepare 方法以撤消查询

　　返回目录 DELPHI基础教程

编辑推荐

Java程序设计培训视频教程

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

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

　　Oracle索引技术

　　ORACLE G数据库开发优化指南

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

　　C嵌入式编程设计模式

　　Android游戏开发实践指南

cha138/Article/program/Delphi/201311/25147