hallo,
wie kann ich mir den inhalt meiner db sinnvoll anzeigen lassen? bisher habe ich es so gemacht:

zusammenfalten · markieren

Delphi-Quellcode:

q:='SELECT nname, vname, jg, kl, email, telefon FROM user WHERE nname like '+aps+d+aps+' or vname like '+aps+d+aps+' ORDER BY nname';
FResult:= FMysql.query(q, true, ex);
FResult.First;
 for i:=1 to FResult.RowsCount do
  begin
  FResult.Next;
  x:=fresult.FieldValueByName('nname')+', '+fresult.FieldValueByName('vname');
  k:=fresult.FieldValueByName('jg')+''+fresult.FieldValueByName('kl');
  o:=fresult.FieldValueByName('email');
  g:=fresult.FieldValueByName('telefon');

  y:=y+chr(13)+x;
  l:=l+chr(13)+k;
  p:=p+chr(13)+o;
  h:=h+chr(13)+g;
  label43.caption:=y;
  label44.Caption:=l;
  label45.caption:=p;
  label46.Caption:=h;

allerdings gibt es hier ja keine scrollfunktion. gibt es ein object mit scrollfunktion, wo ich in etwa nach diesem schema die sachen eintragen kann? (btw. ausgegeben wird in tabellenform...gibt es dort auch die möglichkeit das sich ein button in einer zeile selbst erzeugt?)
gruß

Hai ph0,

benutze zum anzeigen doch ein StringGrid oder ein ListView;

Hallo pho,

zum Anzeigen einer Datenmenge gibt es datensensitive Komponenten, wie z.B. das DBGrid und zum Steuern dazu gleich noch den DBNavigator.

Dann muß er aber auf VCL-Datenbnakzugriffskomponenten umsteigen.

hab mich für das stringgrid entschieden und folgendes gebastelt:

zusammenfalten · markieren

Delphi-Quellcode:

 FResult:= FMysql.query(q, true, ex);
FResult.First;
 for i:=1 to FResult.RowsCount do
  begin
   FResult.Next;
  x:=fresult.FieldValueByName('nname')+', '+fresult.FieldValueByName('vname');
  k:=fresult.FieldValueByName('jg')+''+fresult.FieldValueByName('kl');
  o:=fresult.FieldValueByName('email');
  g:=fresult.FieldValueByName('telefon');
  stringgrid1.RowCount:=FResult.RowsCount;
  stringgrid1.cols[0].Add(x);
  stringgrid1.cols[1].Add(k);
  stringgrid1.cols[2].Add(o);
  stringgrid1.cols[3].Add(g);
  end;

funzt leider net...(nur wenn ich alle einträge anzeigen lasse)...habe label und stringgrid mal parallel laufen lassen, im label ist alles richtig nur im stringgrid tauchen die sachen immer falsch auf. was muss ich ändern, hab inner delphi hilfe nichts weiter dazu gefunden.

Den Inhalt einer Stringrid-Zelle ändert man mit
Stringgrid1.cells[x,y] := 'Blubb' ;