通用查询组件设计（续三）

function TMyFieldInfo.CreateSQL: String;

var

Field : String;

begin

//创建SQL语句

if FieldOrigin <> '''''''' then

Field := FieldOrigin

else

Field := FieldName;

if NonMatching then

Result := '''' not ( ''''

else

Result := '''' ( '''';

if AnsiUpperCase(FilterValue) = ''''NULL'''' then

begin

Result := Result Format(''''%s is NULL) '''', [Field]);

exit;

end;

if FieldType = ftString then

begin

if CaseSensitive then

case MatchType of

fdMatchStart:

Result := Result Format(''''%0:s starting with :%1:sFilter ) '''', [Field, FieldName]);

fdMatchAny:

Result := Result Format(''''%0:s containing :%1:sFilter ) '''', [Field, FieldName]);

fdMatchEnd :

Result := Result Format(''''%0:s = :%1:sFilter ) '''', [Field, FieldName]);

fdMatchExact :

Result := Result Format(''''%0:s = :%1:sFilter ) '''', [Field, FieldName]);

fdMatchRange :

begin

if StartingValue <> '''''''' then

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!