VPF::delphi присвоение значения полю - Форум программистов

djnv

Дата 19.10.2010, 07:53 (ссылка)

(нет голосов)

Загрузка ...

техноадепт

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 29.9.2003

Репутация: нет
Всего: нет

на Form1 есть DBGrid, привязанный к ZQuery_osn, в котором есть поле inv_number. При выделении записи в DBGrid нажатием кнопки "В ремонт" открывается форма Form2, на которой есть DBEdit привязанный к полю in_number запроса ZQuery_osn (чтобы сразу высвечивался инвентарник). Как сделать чтобы при заполнении формы отправки в ремонт (Form2) и сохранении изменений значение, грубо говоря, Zquery_osn.inv_number копировалось в Zquery_repair.inv_number ? Используются CashedUpdates.

вот так думал:

Код


dbconn.ZQuery_repair.Fields.Fields[1].AsInteger:=dbconn.ZQuery_osn.Fields.Fields[1].AsInteger;

но это не работает.

PS Delphi 7+MySql

Это сообщение отредактировал(а) djnv - 19.10.2010, 07:58

Данкинг

Дата 19.10.2010, 09:38 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130

Цитата(djnv @ 19.10.2010, 08:53

)

но это не работает.

А что именно не работает? Присвоение правильное, просто не знаю особенностей MySql.

--------------------

There's nothing left but silent epitaphs.

Frees

Дата 19.10.2010, 09:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54

Цитата(djnv @ 19.10.2010, 10:53

)

но это не работает.

а ты Append или Edit перед этим делал?

Код



dbconn.ZQuery_repair.Append;
dbconn.ZQuery_repair.Fields.Fields[1].AsInteger:=dbconn.ZQuery_osn.Fields.Fields[1].AsInteger;

--------------------

Кольцов Виктор Владимирович

djnv

Дата 19.10.2010, 11:22 (ссылка)

(нет голосов)

Загрузка ...

техноадепт

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 29.9.2003

Репутация: нет
Всего: нет

Цитата(Frees @ 19.10.2010, 09:46)

Цитата(djnv @ 19.10.2010, 10:53

)

но это не работает.

а ты Append или Edit перед этим делал?

Код



dbconn.ZQuery_repair.Append;
dbconn.ZQuery_repair.Fields.Fields[1].AsInteger:=dbconn.ZQuery_osn.Fields.Fields[1].AsInteger;

делал dbconn.ZQuery_repair.Insert;
выдает ошибку при попытке применить изменения (я так понимаю, ругается на пустое поле inv_number, которое должно быть заполнено) :

PS dbconn.ZQuery_repair.Append; тоже самое.

Это сообщение отредактировал(а) djnv - 19.10.2010, 11:23

Frees

Дата 19.10.2010, 11:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54

Цитата(djnv @ 19.10.2010, 14:22

)

выдает ошибку при попытке применить изменения (я так понимаю, ругается на пустое поле inv_number, которое должно быть заполнено) :

а ты уверен то оно именно первое, индекс не с 0 случаем начинается....

перед постом посмотри какое значение у этого поля

Код


dbconn.ZQuery_repair.Fields.FieldByName('inv_number').value
//или
dbconn.ZQuery_repair.FieldByName('inv_number').value

Это сообщение отредактировал(а) Frees - 19.10.2010, 11:29

--------------------

Кольцов Виктор Владимирович

djnv

Дата 19.10.2010, 12:02 (ссылка)

(нет голосов)

Загрузка ...

техноадепт

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 29.9.2003

Репутация: нет
Всего: нет

разрешил вопрос просто выставив

Код


dbconn.zquery_repair.fields.fieldbyname('inv_number').required:=false;

ошибка не вылетает больше. Я так понял, если это значение в true, то поле должно быть заполнено при создании записи, т.е. надо использовать не Append, а InsertRecord.

Большое спасибо Вам за подсказки и наводки smile

Это сообщение отредактировал(а) djnv - 19.10.2010, 12:03

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »