ďťż

Ładny brzuch

Korzystam z Turbo Delphi. Na formę wrzuciłem SqlConnection i SQLQuery.
W SQLQuery wpisałem:

select zestawy.id_zestawu, zestawy.nazwa, uzytkownicy.imie, uzytkownicy.nazwisko, dostawcy.nazwa, statusy.nazwa, zestawy.data_dostarczenia, zestawy.data_wygasniecia, zestawy.nr_licencji, zestawy.cena, zestawy.nr_f_vat, zestawy.id_rejestru_fk, zestawy.uwagi from zestawy, uzytkownicy, dostawcy, statusy where zestawy.id_uzytkownika = uzytkownicy.id_uzytkownika and zestawy.id_dostawcy = dostawcy.id_dostawcy and zestawy.id_statusu = statusy.id_statusu;

Teraz wyniki chciałbym wyświetlić na komponencie ListView.
Mam póki co taki kod:

procedure TForm1.Zestawy1Click(Sender: TObject); var ElementListy: TListItem; //element listy begin Panel1.Visible := True; ListView1.Visible := True; ListView1.Clear; SqlQuery1.Close; SqlQuery1.Open; while not SqlQuery1.Eof do begin ElementListy := ListView1.Items.Add; ElementListy.Caption:=SQLQuery1.fieldbyname('id_zestawu').Value; ElementListy.SubItems.Add(SQLQuery1.fieldbyname('nazwa').text); ElementListy.SubItems.Add(SQLQuery1.fieldbyname('uzytkownicy.imie').text); SqlQuery1.Next; end; end;

Nie mam pojęcia jak wyświetlić na ListView pole uzytkownicy.imie.

Dostaję błąd:
Project (tu nazwa) raised exeption class EDataBaseError with Message 'SQLQuery1.Field 'uzytkownicy.imie' not found.


nie
ElementListy.SubItems.Add(SQLQuery1.fieldbyname('uzytkownicy.imie').text);
tylko
ElementListy.SubItems.Add(SQLQuery1.fieldbyname('imie').text);

i polecam VirtualTreeView zamiast ListView - do VTV są przykłady jak wyświetlić w nim coś z bazy

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •