Získání dat z databáze

Seznam témat:

řešení

Řešení

Příklad ukazuje jak lze pomocí třídy TQuery načíst data z databáze. Rovněž ukazuje přehledné formátování řetězců funkcí Format.

var

 ICO: string;

begin

 //nekonečná smyčka

 while True do begin

   if not InputBox('Najít zákazníka', 'Zadejte IČ', ICO) then Exit;

   with TQuery.Create(nil) do

   try

     DatabaseName := DefaultDatabaseName;

     SQL.Add('select nazev1, ulice, obec');

     SQL.Add('from dba.gfirmy');

     SQL.Add('where id_ico=:id_ico and id_multi=0');

     Params[0].AsString := ICO;

     Open;

     if Eof then

       ErrorBox('IČ nenalezeno.')

     else

       OkBox(Format('Zákazník:'#13#10'%s, %s, %s', [Fields[0].AsString, Fields[1].AsString, Fields[2].AsString]));

   finally

     Free;

   end;

 end;

end.

Související témata