Показать сообщение отдельно
  #10  
Старый 16.07.2017, 10:46
СтранныйЯщер СтранныйЯщер вне форума
Прохожий
 
Регистрация: 13.07.2017
Сообщения: 8
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Обрисую ситуацию чтобы было понятнее как мне надо сделать. Есть БД access в ней есть таблица (Т1) там столбцы (код, наим1, кол1):

код | наим1 | кол1
1 | яблоко | 12
2 | груша | 27
3 | банан | 22

Так же в этой БД есть еще одна таблица (Т2) там столбцы (код, код1, наим2, кол2) она пустая.

В программе создано две формы Form1 и Form2, на Form1 располагается DBGrid1 к нему подключена таблица (Т1) через ADOTable1, на Form2 располагается поле (Edit2) для выбора товара, DBGrid2 к нему подключена таблица (Т2) через ADOTable2 и кнопка Button2, когда я ввожу в поле (Edit2 на Form2) код (1, 2 или 3) то из таблицы (Т1) берется (например если я ввел код 1) яблоко и вставляется в DBGrid2 получается так:

код | код1 | наим2 | кол2
1 | 1 | яблоко |

В столбец (код1) и (наим2) берется значение из таблицы (Т1) потом я в столбец (кол2) ввожу число получается например так:

код | код1 | наим2 | кол2
1 | 1 | яблоко | 3

И это сохраняется в таблицу (Т2).

Потом при нажатии на кнопку Button2 из таблицы (Т1) вычитается то что получилось в таблице (Т2). То есть из (яблоко 12) вычитается (яблоко 3) и в итоге в таблице (Т1) получается так:

код | наим1 | кол1
1 | яблоко | 9
2 | груша | 27
3 | банан | 22

Код кнопки:

Код:
ADOTable1.Edit;
ADOTable1['кол1']:=ADOTable1['кол1']-ADOTable2['кол2'];
ADOTable1.Post;

Вопрос как доработать код кнопки чтобы при выборе на Form2 несколько товаров в DBGrid2 вычиталось сразу несколько строчек из таблицы (Т1)? Например:

Если выберу в DBGrid2 вот так

код | код1 | наим2 | кол2
1 | 1 | яблоко | 2
2 | 3 | банан | 5

То при нажатии кнопки Button2 должно в таблице (Т1) DBGrid1 получится так:

код | наим1 | кол1
1 | яблоко | 10
2 | груша | 27
3 | банан | 17

Надеюсь все понятно объяснил) Помогите пожалуйста. Заранее очень благодарен!
Ответить с цитированием