Показать сообщение отдельно
  #2  
Старый 21.01.2008, 00:12
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
 
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
Подмигивание

Ну для начала те нужно в событии 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;
Дальше все действия аналогичны (только формы меняются)
Удачи...
ЗЫ: Может че-то упустил ... очень спешил
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Ответить с цитированием