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

Inc(p, 5);

end;

NewSQL.WriteString(SQL.ReadString(p - 1));

if not hasWhere then //如果SQL语句中没有WHERE子句

NewSQL.WriteString('''' WHERE '''');

for i := 0 to FDialog.FilterList.Count - 1 do

begin

NewSQL.WriteString(FDialog[i].CreateSQL);

if i < FDialog.FilterList.Count - 1 then

NewSQL.WriteString('''' AND '''')

else

if hasWhere then

NewSQL.WriteString('''' AND '''');

end;

NewSQL.WriteString(SQL.ReadString(SQL.Size));

// 在执行SQL时暂停有所的控件

Application.MessageBox(PChar(NewSQL.DataString),''''123'''',MB_OK);

if FDataSet is TQuery then

with FDataSet as TQuery do

begin

DisableControls;

Close;

SQL.Clear;

SQL.Add(NewSQL.DataString);

for i := 0 to FOriginalVariables.Count - 1 do

begin

ParamByName(TDBVariable(FOriginalVariables[i]).VariableName).Value :=

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