• Registered: 2018-01-03
  • Posts: 50

Topic: Передача данных в Parent Combobox из одной формы в другую

Есть 2 формы и такой кусок скрипта

procedure frmAddPribor_btAddPribor_OnClick (Sender: string; var Cancel: boolean);
var sType : string = IntToStr(frmAddPribor.cbTypeModel.DbItemID);
    sModel : string = IntToStr(frmAddPribor.cbModel.DbItemID);
    sDate : string = FormatDateTime('yyyy-mm-dd',frmAddPribor.dtpDate_izg.DateTime);
    sPribor : string;
begin

if frmAddPribor.tbZav_num.Text = SQLExecute('SELECT Zav_num FROM Pribor WHERE Zav_num = '''+frmAddPribor.tbZav_num.Text+'''')then
      showmessage('Прибор с таким номером уже существует') else
      begin
      SQLExecute('INSERT INTO Pribor (id_Type, id_Model, Zav_num, Inv_num, Date_izg) VALUES ('''+sType+''', '''+sModel+''', '''+ frmAddPribor.tbZav_num.Text + ''', '''+ frmAddPribor.tbInv_num.Text + ''', Date('''+sDate+'''));');
      MoviePribors.Show;
     MoviePribors.cbType.dbItemID := frmAddPribor.cbTypeModel.dbItemID;
     MoviePribors.cbModel.dbItemID := frmAddPribor.cbModel.dbItemID;
     MoviePribors.cbPribor.dbItemID := SQLExecute('SELECT id FROM Pribor WHERE Zav_num = '''+frmAddPribor.tbZav_num.Text+'''');
      end;
end;

Комбобоксы со второй формы имеют полностью аналогичную структуру комбобоксам второй формы.
По идее данные должны передаться, но по факту этого не происходит.
Я так понимаю это связано с parent'ом.
Подскажите, пожалуйста, как можно выкрутится в версии 1.46 ?
Метод Form.Combobox.dbSQLExecute не работает.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Передача данных в Parent Combobox из одной формы в другую

попробуйте так

     MoviePribors.cbType.dbItemID := frmAddPribor.cbTypeModel.dbItemID;
     MoviePribors.cbType.DoOnChange;
     MoviePribors.cbModel.dbItemID := frmAddPribor.cbModel.dbItemID;
     MoviePribors.cbModel.DoOnChange;
     MoviePribors.cbPribor.dbItemID := SQLExecute('SELECT id FROM Pribor WHERE Zav_num = '''+frmAddPribor.tbZav_num.Text+'''');
Dmitry.
  • Registered: 2018-01-03
  • Posts: 50

Re: Передача данных в Parent Combobox из одной формы в другую

Спасибо большое! Заработало.

  • Registered: 2018-01-03
  • Posts: 50

Re: Передача данных в Parent Combobox из одной формы в другую

Ещё один вопрос на эту тему.
В таблицу (справочник) вводятся значения через скрипт, а не через кнопку сохранения.
Но эти значения появляются в соответствующих комбобоксах только в следующем сеансе работы программы.
метод DoOnChange не срабатывает.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Передача данных в Parent Combobox из одной формы в другую

необходимо вызвать процедуру 

UpdateDatabase('tablename');

вместо tablename укажите имя таблицы БД, в которую были добавлены данные, т.о. все комбобоксы проекта обновятся.

Dmitry.