[Grynyuk]

Здравствуйте. Нужна помощь осуществить поиск по таблице из базы данных . Вот моя попытка:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

unit Unit1;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;    type   TForm1 = class(TForm)     DataSource1: TDataSource;     DBGrid1: TDBGrid;     DBNavigator1: TDBNavigator;     ADOConnection1: TADOConnection;     ADOTable1: TADOTable;     Label1: TLabel;     Label2: TLabel;     Button1: TButton;     Button2: TButton;     Edit1: TEdit;     Edit2: TEdit;     Label3: TLabel;     Label4: TLabel;     procedure Button2Click(Sender: TObject);     procedure Button1Click(Sender: TObject);      private     { Private declarations }   public     { Public declarations }   end;    var   Form1: TForm1;    implementation    {$R *.dfm}           {    procedure TForm1.Button2Click(Sender: TObject); var   Res: Variant; begin      Res := Table.DataSource.DataSet .Lookup('Id;Товар', VarArrayOf([Edit2.Text,     Edit1.Text]), 'Цена');      if Res <> Null then     ShowMessage('Цена ' + string(Res)); end;  TForm1.Button1Click(Sender: TObject); begin   if not Table1.Shop('Товар', Edit1.Text, []) then     ShowMessage('Data not found');        end;  } end.

Кнопка 1 должна делать локейт поиск кнопка 2 лукап. Вот проект с базой мдб