Lazarus Database Tutorial/de: what changed

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

Old	New		Line
1	1		Zurück zu den [[Additional information/de\|Zusätzlichen Informationen]].\
2		-	\
	2	+
3	3		== Überblick ==
4	4
5	5		Das Thema dieses Tutorial ist, wie Lazarus mit einer Auswahl von existierenden Datenbanken zusammenarbeiten kann.
6	6
7	7		Bitte erweitern sie diesen Bereich.
8	8
9	9		## Lazarus und MySQL
10	10
11	11		### MySQL unter Linux oder Windows zum Laufen bringen
12	12
13	13		Folgen sie den Anweisungen im MySQL Benutzerhandbuch. Stellen sie sicher, dass der mysqld Daemon zuverlässig läuft (zumindest bei Linux), und dass alle potentiellen Benutzer (inclusive root, mysql, sie selbst und jeder sonst, der es benötigen könnte) so viele Rechte (privileges) wie nötig hat, von so vielen Hosts wie nötig (inclusive 'localhost', dem lokalen Host Namen, jedem anderen Host in ihrem Netzwerk) so weit es mit der Sicherheit vereinbar ist. Auch haben viele benötigte Dateien im fpcsrc- und im lazarus-Ordner stark eingeschränkte Schreibrechte, die root erst ändern muss, wenn andere User damit arbeiten sollen. Mangelnde Schreibrechte in Units zeigt Lazarus durch die Fehlermeldung "Error while linking" an. Es ist wünschenswert, dass alle Benutzer inclusive root Passwörter haben. Testen sie die Wirkung des Datenbanksystems bei der Benutzung der Beispiele aus dem Handbuch, und prüfen sie, dass alle Benutzer wirklich einen zuverlässigen Zugriff haben.
14	14
15	15		### MySQL für FPC im Textmodus zum Laufen bringen
16	16
17		-	MySQL-Sourcen einbinden Es gibt ein Verzeichnis mit einem Beispielprogramm in \$(fpc<b>src</b>dir)/packages/base/mysql/. Sie können das FPC Quellverzeichnis in Lazarus wie folgt finden: Werkzeuge -\> Einstellungen -\> Umgebung -\> Dateien -\> FPC-Quelltextverzeichnis. Mögliche Pfade für das mysql Verzeichnis sind /usr/share/fpcsrc/packages/base/mysql/ (rpm Installation) oder C:\lazarus\fpcsrc\packages\base\mysql\\ (Windows). Dieses Verzeichnis enthält auch die Units mysql.pp, mysql_com.pp und mysql_version.pp.
	17	+	MySQL-Sourcen einbinden Es gibt ein Verzeichnis mit einem Beispielprogramm in \$(fpcsrcdir)/packages/base/mysql/. Sie können das FPC Quellverzeichnis in Lazarus wie folgt finden: Werkzeuge -\> Einstellungen -\> Umgebung -\> Dateien -\> FPC-Quelltextverzeichnis. Mögliche Pfade für das mysql Verzeichnis sind /usr/share/fpcsrc/packages/base/mysql/ (rpm Installation) oder C:\lazarus\fpcsrc\packages\base\mysql\\ (Windows). Dieses Verzeichnis enthält auch die Units mysql.pp, mysql_com.pp und mysql_version.pp.
