Moin Moin Liebe DP'ler

Einleitend ein Paar Worte ...

Ich hab n Programm geschrieben (wie ihr euch wahrscheinlich bereits gedacht habt ) in diesem Programm gibt es eine PageControl.
Der letzte Reiter "Erweitert" soll eine Reihe von Optionen enthalten. Damit ihr euch darunter etwas vorstellen könnt, ist im Anhang ein Screen davon

Der linke Bereich, indem die TreeView zu finden ist, liegt in der PageControl und somit auf dem Hauptformular.
Der rechte Bereich, indem die Optionen festgelegt werden, ist ein Panel auf dem Hauptformular.
In dem Panel sind Frames (für jede Option ein seperates Frame)

Nun hab ich das Problem dass, dass Frame "Mitarbeiter" zwei SMDB-Komponenten enthält.
Ich hab die Datasource quasi händisch und nicht im Objektinspektor festgelegt.
Den Code dazu findest ihr hier ...

zusammenfalten · markieren

Delphi-Quellcode:

procedure TfKundenTV.TreeViewChange(Sender: TObject; Node: TTreeNode);
begin
  if not Assigned(Node) then
  exit;
  if Node.Text = 'Erweitert' then
  begin
  frame_E_Mitarbeiter.Visible:= false;
  end;
  if Node.Text = 'InfoScreen' then
  begin
  frame_E_Mitarbeiter.Visible:= false;
  end;
  if Node.Text = 'Mitarbeiter' then
  begin
  frame_E_Mitarbeiter.Visible:= true;
  frame_E_Mitarbeiter.smdbMitarbeiter_aktiv.DataSource := dsBen;
  frame_E_Mitarbeiter.smdbMitarbeiter_inaktiv.DataSource := dsMIT;
  end;
  if Node.Text = 'Video' then
  begin
  frame_E_Mitarbeiter.Visible:= false;
  end;
end;

So ... ich will aber nicht die Komplette Table anzeigen lassen sondern nur die Mitarbeiter-Spalte.
Wie könnt ich das realisieren?
Über die Dataset-Proberty?
und wenn ja wie?

wenn ich meinen code erweitere ...

markieren

Delphi-Quellcode:

  if Node.Text = 'Mitarbeiter' then
  begin
  frame_E_Mitarbeiter.Visible:= true;
  frame_E_Mitarbeiter.smdbMitarbeiter_aktiv.DataSource := dsBen;
  frame_E_Mitarbeiter.smdbMitarbeiter_inaktiv.DataSource := dsMIT;
  frame_E_Mitarbeiter.smdbMitarbeiter_inaktiv.DataSource.DataSet := 'Mitarbeiter';

Bekomm ich ne Fehlermeldung ... Inkomplatible Typen: 'TDataSet' und 'String' ...

bitte nicht zu hart ins gericht gehen, denn bin noch im Delphi-Anfangstadium

Vielen dank schon mal für eure Hilfe, Euer f4k3

a) Klick doppelt auf die das DataSet/Table. Über das Popupmenü kannst du automatisch alle Felder hinzufügen und dann im OI ua. auch einstellen ob das Feld zu sehen ist oder nicht.
b) Klicke doppelt auf das Grid. Über den Button "Alle Felder hinzufügen" kannst du selbiges erledigen. Auch hier kannst du anschließend im OI die Sichtbarkeit einstellen.

Okay

Vielen Dank für die schnelle Hilfe

Nun hab ich ein weiteres Problem.

Ich habe testweise den Code beim Aufruf von "Mitarbeiter" entnommen...

markieren

Delphi-Quellcode:

if Node.Text = 'Mitarbeiter' then
  begin
  frame_E_Mitarbeiter.Visible:= true;
  end;

wenn ich nun innerhalb meiner frame, bei den beiden SMDBGrids die Datasource Eigenschaft ändere,

Datasource = fKundenTV.dsBen und
Datasource = fKundenTV.dsMIT

abspeichere und dann auf meine Mitarbeiter Einstellung gehe, werden keine Datensätze angezeigt.
Wenn ich Delphi schließe und wieder öffne, sind die Datasource-Eigenschaften bei beiden SMDBGrids ohne Inhalt (keine Datasource zugewiesen), obwohl ich vorher die eigenschaft geändert und abgespeichert habe.

Hab etz den Code, so wie er zuvor war wieder eingefügt ... und siehe da, er zeigt mir die Datensätze wieder an ...
irgendwie merkwürdig ... findet ihr nicht?

Zitat von f4k3:

Hab etz den Code, so wie er zuvor war wieder eingefügt ... und siehe da, er zeigt mir die Datensätze wieder an ...
irgendwie merkwürdig ... findet ihr nicht?

Ich blicke gerade eh nicht durch ...


PS:

Zitat von f4k3:

if Node.Text = 'Mitarbeiter' then

Dies ist nicht gut, wenn die Anwendung mal in eine andere Sprache übersetzt werden soll

xD

Also die Anwendung wird garantiert nicht in eine andere Sprache übersetzt und wird hauptsächlich intern verwendet!
von dem her reicht diese Art des Programmierens vollkommen aus

Aber danke für den Hinweis ...