1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure Tform1.q1sort(sender:tobject);                        // hier Parameter?
begin
  DaMod1.ADOQyKlaPers.Connection := DaMod1.ADOConnection1;   // !!!!
  if bjs56 then
  begin
    DaMod1.ADOQyKlaPers.close;
      DaMod1.ADOQyKlaPers.sql.text :=
        'select klasse from schule '  +                         // also mit dem jeweiligen Dateinamen
        ' where klasse like ''5%'' or klasse like ''6%'' ' +
        'order by klasse, name, vorname';                       
    DaMod1.ADOQyKlaPers.open;
    showmessage('Klassenauswahl 56 ist getroffen');
  end
  else
  begin
    DaMod1.ADOQyKlaPers.close;
      DaMod1.ADOQyKlaPers.sql.text :=    // alle anderen Klassen
        'select klasse from schule '  +                         // wiederum mit dem jeweiligen Dateinamen
        ' where not klasse like ''5%'' and not klasse like ''6%'' ' +
        'order by klasse, name, vorname';
    DaMod1.ADOQyKlaPers.open;
    showmessage('Klassenauswahl 78910DaZ ist getroffen');
  end;
end;