Поиск по базе данных

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Menus, Vcl.Grids,
  Vcl.DBGrids, Data.DB, Data.Win.ADODB, Vcl.StdCtrls, Vcl.Mask, Vcl.DBCtrls;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Panel1: TPanel;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
uses Unit2, Unit3;
 
procedure TForm1.Edit1Change(Sender: TObject);
var help1, help2:string;
begin
 help1:='%'+Form1.Edit1.Text+'%';
 help2:=QuotedStr(help1);
 with Form1.ADOQuery1 do
 begin
   Close;
   SQL.Clear;
   SQL.Add('select * from Fam where [Номенклатурный номер] like'+help2+' or [Название материала] like'+help2+' or [Стелаж] like'+help2+' or [Ячейка] like'+help2+' order by Fam');
   Open;
 end;
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
Form1.ADOQuery1.Append;
Form2.Show;
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
Form2.Show;
end;
 
 procedure TForm1.N4Click(Sender: TObject);
begin
 Form3.Show;
end;
 
end.