通用查询组件设计
前段时间由于工作较忙，无暇整理本组件的相关文档，请大家谅解！以后我会陆续整理公布该组件的所有相关文档及源码！
procedure tmyfieldinfo.setvariables(d: tdataset);
var
value : string;
begin
//设置变量值
if ansiuppercase(filtervalue) = 'null' then //如果filtervalue为空，则退出
exit;
if fieldtype = ftstring then //如果字段类型为字符串型，则
begin
if casesensitive then //如果大小写敏感
case matchtype of //匹配类型
fdmatchstart, fdmatchany : //起始部分匹配或任意位置匹配
value := filtervalue;
fdmatchend : //结束部分匹配
