通用查询组件设计(续二)

end;

// Set the fields

with TMyFieldInfo(FFilterList[FilterIndex]) do

begin

CaseSensitive := cbxCaseSensitive.Checked;

DisplayLabel := lstAllFields.Items[LastIndex];

// Save off the TField for this field

FieldName := TField(lstAllFields.Items.Objects[LastIndex]).FieldName;

FieldOrigin := TField(lstAllFields.Items.Objects[LastIndex]).Origin;

FieldType := TField(lstAllFields.Items.Objects[LastIndex]).DataType;

// Match Criteria is either Range or one of the other 4

if pgeCriteria.ActivePage = tabByRange then

MatchType := fdMatchRange

else

MatchType := TDBFilterMatchType(grpSearchType.ItemIndex);

// Only save the criteria that they want to work with

if MatchType = fdMatchRange then

begin

EndingValue := edtEndingRange.Text;

StartingValue := edtStartingRange.Text;

FilterValue := '''''''';

end

else

begin

EndingValue := '''''''';

StartingValue := '''''''';

FilterValue := edtFieldValue.Text;

end;

NonMatching := cbxNonMatching.Checked;

end;

end

else

// The user removed a criteria that existed

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