通用查询组件设计

procedure SetFieldsList(const Value: TStringList);//设置字段列表

procedure SetOriginalSQL(const Value: TStrings);//设置SQL

procedure RestoreSQL;//恢复SQL

procedure SaveParamValues;//保存参数值

{ Private declarations }

protected

{ Protected declarations }

procedure Loaded; override;//装载过滤对话框

procedure Notification(AComponent: TComponent;

Operation: TOperation); override;//传送消息

property OriginalSQL : TStrings read FOriginalSQL write SetOriginalSQL;

public

{ Public declarations }

constructor Create(AOwner : TComponent); override;//构造函数

destructor Destroy; override;//析构函数

function Execute : Boolean;//执行查询

procedure ReBuildSQL;//重建SQL语句

property ModifiedSQL : TStrings read FModifiedSQL;

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