unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, cxTextEdit,
  GridsEh, DBGridEh, cxLabel, cxDBEdit, cxNavigator, cxDBNavigator, cxContainer,
  cxEdit, cxGroupBox, cxPC, cxControls;

type
  TForm1 = class(TForm)
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxGroupBox1: TcxGroupBox;
    cxDBNavigator1: TcxDBNavigator;
    cxDBTextEdit1: TcxDBTextEdit;
    cxDBTextEdit2: TcxDBTextEdit;
    cxDBTextEdit3: TcxDBTextEdit;
    cxDBTextEdit4: TcxDBTextEdit;
    cxDBTextEdit5: TcxDBTextEdit;
    cxDBTextEdit6: TcxDBTextEdit;
    cxDBTextEdit7: TcxDBTextEdit;
    cxLabel1: TcxLabel;
    cxLabel2: TcxLabel;
    cxLabel3: TcxLabel;
    cxLabel4: TcxLabel;
    cxLabel5: TcxLabel;
    cxLabel6: TcxLabel;
    cxLabel7: TcxLabel;
    cxDBTextEdit8: TcxDBTextEdit;
    cxLabel8: TcxLabel;
    cxDBTextEdit9: TcxDBTextEdit;
    cxLabel9: TcxLabel;
    cxDBTextEdit10: TcxDBTextEdit;
    cxGroupBox2: TcxGroupBox;
    DBGridEh1: TDBGridEh;
    cxTextEdit1: TcxTextEdit;
    cxButton1: TcxButton;
    cxButton2: TcxButton;
    procedure cxTextEdit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cxTextEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with DM.qry7 do begin
    Close;
    with SQL do begin
      Clear;
      Add('select * from dwgl where dwmc like :p_dwmc or dh like :p_dh or ch like :P_ch');
    end;
    Parameters.ParamByName('p_dwmc').Value := '%' + cxTextEdit1.text + '%';
    Parameters.ParamByName('p_dh').Value := '%' + cxTextEdit1.text + '%';
    Parameters.ParamByName('P_ch').Value := '%' + cxTextEdit1.text + '%';
    Open;
  end;
end;

end.