Database tutorial Zeos1/de: what changed

Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		## Einleitung
2	2
3	3		Dieses Tutorial hat das Ziel, die Verwendung der Zeos Komponenten anhand praktischer Beispiele zu demonstrieren. Es richtet sich vor allem an Einsteiger. Für das Tutorial greife ich auf Firebird mit der Beispieldatenbank employee.fdb zurück. Ausgangspunkt ist [[Database tutorial SQLdb1/de\|dieses]] Tutorial, welches mit den SQLdb Komponenten arbeitet.
4	4
5	5		## Voraussetzungen
6	6
7	7		Für dieses Tutorial sollten sie möglichst eine aktuelle Lazarus Version verwenden (mit FPC 2.6.2 oder höher). Sollten die Zeos Komponenten noch nicht installiert sein, dann holen sie das jetzt nach (Package -\> Package-Datei (*.lpk) öffnen ... -\> zcomponent.lpk). Außerdem wird Firebird (möglichst Version 2.5 oder höher) benötigt. Die Beispiele gehen davon aus, dass die Standardvorgaben (SYSDBA und masterkey) nicht verändert wurden.
8	8
9	9		## Beispiel 1
10	10
11	11		Starten sie ein neues Projekt in Lazarus. Für den Zugriff auf die Datenbank benötigen wir TZConnection und TZQuery von der Seite 'Zeos Access' (unter diesem Namen sind die Zeos-Komponenten in der Komponentenpalette zu finden). Die erste Komponente regelt die Verbindung zur Datenbank. Das beinhaltet auch die Transaktionssteuerung, so daß dafür keine separate Komponente (so wie bei SQLdb) erforderlich ist. Die zweite Komponente ist für die SQL-Kommandos zuständig. Für die Anzeige der Daten verwenden wir eine TDBGrid Komponente, die sie auf der Seite 'Data Controls' finden. Für die Verbindung mit den Datenbankkomponenten benötigen wir noch eine TDatasource Komponente von der Seite 'Data Access'. Zum Auslösen der Aktionen verwenden wir einen TButton von der Seite 'Standard'. Damit haben wir alle Komponenten, die wir für das erste Beispiel benötigen. Vergrößern sie das TDBGrid noch etwas, damit genügend Platz für die Anzeige der Daten zur Verfügung steht.
12	12
13	13		Als nächstes müssen wir die Komponenten miteinander verbinden. Am einfachsten geht das im Objektinspektor. Man kann die Zuweisungen aber auch im Quelltext vornehmen. Die 'Connection' Eigenschaft von ZQuery1 wird auf 'ZConnection1' gesetzt. Danach setzen sie die 'DataSet' Eigenschaft von Datasource1 auf 'ZQuery1'. Die Anbindung der Anzeigekomponente erfolgt, indem die 'Datasource' Eigenschaft von DBGrid1 auf 'Datasource1' gesetzt wird.
14	14
15	15		Wie kommen jetzt die Daten aus der Datenbank auf den Bildschirm? Zunächst müssen wir ZConnection1 mitteilen, wo sich die employee.fdb befindet (üblicherweise im .../examples/empbuild/ Unterverzeichnis ihrer Firebird-Installation). Sie haben jetzt wieder die Wahl, ob sie auf den Objektinspektor zurückgreifen wollen, oder das Verzeichnis im Quelltext zuweisen wollen. Wir entscheiden uns hier für den Objektinspektor. Ändern sie die 'Database' Eigenschaft von ZConnection1 auf den Pfad zur Datei employee.fdb (z.B. C:\Programme\Firebird\Firebird_2_5\examples\empbuild\EMPLOYEE.FDB). Wenn sie sich den Pfad nicht merken können, dann können sie ihn idR. auch aus ihrem Dateimanager mittels 'kopieren und einfügen' eintragen. Ein Vorteil der Zeos-Komponenten liegt darin, daß man damit auf verschiedene Datenbanken zugreifen kann. Auf welches Datenbanksystem konkret zugegriffen werden soll, wird mit der 'Protocol' Eigenschaft geregelt. In der Liste scheinen die Firebird-Einträge doppelt vorzukommen. Hier muß man etwas aufpassen. Die firebirdd...-Einträge (mit dem doppelten d) beziehen sich auf die Embedded-Version von Firebird. Da wir mit der "normalen" Firebird-Version arbeiten wollen, wählen wir den Eintrag 'firebird-2.5'. Bevor der Datenbank-Server Daten herausrückt, wird er die Berechtigung über Benutzername und Passwort abfragen. Eine ernsthafte Datenbank-Anwendung wird daher beim Programmstart den Benutzer danach fragen, um die Daten im geeigneten Moment an den Datenbank-Server weiterzureichen. Wir werden der Einfachheit halber wieder auf den Objektinspektor zurückgreifen. Ändern sie die 'User' Eigenschaft auf 'SYSDBA' und 'Password' auf 'masterkey'. Um zu prüfen, ob die bisher vorgenommenen Einstellungen formal korrekt sind, können sie die 'Connected' Eigenschaft auf 'True' setzen. Ist der Pfad nicht richtig oder stimmt der Benutzername oder das Passwort nicht, dann erscheint eine Fehlermeldung. War die Verbindung erfolgreich, dann trennen sie diese jetzt wieder (auf 'False' setzen).
16	16
17	17		Trotz der erfolgreichen Verbindung wurden aber immer noch keine Daten angezeigt. Das erklärt sich dadurch, dass wir dem Datenbank-Server auch noch nicht mitgeteilt haben, was er anzeigen soll. Die Datenbank employee.fdb enthält mehrere Tabellen. Wenn sie im Vorfeld die Struktur einer Datenbank nicht kennen, dann können sie auf Werkzeuge wie [FlameRobin](http://www.flamerobin.org/index.php) zurückgreifen, um sich die Inhalte anzuzeigen. Aber auch Lazarus bietet ein Hilfsmittel - den Datenbank-Desktop. Sie finden ihn im /tools/lazdatadesktop/ Unterverzeichnis von Lazarus. Öffnen sie das Projekt lazdatadesktop.lpi und kompilieren sie es (setzt FPC 2.6.2 voraus) (unser Beispielprojekt haben sie natürlich vorher gesichert).
18	18
19	19		[framed\|center\|Der Datenbank-Desktop in Aktion](/wiki-images/d/df/Datadesktop.png)
20	20
21	21		Zurück zu unserem Beispiel. Wir wollen alle Daten aus der Tabelle 'CUSTOMER' anzeigen. Der SQL Befehl dazu lautet:
22	22
23		-	~~`select * from CUSTOMER`~~
	23	+	```text
	24	+	select * from CUSTOMER
	25	+	```
24	26
25	27		Diesen Befehl müssen wir der 'SQL' Eigenschaft von ZQuery1 zuweisen. Im Quelltext unseres Programms würde das so aussehen:
26	28
27		-	~~`ZQuery1.SQL.Text := 'select * from CUSTOMER';`~~
	29	+	``` pascal
	30	+	ZQuery1.SQL.Text := 'select * from CUSTOMER';
	31	+	```
28	32
29	33		Wird der Befehl in Textform angegeben, dann muss er in einfache Anführungszeichen eingeschlossen werden. Man könnte natürlich auch den Inhalt einer anderen Komponente zuweisen.
30	34
31	35		Die Abfrage der Daten soll erfolgen, wenn der Benutzer auf den Button klickt. Mit einem Doppelklick auf Button1 erzeugt Lazarus das Grundgerüst der dafür notwendigen Prozedur. In ihrem Quelltext sollte jetzt folgendes stehen:
32	36
33	37		``` pascal
34	38		procedure TForm1.Button1Click(Sender: TObject);
35	39		begin
36	40
37	41		end;
38	42		```
39	43
40	44		Zwischen begin und end müssen wir jetzt die Anweisungen eingeben, die zum Anzeigen der Daten erforderlich sind. Die 'SQL' Eigenschaft von ZQuery1 kann nur geändert werden, wenn ZQuery1 nicht aktiv ist. Daher schließen wir die Komponente zunächst:
41	45
42		-	~~`ZQuery1.Close;`~~
	46	+	```text
	47	+	ZQuery1.Close;
	48	+	```
43	49
44	50		Da wir nicht sicher sein können, ob ZQuery1 noch irgendwelche Daten enthält, rufen wir die 'Clear' Prozedur auf:
45	51
46		-	~~`ZQuery1.SQl.Clear;`~~
	52	+	```text
	53	+	ZQuery1.SQl.Clear;
	54	+	```
47	55
48	56		Dann weisen wir der 'SQL' Eigenschaft unsere SQL Anweisung zu:
49	57
50		-	~~`ZQuery1.SQL.Text := 'select * from CUSTOMER';`~~
	58	+	``` pascal
	59	+	ZQuery1.SQL.Text := 'select * from CUSTOMER';
	60	+	```
51	61
52	62		Jetzt müssen wir die Verbindung zur Datenbank herstellen und dann die Abfrage öffnen:
53	63
54		-	~~`ZConnection1.Connected := True;`\~~
55		-	~~`ZQuery1.Open;`~~
	64	+	``` pascal
	65	+	ZConnection1.Connected := True;
	66	+	ZQuery1.Open;
	67	+	```
56	68
57	69		Wenn sie jetzt ihr Programm kompilieren würden, dann würden die Daten aus der Tabelle 'CUSTOMER' bereits angezeigt werden. Ein ordentliches Programm wird aber spätestens beim Beenden dafür sorgen, dass noch offene Verbindungen zur Datenbank geschlossen werden. Die Nebenwirkungen wären sonst nicht absehbar. Wir verwenden das OnClose Ereignis unseres Formulars (mittels Doppelklick im Objektinspektor erzeugen):
58	70
59	71		``` pascal
60	72		procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
61	73		begin
62	74
63	75		end;
64	76		```
65	77
66	78		Beim Trennen verwenden wir die umgekehrte Reihenfolge wie beim Verbinden:
67	79
68	80		``` pascal
69	81		ZQuery1.Close;
70	82		ZConnection1.Connected := False;
71	83		```
72	84
73	85		### Zusammenfassung
74	86
75	87		Wir haben bisher gelernt, wie man mit den Zeos-Komponenten eine Verbindung zu einer Firebird Datenbank herstellt und die Daten einer Tabelle am Bildschirm anzeigt.
76	88
77	89		## Erweiterung von Beispiel 1
78	90
79	91		Wenn sie sich an die bisherigen Schritte gehalten haben, dann sollte ihr Quelltext etwa so aussehen:
80	92
81	93		``` pascal
82	94		unit Unit1;
83	95
84	96		{$mode objfpc}{$H+}
85	97
86	98		interface
87	99
88	100		uses
89	101		Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, DBGrids,
90	102		StdCtrls, db, ZConnection, ZDataset;
91	103
92	104		type
93	105
94	106		{ TForm1 }
95	107
96	108		TForm1 = class(TForm)
97	109		Button1: TButton;
98	110		Datasource1: TDatasource;
99	111		DBGrid1: TDBGrid;
100	112		ZConnection1: TZConnection;
101	113		ZQuery1: TZQuery;
102	114		procedure Button1Click(Sender: TObject);
103	115		procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
104	116		private
105	117		{ private declarations }
106	118		public
107	119		{ public declarations }
108	120		end;
109	121
110	122		var
111	123		Form1: TForm1;
112	124
113	125		implementation
114	126
115	127		{$R *.lfm}
116	128
117	129		{ TForm1 }
118	130
119	131		procedure TForm1.Button1Click(Sender: TObject);
120	132		begin
121	133		ZQuery1.Close;
122	134		ZQuery1.SQL.Clear;
123	135		ZQuery1.SQL.Text:='select * from CUSTOMER';
124	136		ZConnection1.Connected:= true;
125	137		ZQuery1.Open;
126	138		end;
127	139
128	140		procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
129	141		begin
130	142		ZQuery1.Close;
131	143		ZConnection1.Connected:= false;
132	144		end;
133	145
134	146		end.
135	147		```
136	148
137	149		Nun wird man aber in den seltensten Fällen den kompletten Inhalt einer Tabelle benötigen. Nehmen wir an, es sollen nur die Kunden aus den USA angezeigt werden. Dafür müsste die SQL Anweisung wie folgt lauten:
138	150
139		-	~~`select * from CUSTOMER where COUNTRY = 'USA'`~~
	151	+	```text
	152	+	select * from CUSTOMER where COUNTRY = 'USA'
	153	+	```
140	154
141	155		Diese Anweisung werden wir aus zwei Gründen nicht für unser Beispielprogramm verwenden: Zum einen gibt es ein Problem bei der Verwendung des einfachen Anführungszeichens. Der Compiler würde das Anführungszeichen vor USA als schließendes Zeichen betrachten (das erste Zeichen steht ja vor select from...) und damit die SQL Anweisung ungültig machen. Der zweite und gewichtigere Grund ist die Tatsache, dass bei der Entwicklung des Programms noch gar nicht bekannt ist, welche Einschränkung der Anzeige später vorgenommen werden soll. Der Benutzer soll in seiner Flexibilität nicht eingeschränkt werden. Dazu ersetzen wir zunächst 'USA' durch einen Platzhalter:
142	156
143		-	~~`select * from CUSTOMER where COUNTRY = :COUNTRY`~~
	157	+	```text
	158	+	select * from CUSTOMER where COUNTRY = :COUNTRY
	159	+	```
144	160
145	161		Die Platzhalter sind durch den führenden Doppelpunkt gekennzeichnet. Um dem Benutzer die Eingabe des Filterwertes zu ermöglichen, platzieren sie eine TEdit Komponente (Seite 'Standard' in der Komponentenpalette) auf ihrem Formular. Löschen sie den Wert der 'Text' Eigenschaft. Über die 'Params' Eigenschaft von TZQuery können wir nun mit dem in TEdit eingegebenem Text unseren Platzhalter ersetzen:
146	162
147		-	~~`ZQuery1.Params.ParamByName('COUNTRY').AsString := Edit1.Text;`~~
	163	+	``` pascal
	164	+	ZQuery1.Params.ParamByName('COUNTRY').AsString := Edit1.Text;
	165	+	```
148	166
149	167		Der Parameter kann sowohl über seine Position als auch seinen Namen spezifiziert werden. Letzteres dürfte vor allem die Lesbarkeit des Quelltextes verbessern. Insgesamt sollte die Prozedur jetzt so aussehen:
150	168
151	169		``` pascal
152	170		procedure TForm1.Button1Click(Sender: TObject);
153	171		begin
154	172		ZQuery1.Close;
155	173		ZQuery1.SQL.Clear;
156	174		ZQuery1.SQL.Text:= 'select * from CUSTOMER where COUNTRY = :COUNTRY';
157	175		ZQuery1.Params.ParamByName('COUNTRY').AsString := Edit1.Text;
158	176		ZConnection1.Connected:= True;
159	177		ZQuery1.Open;
160	178		end;
161	179		```
162	180
163	181		Sie können jetzt ruhig mit den Einstellungen ein wenig herumspielen. Wenn sie einen Filterwert eingeben, der in der Datenbank nicht vorhanden ist, dann wird eine leere Tabelle angezeigt. Es können jedoch auch ernsthafte Probleme auftreten. Da bei einer Client-Server-Anwendung üblicherweise Client und Server räumlich getrennt sind, ist meist nicht auf den ersten Blick ersichtlich, warum es zu einem Problem gekommen ist. Ist der Server heruntergefahren worden oder hat nur jemand einen Stecker gezogen? Zugriffe auf eine Datenbank sollten daher immer in eine try ... except und/oder try ... finally Schleife eingebunden werden. Nur so ist sichergestellt, dass Datenbankfehler abgefangen werden können und der Anwender nicht im Regen stehen gelassen wird. Für unsere Beispielanwendung könnte eine rudimentäre Behandlungsroutine wie folgt aussehen:
164	182
165	183		``` pascal
166	184		begin
167	185		try
168	186		ZQuery1.Close;
169	187		...
170	188		ZQuery1.Open;
171	189		except
172	190		on EDatabaseError do
173	191		begin
174	192		MessageDlg('Fehler','Es ist ein Datenbankfehler aufgetreten.',mtError,[mbOK],0);
175	193		Edit1.Text:='';
176	194		end;
177	195		end;
178	196		end;
179	197		```
180	198
181	199		Hier wird jedoch nur eine einfache Meldung ausgegeben.
182	200
183	201		## Siehe auch
184	202
185	203		- [[ZeosDBO]]: Informationen zur Installation von Zeos
186	204		- [[Zeos tutorial/de]]: Informationen über Zeos
187	205
188	206		---
189	207		From the Free Pascal wiki, page "Database tutorial Zeos1/de", as it stood on 2020-02-12 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history