if casesensitive then //如果大小写敏感
begin
if startingvalue <> '' then //如果起始范围值不为空
tquery(d).parambyname(fieldname + 'start').value := startingvalue;
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
