| 本月文章推荐 |
通用查询组件设计（续四）发表日期：2006-2-4
|
|
通用查询组件设计 前段时间由于工作较忙，无暇整理本组件的相关文档，请大家谅解！以后我会陆续整理公布该组件的所有相关文档及源码！ procedure TMyFieldInfo.SetVariables(d: TDataset); var value : String; begin //设置变量值 if AnsiUpperCase(FilterValue) = 'NULL' then exit; if FieldType = ftString then begin if CaseSensitive then case MatchType of fdMatchStart, fdMatchAny : value := FilterValue; fdMatchEnd : value := '%' + FilterValue; fdMatchExact : value := FilterValue; end else case MatchType of fdMatchStart, fdMatchAny : value := AnsiUpperCase(FilterValue); fdMatchEnd : value := '%' + AnsiUpperCase(FilterValue); fdMatchExact : value := AnsiUpperCase(FilterValue); end; end else value := FilterValue; if d is TDataSet then begin if MatchType <> fdMatchRange then TQuery(d).ParamByName(FieldName + 'Filter').Value := value else begin 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 else begin if MatchType <> fdMatchRange then TQuery(d).ParamByName(FieldName + 'Filter').Value := value else begin 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; TDBVariable = class //参数数据变量 public VariableName : String; //变量名 VariableValue : Variant; //变量值 constructor Create(name : String; value : Variant); //构造函数 end; |
| 上一篇：通用查询组件设计（续三）
人气:4287 下一篇：在Delphi7中实现停靠功能 人气:3831 |
| 浏览全部Delphi的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
