|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Тема DBGrid, перенос информации
Описание проблемы: 1. Есть менюшка "Возврат товара поставщику"..при ее нажатии появл-ся форма с DBGrid-ом где
можно просмотреть какой товар стоит на возврате поставщику. В таблицы есть "Наименование товара", "Фирма товара", "Кол-во". Также на этой форме присутствует кнопка добавить, при ее нажатии появл-ся еще одна форма с DBGrid-ом где показан весь товар, там также присутствуют поля "Наименование товара", "Фирма товара", "Кол-во" т.е выбираем нужный нам товар и добовляем его в первую форму "Возврат товара поставщику"! Суть в том, что когда выбираешь товар на добавление этот товар должен со второй формы переместится на первую учитывая поле "Кол-во". Например: Во второй форме вид такой "Наименование товара", "Фирма товара", "Кол-во". Футболка D&G 2 Присутствует кнопка Edit которая отвечает за добавление "Кол-во" в нее впишим например 1 "кол-во" И получаем в первой форме "Наименование товара", "Фирма товара", "Кол-во". Футболка D&G 1 а во второй форме в поле "Кол-во" с 2 меняется на 1. А если ставим добавить "Кол-во" 2 из 2 то со второй формы этот товар удаляется а в первую помещается! И еще, на 1-ой форме есть еще кнопка удалить..т.е отказаться от этого выполнения и при ее нажатии информация должна вернуть этот товар обратно во вторую форму! Вот код который я применил, он переносит..но не очень хорошо! И удаляет не очень правильно! Вообщем, на этот код особо не смотрите..считаю его не правильным! Это так..для представления моей проблемы дал! Код:
var mn:integer; begin mn:=DataModule1.Otchet_o_prieme.FieldByName('Kol').AsInteger; mn:=mn-strtoint(Edit1.Text); if mn<>0 then begin DataModule1.Otchet_o_prieme.Edit; DataModule1.Otchet_o_prieme.FieldByName('Kol').AsInteger:=mn; DataModule1.Otchet_o_prieme.Post; end else begin DataModule1.Otchet_o_prieme.Edit; DataModule1.Otchet_o_prieme.delete; end; DataModule1.Vozvrat_tovara_postavshiky.Insert; DataModule1.Vozvrat_tovara_postavshiky.FieldByName('Naimenovanie_tovara').AsString:=DBEdit1.Text; DataModule1.Vozvrat_tovara_postavshiky.FieldByName('Firma_tovara').AsString:=DBEdit2.Text; DataModule1.Vozvrat_tovara_postavshiky.FieldByName('Artikyl').AsString:=DBEdit3.Text; DataModule1.Vozvrat_tovara_postavshiky.FieldByName('Cena_pokypki').AsString:=DBEdit4.Text; DataModule1.Vozvrat_tovara_postavshiky.FieldByName('Kol').AsString:=Edit1.Text; DataModule1.Vozvrat_tovara_postavshiky.Post; Если кто понял мою проблему, и знает ее решение! Пожалуйста, напишите код! Заранее очень благодарен! Спасибо! Последний раз редактировалось Admin, 23.11.2009 в 11:33. |
#2
|
|||
|
|||
ЗЫ..на этот вопрос нет ответа
Тема закрыта! |