программа калькуляции

[ubun]

Делаю програмку для калькуляции блюд.
Есть база и файлы *.dbf
Есть файл где есть само блюдо и его составляющие.
При выборе блюда в первой таблице, должны показаться составляющие во второй таблице причем, не кодами, а именами.
Никак не могу все это сделать в двух таблицах. Идея была такова
Связал вторую с первой, а третью со второй, а потом второю хотел поставить невидимой.
Вот исх-к.

[Lesha]

может не в тему, а почему используете DBF а не *.mdb аккеса через MS Jet 4.0 и ADO компоненты, с ними вроде все проще.

[Surgeon]

Сообщение от ubun

Есть файл где есть само блюдо и его составляющие.
При выборе блюда в первой таблице, должны показаться составляющие во второй таблице причем, не кодами, а именами.
Никак не могу все это сделать в двух таблицах.

Когда-то решал аналогичную задачу прилагаю проект. Там все дело в lookup полях, хотя сейчас сделал бы это все через SQL.

Сообщение от ubun

Идея была такова

Идею я понял из поста, но не из проекта.

[ravt]

Если это не контрольная(лабораторная) то откажитесь сразу от BDE
Смотрите в сторону аксеса, а еще лучше FireBird
с помощью SQL 'ваш вопрос решится в одну строчку.

[ubun]

Можно задать еще один вопрос?
Если использую dbgrid1 и dbgrid2, как в unite прописать код такого:
При нажатии на ячейку в первой таблице, выходить какое то значение во второй.

[Surgeon]

Сообщение от ubun

Можно задать еще один вопрос?
Если использую dbgrid1 и dbgrid2, как в unite прописать код такого:
При нажатии на ячейку в первой таблице, выходить какое то значение во второй.

Нажатие, который клик, одиночный это не хорошо - а вдруг пользователь не туда кликнул, да и при скролировании DGRID все закликается.
Обычно использую двойной клик, чтоб пользователь ясно и недвусмысленно выразил свою волю:

procedure TMainForm.DBGSTPListDblClick(Sender: TObject);
begin
MainDM.IBQPersBySTP.Close; //закрыть второй запрос который делает выборку по идентификатору первой таблицы
MainDM.IBQPersBySTP.ParamByName('IDSTP').Value:= // присваиваем параметру запроса значение идентифкатора из второй таблицы
MainDM.IBDSSTPList.FieldValues['IDSTP'];
MainDM.IBQPersBySTP.Open; //открываем запрос
end;