var str:string; begin str:='select case when 1 then ''abc'' else ''ddd'' end from t'; with adoquery do begin close; sql.clear; sql.add(str); open; end; end;
在Query上面点右键;选择添加所有字段. 选中name字段,打开事件编辑器,选中OnGetText; 在些事件中写如下的方法:procedure TForm1.qry1bbbGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin //ShowMessage(sender.Value); if Trim(sender.Value) = 'aaaa' then text := '正确' else text := '不正确';end;------------------- 输出结果: id name 1 正确
var
str:string;
begin
str:='select case when 1 then ''abc'' else ''ddd'' end from t';
with adoquery do
begin
close;
sql.clear;
sql.add(str);
open;
end;
end;
如果在adoquery里做Field 的settext和gettext该怎么做呢?
麻烦高手给个方法
id name
1 aaaa
在Query上面点右键;选择添加所有字段.
选中name字段,打开事件编辑器,选中OnGetText;
在些事件中写如下的方法:procedure TForm1.qry1bbbGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
//ShowMessage(sender.Value);
if Trim(sender.Value) = 'aaaa' then
text := '正确'
else text := '不正确';end;-------------------
输出结果:
id name
1 正确