DBGrid auf anderen Datasource setzen per ButtonClick, zur LZ

[LuckyStrike4life]

Morgen,

zur Laufzeit muss sich ein DBGrid umstellen lassen. D.h. es sollte, wenn eine bestimmte Bedingung erfüllt ist, mit einen anderen Datasource verbunden werden. So, dass umgehend die anderen Daten (der Tabelle, bzw. das Ergebnis des Querys, welche hinter dem jeweiligen Datasource liegt) ausgegeben werden.

Ich hoffe sowas funktioniert überhaupt, wäre schon relevant - denn leider gelingt es mir nicht, ein weiteres Grid über das bestehende zu legen.

Dann wäre es ja einfach, ich setz das zweite auf Visible := False, und später auf True wenns denn sein soll. Funktioniert aber nicht, da der eigentliche Grid unten am Form liegt, (alBottom) - ein weiteres Grid läßt sich nicht mit alBottom drüberlegen.

Gibts ne Möglichkeit für meine Lösung mit dem (sogesehen) ButtonClick und umstellen des Datasource?

[Leuselator]

wenn Du dem DBGrid nicht zur Entwurfszeit (durch Doppelclick und anschliessende Bearbeitung in dem sich öffnenden Fenster) persistente Spalten hinzugefügt hast, dann ja:

Delphi-Quellcode:

// 2 Datasources dscErsteQuery und dscZweiteQuery sowie Button1 und Button2 müssen existieren 
Form1.ButtonClick(Sender : TObject)
begin
  if (Sender is TButton) then begin
    if TButton(Sender) = Button1 then DeinDBGrid.DataSource := dscErsteDataSource;
    if TButton(Sender) = Button2 then DeinDBGrid.DataSource := dscZweiteDataSource;
  end;
end;

Gruß

[fkerber]

Hi!

Andere Möglichkeit, wenn diese Methode nicht geht.
Beide auf dem Form platzieren und dann eins invisible machen und dann erst beim Visible, denn align auf albottom setzen.

Ciao fkerber

[LuckyStrike4life]

Zitat:

Zitat von Leuselator

wenn Du dem DBGrid nicht zur Entwurfszeit (durch Doppelclick und anschliessende Bearbeitung in dem sich öffnenden Fenster) persistente Spalten hinzugefügt hast, dann ja:

Delphi-Quellcode:

// 2 Datasources dscErsteQuery und dscZweiteQuery sowie Button1 und Button2 müssen existieren 
Form1.ButtonClick(Sender : TObject)
begin
  if (Sender is TButton) then begin
    if TButton(Sender) = Button1 then DeinDBGrid.DataSource := dscErsteDataSource;
    if TButton(Sender) = Button2 then DeinDBGrid.DataSource := dscZweiteDataSource;
  end;
end;

Gruß

Leuselator, vielen Dank!
Das hat geklappt.

@fkerber
Deine Lösung wäre auch eine Möglichkeit,
so weit hatte ich wieder gar nicht gedacht ;), aber da die Lösung von Leuselator funktioniert, nehm ich die.
Auch dir, Danke.

[Leuselator]

@fkerber: Deine Lösung tut es zwar, aber sie verschwendet Resourcen!

@Thema: Auch permanente Spalteneinträge lassen sich dynamisch erstellen, mann müßte nur die "Kühlschrank auf, Kuh Raus, Elefant rein, Kühlschrank zu"-Regel beachten:
erst alle existenten permanenten Spalten löschen, dann DataSource wechseln, dann neue Spalten erzeugen...