DataSnap Feld im Client ausblenden

[Kostas]

Hallo Zusammen,

ich habe eine DataSnap Server welcher eine Methode hat die ein DataSet zurückliefert.
select a.adressnr, a.FIRMENNAME, a.ORT
from adressen a
where a.matchcode starting with :matchcode
order by a.FIRMENNAME, a.ORT

Eine Client-Anwendung konsumiert dieses DataSet und zeigt das Result in einem Grid.
Das Feld AdressNr benötige ich für weitere Verarbeitungen, möchte es jedoch nicht im
Grid sehen. Das Grid ist verbunden mit ein DataSource das DataSource mit einem ClientDataSet
das ClientDataSet wiederum mit einem DataSetProvider.

Das ClientDataSet hat zwar ein FieldByName jedoch sind die Felder nicht bekannt.
Das ClientDataSet.DataSet wird von der Result Methode des Server befüllt.

ClientDataSet1.FieldByName('ADRESSNR').Visible := false; << so gehts nicht.


Hat jemand eine Idee wie ich die Felder Cleintseitig im Grid unsichtbar machen kann?

Gruß Kostas

[mkinzler]

Du kannt nicht ein Feld im DatSet ausblenden. Nur verhindern das ein Column-Objekt dafür im Grid angelegt wird oder dieses Ausblenden.

[Kostas]

Danke für den Hinweis. So gehts.

Code:

procedure TfrClient.Button1Click(Sender: TObject);
var con: TServerMethods1Client;
    dataSet:TDataSet;
begin
  if not DataSnapServer.Connected then DataSnapServer.Connected := true;

  con := TServerMethods1Client.Create(DataSnapServer.DBXConnection);
  try
    dataSet := con.getAdrMatchcodes(leMatchcode.Text);
    if (dataSet<>nil) then
    begin
       DataSetProvider1.DataSet := dataSet;
       if ClientDataSet1.Active
       then ClientDataSet1.Refresh
       else ClientDataSet1.Open;

       DBGrid1.Columns.Items[0].Visible := false;

    end;{if}
  finally
    con.Free;
  end;
end;

Gruß Kostas

[mjustin]

Was spricht gegen Visible?

Delphi-Quellcode:

Fields[0].Visble := False;

Zitat:

Das Zuweisen des Wertes False an die Eigenschaft Visible führt dazu, dass das Feld verborgen und im Datengitter nicht angezeigt wird. Hat Visible den Wert True, wird das Feld im Gitter angezeigt.

http://docwiki.embarcadero.com/Libra...TField.Visible

[Uwe Raabe]

Zitat von mjustin:

Was spricht gegen Visible?

Delphi-Quellcode:

Fields[0].Visble := False;

Wollte ich auch meinen. Es wäre hilfreich, zu erfahren, was an

Zitat:

ClientDataSet1.FieldByName('ADRESSNR').Visible := false; << so gehts nicht.

nicht geht. War das DataSet villeicht noch nicht offen?

[Kostas]

Hallo Uwe,

das war der richtige Hinweis.
Das ClientDataSet1 kennt die Felder erst wenn es offen ist.
Es reicht also nicht das Dataset zuzuweisen, man muss es öffnen um an die Felder zu kommen.
Diese Variante ist mir lieber.


Dankeschön an alle.

Code:

procedure TfrClient.Button1Click(Sender: TObject);
var con: TServerMethods1Client;
    dataSet:TDataSet;
begin
  if not DataSnapServer.Connected then DataSnapServer.Connected := true;

  con := TServerMethods1Client.Create(DataSnapServer.DBXConnection);
  try
    dataSet := con.getAdrMatchcodes(leMatchcode.Text);
    if (dataSet<>nil) then
    begin
       DataSetProvider1.DataSet := dataSet;
       if ClientDataSet1.Active
       then ClientDataSet1.Refresh
       else ClientDataSet1.Open;
       ClientDataSet1.FieldByName('ADRESSNR').Visible := false;
    end;{if}
  finally
    con.Free;
  end;
end;