1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

  with QBuecher do
  begin
    Close; SQL.Clear;
    SQL.Text := format('SELECT B.Klasse, B.Name, B.Vorname, B.Titel, BS.ISBN, A.KLK, S.Telefon ' +
                         'FROM "%s" B ',  [TbBuecher.tablename])+
                        format('"%s" A ', [TbAusleihsatz.tablename])+
                        format('"%s" BS ', [TbBuchstamm.tablename])+
                        format('"%s" S ', [TbSchueler.tablename])+
      ' where (B.KLASSE like ''5%'' or B.KLASSE like ''6%'' ' +
        ' or B.KLASSE like ''7%'' or B.KLASSE like ''8%'' ' +
        ' or B.KLASSE like ''9%'' or B.KLASSE like ''10%'') ' +
        ' and B.Titel = BS.Titel ' +
        ' and (B.Name = S.NAME) and (B.Vorname = S.Vorname) and (B.KLASSE = S.KLASSE) ' +
        ' and (B.Klasse = A.Klasse) ' +
      ' order by B.Klasse, B.Name, B.Vorname, B.TITEL, BS.ISBN, S.TELEFON, A.KLK';

    Open;