multifilter.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 58 行

unit MultiFilter;

interface

uses MacroQuery,AdoMacroQry,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, Db, StdCtrls, DBCtrls, DBCGrids, Mask, ComCtrls,
  Buttons, ExtCtrls, printers, Variants;

type
  TfrmMultiFilter = class(TForm)
    Panel1: TPanel;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    cmdAdd: TBitBtn;
    cmdDel: TBitBtn;
    Panel2: TPanel;
    panGrid: TPanel;
    Grid1: TStringGrid;
    cboValues: TComboBox;
    dbcboValues: TDBLookupComboBox;
    cboFields: TComboBox;
    edValues: TMaskEdit;
    cboRelate: TComboBox;
    cboOperate: TComboBox;
    dpValues: TDateTimePicker;
    dsLookup: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure Grid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure cmdAddClick(Sender: TObject);
    procedure cmdDelClick(Sender: TObject);
    procedure cmdCancelClick(Sender: TObject);
    procedure cboRelateExit(Sender: TObject);
    procedure cboFieldsExit(Sender: TObject);
    procedure cboOperateExit(Sender: TObject);
    procedure dpValuesExit(Sender: TObject);
    procedure dbcboValuesExit(Sender: TObject);
    procedure cboValuesExit(Sender: TObject);
    procedure edValuesExit(Sender: TObject);
    procedure cmdOKClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  	oFields :TFields;
	oEditCtrl :TWinControl;
  public
    { Public declarations }
    qryBrowse :TDataSet;
    sWhere :string;
    Function GetFilter(tsWhere:string) :Boolean;
	Function SetFilter(tsWhere:string) :Boolean; dynamic;
  	procedure SetFields(toFields:TFields);
  end;

const
	asRelates :Array[0..1] of string =('AND','OR');
	asRelatesP :Array[0..1] of string =('