[Viking]

Доброго времени суток!
Народ, я в Дельфи полный чайник, а прогу сделать надо. Вобщем, суть такая. В Акцессе есть БД, состоящая из 3-ёх связанных таблиц: Поставщики->Товары->Приход/Расход. Надо написать в Дельфи прогу, которая будет с этой базой работать. Я добавил на форму DataSource, DBGrid и ADOTable. Файл я с ADO и таблицей связал. В таблице данные отобразил, а вот дальше встал. Нужно, чтобы при двойном щелчке на строку с поставщиком открывалась вторая форма, в которой будет таблица с товарами от этого поставщика. При щелчке на строку с товарами, соответственно, нужна 3-ья форма с приходом и расходом. Что делать??? Хотя бы в общих чертах, чего да как?..

[Yurk@]

Ну для начала те нужно в событии DBGrid->OnDblClick поцепить процедуру, которая будет открывать новое окно:

Код:

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
Form2.ShowModal;
end;

В событии OnCreate которого ты сделаешь процедуру определения выбраного поставщика с последующим его открытием и выборкой в БД с помощью SQL-запроса.

Код:

procedure TForm2.FormCreate(Sender: TObject);
var
Post :string;
begin
Post:=Form1.DBGrid1.DataSource.DataSet.Fields[1].AsString; // напр (поле 1 это поставщик)
with Query do
Query.Close;
Query.SQL.Clear;
Query.SQL.AddObject('SELECT * FROM (твоя база) WHERE (имя поля) LIKE '+Post+'');
Query.Open;
end;

Дальше все действия аналогичны (только формы меняются)
Удачи...
ЗЫ: Может че-то упустил ... очень спешил

[Viking]

Спасибо, уже разобрался! Правда без SQL. Вроде как работает. Пытаюсь сделать GUI, в частности, победить долбаные скроллы в ДБГриде. ShowScrollBar(DBGrid1.Handle, SB_Vert ,false); как то не устраивает...

[Yurk@]

У меня тоже такая проблема была, решил вот так!

[Viking]

Работает, черт побери! Кстати, вопрос на засыпку: а у этого долбаного DBGrid'a есть свойство, значеним которого является индекс выделенной строки, либо там count'ом надо извращаться? Свойства не нашел...

[Yurk@]

Если я тебя правильно понял, то так:

Код:

 DBGrid1.SelectedIndex;