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

TDBVariable(FOriginalVariables[i]).VariableValue;

end;

// 设置新的变量

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

FDialog[i].SetVariables(FDataSet);

try

Open;

except

RestoreSQL; //如果出错，则恢复原来的SQL语句

end;

end;

SetFields;

FDataSet.EnableControls;

FModifiedSQL.Assign(TStrings(GetOrdProp(FDataSet, SQLProp)));

finally

SQL.Free;

NewSQL.Free;

end;

end;

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