【结贴】2800模糊查询问题？**

crskyp

2800中模糊查询要加 %

而3108中就却不用加 %，怎么样修改成3108的效果？

lixy

你说的是什么意思？什么地方的模糊查询。

lixy

if (SysUtils.SameText(FRelationOpr.Text, 'LIKE')) and
          (copy(FRightEdit.Text,1,1) <> '%') and (copy(FRightEdit.Text,length(FRightEdit.Text),1) <> '%') then
         lRightEdit:= '%'+FRightEdit.Text+'%'
你搜下这个代码，看下这个逻辑。

crskyp

我从3108 业务模型\系统空间\用户界面基础\界面库\系统接口\SQL条件构造窗体 位置下找不到
楼上代码，
3108用 like 模糊查询时不需要用户输入 %  ，他是怎么实现的？

zfang

楼主，3楼不是告诉你代码逻辑了吗？

crskyp

不知道写在什么位置

zfang

平台里的sql构造器是这样子的（你可以跟踪调试看下他的实现）
业务模型\系统空间\用户界面基础\界面库\系统接口\简单SQL条件构造窗体
procedure TSimpleSQLFilterEditor.EditorToText(var AText: string);
const
  cBinaryText = '%s %s %s';
  cUnaryText = '%s %s';
  cBetweenText = '%s %s %s AND %s';
var
  lBizField: TBizField;
  lRightEdit : String;
begin
  AText := '';
  if FLeftEdit.ItemIndex = -1 then Exit;
  lBizField := CurBizField;

  case OprKind of
    TOprKind.okBinary:
    begin
      if (SysUtils.SameText(FRelationOpr.Text, 'LIKE')) and
          (copy(FRightEdit.Text,1,1) <> '%') and (copy(FRightEdit.Text,length(FRightEdit.Text),1) <> '%') then
         lRightEdit:= '%'+FRightEdit.Text+'%'
      else
         lRightEdit:= FRightEdit.Text;
      AText := Format(cBinaryText, [lBizField.Origin.FullID, FRelationOpr.Text,
        TextToValue(lBizField.DataType, FIsINOpr, lRightEdit)]);
    end;
    TOprKind.okUnary:
      AText := Format(cUnaryText, [lBizField.Origin.FullID, FRelationOpr.Text]);
    TOprKind.okBetween:
      AText := Format(cBetweenText, [lBizField.Origin.FullID, FRelationOpr.Text,
        TextToValue(lBizField.DataType, FIsINOpr, FRightEdit.Text),
        TextToValue(lBizField.DataType, FIsINOpr, FBetweenEdit.Text)]);
  else
    OprKindError;
  end;
end;

crskyp

太谢谢了，解决了。