Как перенести выделенную строку в DBGrid в другую таблицу?

@AlexGTX · Регистрация: 26.04.2012

Студворк — интернет-сервис помощи студентам

Друзья! Помогите бедному студенту, горю, совсем голову сломал. Вот что требуется: есть таблица (Paradox) TabMag, отображается в Grid, содержит перечень товаров и поле Ostatok. Нужно выделить строку в этом Гриде, указать в Эдите количество списываемого товара(из поля Ostatok) и, по нажатию на кнопку, скопировать данную строку(если Ostatok в TabMag>0) либо перенести полностью(если Ostatok в TabMag=0) в таблицу Spisanie.
Пожалуйста, подскажите как сделать. Заранее спасибо!!!

@pobedinsky · 04.05.2012, 15:21

Структуру таблицы Ostatok и Spisane можно?

@AlexGTX · 04.05.2012, 18:46 **[ТС]**

Структура таблиц одинаковая, поля такие: Kod, Data, Artic, Name, Type, Pol, Material, Firma, Strana, Ostatok, Cena.

@pobedinsky · 04.05.2012, 19:15

проверяем пустой ли остаток. если да, то

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
with Query do
begin
if Table1.FieldByName('Ostatok').AsInteger=0 then
begin
Close;
SQL.Text:='INSERT INTO Spisanie SELECT FROM TabMag WHERE kod= :p1';
Parameters.ParamByName('p1').Values:= Table1.FieldByName('Kod').AsInteger;
ExexSQL;
end else
begin
Close;
SQL.Text:='UPDATE TabMAg SET Ostatok = :p2';
Parameters.ParamByName('p2').Values:= Edit1.Text;
ExecSQL;
end;
end;

Код не проверял, т.к. писал здесь. Table1 подрузамевается подключена к TableMag. Вроде так, если суть задачи правильно понял.

@AlexGTX · 05.05.2012, 12:00 **[ТС]**

Выдает ошибку: [Error] Unit1.pas(291): Undeclared identifier: 'Values'. Не совсем понимаю которая строка отвечает за обращение к выделенной строке DBGrid.

@pobedinsky · 05.05.2012, 12:02

Значит Value напишите. Ctrl + Space иногда решает такие проблемы.

@AlexGTX · 05.05.2012, 15:00 **[ТС]**

TabSpisanie.Insert; // Mag1.Edit;
TabSpisanie.FieldByName('Ostatok').AsInt eger:=
DBGrid1.DataSource.DataSet.FieldByName(' Ostatok').AsInteger-
StrToInt(Edit3.Text);
TabSpisanie.Post;

Вот этот код делает следующее: Из выделенной строки первого Grid-а(TabMag1), поля Ostatok берет нужное количество(Edit) и записывает его в поле Ostatok таблицы Spisanie, как и требуется по условию, НО остаток в таблице TabMag1 остается прежним, не меняется, и в Таблицу Spisanie попадает только поле Ostatok остальные поля остаются пустыми. Если бы эту проблему решить было бы то что надо.

@AlexGTX · 06.05.2012, 16:05 **[ТС]**

Аууууу. SOS! SOS! Нужна помощь!!!

@xxbesoxx · 09.05.2012, 22:56

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

Аууууу. SOS! SOS! Нужна помощь!!!

копировать записи из таблицы. это уже много раз обсудили

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ADOTable2.insert;
ADOTable2.FieldByName('Фамилия').AsStrin g :=ADOTable1.FieldByName('Фамилия').AsStr ing;
ADOTable2.FieldByName('Имя').AsString :=ADOTable1.FieldByName('Имя').AsString;
ADOTable2.FieldByName('Отчество').AsStri ng :=ADOTable1.FieldByName('Отчество').AsSt ring;
ADOTable2.Post;
end;

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@AlexGTX 0 / 0 / 0 Регистрация: 26.04.2012 Сообщений: 5

	Как перенести выделенную строку в DBGrid в другую таблицу? 04.05.2012, 14:04. Показов 4462. Ответов 8 Метки нет (Все метки) Друзья! Помогите бедному студенту, горю, совсем голову сломал. Вот что требуется: есть таблица (Paradox) TabMag, отображается в Grid, содержит перечень товаров и поле Ostatok. Нужно выделить строку в этом Гриде, указать в Эдите количество списываемого товара(из поля Ostatok) и, по нажатию на кнопку, скопировать данную строку(если Ostatok в TabMag>0) либо перенести полностью(если Ostatok в TabMag=0) в таблицу Spisanie. Пожалуйста, подскажите как сделать. Заранее спасибо!!! 0

@pobedinsky 70 / 70 / 13 Регистрация: 21.12.2011 Сообщений: 188
	04.05.2012, 15:21
	Структуру таблицы Ostatok и Spisane можно? 0

@AlexGTX 0 / 0 / 0 Регистрация: 26.04.2012 Сообщений: 5
	04.05.2012, 18:46 [ТС]
	Структура таблиц одинаковая, поля такие: Kod, Data, Artic, Name, Type, Pol, Material, Firma, Strana, Ostatok, Cena. 0

@AlexGTX 0 / 0 / 0 Регистрация: 26.04.2012 Сообщений: 5
	05.05.2012, 12:00 [ТС]
	Выдает ошибку: [Error] Unit1.pas(291): Undeclared identifier: 'Values'. Не совсем понимаю которая строка отвечает за обращение к выделенной строке DBGrid. 0

@pobedinsky 70 / 70 / 13 Регистрация: 21.12.2011 Сообщений: 188
	05.05.2012, 12:02
	Значит Value напишите. Ctrl + Space иногда решает такие проблемы. 0

@AlexGTX 0 / 0 / 0 Регистрация: 26.04.2012 Сообщений: 5
	05.05.2012, 15:00 [ТС]
	TabSpisanie.Insert; // Mag1.Edit; TabSpisanie.FieldByName('Ostatok').AsInt eger:= DBGrid1.DataSource.DataSet.FieldByName(' Ostatok').AsInteger- StrToInt(Edit3.Text); TabSpisanie.Post; Вот этот код делает следующее: Из выделенной строки первого Grid-а(TabMag1), поля Ostatok берет нужное количество(Edit) и записывает его в поле Ostatok таблицы Spisanie, как и требуется по условию, НО остаток в таблице TabMag1 остается прежним, не меняется, и в Таблицу Spisanie попадает только поле Ostatok остальные поля остаются пустыми. Если бы эту проблему решить было бы то что надо. 0

@AlexGTX 0 / 0 / 0 Регистрация: 26.04.2012 Сообщений: 5
	06.05.2012, 16:05 [ТС]
	Аууууу. SOS! SOS! Нужна помощь!!! 0