Sowas war ich mir auch gerade am basteln:
Delphi-Quellcode:
procedure TDM_Systemoptionen.DataModuleCreate(Sender: TObject);
var
ADOQuery: TADOQuery;
I: Integer;
begin
inherited;
DM_Systemoptionen := Self;
For I := 0 to DM_Systemoptionen.ComponentCount - 1 do
begin
if DM_Systemoptionen.Components[I] is TADOQuery then
begin
ADOQuery := TADOQuery(DM_Systemoptionen.FindComponent(DM_Systemoptionen.Components[I].Name));
ADOQuery.Connection := DM_Menu.ADO_Con_SYSDBP;
end;
end;
//ADOQueryTreeView.Connection := DM_Menu.ADO_Con_SYSDBP;
end;
Aber besser ist es natürlich in eine Funktion zu packen damit ich das für alle Datenmodule nutzen kann, wie bei Dir.
Aber warum das bei TADO so ist ?