通用查询组件设计

作者：nxyc_twz@163.com

　　前段时间由于工作较忙，无暇整理本组件的相关文档，请大家谅解！以后我会陆续整理公布该组件的所有相关文档及源码！

< AN lang=EN-US>< AN style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-ha i-font-family: 'Times New Roman'">设置字段变量

procedure TMyFieldInfo.SetVariables(d: TDataset);

var

< AN style="mso- acerun: yes">  value : String;

begin

//设置变量值

< AN style="mso- acerun: yes">  if A iU erCase(FilterValue) = 'NULL' then

< AN style="mso- acerun: yes">  exit;

< AN style="mso- acerun: yes">  if FieldType = ftString then

< AN style="mso- acerun: yes">  begin

< AN style="mso- acerun: yes">  if CaseSe itive then

< AN style="mso- acerun: yes">  case MatchType of

< AN style="mso- acerun: yes">   fdMatchStart, fdMatchAny :

< AN style="mso- acerun: yes">  value := FilterValue;

< AN style="mso- acerun: yes">  fdMatchEnd :

< AN style="mso- acerun: yes">  value := '%' + FilterValue;

< AN style="mso- acerun: yes">  fdMatchExact :

< AN style="mso- acerun: yes">  value := FilterValue;

< AN style="mso- acerun: yes">  end

< AN style="mso- acerun: yes">  else

< AN style="mso- acerun: yes">  case MatchType of

< AN style="mso- acerun: yes">  fdMatchStart, fdMatchAny :

< AN style="mso- acerun: yes">   value := A iU erCase(FilterValue);

< AN style="mso- acerun: yes">  fdMatchEnd :

< AN style="mso- acerun: yes">  value := '%' + A iU erCase(FilterValue);

< AN style="mso- acerun: yes">  fdMatchExact :

< AN style="mso- acerun: yes">  value := A iU erCase(FilterValue);

< AN style="mso- acerun: yes">  end;

< AN style="mso- acerun: yes">  end

< AN style="mso- acerun: yes">  else

< AN style="mso- acerun: yes">  value := FilterValue;

< AN style="mso- acerun: yes">  if d is TDataSet then

< AN style="mso- acerun: yes">  begin

< AN style="mso- acerun: yes">  if MatchType < gt; fdMatchRange then

< AN style="mso- acerun: yes">  TQuery(d).ParamByName(FieldName + 'Filter').Value :=  value

< AN style="mso- acerun: yes">  else

< AN style="mso- acerun: yes">  begin

< AN style="mso- acerun: yes">  if CaseSe itive then

< AN style="mso- acerun: yes">  begin

< AN style="mso- acerun: yes">  if StartingValue < gt; '' then

< AN style="mso- acerun: yes">  TQuery(d).ParamByName(FieldName + 'Start').Value := StartingValue;

< AN style="mso- acerun: yes">  if EndingValue < gt; '' then

< AN style="mso- acerun: yes">  TQuery(d).ParamByName(FieldName + 'End').Value := EndingValue;

< AN style="mso- acerun: yes">  end

< AN style="mso- acerun: yes">  else

< AN style="mso- acerun: yes">  begin

< AN style="mso- acerun: yes">  if StartingValue < gt; '' then

< AN style="mso- acerun: yes">  TQuery(d).ParamByName(FieldName + 'Start').Value := A iU erCase(StartingValue);

< AN style="mso- acerun: yes">  if EndingValue < gt; '' then

< AN style="mso- acerun: yes">  TQuery(d).ParamByName(FieldName + 'End').Value := A iU erCase(EndingValue);

< AN style="mso- acerun: yes">  end;

< AN style="mso- acerun: yes">  end;

< AN style="mso- acerun: yes">  end

< AN style="mso- acerun: yes">  else

< AN style="mso- acerun: yes">  begin

< AN style="mso- acerun: yes">  if MatchType < gt; fdMatchRange then

< AN style="mso- acerun: yes">  TQuery(d).ParamByName(FieldName + 'Filter').Value :=  value

< AN style="mso- acerun: yes">  else

< AN style="mso- acerun: yes">  begin

< AN style="mso- acerun: yes">  if CaseSe itive then

< AN style="mso- acerun: yes">  begin

< AN style="mso- acerun: yes">  if StartingValue < gt; '' then

< AN style="mso- acerun: yes">  TQuery(d).ParamByName(FieldName + 'Start').Value := StartingValue;

< AN style="mso- acerun: yes">  if EndingValue < gt; '' then

< AN style="mso- acerun: yes">  TQuery(d).ParamByName(FieldName + 'End').Value := EndingValue;

< AN style="mso- acerun: yes">  end

< AN style="mso- acerun: yes">  else

< AN style="mso- acerun: yes">  begin

< AN style="mso- acerun: yes">  if StartingValue < gt; '' then

< AN style="mso- acerun: yes">  TQuery(d).ParamByName(FieldName + 'Start').Value := A iU erCase(StartingValue);

< AN style="mso- acerun: yes">  if EndingValue < gt; '' then

< AN style="mso- acerun: yes">  TQuery(d).ParamByName(FieldName + 'End').Value := A iU erCase(EndingValue) 

< AN style="mso- acerun: yes">  end;

< AN style="mso- acerun: yes">  end;

< AN style="mso- acerun: yes">  end

end;

< AN style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-ha i-font-family: 'Times New Roman'">定义参数变量类

TDBVariable = cla < AN style="mso- acerun: yes">  //参数数据变量

< AN style="mso- acerun: yes">  public

< AN style="mso- acerun: yes">  VariableName : String  //变量名< AN style="mso- acerun: yes"> 

< AN style="mso- acerun: yes">  VariableValue : Variant  //变量值

< AN style="mso- acerun: yes">  co tructor Create(name : String; value : Variant); //构造函数

< AN style="mso- acerun: yes">  end;