Нужно чтобы по нажатию категории в DBGrid1, в DBGrid2 выводились бы товары только выбранной категории. Никак не могу сделать.
Пробовал так:
- Код: Выделить всё
procedure TForm1.FormShow(Sender: TObject);
begin
with DM do
begin
ConnectKat.DatabaseName:= 'Kategorii.db';
ConnectKat.Connected:= true;
QKat.Close;
QKat.SQL.Clear;
QKat.SQL.Add('select * from TKategorii');
QKat.Open;
ConnectLek.DatabaseName:= 'Lekarstva.db';
ConnectLek.Connected:= true;
QLek.Close;
QLek.SQL.Clear;
QLek.SQL.Add('select * from Lekarstva where IDKATEGOR='+QKAT.FieldByName('IDKATEGOR').AsString);
QLek.ExecSQL;
QLek.Open;
end;
end;
В DBGrid2 ничего не выводится.
Если сделать, например, запрос в виде
- Код: Выделить всё
QLek.SQL.Add('select * from Lekarstva where IDKATEGOR=5');
то все отлично выводится. Но мне нужно, чтобы пользователь сам выбирал категорию. Может кто подскажет, как сделать запрос?
).