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 tBuchMain.t2clk(column: tcolumn);                  // Ausleihsatz-Buchdaten aufsuchen
var n       : integer;
begin
  if QAusleihsatz.fieldbyname('ANZ').asinteger > 0 then
  begin
    listbox1.ItemIndex := 0;
    n := -1;
    repeat
      inc(n);
    until (listbox1.Items[n] = QAusleihsatz.fieldbyname('KLASSE').asstring) or (n = listbox1.Count-1);
    edit11.Text := QAusleihsatz.fieldbyname('KLASSE').asstring;
    listbox1.itemindex := n; listbox1.selected[n] := true;
    listbox1click(self);
  end
  else showmessage('Auswahl existiert zurzeit nicht');
end;

procedure TBuchMain.DBGrid2ColEnter(Sender: TObject);
begin
  if QBuchstamm.locate('Titel', DBGrid2.SelectedField.Text, []) then
  showmessage(DBGrid2.SelectedField.Text + #13 + 'Ges/Akt  ' +
                QBuchstamm.fieldbyname('Ges').AsString + '/' + QBuchstamm.fieldbyname('Akt').AsString)
  else  begin  end;              
end;