Показать сообщение отдельно
  #10  
Старый 18.10.2013, 11:36
Аватар для Uniq!
Uniq! Uniq! вне форума
Местный
 
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
По умолчанию

Да вы чё, упоролись что ль все тут? Какой Стринг грид. Какое копирование.

У вас должна быть "Таблица Заказов" (Orders) вида:
Код:
*ID - порядковый номер (*-означает AutoIncrement)
IDClient - Номер клиента из Справочника Клиентов
oNumber - номер Заказа
oDate - Дата заказа
И "Таблица Товаров" (Products) вида:
Код:
*ID - порядковый номер
IDOrder - Номер ПП заказа из таблицы Orders
+ все поля, которые у вас уже есть.

Эти две таблица должны быть связаны IDOrder(Products) -> ID(Orders)

Форма Диалог, в которой вы вносите новые поступления.
Форма Диалог, в которой вы оформляете новый заказ (В ней же вы выбираете товар, который относится к этому заказу. По двойному клику в DBGrid вызывается следующий код:
Код:
Products.Edit;
Products.FieldByName('IDOrder').AsInteger := Orders.FieldByName('ID').AsInteger;
Products.Post;
Ответить с цитированием