1 (edited by annihillator 2018-11-07 14:36:06)

Topic: Отображение данных из поля таблицы в форме My Visual DB

Доброго времени суток.
Кропаю небольшую БД при помощи MyVisualDataBase. Возникла трудность, прошу помощи.
В общем имеем несколько таблиц:
1. Инфо об автомобиле (поля: марка, модель, год выпуска, объем двигателя, ВИН код, регистрационный номер, Единицы измерения пробега (мили / км));
2. Инфо о владельце (поля: Имя, Фамилия, телефон 1, телефон 2);
3. Инфо о сервисных работах (поля: Дата, пробег,  наименование работ);
4. Справочник единиц измерения пробега (поля: наименование, обозначение);

Сделал в форме заполнения данных об автомобиле выбор единиц измерения об авто в виде ComboBox, чтоб не вводить каждый раз единицы вручную. Т.е. был создан справочник единиц измерения, создана связь в таблица Авто на этот справочник. Через ComboBox прикручена связь.
Требуется вывод этой информации в форме ввода данных о сервисном обслуживании авто (в целях справочной информации).

Не могу понять, как это реализовывать.

Скрины:

https://d.radikal.ru/d13/1811/1d/9bd8351e7ae2t.jpg

Re: Отображение данных из поля таблицы в форме My Visual DB

Скрины

https://b.radikal.ru/b21/1811/23/10e0a7f962e5t.jpg

Re: Отображение данных из поля таблицы в форме My Visual DB

Скрины

https://b.radikal.ru/b17/1811/0f/936325b0e850t.jpg

Re: Отображение данных из поля таблицы в форме My Visual DB

Скрины

https://c.radikal.ru/c39/1811/77/f588c03652e5t.jpg

Re: Отображение данных из поля таблицы в форме My Visual DB

Скрины

https://b.radikal.ru/b16/1811/31/a70880dd78f0t.jpg

Re: Отображение данных из поля таблицы в форме My Visual DB

Скрины

https://c.radikal.ru/c23/1811/11/a0cdc5128cd6t.jpg

Re: Отображение данных из поля таблицы в форме My Visual DB

Скрины

https://c.radikal.ru/c25/1811/db/74f768f4ff54t.jpg

Re: Отображение данных из поля таблицы в форме My Visual DB

прикрутите проект, и вам помогут wink

9 (edited by annihillator 2018-11-09 07:30:33)

Re: Отображение данных из поля таблицы в форме My Visual DB

Вот  ссылка на проект.

https://www.dropbox.com/sh/t6k3kf8im5xk … q4HVa?dl=0

10 (edited by zc13569 2018-11-09 11:39:51)

Re: Отображение данных из поля таблицы в форме My Visual DB

annihillator wrote:

Вот  ссылка на проект.

https://www.dropbox.com/sh/t6k3kf8im5xk … q4HVa?dl=0

На скринах ничего не видно. Если правильно понял проблему то:


procedure FrmService_OnShow (Sender: TObject; Action: string);
begin
  FrmService.Memo2.Text := SQLExecute('SELECT Unit FROM TBLSprMillUnits WHERE id=' + IntToStr(FrmCardAuto.ComboBox1.dbItemID) );
end;

Re: Отображение данных из поля таблицы в форме My Visual DB

либо можно просто скопировать текст из комбобокса в Memo2

procedure FrmService_OnShow (Sender: TObject; Action: string);
begin
  FrmService.Memo2.Text := FrmCardAuto.ComboBox1.Text;
end;
Dmitry.