通用查询组件设计
前段时间由于工作较忙，无暇整理本组件的相关文档，请大家谅解！以后我会陆续整理公布该组件的所有相关文档及源码！
procedure tmyfieldinfo.setvariables(d: tdataset);
var
value : string;
begin
//设置变量值
if ansiuppercase(filtervalue) = 'null' then
exit;
if fieldtype = ftstring then
begin
if casesensitive then
case matchtype of
fdmatchstart, fdmatchany :
value := filtervalue;
fdmatchend :
value := '%' + filtervalue;
fdmatchexact :
value := filtervalue;
end
else
