1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

{ ***************** BUCHSUCHE *************************************************}

procedure Tform_admin.suche_submitClick(Sender: TObject);
begin
 q_suche.Close;
 q_suche.SQL.Clear;
 q_suche.SQL.Text := 'SELECT Signatur, Titel, Rubrik, Unterrubrik FROM buecher, autoren, autorenschaft WHERE (autorenschaft.Kuerzel = autoren.Kürzel) AND (autorenschaft.BuchNr = buecher.BuchNr) '+buchsuche+'';
 q_suche.Open;
 db_suche.Visible := true;
end;

procedure Tform_admin.suchepanelClick(Sender: TObject);
begin
 buchsuche := '';
end;

procedure Tform_admin.suche_titelChange(Sender: TObject);
begin
 buchsuche := buchsuche+'AND (buecher.Titel LIKE "%'+suche_titel.Text+'%") ';
end;

procedure Tform_admin.suche_verlagChange(Sender: TObject);
begin
 buchsuche := buchsuche+'AND (buecher.Verlag LIKE "%'+suche_verlag.Text+'%") ';
end;

procedure Tform_admin.suche_rubrikChange(Sender: TObject);
begin
 buchsuche := buchsuche+'AND (buecher.Rubrik = "'+suche_rubrik.Text+'") ';
end;

procedure Tform_admin.suche_buchnrChange(Sender: TObject);
begin
 buchsuche := buchsuche+'AND (buecher.BuchNr = "'+suche_buchnr.Text+'") ';
end;

procedure Tform_admin.suche_erscheinungsjahrChange(Sender: TObject);
begin
 buchsuche := buchsuche+'AND (buecher.Erscheinungsjahr = "'+suche_erscheinungsjahr.Text+'") ';
end;

procedure Tform_admin.suche_unterrubrikChange(Sender: TObject);
begin
 buchsuche := buchsuche+'AND (buecher.Unterrubrik = "'+suche_unterrubrik.Text+'") ';
end;

procedure Tform_admin.suche_inventarnrChange(Sender: TObject);
begin
 buchsuche := buchsuche+'AND (buecher.InventarNr = "'+suche_inventarnr.Text+'") ';
end;

procedure Tform_admin.suche_autor1Change(Sender: TObject);
begin
 buchsuche := buchsuche+'AND (autoren.Nachname LIKE "%'+suche_autor1.Text+'%") ';
end;

procedure Tform_admin.suche_autor2Change(Sender: TObject);
begin
 buchsuche := buchsuche+'AND (autoren.Vorname LIKE "%'+suche_autor2.Text+'%") ';
end;

procedure Tform_admin.suche_newClick(Sender: TObject);
begin
 suche_titel.Clear;
 suche_verlag.Clear;
 suche_erscheinungsjahr.Clear;
 suche_rubrik.Clear;
 suche_unterrubrik.Clear;
 suche_buchnr.Clear;
 suche_inventarnr.Clear;
end;
//Buchsuche Ende