unit dlgmateriaprimas;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, ZAbstractRODataset, ZDataset,
  Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  Tfdlgmateriaprimas = class(TForm)
    Panel5: TPanel;
    Label1: TLabel;
    lbuscar: TEdit;
    Button1: TButton;
    DBGrid1: TDBGrid;
    qmaterial: TZReadOnlyQuery;
    dsqmaterial: TDataSource;
    qmaterialid: TWideStringField;
    qmaterialdescripcion: TWideStringField;
    qmaterialobservaciones: TWideStringField;
    qmateriales_tiempo: TIntegerField;
    procedure lbuscarChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fdlgmateriaprimas: Tfdlgmateriaprimas;

implementation

{$R *.dfm}

procedure Tfdlgmateriaprimas.Button1Click(Sender: TObject);
begin
    close;
end;

procedure Tfdlgmateriaprimas.lbuscarChange(Sender: TObject);
var vbuscar:string;
begin
    qmaterial.Close;
    qmaterial.Prepare;
    if lbuscar.Text='' then vbuscar:='%' else vbuscar:='%'+lbuscar.Text+'%';
    qmaterial.ParamByName('TEXTO').AsString:=vbuscar;
    qmaterial.Open;
end;

end.