• Registered: 2018-03-04
  • Posts: 377

Topic: Подскажите скрипт на обновление полей и сомбобокс...

Т.е. открываешь запись, там жмешь на изменить с поле и сомбы снимается enable=false и начинаешь редактировать. А вот если нажать отмену, т.е. enable=false, чтоб предыдущее состояние вернулось. А то получается, что если произвести изменения без сохранение, то в ячейках остаются изменения и только после перезагрузки формы просмотра все возвращается на место.
PS не хотелось бы дергать форму просмотра (пере вызывать)...

2 Reply by vit007 (edited by vit007 2019-09-14 09:28:28)

  • Registered: 2018-03-04
  • Posts: 377

Re: Подскажите скрипт на обновление полей и сомбобокс...

Спасибо, разобрался...

frmNote.Edit7.Text := SQLEXecute('SELECT model FROM request WHERE id='+frmMain.TableGrid1.sqlValue);

Поспешил малек..., а с комбобоксом пока не получается...

3 Reply by vit007 (edited by vit007 2019-09-14 11:22:08)

  • Registered: 2018-03-04
  • Posts: 377

Re: Подскажите скрипт на обновление полей и сомбобокс...

frmNote.ComboBox2.dbItemID := SQLEXecute('SELECT id FROM tech WHERE id='+frmMain.TableGrid1.sqlValue);

Почти работает, но id не точное, т.е. без изменений произвольно другие значения устанавливает...

имеет какую связь 

request.id_tech
  • Registered: 2018-03-04
  • Posts: 377

Re: Подскажите скрипт на обновление полей и сомбобокс...

так я получаю правильное слово из базы, но надо получить id

SQLEXecute('SELECT name FROM tech LEFT OUTER JOIN request ON tech.id=request.id_tech WHERE request.id='+frmMain.TableGrid1.sqlValue);

5 Reply by sibprogsistem (edited by sibprogsistem 2019-09-14 17:22:56)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Re: Подскажите скрипт на обновление полей и сомбобокс...

vit007 wrote:

так я получаю правильное слово из базы, но надо получить id

SQLEXecute('SELECT name FROM tech LEFT OUTER JOIN request ON tech.id=request.id_tech WHERE request.id='+frmMain.TableGrid1.sqlValue);

если просто написать SELECT id FROM то вы получите ошибку так как объединяете 2-е таблицы и естественно у них у обеих есть id
   
укажите полный адрес SELECT tech.id FROM
тоесть так

SQLEXecute('SELECT tech.id FROM tech LEFT OUTER JOIN request ON tech.id=request.id_tech WHERE request.id='+frmMain.TableGrid1.sqlValue);
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Подскажите скрипт на обновление полей и сомбобокс...

Чтобы правильно подсказать SQL запрос, необходимо видеть структуру БД, приложите ваш проект.

Dmitry.

7 Reply by vit007 (edited by vit007 2019-09-18 11:12:12)

  • Registered: 2018-03-04
  • Posts: 377

Re: Подскажите скрипт на обновление полей и сомбобокс...

Сделал обновление по строкам, т.е. обновление по всем полям по заданному id главной таблицы. Спасибо.