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

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

04.05.2012, 14:04. Показов 4107. Ответов 8
Метки нет (Все метки)

Друзья! Помогите бедному студенту, горю, совсем голову сломал. Вот что требуется: есть таблица (Paradox) TabMag, отображается в Grid, содержит перечень товаров и поле Ostatok. Нужно выделить строку в этом Гриде, указать в Эдите количество списываемого товара(из поля Ostatok) и, по нажатию на кнопку, скопировать данную строку(если Ostatok в TabMag>0) либо перенести полностью(если Ostatok в TabMag=0) в таблицу Spisanie.
Пожалуйста, подскажите как сделать. Заранее спасибо!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.05.2012, 14:04
Ответы с готовыми решениями:

Как выделенную строку таблицы занести в другую таблицу?
На форме1 есть таблица базы данных: товар и цена. нужно как то сделать, чтоб при нажатии на кнопку...

Выделенную строку в DBGrid перенести каждое значение в несколько Label
Есть база учителей, и она выведена в ДБгрид, выделяю учителя и при нажатии ЛИчная карточка...

Как из одной таблицы перенести строку в другую таблицу
Не могу перенести строку из одной таблицы в другую. begin Table1.Open; Table.Open;...

Как перенести выделенную строку DataGridView2 в DataGridView1?
Есть два DataGridView К DataGridView2 подключена таблица из текстового документа. Нужно перенести...

8
70 / 70 / 13
Регистрация: 21.12.2011
Сообщений: 188
04.05.2012, 15:21 2
Структуру таблицы Ostatok и Spisane можно?
0
0 / 0 / 0
Регистрация: 26.04.2012
Сообщений: 5
04.05.2012, 18:46  [ТС] 3
Структура таблиц одинаковая, поля такие: Kod, Data, Artic, Name, Type, Pol, Material, Firma, Strana, Ostatok, Cena.
0
70 / 70 / 13
Регистрация: 21.12.2011
Сообщений: 188
04.05.2012, 19:15 4
проверяем пустой ли остаток. если да, то
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. Вроде так, если суть задачи правильно понял.
0
0 / 0 / 0
Регистрация: 26.04.2012
Сообщений: 5
05.05.2012, 12:00  [ТС] 5
Выдает ошибку: [Error] Unit1.pas(291): Undeclared identifier: 'Values'. Не совсем понимаю которая строка отвечает за обращение к выделенной строке DBGrid.
0
70 / 70 / 13
Регистрация: 21.12.2011
Сообщений: 188
05.05.2012, 12:02 6
Значит Value напишите. Ctrl + Space иногда решает такие проблемы.
0
0 / 0 / 0
Регистрация: 26.04.2012
Сообщений: 5
05.05.2012, 15:00  [ТС] 7
TabSpisanie.Insert; // Mag1.Edit;
TabSpisanie.FieldByName('Ostatok').AsInteger:=
DBGrid1.DataSource.DataSet.FieldByName('Ostatok').AsInteger-
StrToInt(Edit3.Text);
TabSpisanie.Post;

Вот этот код делает следующее: Из выделенной строки первого Grid-а(TabMag1), поля Ostatok берет нужное количество(Edit) и записывает его в поле Ostatok таблицы Spisanie, как и требуется по условию, НО остаток в таблице TabMag1 остается прежним, не меняется, и в Таблицу Spisanie попадает только поле Ostatok остальные поля остаются пустыми. Если бы эту проблему решить было бы то что надо.
0
0 / 0 / 0
Регистрация: 26.04.2012
Сообщений: 5
06.05.2012, 16:05  [ТС] 8
Аууууу. SOS! SOS! Нужна помощь!!!
0
Эксперт Pascal/Delphi
1128 / 610 / 127
Регистрация: 13.02.2009
Сообщений: 3,472
09.05.2012, 22:56 9
Цитата Сообщение от AlexGTX Посмотреть сообщение
Аууууу. SOS! SOS! Нужна помощь!!!
копировать записи из таблицы. это уже много раз обсудили

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ADOTable2.insert;
ADOTable2.FieldByName('Фамилия').AsString :=ADOTable1.FieldByName('Фамилия').AsString;
ADOTable2.FieldByName('Имя').AsString :=ADOTable1.FieldByName('Имя').AsString;
ADOTable2.FieldByName('Отчество').AsString :=ADOTable1.FieldByName('Отчество').AsString;
ADOTable2.Post;
end;
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.05.2012, 22:56
Помогаю со студенческими работами здесь

Как удалить выделенную строку в DBGrid?
Подскажите пожалуйста как удалить выделенную строку в dbgrid. В builder есть какието встроенные...

Как удалить выделенную строку из DBGrid?
Нужно удалить нажатием на кнопку BitBtn выделенную строку. Попробовала так:...

Как удалить выделенную строку в DbGrid, если строка результат выборки, объединения 2 таблиц?
Здравствуйте! Как удалить выделенную строку в дбгриде, если строка результат выборки, объединения...

Закрасить цветом выделенную строку в DBGrid
Здравствуйте! Необходимо закрасить выделенную строку в DBGrid, при этом сохранив возможность...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru