if EndingValue <> '''''''' then //如果结束范围不为空
TQuery(d).ParamByName(FieldName ''''End'''').Value := EndingValue;
end
else //大小写敏感
begin
if StartingValue <> '''''''' then //如果起始范围值不为空
TQuery(d).ParamByName(FieldName ''''Start'''').Value := AnsiUpperCase(StartingValue);
if EndingValue <> '''''''' then //如果结束范围值不为空
TQuery(d).ParamByName(FieldName ''''End'''').Value := AnsiUpperCase(EndingValue);
end;
end;
end
end;
TMyFieldInfo = class //字段类
public
FieldName : String; //字段名
FieldOrigin : String;
FieldType : TFieldType; //字段类型
DisplayLabel : String; //显示的名称
MatchType : TDBFilterMatchType; //匹配类型
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
