通用查询组件设计(续二)

try //保存到流

FOriginalSQL.SaveToStream(SQL);

SQL.Seek( 0, soFromBeginning);

p := WordPos(''''WHERE'''', SQL.DataString);

if p = 0 then //如果SQL语句中没有WHERE子句

begin

hasWhere := false;

p := WordPos(''''GROUP'''', SQL.DataString);

if p = 0 then //如果SQL语句中没有GROUP子句

p := WordPos(''''HAVING'''', SQL.DataString);

if p = 0 then //如果SQL语句中没有HAVING子句

P := WordPos(''''ORDER'''', SQL.DataString);

if p = 0 then //如果SQL语句中没有ORDER子句

p := SQL.Size;

end

else

begin //SQL语句中有WHERE子句

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!