18	18
19	19		Datenbank vorbereiten Bevor sie das Testscript starten, müssen sie eine Datenbank mit dem Namen testdb anlegen: Tun sie dies, indem sie sich in den mysql Monitor einloggen (als root mit allen Rechten (privileges)) und das folgende SQL Statement eingeben
20	20
21	21		`CREATE DATABASE testdb;`
22	22
23	23		Dann müssen sie sicherstellen, dass alle relevanten Benutzer einen passenden Zugriff darauf haben
24	24
25	25		`GRANT ALL ON testdb TO johnny@localhost IDENTIFIED BY 'johnnyspassword'; `
26	26
27	27		Es gibt ein Script namens mkdb, welches sie nun starten sollten:
28	28
29	29		`sh ./mkdb`
30	30
31	31		Dies wird wahrscheinlich fehlschlagen, weil das System keinem anonymen Benutzer den Zugriff auf die Datenbank erlauben wird. Ändern sie deshalb das Script mit einem Editor, so dass die Zeile, in der mysql aufgerufen wird, wie folgt aussieht:
32	32
33	33		`mysql -u root -p ${1-testdb} << EOF >/dev/null`
34	34
35	35		und versuchen sie, es erneut zu starten. Geben sie ihr Passwort ein, wenn danach verlangt wird. Mit etwas Glück ist es ihnen gelungen, die Testdatenbank anzulegen: testen sie es (während sie im mysql Monitor eingeloggt sind) unter Verwendung der mysql Anweisung
36	36
37	37		`select * from FPdev;`
38	38
39	39		Sie sollten eine Tabelle sehen, welche die ID, den Benutzernamen und die Emailadresse von einem der FPC Entwickler enthält.
40	40
41	41		Testprogramm starten Versuchen sie nun, das Testprogramm testdb.pp zu starten (dieses muss evtl. noch kompiliert werden, und wird beinahe sicher beim ersten Versuch fehlschlagen!!).
42	42
43	43		Ich habe herausgefunden, dass das Programm aus verschiedenen Gründen nicht mit mysql verbinden konnte:
44	44
45	45		- Mein System (SuSE Linux v9.0) installiert mysql v4.0.15, nicht die Version 3, für welche das Package bestimmt war.
46	46
47	47		- Das Programm benötigt Benutzernamen und Passwörter, um Zugriff auf die Datenbank zu erhalten.
48	48
49	49		- Der Compiler muss wissen, wo die mysql Bibliotheken zu finden sind. (Wenn sie die mysql Entwicklungs-Bibliotheken nicht installiert haben, dann tun sie es jetzt!)
50	50
51	51		Ich erzeugte eine Kopie von testdb.pp mit dem Namen trydb.pp, eher als das Original zu bearbeiten - das bedeutet, dass die originalen Dateien in späteren CVS Updates noch bereinigt werden. Ich kopierte auch die Dateien aus dem Unterverzeichnis mysql/ver40/ in das Haupt- mysql/ Unterverzeichnis, benannte sie in mysql_v4.pp, mysql_com_v4.pp und mysql_version_v4.pp um, um sicher zu sein, die Units mit jeder Datei entsprechend umzubenennen. Ich änderte die uses Anweisung in trydb.pp zu
52	52
53	53		`uses mysql_v4`
54	54
55	55		und die Anweisung in mysql_v4.pp zu
56	56
57	57		`uses mysql_com_v4`
58	58
59	59		Ich fügte eine Zeile zu /etc/fpc.cfg hinzu, um auf meine Bibliotheken zu zeigen:
60	60
61	61		`-Fl/lib;/usr/lib`
62	62
63	63		Der folgende Schritt mag nicht notwendig sein, wenn die devel-Biblitheken installiert sind wie die Links für sie erzeugt sind, aber es kann nie schaden, es zu prüfen. Ich musste den tatsächlichen Namen der mysqlclint Bibliothek im /usr/lib Verzeichnis finden und in meinem Fall das folgende shell-Kommando eingeben:
64	64
65	65		`ln -s libmysqlclient.so.12.0.0 lmysqlclient`
66	66
67	67		um einen symbolischen Link zu erstellen, um FPC zu erlauben, die Bibliothek zu finden. Für ein gutes Maß erzeugte ich auch den Link
68	68
69	69		`ln -s libmysqlclient.so.12.0.0 mysqlclient`
70	70
71	71		und plazierte einfache Links in verschiedenen anderen Verzeichnissen: nicht unbedingt notwendig, aber für alle Fälle ...! Einige Benutzer müssen evtl. den folgenden Link hinzufügen:
72	72
73	73		`ln -s libmysqlclient.so.12.0.0 libmysqlclient.so`
74	74
75	75		Ich modifizierte trydb.pp, um Benutzerdetails einzubeziehen, zunächst indem ich host, Benutzer und Passwort als Konstanten hinzufügte:
76	76
77	77		`const`\
78	78		` host : Pchar= 'localhost';`\
79	79		` user : Pchar= 'myusername';`\
80	80		` passwd: Pchar = 'mypassword';`
81	81
82	82		Ich habe auch herausgefunden, dass ich keine Verbindung zu mysql mit der Benutzung des mysql_connect() Aufrufs bekam, aber mit mysql_real_connect(), das mehr Parameter hat. Um die Dinge weiter zu komplizieren, scheint die Anzahl der Parameter zwischen Version3 (wo es sieben sind) und Version4 (wo es acht sind) geändert werden zu müssen. Vor der Benutzung von using mysql_real_connect musste ich mysql_init() verwenden, das nicht in der originalen mysql.pp zu finden ist, aber in mysql_v4.pp.
83	83
84	84		Daher ist der Code für die Verbindung zur Datenbank jetzt:
85	85
86	86		``` pascal
87	87		{ einige extra Variablen}
88	88		var
89	89		alloc : PMYSQL;
90	90
91	91		{Teil des Hauptprogramms}
92	92
93	93		begin
94	94		if paramcount=1 then
95	95		begin
96	96		Dummy:=Paramstr(1)+#0;
97	97		DataBase:=@Dummy[1];
98	98		end;
99	99
100	100		Writeln ('Allocating Space...');
101	101		alloc := mysql_init(PMYSQL(@qmysql));
102	102		Write ('Connecting to MySQL...');
103	103		sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);
104	104		if sock=Nil then
105	105		begin
106	106		Writeln (stderr,'Couldn''t connect to MySQL.');
107	107		Writeln (stderr, 'Error was: ', mysql_error(@qmysql));
108	108		halt(1);
109	109		end;
110	110		Writeln ('Done.');
111	111		Writeln ('Connection data:');
112	112		{$ifdef Unix}
113	113		writeln ('Mysql_port : ',mysql_port);
114	114		writeln ('Mysql_unix_port : ',mysql_unix_port);
115	115		{$endif}
116	116		writeln ('Host info : ',mysql_get_host_info(sock));
117	117		writeln ('Server info : ',mysql_stat(sock));
118	118		writeln ('Client info : ',mysql_get_client_info);
119	119
120	120		Writeln ('Selecting Database ',DataBase,'...');
121	121		if mysql_select_db(sock,DataBase) < 0 then
122	122		begin
123	123		Writeln (stderr,'Couldn''t select database ',Database);
124	124		Writeln (stderr,mysql_error(sock));
125	125		halt (1);
126	126		end;
127	127		{... wie die Originalinhalte von testdb.pp}
128	128		```
129	129
130	130		Jetzt - sind sie bereit, um die Kompilierung von trydb.pp zu starten?
131	131
132	132		` fpc trydb`
133	133
134	134		Erfolg! Jetzt starten sie es:
135	135
136	136		` ./trydb`
137	137
138	138		whoopee! Ich erhielt die Auflistung der FPC Entwickler!
139	139
140	140		Einige zusätzliche Feinheiten: Machen sie die Eingabe der Benutzerdetails und der mysql Befehle interaktiv; benutzen sie eher Variablen als Konstanten und erlauben sie die Eingabe verschiedener SQL Befehle, bis wir den quit Befehl geben: schauen sie in der [[Lazarus Database Tutorial/TryDbpp\|vollen Programmauflistung]] nach, wo Benutzerdetails von der Konsole aus eingegeben werden und das Programm in eine Schleife geht; wo SQL-Befehle von der Konsole aus eingegeben werden (ohne das abschließende Semikolon) und die Antworten ausgedruckt werden, bis 'quit' über die Tastatur eingegeben wird.
141	141
142	142		Siehe [[Lazarus Database Tutorial/SampleListing\|Einfaches Konsole Listing]] .
143	143
144	144		### Verbindung zu MySQL von einer Lazarus Anwendung aus
145	145
146	146		Dieses Tutorial zeigt, wie man Lazarus bei einer MySQL Datenbank anmelden und einfache Abfragen ausführen kann, lediglich unter Verwendung der Lazarus Grundkomponenten; es benutzt keine datensensitiven Komponenten, aber es illustriert die Prinzipien der Kopplung mit der Datenbank.
147	147
148	148		Achtung bei Windows: wir benötigen die libmysql.dll in der rightigen Version. Welche version benötigt wird erfahren Sie aus den Sourcen (üblicherweise aus der mysql_version.pp).
149	149
150	150		Erzeugen sie ein neues Projekt in Lazarus:
151	151
152	152		`Projekt -> Neues Projekt -> Anwendung`
153	153
154	154		Ein neues automatisch erzeugtes Formular wird erscheinen.
155	155
156	156		Vergrößern sie das Formular bis es etwa die Hälfte ihres Bildschirms ausfüllt, dann benennen sie das Formular und seine Titelzeile (caption) in 'TryMySQL' um.
157	157
158	158		Von der Standard Komponentenpalette platzieren sie drei Edit Felder oben links auf dem Formular, und platzieren sofort über jedem Feld ein Label. Ändern sie die Namen und Captions zu 'Host' (und HostLLabel,HostEdit), 'UserName' (und UserLabel, UserEdit) und 'Password' (mit PasswdLabel und PasswdEdit). Alternativ können sie LabelledEdit Komponenten von der Additional Palette benutzen.
159	159
160	160		Wählen sie das Passwd Editfeld und finden sie die PasswordChar Eigenschaft: ändern sie diese dies auf * oder ein anderes Zeichen, so dass ihrer Eingaben in diesem Feld nicht erscheinen, sondern nur eine Reihe von * erscheint. Stellen sie sicher, dass die Eigenschaft Text für jedes Editfeld leer ist.
161	161
162	162		Nun platzieren sie eine neues Edit Feld und Label oben rechts auf ihrem Formular. Ändern sie die Label Caption zu 'Enter SQL Command' und nennen sie es CommandEdit.
163	163
164	164		Platzieren sie drei Buttons auf dem Formular: zwei links unter den Edit Feldern, und einen rechts unter dem command Feld.
165	165
166	166		Benennen sie die Buttons auf der linken Seite 'Connect to Database' (ConnectButton) und 'Exit' (ExitButton) und den auf der rechten Seite 'Send Query' (QueryButton).
167	167
168	168		Platzieren sie ein großes Memo Feld mit Label und Namen 'Results' (ResultMemo) unten rechts, um den meisten verfügbaren Platz auszufüllen. Finden sie seine ScrollBars Eigenschaft und wählen sie ssAutoBoth, so dass die Bildlaufleisten automatisch erscheinen wenn Text die Leerstellen füllt. Setzen sie die WordWrap Eigenschaft auf True.
169	169
170	170		Platzieren sie eine Status Bar (von der Common Controls Palette) am unteren Ende des Formulars, und setzen seine SimpleText Eigenschaft auf 'TryMySQL'.
171	171
172	172		Ein Bildschirmfoto des Formulars ist hier zu sehen: [Mysql Beispiel Screenshot](http://lazarus-ccr.sourceforge.net/kbdata/trymysqldb.png)
173	173
174	174		Nun müssen wir einige Ereignis-Handler schreiben.
175	175
176	176		Die drei Edit-Boxen auf der linken sind für die Eingabe von Hostnamen, Benutzernamen und Passwort. Wenn diese zufriedenstellend eingegeben wurden, wird der Connect Button angeklickt. Der OnCLick Ereignis handler für diesen Button beruht auf Teilen des Textmodus FPC Programms oberhalb.
177	177
178	178		Die Antworten von der Datenbank können jetzt nicht mit den Pascal write oder writeln Anweisungen geschrieben werden. Stattdessen müssen die Antworten in Strings konvertiert und in einem Memo Feld angezeigt werden. Wohingegen die Pascal write und writeln Anweisungen geeignet sind, eine Menge von Typumformungen 'on the fly' durchzuführen, die Benutzung eines Memo Felds für die Textausgabe erfordert die explizite Konvertierung von Datentypen in die korrekte Form eines string, daher müssen Pchar Variablen in Strings konvertiert werden mit StrPas, und Integers müssen mit IntToStr konvertiert werden.
179	179
180	180		Strings werden im Memo Feld angezeigt unter Verwendung von
181	181
182	182		`procedure ShowString (S : string);`\
183	183		`(* zeigt einen String in einem Memo Feld an *)`\
184	184		`begin`\
185	185		` trymysqlForm1.ResultsMemo.Lines.Add (S)`\
186	186		`end;`
187	187
188	188		Der ConnectButton Ereignis-handler wird daher:
189	189
190	190		``` pascal
191	191		procedure TtrymysqlForm1.ConnectButtonClick(Sender: TObject);
192	192		(* Verbinden zu MySQL unter Verwendung der Benutzerdaten von den Texteingabefeldern auf Main Form *)
193	193		var strg: string;
194	194
195	195		begin
196	196
197	197		dummy1 := trymysqlForm1.HostEdit.text+#0;
198	198		host := @dummy1[1];
199	199		dummy2 := trymysqlForm1.UserEdit.text+#0;
200	200		user := @dummy2[1] ;
201	201		dummy3 := trymysqlForm1.PasswdEdit.text+#0;
202	202		passwd := @dummy3[1] ;
203	203
204	204		alloc := mysql_init(PMYSQL(@qmysql));
205	205		sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);
206	206		if sock=Nil then
207	207		begin
208	208		strg :='Couldn''t connect to MySQL.'; showstring (strg);
209	209		Strg :='Error was: '+ StrPas(mysql_error(@qmysql)); showstring (strg);
210	210		end
211	211		else
212	212		begin
213	213		trymysqlForm1.statusBar1.simpletext := 'Connected to MySQL';
214	214		strg := 'Now choosing database : ' + database; showstring (strg);
215	215		{$ifdef Unix}
216	216		strg :='Mysql_port : '+ IntToStr(mysql_port); showstring (strg);
217	217		strg :='Mysql_unix_port : ' + StrPas(mysql_unix_port); showstring (strg);
218	218		{$endif}
219	219		Strg :='Host info : ' + StrPas(mysql_get_host_info(sock));
220	220		showstring (strg);
221	221		Strg :='Server info : ' + StrPas(mysql_stat(sock)); showstring (strg);
222	222		Strg :='Client info : ' + Strpas(mysql_get_client_info); showstring (strg);
223	223
224	224		trymysqlForm1.statusbar1.simpletext := 'Selecting Database ' + DataBase +'...';
225	225		if mysql_select_db(sock,DataBase) < 0 then
226	226		begin
227	227		strg :='Couldn''t select database '+ Database; ShowString (strg);
228	228		Strg := mysql_error(sock); ShowString (strg);
229	229		end
230	230		end;
231	231		end;
232	232		```
233	233
234	234		Das Textfeld rechts erlaubt die Eingabe einer SQL-Anweisung, ohne abschließendes Semikolon. Wenn sie mit seinem Inhalt oder Schreibweise zufrieden sind, drücken sie den SendQuery-Button, und die Abfrage wird abgearbeitet, mit den Ergebnissen, die in das ResultsMemo-Feld geschrieben sind.
235	235
236	236		Der SendQuery Ereignis-Handler basiert wieder auf der FPC Textmodus Version, abgesehen davon, dass eine explizite Typenkonversion erfolgen muss bevor Strings in der Box angezeigt werden.
237	237
238	238		Ein Unterschied zu dem Textmodus FPC Programm ist, dass das Programm nicht stoppt und MySQL nicht geschlossen wird, wenn eine Fehlerbedingung entdeckt wird. Stattdessen geht die Kontrolle an das Hauptformular zurück und eine Gelegenheit wird gegeben, den Eintrag zu berichtigen, bevor das Kommando neu eingereicht wird. Die Anwendung wird schließlich beendet (mit Schliessen von MySQL), wenn der Exit-Button angeklickt wird.
239	239
240	240		Der Code für SendQuery folgt:
241	241
242	242		``` pascal
243	243		procedure TtrymysqlForm1.QueryButtonClick(Sender: TObject);
244	244		var
245	245		dumquery, strg: string;
246	246		begin
247	247		dumquery := TrymysqlForm1.CommandEdit.text;
248	248		dumquery := dumquery+#0;
249	249		query := @dumquery[1];
250	250		trymysqlForm1.statusbar1.simpletext := 'Executing query : '+ dumQuery +'...';
251	251		strg := 'Executing query : ' + dumQuery; showstring (strg);
252	252		if (mysql_query(sock,Query) < 0) then
253	253		begin
254	254		Strg :='Query failed '+ StrPas(mysql_error(sock)); showstring (strg);
255	255		end
256	256		else
257	257		begin
258	258		recbuf := mysql_store_result(sock);
259	259		if RecBuf=Nil then
260	260		begin
261	261		Strg :='Query returned nil result.'; showstring (strg);
262	262		end
263	263		else
264	264		begin
265	265		strg :='Number of records returned : ' + IntToStr(mysql_num_rows (recbuf));
266	266		Showstring (strg);
267	267		Strg :='Number of fields per record : ' + IntToStr(mysql_num_fields(recbuf));
268	268		showstring (strg);
269	269		rowbuf := mysql_fetch_row(recbuf);
270	270		while (rowbuf <>nil) do
271	271		begin
272	272		Strg :='(Id: '+ rowbuf[0]+', Name: ' + rowbuf[1]+ ', Email : ' +
273	273		rowbuf[2] +')';
274	274		showstring (strg);
275	275		rowbuf := mysql_fetch_row(recbuf);
276	276		end;
277	277		end;
278	278		end;
279	279		end;
280	280		```
281	281
282	282		Speichern sie ihr Projekt, und drücken Start -\> Start
283	283
284	284		#### Download des MYSQL Quelltextes
285	285
286	286		Eine volle Auflistung des Programms gibt es hier [Beispiel Quellcode](http://lazarus-ccr.sourceforge.net/kbdata/mysqldemo.tar.gz)
287	287
288	288		### Lazarus, MySQL und UTF-8
289	289
290	290		Das folgende könnte auch für andere Codepages/Zeichensätze erforderlich sein.
291	291
292	292		UTF-8 Unicode ist eine praktische Kodierung eines Multibyte-Zeichensatzes, der es gestattet, mit mehrsprachigen Texten zu arbeiten, ohne dazu WideStrings einzusetzen. Er wird von den Lazarus-SQLdb-Komponenten und von MySQL seit Version 4.1 unterstützt durch die Auswahl eines geeigneten Zeichensatzes.
293	293
294	294		Allerdings gilt: ein einfaches Setzen dieser Kodierung als Vorgabe für Ihre Tabellen und die MySQL-Connection-Komponente resultiert in inkorrekter Speicherung und Rückgabe von UTF-8 Strings, wenn bestimmte akzentuierte/internationale Zeichen als Fragezeichen (?) angezeigt werden. Offensichtlich liegt die Ursache dafür darin, dass die MySQL-Client-Bibliothek mit dem Zeichensatz 'Latin1' als Vorgabe kompiliert wurde.
295	295
296	296		Um eine korrekte Kommunikation zwischen Lazarus, der MySQL-Client-Bibliothek und dem MySQL-Server zu aktivieren, müssen zwei zusätzliche Abfragen jedes Mal ausgeführt werden, wenn eine Verbindung zur Datenbank aufgebaut wird:
297	297
298	298		``` sql
299	299		SET CHARACTER SET `utf8`
300	300		```
301	301
302	302		und
303	303
304	304		``` sql
305	305		SET NAMES 'utf8'
306	306		```
307	307
308	308		Die erste Abfrage stellt sicher, dass Ihre Anwendung die Zeichenketten in korrekter Kodierung empfängt. Und die zweite weist MySQL an, nicht die Strings zu konvertieren, die es von Ihrer Anwendung erhält.
309	309
310	310		## Simple MySQL Demo Using the TMySQL50Connection Component
311	311
312	312		Here is code that functions as a quick demo to get up and running simply (tested on Win XP with Lighty2Go, though xampp would be just as suitable). libmysql.dll was put in the project and lazarus.exe directories (available from a directory in Lighty2Go or xampp - but ensure that you use the correct version of libmysql.dll to match the chosen TMySQL5xxConnection Component - for TMySQL50Connection use the version for MySQL 5.0 (1484kB) and this can connect fine to both MySQL 5.0 and MySQL 5.1 DBMSs. The 5.1 version of libmysql.dll will not function with TMySQL50Connection). There is no requirement to place any components on the form other than the three edit boxes, a memo box and a few buttons. You need to add mysql50conn and sqldb to the uses statement. The Lazarus component directory must be rw for the programmer. The mysql dbms here has a user 'root' with no password, and a database test1 with table tPerson which has three fields: personid (int), surname (varchar(40)) and dob (datetime). phpMyAdmin (in Lighty2Go) was used to create the db, table and fields and insert some sample data. Note that dates in phpMyAdmin should be entered YYYY-MM-DD, though the program created below will accept dates in the usual formats. The button btnTest must be clicked first as it creates the connection with the dbms. Note the line that applies updates - without this the changed or new data will not be written back to the db though they will be in memory and can be viewed using btnFirst and btnNext.
313	313
314	314		``` pascal
315	315		unit unt_db;
316	316		// Example based on:
317	317		// http://www.lazarus.freepascal.org/index.php?name=PNphpBB2&file=viewtopic&t=5761
318	318		// from tpglemur on that forum
319	319		{$mode objfpc}{$H+}
320	320		interface
321	321		uses
322	322		Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
323	323		mysql50conn, sqldb, StdCtrls;
324	324		type
325	325		{ TForm1 }
326	326		TForm1 = class(TForm)
327	327		btnTest: TButton;
328	328		btnNext: TButton;
329	329		btnFirst: TButton;
330	330		btnNew: TButton;
331	331		edtPersonID: TEdit;
332	332		edtSurname: TEdit;
333	333		edtDOB: TEdit;
334	334		Memo1: TMemo;
335	335		procedure btnFirstClick(Sender: TObject);
336	336		procedure btnNewClick(Sender: TObject);
337	337		procedure btnNextClick(Sender: TObject);
338	338		procedure btnTestClick(Sender: TObject);
339	339		private
340	340		{ private declarations }
341	341		conn : TMySQL50Connection;
342	342		query : TSQLQuery;
343	343		transaction : TSQLTransaction;
344	344		procedure Display;
345	345		public
346	346		{ public declarations }
347	347		end;
348	348		var
349	349		Form1: TForm1;
350	350		implementation
351	351		{ TForm1 }
352	352		procedure TForm1.btnTestClick(Sender: TObject);
353	353		var
354	354		S: String;
355	355		begin
356	356		conn := TMySQL50Connection.Create(nil);
357	357		query := TSQLQuery.Create(nil);
358	358		transaction := TSQLTransaction.Create(nil);
359	359		try
360	360		try
361	361		conn.HostName := '127.0.0.1';
362	362		conn.UserName := 'root';
363	363		conn.Password := '';
364	364		conn.DatabaseName := 'test1';
365	365		conn.Connected := True;
366	366		conn.Transaction := transaction;
367	367		query.DataBase := conn;
368	368		//query.ParseSQL := true; //line not needed - this is the default anyway
369	369		//query.ReadOnly := false; //line not needed - this is the default anyway
370	370		query.SQL.Text := 'select * from tperson';
371	371		query.Open;
372	372
373	373		query.Last;
374	374		S := IntToStr(query.RecordCount) + #13#10;
375	375		query.First;
376	376
377	377		while not query.EOF do
378	378		begin
379	379		S := S + query.FieldByName('surname').AsString + #13#10;
380	380		query.Next;
381	381		end;
382	382		finally
383	383		//query.Free;
384	384		//conn.Free;
385	385		end;
386	386		except
387	387		on E: Exception do
388	388		ShowMessage(E.message);
389	389		end;
390	390		Memo1.Text:= S;
391	391		end;
392	392
393	393		procedure TForm1.Display;
394	394		begin
395	395		edtPersonID.Text := query.FieldByName('personid').AsString;
396	396		edtSurname.Text := query.FieldByName('surname').AsString;
397	397		edtDOB.Text := query.FieldByName('dob').AsString;
398	398		end;
399	399
400	400		procedure TForm1.btnFirstClick(Sender: TObject);
401	401		begin
402	402		query.First;
403	403		Display;
404	404		end;
405	405
406	406		procedure TForm1.btnNewClick(Sender: TObject);
407	407		begin
408	408		query.Append;
409	409		query.FieldValues['personid'] := edtPersonID.Text;
410	410		query.FieldValues['surname'] := edtSurname.Text;
411	411		query.FieldValues['dob'] := edtDOB.Text;
412	412		query.Post;
413	413		query.ApplyUpdates; //to apply update
414	414		//transaction.Commit; //line not needed
415	415		end;
416	416
417	417		procedure TForm1.btnNextClick(Sender: TObject);
418	418		begin
419	419		query.Next;
420	420		Display;
421	421		end;
422	422
423	423		initialization
424	424		{$I unt_db.lrs}
425	425		end.
426	426		```
427	427
428	428		Here is a version using the TMySQL50Connection, TSQLQuery, TSQLTransaction, TDatasource and TDBGrid components that have been placed on the form:
429	429
430	430		``` pascal
431	431		unit unt_mysql2;
432	432		{$mode objfpc}{$H+}
433	433		interface
434	434		uses
435	435		Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
436	436		mysql50conn, sqldb, StdCtrls, db, DBGrids, DbCtrls;
437	437		type
438	438		{ TForm1 }
439	439		TForm1 = class(TForm)
440	440		btnConnect: TButton;
441	441		btnSave: TButton;
442	442		btnNext: TButton;
443	443		btnPrior: TButton;
444	444		Datasource1: TDatasource;
445	445		DBGrid1: TDBGrid;
446	446		Memo1: TMemo;
447	447		MySQL50Connection1: TMySQL50Connection;
448	448		SQLQuery1: TSQLQuery;
449	449		SQLTransaction1: TSQLTransaction;
450	450		procedure btnConnectClick(Sender: TObject);
451	451		procedure btnNextClick(Sender: TObject);
452	452		procedure btnPriorClick(Sender: TObject);
453	453		procedure btnSaveClick(Sender: TObject);
454	454		procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
455	455		procedure FormCreate(Sender: TObject);
456	456		private
457	457		{ private declarations }
458	458		public
459	459		{ public declarations }
460	460		end;
461	461		var
462	462		Form1: TForm1;
463	463		implementation
464	464		{ TForm1 }
465	465
466	466		procedure TForm1.FormCreate(Sender: TObject);
467	467		begin
468	468		//Set properties of components:
469	469		//(could be done in the Object Inspector)
470	470		MySQL50Connection1.HostName := '127.0.0.1';
471	471		MySQL50Connection1.UserName := 'root';
472	472		MySQL50Connection1.Password := '';
473	473		MySQL50Connection1.DatabaseName := 'test1';
474	474		MySQL50Connection1.Transaction := SQLTransaction1;
475	475		//SQLQuery1.ParseSQL := true; //line not needed - this is the default
476	476		//SQLQuery1.ReadOnly := false; //line not needed - this is the default
477	477		SQLQuery1.SQL.Text := 'select * from tperson';
478	478		SQLQuery1.Transaction := SQLTransaction1;
479	479		SQLQuery1.UpdateMode := upWhereChanged;
480	480		Datasource1.Dataset := SQLQuery1;
481	481		DBGrid1.DataSource := Datasource1;;
482	482		end;
483	483
484	484		procedure TForm1.btnConnectClick(Sender: TObject);
485	485		var
486	486		S : string;
487	487		begin
488	488		try
489	489		MySQL50Connection1.Connected := true;
490	490		SQLQuery1.Open;
491	491
492	492		//Tests to see if all is OK:
493	493		SQLQuery1.Last;
494	494		S := IntToStr(SQLQuery1.RecordCount) + #13#10;
495	495		SQLQuery1.First;
496	496		while not SQLQuery1.EOF do
497	497		begin
498	498		S := S + SQLQuery1.FieldByName('surname').AsString + #13#10;
499	499		SQLQuery1.Next;
500	500		end;
501	501		except
502	502		on E: Exception do
503	503		ShowMessage(E.message);
504	504		end;
505	505		Memo1.Text:= S;
506	506		end;
507	507
508	508		procedure TForm1.btnNextClick(Sender: TObject);
509	509		begin
510	510		SQLQuery1.Next;
511	511		end;
512	512
513	513		procedure TForm1.btnPriorClick(Sender: TObject);
514	514		begin
515	515		SQLQuery1.Prior;
516	516		end;
517	517
518	518		procedure TForm1.btnSaveClick(Sender: TObject);
519	519		begin
520	520		SQLQuery1.ApplyUpdates;
521	521		end;
522	522
523	523		procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
524	524		begin
525	525		//Required or get EDatabase error on close:
526	526		MySQL50Connection1.Connected := false;
527	527		end;
528	528
529	529		initialization
530	530		{$I unt_mysql2.lrs}
531	531		end.
532	532		```
533	533
534	534		## Lazarus und PostgreSQL
535	535
536	536		Dies ist ein sehr kurzes Tutorial, wie man mit Lazarus 0.9.12 oder höher eine Verbindung zu einer PostgreSQL-Datenbank aufbaut, lokal oder entfernt, mittels TPQConnection. Diese Komponente wird zu Lazarus hinzugefügt, wenn das Package 'lazarus/components/sqldb/sqldblaz.lpk' installiert wird.
537	537
538	538		Nach erfolgreicher Installation, befolgen Sie diese Schritte:
539	539
540	540		- Nehmen Sie eine PQConnection aus dem Fach SQLdb
541	541		- Nehmen Sie eine SQLQuery aus dem Fach SQLdb
542	542		- Nehmen Sie eine SQLTransaction aus dem Fach SQLdb
543	543		- Nehmen Sie eine DataSource aus dem Fach DataAccess
544	544		- Nehmen Sie ein DBGrid aus dem Fach DataControls
545	545
546	546		- In der PQConnection setzen Sie ein:
547	547		- die Eigenschaft 'transaction' mit dem jeweiligen SQLTransaction-Object
548	548		- den Datenbanknamen
549	549		- HostName
550	550		- UserName + password
551	551
552	552		- Überprüfen Sie, ob die SQLTransaction automatisch geändert wurde und jetzt auf die PQConnection zeigt
553	553
554	554		- In der SQLQuery setzen Sie ein:
555	555		- die Eigenschaft 'transaction' mit dem jeweiligen Object
556	556		- die Eigenschaft 'database' mit dem jeweiligen Object
557	557		- SQL (irgendetwas wie 'select * from anytable')
558	558
559	559		- Im Objekt 'DataSource' setzen Sie die Eigenschaft 'DataSet' mit dem jeweiligen SQLQuery-Object
560	560
561	561		- Im DBGrid setzen Sie die Datenquelle als DataSource-Object
562	562
563	563		Stellen Sie alles auf verbunden und aktiviert und das DBGrid sollte zur Entwurfszeit gefüllt werden. TDBText und TDBEdit scheinen zu funktionieren, aber zeigen (bei mir) nur die Daten.
564	564
565	565		Um die Inhalte der Datenbank zu ändern, rief ich die DB-Engine direkt mit dem folgenden Code auf:
566	566
567	567		``` pascal
568	568		try
569	569		sql:= 'UPDATE table SET setting=1';
570	570		PQDataBase.Connected:=True;
571	571		PQDataBase.ExecuteDirect('Begin Work;');
572	572		PQDataBase.ExecuteDirect(sql);
573	573		PQDataBase.ExecuteDirect('Commit Work;');
574	574		PQDataBase.Connected:=False;
575	575		except
576	576		on E : EDatabaseError do
577	577		MemoLog.Append('DB ERROR:'+sql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message);
578	578		on E : Exception do
579	579		MemoLog.Append('ERROR:'+sql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message);
580	580		end;
581	581		```
582	582
583	583		- Anmerkungen:
584	584		- Getestet unter Windows, Lazarus 0.9.12 + PgSQL 8.3.1
585	585		- Einige Tests unter Linux, Lazarus 0.9.12 and PgSQL 8.0.x
586	586
587	587		- Installation und Fehler:
588	588		- In der getesteten Version of Lazarus .12, haben die Felder vom Typ "text" und "numeric" Fehler
589	589		- Ich verwendete problemlos: char fixed size, int und float8
590	590		- Manchmal beseitigt ein Neustart von Lazarus dumme Fehler...
591	591		- Nach einigen Fehlern bleiben die Transaktionen aktiv und sollten manuell deaktiviert werden
592	592		- Von Lazarus gemachte Änderungen werden natürlich erst dann sichtbar, wenn die Transaktionen abgewickelt sind
593	593		- Der integrierte Debugger scheint fehlerbehaftet (zumindest unter Windows) - manchmal hilft es, ihn außerhalb der IDE zu starten, um Fehler zu finden
594	594		- Unter Linux werden bestimmte Fehlermeldungen über die Konsole ausgegeben -- starten Sie Ihr Programm in der Befehlszeile, manchmal finden Sie dort einige zusätzliche nützliche Infos zu Debuggen
595	595		- Error: "Can not load Postgresql client. Is it installed (libpq.so) ?"
596	596		- Erweitern Sie den Pfad um die Suche nach libpq* aus der PostgreSQL-Installation.
597	597		- Unter Linux fügen Sie den Pfad zur Datei 'libpq.so' zum Abschnitt 'libraries' in Ihrer Datei /etc/fpc.cfg. Zum Beispiel: -Fl/usr/local/pgsql/lib
598	598		- Es ist vielleicht nötig einen symbolischen Link zu erzeugen: ln -s /usr/lib/pqsql.so.5 /usr/lib/pqsql.so
599	599		- Unter Windows fügen Sie diese Bibliotheken irgendwo in der Umgebungsvariablen PATH oder project dir ein
600	600		- Unter Windows kopierte ich alle DLLs aus meinem Verzeichnis 'C:\Program Files\PostgreSQL\8.1\bin' in ein anderes Verzeichnis im Pfad
601	601		- Oder fügen Sie dieses Verzeichnis 'postgres\bin' Ihrem Pfad hinzu
602	602
603	603		Ein gutes Beispiel darüber, wie man unter Windows Lazarus mit PostgreSQL verbindet ist [easyDB](http://paginas.fe.up.pt/~asousa/wiki/doku.php?id=proj:lazarus_projects#easy_db).
604	604
605	605		## Lazarus und SQLite
606	606
607	607		von Luiz Américo
608	608
609	609		Besuchen sie die [sqlite4fpc Homepage](http://sqlite4fpc.yolasite.com/). Dort finden sie die API-Referenz und weitere Tutorials.
610	610
611	611		### Einführung
612	612
613	613		TSqliteDataset und TSqlite3Dataset sind TDataset Abkömmling-Klassen, die jeweils auf sqlite 2.8.x und 3.x.x Datenbanken zugreifen. Nachstehend befindet sich eine Liste der wichtigsten Vor- und Nachteile:
614	614
615	615		Vorteile:
616	616
617	617		- Flexibilität: Programmier können wählen, ob sie die SQL Sprache verwenden oder nicht, erlaubt ihnen mit einfachen Tabellenlayouts zu arbeiten oder jedem komplexen Layout, welches SQL ermöglicht.
618	618		- Automatisches Datenbank Update: Kein Bedarf, die Datenbank manuell mit SQL Anweisungen zu updaten, eine einzelne Methode erledigt dies.
619	619		- Schnelligkeit: Es puffert die Daten im Arbeitsspeicher, was das Browsen im Datenbestand schnell macht.
620	620		- Keine Server Installation/Konfiguration: einfach zusammen verfrachten mit der sqlite dynamic Bibliothek.
621	621
622	622		Nachteile
623	623
624	624		- Benötigt externe Datei (sqlite Bibliothek)
625	625
626	626		### Voraussetzungen
627	627
628	628		- Für sqlite2 Datenbanken:
629	629		- fpc 2.0.0
630	630		- Lazarus 0.9.10
631	631		- sqlite Laufzeitbibliothek 2.8.15 oder höher (von [www.sqlite.org](http://www.sqlite.org))
632	632
633	633		- Für sqlite3 Datenbanken:
634	634		- fpc 2.0.2
635	635		- Lazarus 0.9.11 (SVN Revision 8443 oder höher)
636	636		- sqlite Laufzeitbibliothek 3.2.1 oder höher (von [www.sqlite.org](http://www.sqlite.org))
637	637
638	638		Bevor sie ein Lazarus Projekt beginnen, stellen sie sicher, dass:
639	639
640	640		- die sqlite Bibliothek im Systempfad (PATH) ist oder im Verzeichnis des executable
641	641		- unter Linux, bringen sie cmem als erste Unit in den uses-Abschnitt des Hauptprogramms
642	642
643	643		### Anwendung (grundlegende Verwendung)
644	644
645	645		Installieren sie das Package aus dem /components/sqlite Verzeichnis (siehe Instruktionen [[Install Packages/de\|hier]])
646	646
647	647		Zur Entwicklungszeit setzen sie die folgenen Eigenschaften:
648	648
649	649		- FileName: Pfad der sqlite Datei \[benötigt\]
650	650		- TableName: Name der Tabelle, die in der SQL Anweisung benutzt wird \[benötigt\]
651	651		- Sql: eine SQL select Anweisung \[optional\]
652	652
653	653		Erzeugen einer Tabelle (Dataset)
654	654
655	655		Klicken sie doppelt auf das Komponenten-Icon oder benutzen sie den 'Create Table' Punkt im Popup-Menü, das erscheint, wenn sie mit der rechten Maustaste klicken. Ein einfacher selbsterklärender Tabellen-Editor wird eingeblendet.
656	656
657	657		` Hier sind alle Feldtypen, die von TSqliteDataset und TSqlite3Dataset unterstützt werden: `\
658	658		` `\
659	659		` Integer`\
660	660		` AutoInc`\
661	661		` String`\
662	662		` Memo`\
663	663		` Bool `\
664	664		` Float`\
665	665		` Word`\
666	666		` DateTime`\
667	667		` Date`\
668	668		` Time`\
669	669		` LargeInt`\
670	670		` Currency`\
671	671		` `
672	672
673	673		Abrufen der Daten
674	674
675	675		Nach dem Erzeugen der Tabelle oder mit einer vorher erzeugten Tabelle, öffnen sie die Datenmenge mit der Open Methode. Wenn die SQL-Eigenschaft nicht gesetzt wurde, dann werden alle Datensätze von allen Feldern abgerufen, das selbe passiert, wenn sie SQL auf:
676	676
677	677		` SQL:='Select * from TABLENAME'; `
678	678
679	679		setzen.
680	680
681	681		Anwendung von Änderungen zur grundlegenden Datendatei
682	682
683	683		Um die Funktion ApplyUpdates zu benutzen, muss der Datenbestand mindestens ein Feld enthalten, das die Anforderungen für einen Primary Key erfüllt (Werte müssen UNIQUE und nicht NULL sein).
684	684
685	685		Es ist möglich, dies auf zwei Wegen zu erreichen:
686	686
687	687		- Setzen sie die Eigenschaft PrimaryKey auf den Namen eines Primary Key Feldes.
688	688		- Fügen sie ein Feld AutoInc hinzu (dies ist einfacher seit TSqliteDataSet es automatisch als Primary Key behandelt)
689	689
690	690		Wenn eine oder zwei Bedingungen gesetzt sind, rufen sie
691	691
692	692		` ApplyUpdates;`
693	693
694	694		auf.
695	695
696	696		PS1: Wenn beide Bedingungen gesetzt sind, wird das Feld entsprechend dem PrimaryKey genutzt, um die Updates anzuwenden.
697	697
698	698		PS2: Setzen von PrimaryKey auf ein Feld, das kein Primary Key ist, wird zu einem Verlust von Daten führen, wenn ApplyUpdates aufgerufen wird, daher stellen sie sicher, dass das gewählte Feld keinen Null Wert und Unique values enthält, bevor sie es benutzen.
699	699
700	700		### Bemerkungen
701	701
702	702		- Obwohl es mit 10000 Datensätzen getestet wurde und problemlos funktionierte, hält TSqliteDataset alle Daten im Arbeitsspeicher. Denken sie daher daran, nur die notwendigen Daten abzurufen (hauptsächlich mit Memo Feldern).
703	703		- Die selbe Datendatei (Filename Eigenschaft) kann verschiedene Tabllen/Datasets hosten.
704	704		- Verschiedene Datasets (unterschiedliche Kombinationen von Feldern) können unter simultaner Nutzung der selben Tabelle erzeugt werden .
705	705		- Es ist möglich, die Daten mit der WHERE Anweisung in SQL zu filtern, das Dataset zu schliessen und wieder zu öffnen (oder die Methode RefetchData aufrufen). Aber in diesem Fall müssen die Reihenfolge und Anzahl der Felder gleich bleiben.
706	706		- Es ist auch möglich, komplexe SQL-Anweisungen zu verwenden mittels Aliasen, Joins, Views bei mehrfachen Tabellen (denken sie daran, dass sie sich in der selben Datendatei befinden müssen), aber in diesem Fall wird ApplyUpdates nicht funktionieren. Wenn jemand komplexe Abfragen benutzen und die Updates in die Datendatei einsetzen will, soll er mir schreiben und ich werde einige Hinweise geben, wie man das tut.
707	707		- Es ist erlaubt, den Dateinamen zu einer sqlite2.x Datendatei zu setzen, welche nicht von TSqliteDataset erzeugt wurde, aber einige Felder werden nicht den korrekten Feldtyp ermitteln. Diese werden als String-Felder behandelt.
708	708
709	709		Allgemeine Beispiele sind zu finden im fpc/fcl/db/sqlite CVS-Verzeichnis
710	710
711	711		Luiz Américo pascalive(at)bol(dot)com(dot)br
712	712
713	713		## Lazarus und MSSQL
714	714
715	715		Bitte schreiben sie mir!
716	716
717	717		## Lazarus und Interbase / Firebird
718	718
719	719		Schauen Sie auf [[Install Packages/de\|Installation von Packages]] nach. Auf dieser Seite befindet sich ein erstes kleines Beispiel und eine Beschreibung, wie man eine Verbindung zu einem IB- oder FB-Server herstellt. Informationen zu Firebird gibt es auch hier [[Firebird]].
720	720
721	721		Funktioniert auch mit der neuesten Zeoslib (aus dem cvs).
722	722
723	723		### FBLib Firebird-Bibliothek
724	724
725	725		[FBLib](http://fblib.altervista.org) ist eine Open-Source-Bibliothek für den direkten Zugriff auf das relationale Datenbanksystem Firebird. Funtioniert mit Borland Delphi, Kylix, Free Pascal und Lazarus.
726	726
727	727		Folgende Merkmale sind aktuell enthalten:
728	728
729	729		- Direkter Zugriff auf Firebird 1.0.x 1.5.x, 2.x Classic oder SuperServer
730	730		- Multi-Plattform \[Win32, Gnu/Linux, FreeBSD)
731	731		- Automatische Auswahl der Klientenbibliothek 'fbclient' oder 'gds32'
732	732		- Abfragen mit Parametern
733	733		- Unterstützt den SQL-Dialekt 1/3
734	734		- LGPL Lizenz-Vereinbarung
735	735		- Extrahiert Metadaten
736	736		- Einfacher Skript-Parser
737	737		- Fügt nur 100-150 KB zur ausführbaren EXE-Datei hinzu
738	738		- Unterstützt BLOB-Felder
739	739		- Exportiert Daten zu einem HTML SQL Script
740	740		- Service-Manager (Backup, Restore, gfix...)
741	741		- Ereignis-Benachrichtigung
742	742
743	743		Sie können die Dokumentation von der [FBLib Website](http://fblib.altervista.org/) herunterladen.
744	744
745	745		[Hiere](http://www.firebirdnews.org/?p=1769) finden Sie eine aktuelle Version. Oder Sie benutzen SVN: [1](https://tiopf.svn.sourceforge.net/svnroot/tiopf/3rdParty/FBLib/Trunk) (Tipp von [Guionardo](http://wiki.lazarus.freepascal.org/User:Guiosoft))
746	746
747	747		## Lazarus und dBase
748	748
749	749		Tony Maro
750	750
751	751		Sie können auch mit dem Besuch der [[Lazarus Tdbf Tutorial/de\|TDbf Tutorial Seite]] anfangen.
752	752
753	753		FPC enthält eine einfache Datenbank-Komponente, die ähnlich funktioniert wie die Delphi-Komponente TTable, genannt "TDbf" ([TDbf Webseite](http://tdbf.sourceforge.net/)), die eine sehr elementare Teilmenge von Features für dBase-Dateien bietet. Sie wird inzwischen standardmäßig installiert, so dass sie das Lazarus Package aus dem "lazarus/components/tdbf" Verzeichnis nicht mehr manuell installieren und ihre Lazarus IDE neu aufbauen müssen (rebuild). Sie erscheint neben 'TDatasource' in ihrer Komponentenpalette.
754	754
755	755		Die Komponente TDbf hat einen Vorteil gegenüber anderen Datenbank-Komponenten, dass sie keine Art von Datenbank-Laufzeit-engines benötigt. Sie ist aber nicht die beste Option für große Datenbankanwendungen.
756	756
757	757		Sie ist sehr einfach zu benutzen. Nehmen sie einfach eine TDbf und legen sie sie auf ihrem Formular ab, setzen den Laufzeit-Pfad auf das Verzeichnis, wo sich ihre Datenbank-Dateien befinden, setzen den Tabellennamen und verbinden sie mit ihrer TDatasource-Komponente.
758	758
759	759		Wirkliche Funktionalität benötigt ein bißchen mehr Aufwand, wie auch immer. Wenn eine Tabelle nicht bereits schon existiert, müssen sie sie per Programm erzeugen, es sei denn, es gibt einen kompatiblen Tabellen-Designer, mit dem ich nicht vertraut bin.
760	760
761	761		Der Versuch, eine nicht existierende Tabelle zu öffnen, wird einen Fehler erzeugen. Tabellen können per Programm durch die Komponente erzeugt werden, sobald der Laufzeit-Pfad und der Tabellenname gesetzt wurden.
762	762
763	763		Ein Beispiel: Sie erzeugen eine Tabelle mit dem Namen "dvds", um ihre DVD-Kollektion zu speichern, in dem sie sie auf ihrem Formular ablegen, den Laufzeit-Pfad setzen und den Tabellennamen auf "dvds" setzen. Die resultierende Datei heißt "dvds.dbf".
764	764
765	765		Fügen sie das Folgende in ihren Code ein:
766	766
767	767		` Dbf1.FilePathFull = '/Pfad/zu/meiner/Datenbank';`\
768	768		` Dbf1.TableName = 'dvds';`\
769	769		` With Dbf1.FieldDefs do begin`\
770	770		` Add('Name', ftString, 80, True);`\
771	771		` Add('Description', ftMemo, 0, False);`\
772	772		` Add('Rating', ftString, 5, False);`\
773	773		` end;`\
774	774		` Dbf1.CreateTable;`
775	775
776	776		Wenn dieser Code läuft, wird ihre Tabelle DVD-Kollektion erzeugt. Danach werden alle datensensitiven Komponenten, die durch TDatasource mit dieser Komponente verbunden sind, einen einfachen Zugang zu den Daten erlauben.
777	777
778	778		Das Hinzügen von Indexen ist ein wenig unterschiedlich von ihrer typischen TTable. Es muss getan werden, nachdem die Datenbank geöffnet wurde. Es ist auch die selbe Methode, die sie zum Erneuern der Indexe verwenden. Zum Beispiel:
779	779
780	780		` Dbf1.Exclusive := True;`\
781	781		` Dbf1.Open;`\
782	782		` Dbf1.AddIndex('dvdsname','Name',[ixPrimary, ixUnique, ixCaseInsensitive]);`\
783	783		` Dbf1.AddIndex('rating.ndx', 'Rating', [ixCaseInsensitive]);`\
784	784		` Dbf1.Close;`
785	785
786	786		Der erste (primary) Index ist eine Datei mit dem Namen "dvdsname.mdx" und der zweite ist die Datei "rating.ndx". Daher müssen sie aufpassen in einer Mehrfach-Tabellen Datenbank, den selben Dateinamen nicht zweimal zu verwenden.
787	787
788	788		Ich will versuchen, ein detaillierteres Beispiel zu einem späteren Zeitpunkt hinzuzufügen, aber hoffentlich wird dies jene 'alten' Delphi-Programmierer anspornen, Datenbankprogramme mit Lazarus zu schreiben!
789	789
790	790		## Verwendung von TSdfDataset und TFixedDataset
791	791
792	792		TSdfDataset and TFixedDataset are two simple datasets which offer a very simple textual storage format. These datasets are very convenient for small databases, because they are fully implemented as an object pascal unit, and thus require no external libraries, and because their textual format allows them to be easely edited with a text editor.
793	793
794	794		To start with this formats, a initial database file should be created. The format is very simple, so use a text editor to do this.
795	795
796	796		Below is a sample database for TSdfDataset. Note that the first line has the names of the fields and that we are using commas as separators:
797	797
798	798		ID,NAMEEN,NAMEPT,HEIGHT,WIDTH,PINS,DRAWINGCODE
799	799		1,resistor,resistor,1,1,1,LINE
800	800		2,capacitor,capacitor,1,1,1,LINE
801	801		3,transistor npn,transistor npn
802	802
803	803		And here is an example database for using with TFixedDataset. Each record occupies a fixed amount of space, and if the field is smaller then it, spaces should be used to fill the remaining size.
804	804
805	805		Name = 15 chars; Surname = 15 chars; Tell = 10 chars; e_mail = 20 chars;
806	806		Piet Pompies piet@pompies.net
807	807
808	808		### Direkte Verwendung der Datasets
809	809
810	810		Sometimes it is useful to create the dataset and work with it completely in code, and the following code will do exactly this. Note some peculiarities of TSdfDataset/TFixedDataset:
811	811
812	812		- The lines in the database can have a maximum size of about 300. A fix is being researched.
813	813		- It is necessary to add the field definitions. Some datasets are able to fill this information alone from the database file
814	814		- One should set FirstLineAsSchema to true, to indicate that the first line includes the field names and positions
815	815		- The Delimiter property holds the separator for the fields. It will not be possible to use this char in strings in the database. Similarly it will not be possible to have lineendings in the database because they mark the change between records. It's possible to overcome this by substituting the needed comma or line ending with another not often used char, like \# for example. So that when showing the data on screen all \# chars could be converted to line endings and the inverse when storing data back to the database. The ReplaceString routine is useful here.
816	816
817	817		``` pascal
818	818		constructor TComponentsDatabase.Create;
819	819		begin
820	820		inherited Create;
821	821
822	822		FDataset := TSdfDataset.Create(nil);
823	823		FDataset.FileName := vConfigurations.ComponentsDBFile;
824	824
825	825		// Not necessary with TSdfDataset
826	826		// FDataset.TableName := STR_DB_COMPONENTS_TABLE;
827	827		// FDataset.PrimaryKey := STR_DB_COMPONENTS_ID;
828	828
829	829		// Adds field definitions
830	830		FDataset.FieldDefs.Add('ID', ftString);
831	831		FDataset.FieldDefs.Add('NAMEEN', ftString);
832	832		FDataset.FieldDefs.Add('NAMEPT', ftString);
833	833		FDataset.FieldDefs.Add('HEIGHT', ftString);
834	834		FDataset.FieldDefs.Add('WIDTH', ftString);
835	835		FDataset.FieldDefs.Add('PINS', ftString);
836	836		FDataset.FieldDefs.Add('DRAWINGCODE', ftString);
837	837
838	838		// Necessary for TSdfDataset
839	839		FDataset.Delimiter := ',';
840	840		FDataset.FirstLineAsSchema := True;
841	841
842	842		FDataset.Active := True;
843	843
844	844		// Sets the initial record
845	845		CurrentRecNo := 1;
846	846		FDataset.First;
847	847		end;
848	848		```
849	849
850	850		When using TSdfDataset directly be careful that althought it is implemented, RecNo does not work correctly, neither for setting nor for reading. The standard movimentation routines like First, Next, Prior and Last work correctly, so it's possible to use them to implement a replacement for RecNo. Keep a variable somewhere called CurrentRecNo which will hold the current RecNo value. Remember that this variable will have the same convention as RecNo, so the first record has number 1. After activating the database initialize the database to the first record with TSdfDataset.First and with CurrentRecNo := 1
851	851
852	852		``` pascal
853	853		{@@
854	854		Moves to the desired record using TDataset.Next and TDataset.Prior
855	855		Avoids using TDataset.RecNo which doesn't work in all datasets
856	856
857	857		@param AID Indicates the record number. The first record has number 1
858	858		}
859	859		procedure TComponentsDatabase.GoToRec(AID: Integer);
860	860		begin
861	861		// We are before the desired record, move forward
862	862		if CurrentRecNo < AID then
863	863		begin
864	864		while (not FDataset.EOF) and (CurrentRecNo < AID) do
865	865		begin
866	866		FDataset.Next;
867	867		FDataset.CursorPosChanged;
868	868		Inc(CurrentRecNo);
869	869		end;
870	870		end
871	871		// We are after the desired record, move back
872	872		else if CurrentRecNo > AID then
873	873		begin
874	874		while (CurrentRecNo >= 1) and (CurrentRecNo > AID) do
875	875		begin
876	876		FDataset.Prior;
877	877		FDataset.CursorPosChanged;
878	878		Dec(CurrentRecNo);
879	879		end;
880	880		end;
881	881		end;
882	882		```
883	883
884	884		### Verwendung mit datensensitiven Komponenten
885	885
886	886		## Siehe auch
887	887
888	888		- [[Databases/de\|Datenbanken (deutsch)]] - Startseite für Datenbankanwendungen mit Lazarus
889	889		- [[Databases in Lazarus/de\|Datenbanken in Lazarus (deutsch)]] - Ein Überblick über die Verwendung von Datenbanken in Lazarus
890	890		- [[How to write in-memory database applications in Lazarus/FPC]] - In-Memory Datenbank-Anwendungen
891	891		- [[MySQLDatabases/de\|MySQLDatenbanken (deutsch)]] - Erstellung einer Datenbankanwendung unter Verwendung von MySQL
892	892		- [[Zeos tutorial/de\|Zeos Tutorial (deutsch)]] - Verwendung der Zeos Komponenten
893	893		- [[Lazarus Tdbf Tutorial]] - Tutorial über einfache Datenbankentwicklung mittels der [TDbf](http://tdbf.sf.net)-Komponente (von Micha Nelissen)
894	894		- [[Lazarus DB Faq/de\|Lazarus DB Faq (deutsch]] - FAQ über Datenbanken in Lazarus
895	895		- [[Firebird]] - Erstellen einer Datenbankanwendung für Firebird
896	896		- [[ODBCConn]] - Verbindung mit ODBC-Datenbanken
897	897		- [[MS Access]] - Wie man auf eine Microsoft Access Datenbank zugreift
898	898
899	899		## Externe Links
900	900
901	901		- [Pascal Data Objects](http://pdo.sourceforge.net) - eine Datenbank API die mit FPC und Delphi funktioniert und die nativen MySQL-Bibliotheken für Version 4.1 und 5.0 sowie Firebird SQL 1.5 und 2.0 verwendet. Sie wurde durch PHP's PDO-Klasse angeregt.
902	902		- [Zeos+SQLite Tutorial](http://lazaruszeos.blogspot.com) - Ein gutes Tutorial mit Screenshots. Es erklärt wie Sie SQLite und Zeos benutzen. Allerdings auf Spanisch - (Google translate hilft bei der Übersetzung ins Deutsche)
903	903
904	904		---
905	905		From the Free Pascal wiki, page "Lazarus Database Tutorial/de", as it stood on 2020-02-18 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