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

procedure TForm1.buecherfreigabeclick(Sender: TObject);             // Bücher-frei-gabe
begin  
  screen.cursor := crhourglass;  dbgrid5.visible := false;
  with QBuecher do
  begin
    Close; SQL.Clear;
    SQL.Text := 'select count(*) from buecher ' +
                'where A_DATUM is not NULL and R_DATUM is not NULL ;';
    OPEN;
    showmessage(format('Freigabe von %s Buch/Büchern erfolgt jetzt', [fields[0].asstring]));
  end;

  with QBuecher do
  begin
    close; SQL.Clear;
    SQL.Text := 'update buecher ' +
       'set HDZKLA = '''', KLASSE = '''', A_DATUM = NULL, R_DATUM = NULL, NAME = '''',  
              VORNAME = '''' ' +
       'where A_DATUM is not NULL and R_DATUM is not NULL ;';
    ExecSQL;
  end;					

1:
2:
3:
4:
5:

 // 1. Abfrage
if QBuecher.fields[0].asinteger > 0 then
 // 2. Abfrage
else
 messagebox(0, 'Nichts zu tun!', 'Hinweis', MB_OK or MB_ICONINFORMATION);					

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

QBuecher.first; n := 0;
  while not QBuecher.eof do
  begin
    if (QBuecher.fieldbyname('A_DATUM').asstring <> '') and
       (QBuecher.fieldbyname('R_DATUM').asstring <> '') then inc(n);
    QBuecher.next;
  end;
  if n > 0 then
  with QBuecher do
  begin
    close; SQL.Clear;
    SQL.Text := 'update buecher ' +
       'set HDZKLA = '''', KLASSE = '''', A_DATUM = NULL, R_DATUM = NULL, NAME = '''', VORNAME = '''' ' +
       'where A_DATUM is not NULL and R_DATUM is not NULL ;';
    ExecSQL;
    TbBuecher.refresh;  q1sort(self);
  end;
  QBuecher.first; dbgrid5.visible := true;
  showmessage(inttostr(n) + ' Bücher wurden freigegeben!');
  screen.cursor := crdefault; button24click(self); button11.setfocus