[viplvolkov]

День добрый! Есть вопрос:

Какие есть способы использования ADOConnection в разных формах?

Есть Главная форма и 2 дочерних. В Главной находится компонент ADOConnection. Нужно дать возможность элементам из дочерней формы использовать ADOConnection главной формы.

То же самое про ADODataSet (при изменении данных в дочерней форме выполнить перезапуск ADODataSet)

[NumLock]

используй TDataModule

[viplvolkov]

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

используй TDataModule

Добавил TDataModule, туда кинул один ADOConnection. В форме после Implementation записал

Код:

Uses DM

; (DM - файл DataModule).

В процедуре пишу:

Код:

DMAsod.ConnectionDB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0; User ID=Admin; Password="";Data Source='+extractfilepath(application.exename)+DBPath+';Persist Security Info=false;';
          try
            DMAsod.ConnectionDB.Connected:=true;

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

[NumLock]

процедура процедуре рознь. в OnCreate так и должно быть. когда DMAsod создается и когда твой код вызывается?

[Freeman]

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

Какие есть способы использования ADOConnection в разных формах?

Ручками присваивать во время выполнения.

[icWasya]

В implementation дочерних форм написать

Код:

implementation
uses 
  UnitMainForm; // или как там у Вас

Тогда прямо в дизайнере дочерней формы можно компонентам присваивать ссылки на компоненты главной формы.

[Uniq!]

Freeman меня поддержит
Смотри как это правильно делается:

В дочерних формах пишешь:

Код:

public
    { Public declarations }
    function Execute(myDataSet: TDataSet): Boolean; // (в случае, если тебе надо передать только результат конкретного запроса)

Код:

public
    { Public declarations }
    function Execute(myConnection: TADOConnection): Boolean; // (в случае, если необходимо передать весь Connection)

Далее обработчик этой функции:

Код:

function TFormReceiptAdd.Execute(myDataSet: TDataSet): Boolean;
begin
  dsMyDataSet.DataSet := myDataSet; // ds - DataSource на дочерней форме, в случае если необходимо показывать данные из DataSet
  Result := ShowModal = mrOK; // показываем форму модально
  if Result then // если форма закрылась по нажатию кнопки в которой стоит ModalResult = mrOK
     какие-то действия
  else // если форму закрыли/нажали кнопку где ModalResult <> mrOK
     какие-то действия
end;

Вызов функции (показ формы) из главной:

Код:

procedure TFormMain.dxBarReceiptsAddClick(Sender: TObject);
begin
  with TFormReceiptAdd.Create(Application) do // (создаём динамически форму)
    try
      aReceipts.Append; //открываем таблицу для записи
      Execute(aReceipts); // отправляем её в дочернюю форму
    finally
      Free; // вычищаем память
    end;
end;

[Uniq!]

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

В implementation дочерних форм написать

Код:

implementation
uses 
  UnitMainForm; // или как там у Вас

Тогда прямо в дизайнере дочерней формы можно компонентам присваивать ссылки на компоненты главной формы.

Ресурсы не должны передаваться через визуальные компоненты.
Дочерние формы не должны тянуть за собой всё, что рождает в себе Основная форма.