Lazarus Database Tutorial/it: what changed

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

Old	New		Line
1	1		## Panoramica
2	2
3	3		Questo tutorial è incentrato sul funzionamento di Lazarus con una serie di database esistenti.
4	4
5	5		Lazarus supporta di base diversi database; in ogni caso lo sviluppatore deve installare il package adeguato per ciascuno di essi. E' possibile accedere al database attraverso il codice oppure disponendo dei componenti su un form. I componenti data-aware rappresentano i campi del database e vengono collegati impostando la proprietà DataSource in modo che punti ad un TDataSource. Il Datasource rappresenta una table ed è collegato ai componenti del database (per esempio: TPSQLDatabase, TSQLiteDataSet) impostando la proprietà DataSet. I componenti data-aware sono situati nel tab "Data Controls" della palette dei componenti di Lazarus. Il componente Datasource e i componenti dei database sono situati nel tab "Data Access".
6	6
7	7		## Lazarus e MySQL
8	8
9	9		### Far funzionare MySQL su Linux o Windows
10	10
11	11		Seguite le istruzioni riportate sul MySQL User Manual. Assicuratevi che il daemon mysqld giri correttamente e che tutti i potenziali utenti (inclusi root, mysql, voi stessi e ognuno che ne abbia bisogno) abbiano i privilegi di cui necessitano, da tutti gli host richiesti (inclusi 'localhost', il nome dell'host locale, qualsiasi altro host della vostra rete) per quanto sia consistente con la sicurezza. E' preferibile che tutti gli utenti, incluso il root, abbiano una password. Controllate il funzionamento del sistema del database utilizzando l'esempio fornito nel manuale e assicuratevi che tutti gli utenti abbiano realmente accesso al database.
12	12
13	13		### Far funzionare MySQL con FPC in modalità testuale
14	14
15		-	C'è una directory con un programma di esempio in \$(fpc<b>src</b>dir)/packages/base/mysql/. Potete trovare la directory dei sorgenti del fpc in Lazarus: Environment menu -\> Environment Options -\> Paths tab -\> FPC source directory. Alcuni percorsi tipici per la directory di mysql sono /usr/share/fpcsrc/packages/base/mysql/ (rpm install) oppure C:\lazarus\fpcsrc\packages\base\mysql\\ (windows). Questa directory contiene anche le units mysql.pp, mysql_com.pp e mysql_version.pp. Prima di avviare lo script per il test, avrete bisogno di creare un database chiamato testdb: è possibile fare ciò loggandosi nel monitor mysql (come root con pieni privilegi) e immettendo la seguente linea SQL
	15	+	C'è una directory con un programma di esempio in \$(fpcsrcdir)/packages/base/mysql/. Potete trovare la directory dei sorgenti del fpc in Lazarus: Environment menu -\> Environment Options -\> Paths tab -\> FPC source directory. Alcuni percorsi tipici per la directory di mysql sono /usr/share/fpcsrc/packages/base/mysql/ (rpm install) oppure C:\lazarus\fpcsrc\packages\base\mysql\\ (windows). Questa directory contiene anche le units mysql.pp, mysql_com.pp e mysql_version.pp. Prima di avviare lo script per il test, avrete bisogno di creare un database chiamato testdb: è possibile fare ciò loggandosi nel monitor mysql (come root con pieni privilegi) e immettendo la seguente linea SQL
16	16
17	17		`CREATE DATABASE testdb;`
18	18
19	19		quindi assicurandovi che tutti gli utenti abbiano i privilegi di accesso appropriati
20	20
21	21		`GRANT ALL ON testdb TO johnny-user IDENTIFIED BY 'johnnyspassword'; `
22	22
23	23		Esiste uno script chiamato mkdb che ora dovreste provare a lanciare:
24	24
25	25		`sh ./mkdb`
26	26
27	27		Probabilmente restituirà un errore, poiché il sistema non permette ad utenti anonimi di accedere al database. Quindi modificate lo script utilizzando un editor di testo in modo tale che la linea che chiama mysql sia:
28	28
29	29		`mysql -u root -p ${1-testdb} << EOF >/dev/null`
30	30
31	31		e provate a lanciarlo di nuovo, immettendo la vostra password quando richiesto. Con un pizzico di fortuna dovreste essere in grado di creare il database di test: provatelo (loggati nel monitor mysql) lanciando la sequenza di comandi mysql
32	32
33	33		`select * from FPdev;`
34	34
35	35		Dovreste vedere una tabella contenente l'ID, lo username e l'indirizzo email di alcuni degli sviluppatori del FPC.
36	36
37	37		Ora provate a lanciare il programma di test testdb.pp (potrebbe essere necessario compilarlo, e quasi sicuramente non andrà a buon fine al primo tentativo!!).
38	38
39	39		Ho scoperto che il programma potrebbe non connettersi a mysql per diverse ragioni:
40	40
41	41		- Il mio sistema (SuSE Linux v9.0) installa mysql v4.0.15, non la versione 3 per la quale il package è stato disegnato.
42	42
43	43		- Il programma ha bisogno di avere nome utente e password per accedere al database.
44	44
45	45		- Il compilatore ha bisogno di sapere dove trovare le librerie di mysql (NEL CASO IN CUI NON ABBIATE PROVVEDUTO AD INSTALLARE LE LIBRERIE DI SVILUPPO DI MYSQL, FATELO ORA!)
46	46
47	47		Ho creato una copia di testdb.pp chiamandola trydb.pp, piuttosto che modificare l'originale - questo significa che i files originali verranno ancora corretti durante gli aggiornamenti successivi da CVS. Ho anche cpiato i files trovati nella sottodirectory mysql/ver40/ nella sottodirectory principale mysql/, rinominandoli mysql_v4.pp, mysql_com_v4.pp e mysql_version_v4.pp, assicurandomi di rinominare le units all'interno di ogni file in maniera corrispondente. Ho cambiato il blocco uses in trydb.pp in
48	48
49	49		`uses mysql_v4`
50	50
51	51		e quello in mysql_v4.pp in
52	52
53	53		`uses mysql_com_v4`
54	54
55	55		Ho aggiunto una linea a /etc/fpc.cfg per far puntare il compilatore alle mie librerie:
56	56
57	57		`-Fl/lib;/usr/lib`
58	58
59	59		I passi seguenti potrebbero non essere necessari se le librerie di sviluppo sono state installate, poiché i collegamenti vengono creati automaticamente, ma controllare non fa mai male. Ho dovuto trovare il vero nome della libreria mysqlclint in /usr/lib e, nel mio caso, ho dovuto lanciare il comando da shell:
60	60
61	61		`ln -s libmysqlclient.so.12.0.0 lmysqlclient`
62	62
63	63		per creare un link simbolico che permettesse a FPC di trovare la libreria. Per buona pratica ho anche creato il link
64	64
65	65		`ln -s libmysqlclient.so.12.0.0 mysqlclient`
66	66
67	67		e posizionato link simili in altre directory: non strettamente necessario, solo per sicurezza...! Alcuni utenti potrebbero aver bisogno di aggiungere il seguente link:
68	68
69	69		`ln -s libmysqlclient.so.12.0.0 libmysqlclient.so`
70	70
71	71		Ho modificato trydb.pp in modo da includere i dettagli dell'utente, inizialmente aggiungendo l'host, l'user e la password come costanti:
72	72
73	73		``` pascal
74	74		const
75	75		host : Pchar= 'localhost';
76	76		user : Pchar= 'myusername';
77	77		passwd: Pchar = 'mypassword';
78	78		```
79	79
80	80		Ho anche scoperto che non posso connettermi a mysql utilizzando mysql_connect(), ma ho dovuto utilizzare mysql_real_connect() che ha molti più parametri. Per complicare le cose ulteriormente il numero di parametri sembra essere cambiato tra la versione 3 (dove erano sette) e la versione 4 (dove sono otto). Prima di utilizzare mysql_real_connect ho dovuto utilizzare mysql_init() che non esiste nel file mysql.pp originale, ma esiste in mysql_v4.pp.
81	81
82	82		Quindi il codice per la connessione al database è:
83	83
84	84		``` pascal
85	85		{ a few extra variables}
86	86		var
87	87		alloc : PMYSQL;
88	88
89	89		{main program fragment}
90	90
91	91		begin
92	92		if paramcount=1 then
93	93		begin
94	94		Dummy:=Paramstr(1)+#0;
95	95		DataBase:=@Dummy[1];
96	96		end;
97	97
98	98		Writeln ('Allocating Space...');
99	99		alloc := mysql_init(PMYSQL(@qmysql));
100	100		Write ('Connecting to MySQL...');
101	101		sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);
102	102		if sock=Nil then
103	103		begin
104	104		Writeln (stderr,'Couldn''t connect to MySQL.');
105	105		Writeln (stderr, 'Error was: ', mysql_error(@qmysql));
106	106		halt(1);
107	107		end;
108	108		Writeln ('Done.');
109	109		Writeln ('Connection data:');
110	110		{$ifdef Unix}
111	111		writeln ('Mysql_port : ',mysql_port);
112	112		writeln ('Mysql_unix_port : ',mysql_unix_port);
113	113		{$endif}
114	114		writeln ('Host info : ',mysql_get_host_info(sock));
115	115		writeln ('Server info : ',mysql_stat(sock));
116	116		writeln ('Client info : ',mysql_get_client_info);
117	117
118	118		Writeln ('Selecting Database ',DataBase,'...');
119	119		if mysql_select_db(sock,DataBase) < 0 then
120	120		begin
121	121		Writeln (stderr,'Couldn''t select database ',Database);
122	122		Writeln (stderr,mysql_error(sock));
123	123		halt (1);
124	124		end;
125	125		{... as original contents of testdb.pp}
126	126		```
127	127
128	128		Ora siete pronti per compilare trydb.pp?
129	129
130	130		` fpc trydb`
131	131
132	132		fatto! Adesso lanciatelo:
133	133
134	134		` ./trydb`
135	135
136	136		whoopee! Ho ottenuto l'elenco degli sviluppatori del FPC!
137	137
138	138		Alcuni ulteriori perfezionamenti: rendete interattive l'immissione dei dettagli dell'utente e l'immissione dei comandi, utilizzando variabili piuttosto che costanti, e permettete di inserire diversi comandi SQL, finché non viene rovato il comando quit: controllate il [[Lazarus Database Tutorial/TryDbpp\|listato completo del programma]], dove i dettagli dell'utente sono inseriti da console, e il programma va in un loop dove i comandi SQL sono inseriti sempre da console (senza il punto e virgola finale) e le risposte vengono mostrate a schermo solo quando 'quit' viene inserito dalla tastiera.
139	139
140	140		Vedi [[Lazarus Database Tutorial/SampleListing\|Sample Console Listing]].
141	141
142	142		### Connettersi a MySQL da un'Applicazione Lazarus
143	143
144	144		Questo tutorial mostra come connettere Lazarus a un database MySQL ed eseguire delle semplici interrogazioni, utilizzando solo i componenti di base di Lazarus; non vengono utilizzati componenti Data Aware, ma vengono illustrati i principi dell'interfacciamento con il database.
145	145
146	146		Create un nuovo progetto in Lazarus:
147	147
148	148		`Project -> New Project -> Application`
149	149
150	150		Apparirà un nuovo form generato automaticamente.
151	151
152	152		Ingrandite il form in modo tale che riempia circa metà schermo, quindi rinominate il form e la caption in 'TryMySQL'.
153	153
154	154		Dal tab dei componenti Standard posizionate tre Edit Box nella parte in alto a sinistra del Form e, immediatamente sopra ogni box, posizionate una label. Cambiate name e captions in 'Host' (e HostLLabel, HostEdit), 'UserName' (e UserLabel, UserEdit) e 'Password' (con PasswdLabel e PasswdEdit). In alternativa potreste utilizzare il componente LabelledEdit dal tab Additional.
155	155
156	156		Selezionate l'Edit box Passwd e trovate la proprietà PasswordChar: cambiatela in '' o in un altro carattere, in modo che quando digiterete una password i caratteri non appariranno sullo schermo, ma verrà mostrata una serie di . Assicuratevi che la proprietà Text di ogni edit box sia vuota.
157	157
158	158		Ora posizionate un altro Edit box e un'altra label nell'angolo in alto a destra del form. Cambiate il testo della label in 'Enter SQL Command' e chiamate l'edit box CommandEdit.
159	159
160	160		Mettete tre Button sul form: due a sinistra sotto gli Edit box e uno a destra, sotto il command box.
161	161
162	162		Cambiate il testo dei button sulla sinistra in 'Connect to Database' (ConnectButton) e 'Exit' (ExitButton) e il testo di quello a destra in 'Send Query' (QueryButton).
163	163
164	164		Posizionate un grande Memo Box con una label con il testo 'Results' (ResultMemo) nella parte inferiore destra del form, in modo tale da riempire quasi tutto lo spazio disponibile. Cambiate la proprietà ScrollBars in ssAutoBoth in modo che le scroll bar appaiano automaticamente se il testo riempie lo spazio. Mettete la proprietà WordWrap a True.
165	165
166	166		Posizionate unoa Status Bar (dal tab Common Controls) nella parte bassa del form e cambiate la sua proprietà SimpleText in 'TryMySQL'.
167	167
168	168		Uno screenshot del form può essere visualizzato da qui: [Mysql Example Screenshot](http://lazarus-ccr.sourceforge.net/kbdata/trymysqldb.png)
169	169
170	170		Ora abbiamo bisogno di gestire alcuni eventi.
171	171
172	172		I tre Edit box sulla sinistra serviranno per immettere hostname, username e password. Quando sono stati inseriti, viene premuto il tasto Connect. L'evento OnClick del button è basato su parte del programma FPC in modalità testuale che abbiamo appena visto.
173	173
174	174		Le risposte dal database ora non possono essere scritte con l'ausilio dei comandi pascal write o writeln: piuttosto, le risposte devono essere convertite in string e mostrate nel Memo box. Laddove i comandi Pascal write e writeln sono in grado di effettuare diverse conversioni di tipo 'al volo', l'utilizzo di una memo box per l'output di testo necessita di una conversione esplicita dei tipi di dato in string, così le variabili di tipo Pchar devono essere convertite in string mediante StrPas, gli integer tramite IntToStr.
175	175
176	176		Le string vengono mostrate nel Memo box tramite l'utilizzo di
177	177
178	178		``` pascal
179	179		procedure ShowString (S : string);
180	180		(* display a string in a Memo box *)
181	181		begin
182	182		trymysqlForm1.ResultsMemo.Lines.Add (S)
183	183		end;
184	184		```
185	185
186	186		Così l'evento onClick del ConnectButton diventa:
187	187
188	188		``` pascal
189	189		procedure TtrymysqlForm1.ConnectButtonClick(Sender: TObject);
190	190		(* Connect to MySQL using user data from Text entry boxes on Main Form *)
191	191		var
192	192		strg: string;
193	193		begin
194	194		dummy1 := trymysqlForm1.HostEdit.text+#0;
195	195		host := @dummy1[1];
196	196		dummy2 := trymysqlForm1.UserEdit.text+#0;
197	197		user := @dummy2[1];
198	198		dummy3 := trymysqlForm1.PasswdEdit.text+#0;
199	199		passwd := @dummy3[1];
200	200
201	201		alloc := mysql_init(PMYSQL(@qmysql));
202	202		sock := mysql_real_connect(alloc, host, user, passwd, database, 0, nil, 0);
203	203		if sock=Nil then
204	204		begin
205	205		strg :='Couldn''t connect to MySQL.'; showstring (strg);
206	206		Strg :='Error was: '+ StrPas(mysql_error(@qmysql)); showstring (strg);
207	207		end else
208	208		begin
209	209		trymysqlForm1.statusBar1.simpletext := 'Connected to MySQL';
210	210		strg := 'Now choosing database : ' + database; showstring (strg);
211	211		{$ifdef Unix}
212	212		strg :='Mysql_port : '+ IntToStr(mysql_port); showstring (strg);
213	213		strg :='Mysql_unix_port : ' + StrPas(mysql_unix_port); showstring (strg);
214	214		{$endif}
215	215		Strg :='Host info : ' + StrPas(mysql_get_host_info(sock));
216	216		showstring (strg);
217	217		Strg :='Server info : ' + StrPas(mysql_stat(sock)); showstring (strg);
218	218		Strg :='Client info : ' + Strpas(mysql_get_client_info); showstring (strg);
219	219
220	220		trymysqlForm1.statusbar1.simpletext := 'Selecting Database ' + DataBase +'...';
221	221		if mysql_select_db(sock,DataBase) < 0 then
222	222		begin
223	223		strg :='Couldn''t select database '+ Database; ShowString (strg);
224	224		Strg := mysql_error(sock); ShowString (strg);
225	225		end
226	226		end;
227	227		end;
228	228		```
229	229
230	230		Il Text Box sulla destra permette l'inserimento di un comando SQL, senza il punto e virgola finale; quando si è soddisfatti della query inserita, viene premuto il tasto SendQuery e la query viene processata, il cui risultato verrà mostrato nel box ResultsMemo.
231	231
232	232		Il gestore di eventi SendQuery è ancora una volta basato sulla versione in modalità testo, con l'eccezione che, anche qui, si abbia una conversione esplicita di tipo prima di mostrare le string nel box.
233	233
234	234		Una differenza con il programma in modalità testuale è che, nel caso in cui venga riscontrata una anomalia, il programma non viene terminato e la connessione a MySQL non viene chiusa; invece viene restituito il controllo al form principale e viene data l'opportunità di correggere la query prima di lanciarla di nuovo. L'applicazione viene chiusa (con la chiusura della connessione a MySQL) solo quando il tasto Exit viene premuto.
235	235
236	236		Questo è il codice per SendQuery:
237	237
238	238		``` pascal
239	239		procedure TtrymysqlForm1.QueryButtonClick(Sender: TObject);
240	240		var
241	241		dumquery, strg: string;
242	242		begin
243	243		dumquery := TrymysqlForm1.CommandEdit.text;
244	244		dumquery := dumquery+#0;
245	245		query := @dumquery[1];
246	246		trymysqlForm1.statusbar1.simpletext := 'Executing query : '+ dumQuery +'...';
247	247		strg := 'Executing query : ' + dumQuery; showstring (strg);
248	248		if (mysql_query(sock,Query) < 0) then
249	249		begin
250	250		Strg :='Query failed '+ StrPas(mysql_error(sock)); showstring (strg);
251	251		end else
252	252		begin
253	253		recbuf := mysql_store_result(sock);
254	254		if RecBuf=Nil then
255	255		begin
256	256		Strg :='Query returned nil result.'; showstring (strg);
257	257		end else
258	258		begin
259	259		strg :='Number of records returned : ' + IntToStr(mysql_num_rows (recbuf));
260	260		Showstring (strg);
261	261		Strg :='Number of fields per record : ' + IntToStr(mysql_num_fields(recbuf));
262	262		showstring (strg);
263	263		rowbuf := mysql_fetch_row(recbuf);
264	264		while (rowbuf <>nil) do
265	265		begin
266	266		Strg :='(Id: '+ rowbuf[0]+', Name: ' + rowbuf[1]+ ', Email : ' +
267	267		rowbuf[2] +')';
268	268		showstring (strg);
269	269		rowbuf := mysql_fetch_row(recbuf);
270	270		end;
271	271		end;
272	272		end;
273	273		end;
274	274		```
275	275
276	276		Salvate il progetto e lanciate Run -\> Run.
277	277
278	278		#### Scaricare il codice sorgente MYSQL
279	279
280	280		Un listato completo del programma è disponibile qui: [Sample Source Code](http://lazarus-ccr.sourceforge.net/kbdata/mysqldemo.tar.gz)
281	281
282	282		## Semplice Demo MySQL sull'utilizzo del componente TMySQL50Connection
283	283
284	284		Il seguente codice è una demo veloce su come operare in maniera semplice (testato su Win XP con Lighty2Go). libmysql.dll è stata copiata nelle directory del progetto e di lazarus.exe (disponibile in una directory in Lighty2Go). Non è richiesto il posizionamento sul form di altri componenti aggiuntivi oltre che di tre edit box, un memo box e alcuni button. C'è bisogno di aggiungere mysql50conn e sqldb nella clausola uses. La directory dei componenti di Lazarus deve essere rw per il programmatore. Il dbms mysql utilizzato ha come user 'root' e non è impostata nessuna password; un database test1 con una tabella tPerson contenente tre campi: personid (int), surname (varchar(40)) e dob (datetime). E' stato utilizzato phpMyAdmin (in Lighty2Go) per creare il db, la tabella, i campi e per inserire alcuni dati. Da notare che le date in phpMyAdmin devono essere inserite nel formato YYYY-MM-DD, benché il programma che stiamo creando accetti le date nei formati usuali. Il button btnTest deve essere cliccato per primo, perché crea la connessione con il dbms. Notare la linea che applica gli aggiornamenti - senza di essa i dati modificati o immessi nono verranno scritti sul db anche se risiedono in memoria e possono essere visualizzati tramite btnFirst e btnNext.
285	285
286	286		``` pascal
287	287		unit unt_db;
288	288		//Example based on:
289	289		//http://www.lazarus.freepascal.org/index.php?name=PNphpBB2&file=viewtopic&t=5761
290	290		//from tpglemur on that forum
291	291		{$mode objfpc}{$H+}
292	292		interface
293	293		uses
294	294		Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
295	295		mysql50conn, sqldb, StdCtrls;
296	296		type
297	297		{ TForm1 }
298	298		TForm1 = class(TForm)
299	299		btnTest: TButton;
300	300		btnNext: TButton;
301	301		btnFirst: TButton;
302	302		btnNew: TButton;
303	303		edtPersonID: TEdit;
304	304		edtSurname: TEdit;
305	305		edtDOB: TEdit;
306	306		Memo1: TMemo;
307	307		procedure btnFirstClick(Sender: TObject);
308	308		procedure btnNewClick(Sender: TObject);
309	309		procedure btnNextClick(Sender: TObject);
310	310		procedure btnTestClick(Sender: TObject);
311	311		private
312	312		{ private declarations }
313	313		conn : TMySQL50Connection;
314	314		query : TSQLQuery;
315	315		transaction : TSQLTransaction;
316	316		procedure Display;
317	317		public
318	318		{ public declarations }
319	319		end;
320	320		var
321	321		Form1: TForm1;
322	322		implementation
323	323		{ TForm1 }
324	324		procedure TForm1.btnTestClick(Sender: TObject);
325	325		var
326	326		S: String;
327	327		begin
328	328		conn := TMySQL50Connection.Create(nil);
329	329		query := TSQLQuery.Create(nil);
330	330		transaction := TSQLTransaction.Create(nil);
331	331		try
332	332		try
333	333		conn.HostName := '127.0.0.1';
334	334		conn.UserName := 'root';
335	335		conn.Password := '';
336	336		conn.DatabaseName := 'test1';
337	337		conn.Connected := True;
338	338		conn.Transaction := transaction;
339	339		query.DataBase := conn;
340	340		//query.ParseSQL := true; //line not needed - this is the default anyway
341	341		//query.ReadOnly := false; //line not needed - this is the default anyway
342	342		query.SQL.Text := 'select * from tperson';
343	343		query.Open;
344	344
345	345		query.Last;
346	346		S := IntToStr(query.RecordCount) + #13#10;
347	347		query.First;
348	348
349	349		while not query.EOF do
350	350		begin
351	351		S := S + query.FieldByName('surname').AsString + #13#10;
352	352		query.Next;
353	353		end;
354	354		finally
355	355		//query.Free;
356	356		//conn.Free;
357	357		end;
358	358		except
359	359		on E: Exception do
360	360		ShowMessage(E.message);
361	361		end;
362	362		Memo1.Text:= S;
363	363		end;
364	364
365	365		procedure TForm1.Display;
366	366		begin
367	367		edtPersonID.Text := query.FieldByName('personid').AsString;
368	368		edtSurname.Text := query.FieldByName('surname').AsString;
369	369		edtDOB.Text := query.FieldByName('dob').AsString;
370	370		end;
371	371
372	372		procedure TForm1.btnFirstClick(Sender: TObject);
373	373		begin
374	374		query.First;
375	375		Display;
376	376		end;
377	377
378	378		procedure TForm1.btnNewClick(Sender: TObject);
379	379		begin
380	380		query.Append;
381	381		query.FieldValues['personid'] := edtPersonID.Text;
382	382		query.FieldValues['surname'] := edtSurname.Text;
383	383		query.FieldValues['dob'] := edtDOB.Text;
384	384		query.Post;
385	385		query.ApplyUpdates; //to apply update
386	386		//transaction.Commit; //line not needed
387	387		end;
388	388
389	389		procedure TForm1.btnNextClick(Sender: TObject);
390	390		begin
391	391		query.Next;
392	392		Display;
393	393		end;
394	394
395	395		initialization
396	396		{$I unt_db.lrs}
397	397		end.
398	398		```
399	399
400	400		Questa versione utilizza i componenti TMySQL50Connection, TSQLQuery, TSQLTransaction, TDatasource e TDBGrid preventivamente posizionati sul form:
401	401
402	402		``` pascal
403	403		unit unt_mysql2;
404	404		{$mode objfpc}{$H+}
405	405		interface
406	406		uses
407	407		Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
408	408		mysql50conn, sqldb, StdCtrls, db, DBGrids, DbCtrls;
409	409		type
410	410		{ TForm1 }
411	411		TForm1 = class(TForm)
412	412		btnConnect: TButton;
413	413		btnSave: TButton;
414	414		btnNext: TButton;
415	415		btnPrior: TButton;
416	416		Datasource1: TDatasource;
417	417		DBGrid1: TDBGrid;
418	418		Memo1: TMemo;
419	419		MySQL50Connection1: TMySQL50Connection;
420	420		SQLQuery1: TSQLQuery;
421	421		SQLTransaction1: TSQLTransaction;
422	422		procedure btnConnectClick(Sender: TObject);
423	423		procedure btnNextClick(Sender: TObject);
424	424		procedure btnPriorClick(Sender: TObject);
425	425		procedure btnSaveClick(Sender: TObject);
426	426		procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
427	427		procedure FormCreate(Sender: TObject);
428	428		private
429	429		{ private declarations }
430	430		public
431	431		{ public declarations }
432	432		end;
433	433		var
434	434		Form1: TForm1;
435	435		implementation
436	436		{ TForm1 }
437	437
438	438		procedure TForm1.FormCreate(Sender: TObject);
439	439		begin
440	440		//Set properties of components:
441	441		//(could be done in the Object Inspector)
442	442		MySQL50Connection1.HostName := '127.0.0.1';
443	443		MySQL50Connection1.UserName := 'root';
444	444		MySQL50Connection1.Password := '';
445	445		MySQL50Connection1.DatabaseName := 'test1';
446	446		MySQL50Connection1.Transaction := SQLTransaction1;
447	447		//SQLQuery1.ParseSQL := true; //line not needed - this is the default
448	448		//SQLQuery1.ReadOnly := false; //line not needed - this is the default
449	449		SQLQuery1.SQL.Text := 'select * from tperson';
450	450		SQLQuery1.Transaction := SQLTransaction1;
451	451		SQLQuery1.UpdateMode := upWhereChanged;
452	452		Datasource1.Dataset := SQLQuery1;
453	453		DBGrid1.DataSource := Datasource1;;
454	454		end;
455	455
456	456		procedure TForm1.btnConnectClick(Sender: TObject);
457	457		var
458	458		S : string;
459	459		begin
460	460		try
461	461		MySQL50Connection1.Connected := true;
462	462		SQLQuery1.Open;
463	463
464	464		//Tests to see if all is OK:
465	465		SQLQuery1.Last;
466	466		S := IntToStr(SQLQuery1.RecordCount) + #13#10;
467	467		SQLQuery1.First;
468	468		while not SQLQuery1.EOF do
469	469		begin
470	470		S := S + SQLQuery1.FieldByName('surname').AsString + #13#10;
471	471		SQLQuery1.Next;
472	472		end;
473	473		except
474	474		on E: Exception do
475	475		ShowMessage(E.message);
476	476		end;
477	477		Memo1.Text:= S;
478	478		end;
479	479
480	480		procedure TForm1.btnNextClick(Sender: TObject);
481	481		begin
482	482		SQLQuery1.Next;
483	483		end;
484	484
485	485		procedure TForm1.btnPriorClick(Sender: TObject);
486	486		begin
487	487		SQLQuery1.Prior;
488	488		end;
489	489
490	490		procedure TForm1.btnSaveClick(Sender: TObject);
491	491		begin
492	492		SQLQuery1.ApplyUpdates;
493	493		end;
494	494
495	495		procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
496	496		begin
497	497		//Required or get EDatabase error on close:
498	498		MySQL50Connection1.Connected := false;
499	499		end;
500	500
501	501		initialization
502	502		{$I unt_mysql2.lrs}
503	503		end.
504	504		```
505	505
506	506		## Lazarus e PostgreSQL
507	507
508	508		Questa è una guida molto breve che spiega come connettere Lazarus 0.9.12 o successivo a un database PostgreSQL, locale o remoto, tramite l'utilizzo di TPQConnection.
509	509
510	510		Dopo avere correttamente installato il package, seguite questi passi:
511	511
512	512		- Posizionare un PQConnection dal tab SQLdb
513	513		- Posizionare un SQLQuery dal tab SQLdb
514	514		- Posizionare un SQLTransaction dal tab SQLdb
515	515		- Posizionare un DataSource dal tab DataAccess
516	516		- Posizionare un DBGrid dal tab DataControls
517	517
518	518		- In PQConnection modificare le proprietà:
519	519		- transaction con il rispettivo oggetto SQLTransaction
520	520		- Database name
521	521		- HostName
522	522		- UserName + password
523	523
524	524		- Assicurarsi che SQLTransaction sia cambiato automaticamente per puntare a PQConnection
525	525
526	526		- In SQLQuery modificare le proprietà:
527	527		- transaction con il rispettivo oggetto
528	528		- database con il rispettivo oggetto
529	529		- SQL (qualcosa del tipo 'select * from anytable')
530	530
531	531		- Nell'oggetto DataSource assegnate alla proprietà DataSet l'oggetto SQLQuery
532	532
533	533		- In DBGrid assegnate alla proprietà datasource l'oggetto DataSource
534	534
535	535		Posizionare tutti gli switch su connected e active e la DBGrid dovrebbe essere riempita a design time. TDBText e TDBEdit sembrano funzionare, ma (per me) _mostrano_ _dati_ solamente.
536	536
537	537		Per cambiare i contenuti nel database, ho chiamato direttamente il motore DB con il seguente codice:
538	538
539	539		``` pascal
540	540		try
541	541		sql:= 'UPDATE table SET setting=1';
542	542		PQDataBase.Connected:=True;
543	543		PQDataBase.ExecuteDirect('Begin Work;');
544	544		PQDataBase.ExecuteDirect(sql);
545	545		PQDataBase.ExecuteDirect('Commit Work;');
546	546		PQDataBase.Connected:=False;
547	547		except
548	548		on E : EDatabaseError do
549	549		MemoLog.Append('DB ERROR:'+sql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message);
550	550		on E : Exception do
551	551		MemoLog.Append('ERROR:'+sql+chr(13)+chr(10)+E.ClassName+chr(13)+chr(10)+E.Message);
552	552		end;
553	553		```
554	554
555	555		- Note:
556	556		- Controllato su windows, Lazarus 0.9.12 + PgSQL 8.3.1
557	557		- Alcune prove su linux, Lazarus 0.9.12 and PgSQL 8.0.x
558	558
559	559		- Installazione e errori:
560	560		- Nella verione .12 di Lazarus che ho provato, i campi del tipo "text" e "numeric" hanno dei bugs
561	561		- Ho usato senza problemi char fixed size, int e float8
562	562		- Alcune volte riavviare Lazarus risolve stupidi errori...
563	563		- Dopo alcuni errori, le transaczioni rimangono attive e devono essere disattivate a mano
564	564		- Le modifiche fatte in Lazarus ovviamente non sono visibili finché la transazione non viene passata
565	565		- Il debugger integrato sembra buggato (almeno in windows) - alcune volte far girare l'eseguibile fuori dall'ide può aiutare a scovare errori
566	566		- In linux alcuni messaggi d'errore vengono mostrati nella console -- lanciate il vostro programma da linea di comando, alcune volte ci sono ulteriori informazioni di debug molto utili
567	567		- Error: "Can not load Postgresql client. Is it installed (libpq.so) ?"
568	568		- Aggiungete il percorso per trovare libpq* dall'installazione di PostgreSQL.
569	569		- In linux aggiungete il percorso per trovare il file libpq.so alla sezione delle librerie nel vostro file /etc/fpc.cfg. Per esempio: -Fl/usr/local/pgsql/lib
570	570		- In windows, aggiungete queste librerie dove volete, in una directory indicata nella variabile d'ambiente Path o nella directory del progetto
571	571		- In windows, ho copiato tutte le dll presenti in C:\Program Files\PostgreSQL\8.1\bin in un'altra directory segnata in PATH
572	572		- Oppure aggiungete la directory postgres\bin al path
573	573
574	574		Un buon esempio sulla connessione tra Lazarus e PostgreSQL sotto Windows è [easyDB](http://http://paginas.fe.up.pt/~asousa/wiki/doku.php?id=proj:lazarus_projects).
575	575
576	576		## Lazarus e SQLite
577	577
578	578		di Luiz Américo
579	579
580	580		Visitate la [homepage di sqlite4fpc](http://www.geocities.com/camara_luiz/) per ottenere l'API reference e altre guide.
581	581
582	582		### Introduzione
583	583
584	584		TSqliteDataset e TSqlite3Dataset sono dei discendenti di TDataset che permettono l'accesso, rispettivamente, ai database sqlite 2.8.x e 3.x.x. Di seguito un elenco dei suoi principali vantaggi e svantaggi:
585	585
586	586		Vantaggi:
587	587
588	588		- Flessibilità: il programmatore può scegliere se usare o meno il linguaggio SQL, dando l'opportunità di lavorare su strutture formate da semplici tabelle o su strutture di qualsiasi complessità permesse da SQL/sqlite
589	589		- Aggiornamento automatico del database: nessun bisogno di aggiornare manualmente il database con comandi SQL; un singolo metodo si occupa di farlo
590	590		- Velocità: i dati vengono cacheati in memoria, per velocizzare la navigazione nel dataset
591	591		- Nessuna installazione/configurazione del server: una semplice dll da distribuire assieme al vostro eseguibile
592	592
593	593		Svantaggi:
594	594
595	595		- Richiede un file esterno (la libreria sqlite)
596	596
597	597		### Requisiti
598	598
599	599		- Per il database sqlite2:
600	600		- fpc 2.0.0
601	601		- Lazarus 0.9.10
602	602		- sqlite runtime library 2.8.15 o successivo (scaricabile da www.sqlite.org)
603	603
604	604		- Per il database sqlite3:
605	605		- fpc 2.0.2
606	606		- Lazarus 0.9.11 (revisione svn 8443 o seguente)
607	607		- sqlite runtime library 3.2.1 o successivo (scaricabile da www.sqlite.org)
608	608
609	609		Prima di iniziare un progetto lazarus, assicuratevi che:
610	610
611	611		- la libreria sqlite sia nel PATH di sistema o nella directory dell'eseguibile
612	612		- in Linux, indicate cmem come prima unit nella clausola uses del programma principale
613	613		- In Debian, Ubuntu e in altre distribuzioni Debian-like, per eseguire il build dell'IDE di Lazarus c'è bisogno di installare i package libsqlite-dev/libsqlite3-dev, oltre a sqlite/sqlite3 (vale anche per OpenSuSe)
614	614
615	615		### Come utilizzare SQLite (utilizzo di base)
616	616
617	617		Installate il package che trovate nella directory /components/sqlite ([[Install Packages\|qui]] le istruzioni)
618	618
619	619		A design time impostate le seguenti proprietà:
620	620
621	621		- FileName: percorso del database sqlite \[richiesto\]
622	622		- TableName: nome della table utilizzata nel comando sql \[richiesto\]
623	623		- Sql: un comando select SQL \[opzionale\]
624	624
625	625		Creare una Table (Dataset)
626	626
627	627		Doppio click sull'icona del componente o utilizzate la voce 'Create Table' dal menu popup che compare cliccando col tasto destro del mouse sull'icona del componente. Verrà visualizzato un semplice editor di table.
628	628
629	629		` Questi sono tutti i tipi di campi supportati da TSqliteDataset e TSqlite3Dataset: `\
630	630		` `\
631	631		` Integer`\
632	632		` AutoInc`\
633	633		` String`\
634	634		` Memo`\
635	635		` Bool `\
636	636		` Float`\
637	637		` Word`\
638	638		` DateTime`\
639	639		` Date`\
640	640		` Time`\
641	641		` LargeInt`\
642	642		` Currency`\
643	643		` `
644	644
645	645		Recuperare dati
646	646
647	647		Dopo aver creato la table o con una table creata in precedenza, aprite il dataset col metodo Open. Se la proprietà SQL non è stata impostata, allora verranno recuperati tutti i records da tutti i campi; stessa cosa se SQL è impostato a:
648	648
649	649		` SQL := 'Select * from TABLENAME'; `
650	650
651	651		Applicare le modifiche al datafile
652	652
653	653		Per utilizzare la funzione ApplyUpdates, il dataset deve contenere almeno un campo che risponda ai requisiti di una Primary Key (i valori devono essere UNIQUE e non NULL)
654	654
655	655		E' possibile fare questo in due modi:
656	656
657	657		- Impostando la proprietà PrimaryKey al nome del campo Primary Key
658	658		- Aggiungendo un campo AutoInc (questo metodo è più semplice, poiché TSqliteDataSet lo gestisce automaticamente come Primary Key)
659	659
660	660		Se una delle due condizioni è soddisfatta basterà chiamare
661	661
662	662		` ApplyUpdates;`
663	663
664	664		PS1: se entrambe le condizioni sono impostate, il campo corrispondente al PrimaryKey viene utilizzato per apportare le modifiche.
665	665
666	666		PS2: Impostare come PrimaryKey un campo che non lo è porterà ad una perdita di dati chiamando ApplyUpdates, quindi assicuratevi che il campo scelto contenga valori non Null e Unique prima di usarlo.
667	667
668	668		### Note
669	669
670	670		- Benché sia stato testato con 10000 records ed abbia funzionato, TSqliteDataset mantiene tutti i dati in memoria, quindi ricordatevi di recuperare solo i dati necessari (principalmente con in campi Memo).
671	671		- Lo stesso datafile (proprietà Filename) può contenere diverse table/dataset
672	672		- Diversi dataset (diverse combinazioni di field) possono essere create utilizzando la stessa table contemporaneamente
673	673		- E' possibile filtrare i dati tramite il comando SQL WHERE, chiudendo e riaprendo il dataset (o chiamando il metodo RefetchData). Ma in questo caso, l'ordine e il numero dei campi deve rimanere lo stesso
674	674		- E' anche possibile utilizzare comandi SQL complessi come aliases, joins, views in table multiple (ricordate che devono risiedere nello stesso datafile), ma in questo caso ApplyUpdates non funzionerà. Se avete bisogno di utilizzare query complesse e di applicare le modifiche al datafile, inviatemi una mail e vi invierò alcuni consigli su come farlo
675	675		- E' possibile impostare il filename ad un datafile sqlite2.x non creato con TSqliteDataset e aprirlo, ma alcuni per alcuni campi non verrà riconosciuto correttamente il tipo. Verranno trattati come campi stringa.
676	676
677	677		Alcuni esempi generici possono essere trovati nella directory CVS fpc/fcl/db/sqlite
678	678
679	679		Luiz Américo pascalive(at)bol(dot)com(dot)br
680	680
681	681		## Lazarus e MSSQL
682	682
683	683		Funziona tramite Zeoslib (ultima versione da CVS). Controllate i link in fondo alla pagina.
684	684
685	685		Alternativamente, è possibile accedere ai database MSSQL via ODBC - senza nessun bisogno di installare Zeoslib o altre librerie aggiuntive - basta utilizzare il componente SQLdb incluso (l'ho testato con Lazarus v0.9.26.2)
686	686
687	687		Il codice di esempio qui sotto seleziona le righe da una tabella chiamata 'journal_entries' e mostra tutti i valori della colonna 'journal_entry' in un controllo Memo chiamato Memo1.
688	688
689	689		``` pascal
690	690		procedure TForm1.Button1Click(Sender: TObject);
691	691		var
692	692		S: String;
693	693		conn: TODBCConnection;
694	694		query: TSQLQuery;
695	695		transaction: TSQLTransaction;
696	696
697	697		begin
698	698		conn := TODBCCOnnection.Create(nil);
699	699		query := TSQLQuery.Create(nil);
700	700		transaction := TSQLTransaction.Create(nil);
701	701		try
702	702		try
703	703		conn.HostName := '127.0.0.1';
704	704		conn.DatabaseName := 'diary'; {replace this with the name of your database}
705	705		conn.Transaction := transaction;
706	706		conn.UserName:= 'db_username';
707	707		conn.Password:= '';
708	708		query.DataBase := conn;
709	709		query.UsePrimaryKeyAsKey:=false; {required, else you get "could not retrieve primary
710	710		key metadata". I was really stuck on this until I found
711	711		http://bugs.freepascal.org/view.php?id=13241}
712	712		query.SQL.Text := 'select * from diary.dbo.journal_entries';
713	713		query.Open;
714	714		S := '';
715	715		while not query.EOF do
716	716		begin
717	717		S := S + query.FieldByName('journal_entry').AsString + #13#10;
718	718		query.Next;
719	719		end;
720	720		finally
721	721		query.Free;
722	722		conn.Free;
723	723		end;
724	724		except
725	725		on E: Exception do
726	726		ShowMessage(E.message);
727	727		end;
728	728		Memo1.Text:= S;
729	729		end;
730	730		```
731	731
732	732		## Lazarus e Interbase / Firebird
733	733
734	734		Controllate [[Install Packages]]. In questa pagina c'è un piccolo esempio iniziale con una spiegazione su come connettersi a un server IB o FB.
735	735
736	736		Funziona Zeoslib anche con l'ultima versione di Zeoslib (dal CVS).
737	737
738	738		### Libreria FBLib per Firebird
739	739
740	740		[1](http://fblib.altervista.org/%7CFBLib) è una libreria Open Source Non Data Aware per l'accesso diretto al Database Relazionale Firebird da Borland Delphi / Kylix, Freepascal e Lazarus.
741	741
742	742		Caratteristiche attualmente implementate:
743	743
744	744		- Accesso diretto a Firebird 1.0.x 1.5.x Classic o SuperServer
745	745		- Multipiattaforma \[Win32, Gnu/Linux, FreeBSD)
746	746		- Selezione automatica della libreria client 'fbclient' o 'gds32'
747	747		- Query con parametri
748	748		- Supporto del dialetto 1/3 di SQL
749	749		- Licenza LGPL
750	750		- Estrazione di metadata
751	751		- Semplice parser di script
752	752		- Solo 100-150 KB aggiunti al file EXE finale
753	753		- Supporto dei campi BLOB
754	754		- Esportazione dei dati in HTML SQL Script
755	755		- Service manager (backup, ripristino, gfix...)
756	756		- Events Alerter
757	757
758	758		Potete scaricare la documentazione dal [sito di FBLib](http://fblib.altervista.org/).
759	759
760	760		## Lazarus e dBase
761	761
762	762		Tony Maro
763	763
764	764		Potete anche visitare la pagina [[Lazarus Tdbf Tutorial\|TDbf Tutorial]]
765	765
766	766		FPC include un semplice componente per database che funziona in modo simile al componente TTable di Delphi, chiamato "TDbf" ([TDbf Website](http://tdbf.sourceforge.net/)) che supporta un sottoinsieme base di caratteristiche per la gestione di files dBase. Non viene installato di default, quindi per prima cosa dovrete installarne il package dalla directory "lazarus/components/tdbf" ed eseguire il rebuild dell'IDE di Lazarus. Comparirà quindi vicino al componente TDatasource nella palette dei componenti (tab Data Access).
767	767
768	768		Il componente TDbf ha un vantaggio rispetto ad altri componenti per database nel fatto che non richiede nessun tipo di motore database a runtime; comunque non rappresenta la migliore alternativa per applicazioni con database molto grandi.
769	769
770	770		E' molto semplice da utilizzare: basta posizionare un TDbf sul form, impostare il percorso della directory dove si trovano i files del vostro database, impostare il nome della table e collegarlo ad un componente TDatasource.
771	771
772	772		Funzionalità più avanzate richiedono uno sforzo maggiore. Se una table non esiste, avrete bisogno di crearla in qualche modo, a meno che non ci sia qualche table designer compatibile di cui non sono a conoscenza. Nota: la versione corrente di OpenOffice (2.0x) contiene OpenOffice Base, che può creare files dbf in maniera molto semplice.
773	773
774	774		Provare ad aprire una table non esistente genererà un errore. Le table possono essere create tramite il componente dopo aver impostato il runtime path e il nome della table.
775	775
776	776		Per esempio, per creare una table chiamata "dvds" per gestire la vostra collezione di dvd dovrete posizionare il componente su un form, impostare il runtime path e modificare il table name in "dvds". Il risultante file del database verrà chiamato "dvds.dbf".
777	777
778	778		Nel codice, inserite quanto segue:
779	779
780	780		``` pascal
781	781		Dbf1.FilePathFull := '/path/to/my/database';
782	782		Dbf1.TableName := 'dvds';
783	783		With Dbf1.FieldDefs do begin
784	784		Add('Name', ftString, 80, True);
785	785		Add('Description', ftMemo, 0, False);
786	786		Add('Rating', ftString, 5, False);
787	787		end;
788	788		Dbf1.CreateTable;
789	789		```
790	790
791	791		Quando farete girare il programma, la table della vostra collezione di DVD verrà creata. Dopo di ciò, tutti i componenti data aware collegati tramite il TDatasource a questo componente permetteranno di accedere facilmente ai dati.
792	792
793	793		Aggiungere un indice risulta un po' differente da come si gestisce una TTable classica. Deve essere fatto dopo che il database è stato aperto. E' anche lo stesso metodo usato per ricostruire gli indici. Per esempio:
794	794
795	795		``` pascal
796	796		Dbf1.Exclusive := True;
797	797		Dbf1.Open;
798	798		Dbf1.AddIndex('dvdsname','Name',[ixPrimary, ixUnique, ixCaseInsensitive]);
799	799		Dbf1.AddIndex('rating.ndx', 'Rating', [ixCaseInsensitive]);
800	800		Dbf1.Close;
801	801		```
802	802
803	803		Il primo (primary) indice sarà un file chiamato "dvdsname.mdx" e il secondo sarà un file chiamato "rating.ndx", quindi in un database su diverse table dovrete fare attenzione a non utilizzare lo stesso nome di file più di una volta.
804	804
805	805		Proverò ad aggiungere un esempio più articolato in seguito, ma spero che questo permetterà ai vecchi programmatori Delphi di cominciare a lavorare con i database in Lazarus!
806	806
807	807		### Ricerca e Visualizzazione di un insieme di dati
808	808
809	809		Simon Batty
810	810
811	811		In questo esempio ho provato a fare una ricerca su un database di libri per tutti i titoli di un autore e a mostrarli in una memo box
812	812
813	813		``` pascal
814	814		Dbf1.FilePathFull := '/home/somelocatio/database_location/'; // path to the database directory
815	815		Dbf1.TableName := 'books.dbase'; // database file (including extension)
816	816		DbF1.Open;
817	817		memo1.Clear; // clear the memo box
818	818
819	819		Dbf1.FilterOptions := [foCaseInsensitive];
820	820		Df1.Filter := 'AU=' + QuotedStr('anauthor'); // AU is the field name containing the authors
821	821
822	822		Dbf1.Filtered := true; // This selects the filtered set
823	823		Dbf1.First; // moves the the first filtered data
824	824		while not dbf1.EOF do // prints the titles that match the author to the memo box
825	825		begin
826	826		memo1.Append(Dbf1.FieldByName('TI').AsString); // TI is the field name for titles
827	827		dbf1.next; // use .next here NOT .findnext!
828	828		end;
829	829		Dbf1.Close;
830	830		```
831	831
832	832		Notare che è possibile utilizzare Ddf1.findfirst per ottenere il primo record nell'elenco filtrato, quindi utilizzare Dbf1.next per muoversi tra i dati. Ho scoperto che l'utilizzo di Dbf1.Findnext causa un blocco del programma.
833	833
834	834		Questo database è stato generato utilizzando TurboBD che viene distribuito con Kylix 1. Non sono riuscito a far funzionare con Lazarus le table fatte con TurboBD; in ogni caso potete scaricare un tool da linea di comando dal sito di TurboDB che permette di convertire le table di TurboDB in altri formati.
835	835
836	836		## Utilizzare TSdfDataset e TFixedDataset
837	837
838	838		TSdfDataset e TFixedDataset sono due semplici dataset che offrono un formato di memorizzazione testuale molto semplice. Questi dataset sono molto comodi per piccoli database, perché sono totalmente implementati come una unità object pascal, quindi non richiedono librerie esterne, e perché il loro formato testuale permette di modificarli facilmente con un editor di testo.
839	839
840	840		Per iniziare con questi formati, bisogna creare un file per il database iniziale. Il formato è davvero semplice, quindi si può utilizare un editor di testo per farlo.
841	841
842	842		Qui in basso è riportato un database di esempio per TSdfDataset. Notare che la prima linea ha i nomi dei campi e che si stanno utilizzando le virgole come separatori:
843	843
844	844		ID,NAMEEN,NAMEPT,HEIGHT,WIDTH,PINS,DRAWINGCODE
845	845		1,resistor,resistor,1,1,1,LINE
846	846		2,capacitor,capacitor,1,1,1,LINE
847	847		3,transistor npn,transistor npn
848	848
849	849		E di seguito c'è un esempio di database da utilizzare con TFixedDataset. Ogni record occupa una quantità di spazio fissa e, se il campo è più piccolo, si dovranno usare degli spazi per riempirlo.
850	850
851	851		Name = 15 chars; Surname = 15 chars; Tell = 10 chars; e_mail = 20 chars;
852	852		Piet Pompies piet@pompies.net
853	853
854	854		### Utilizzare i dataset direttamente
855	855
856	856		Alcune volte può risultare utile creare un dataset e lavorare su di esso completamente via codice; il codice seguente mostra esattamente come farlo. Notare alcune caratteristiche di TSdfDataset/TFixedDataset:
857	857
858	858		- Le linee nel database possono avere una dimensione massima di circa 300. Si sta cercando un modo per ovviare al problema.
859	859		- E' necessario aggiungere le definizioni dei campi. Alcuni dataset sono in grado di ricavare da soli questa informazione a partire dal file del database
860	860		- Bisogna impostare FirstLineAsSchema a true, per indicare che la prima linea include il nome del campo e le posizioni
861	861		- La proprietà Delimiter contiene il separatore per i campi. Non sarà possibile utilizzare questo carattere nelle stringhe nel database. In maniera simile, non sarà possibile avere dei caratteri di fine riga nel database perché essi segnano il passaggio da un record al successivo. E' possibile ovviare all'inconveniente sostituendo la virgola o il fine riga con un altro carattere poso usato, come ad esempio \#. Quindi, mostrando i dati sullo schermo, tutti i caratteri \# potranno essere convertiti in fine riga; al contrario, memorizzando i dati nel database, tutti i fine riga verranno convertiti in \#. La funzione ReplaceString può tornare utile in questo caso.
862	862
863	863		``` pascal
864	864		constructor TComponentsDatabase.Create;
865	865		begin
866	866		inherited Create;
867	867
868	868		FDataset := TSdfDataset.Create(nil);
869	869		FDataset.FileName := vConfigurations.ComponentsDBFile;
870	870
871	871		// Not necessary with TSdfDataset
872	872		// FDataset.TableName := STR_DB_COMPONENTS_TABLE;
873	873		// FDataset.PrimaryKey := STR_DB_COMPONENTS_ID;
874	874
875	875		// Adds field definitions
876	876		FDataset.FieldDefs.Add('ID', ftString);
877	877		FDataset.FieldDefs.Add('NAMEEN', ftString);
878	878		FDataset.FieldDefs.Add('NAMEPT', ftString);
879	879		FDataset.FieldDefs.Add('HEIGHT', ftString);
880	880		FDataset.FieldDefs.Add('WIDTH', ftString);
881	881		FDataset.FieldDefs.Add('PINS', ftString);
882	882		FDataset.FieldDefs.Add('DRAWINGCODE', ftString);
883	883
884	884		// Necessary for TSdfDataset
885	885		FDataset.Delimiter := ',';
886	886		FDataset.FirstLineAsSchema := True;
887	887
888	888		FDataset.Active := True;
889	889
890	890		// Sets the initial record
891	891		CurrentRecNo := 1;
892	892		FDataset.First;
893	893		end;
894	894		```
895	895
896	896		Quando si usa direttamente TSdfDataset, bisogna tenere presente che RecNo, benché sia implementato, non funziona come modo per muoversi attraverso il dataset sia in lettura che in scrittura dei record. Le funzioni standard di navigazione come First, Next, Prior e Last funzionano come previsto, quindi si dovranno usare quest'ultime piuttosto che RecNo. Se si è soliti utilizzare numeri di record assoluti per navigare in un database, è possibile implementare la propria versione di RecNo. E' sufficiente dichiarare una variabile globale di tipo longint chiamata CurrentRecNo che conterrà il valore corrente di RecNo. Bisogna ricordare che questa variabile seguirà la stessa convenzione di RecNo, quindi il primo record first sarà 1 (non è zero-based). Dopo l'attivazione del database bisogna inizializzarlo al primo record tramite TSdfDataset.First e impostare CurrentRecNo := 1
897	897
898	898		``` pascal
899	899		{@@
900	900		Moves to the desired record using TDataset.Next and TDataset.Prior
901	901		This avoids using TDataset.RecNo which doesn't navigate reliably in any dataset.
902	902
903	903		@param AID Indicates the record number. The first record has number 1
904	904		}
905	905		procedure TComponentsDatabase.GoToRec(AID: Integer);
906	906		begin
907	907		// We are before the desired record, move forward
908	908		if CurrentRecNo < AID then
909	909		begin
910	910		while (not FDataset.EOF) and (CurrentRecNo < AID) do
911	911		begin
912	912		FDataset.Next;
913	913		FDataset.CursorPosChanged;
914	914		Inc(CurrentRecNo);
915	915		end;
916	916		end
917	917		// We are after the desired record, move back
918	918		else if CurrentRecNo > AID then
919	919		begin
920	920		while (CurrentRecNo >= 1) and (CurrentRecNo > AID) do
921	921		begin
922	922		FDataset.Prior;
923	923		FDataset.CursorPosChanged;
924	924		Dec(CurrentRecNo);
925	925		end;
926	926		end;
927	927		end;
928	928		```
929	929
930	930		### Using with data-aware controls
931	931
932	932		## Altri Links
933	933
934	934		- [[Databases\|Creating Databases Applications with Lazarus using the DB-unit]]\
935	935		- [[MySQLDatabases\|Creating a database application using MySQL]]\
936	936		- [[Zeos tutorial\|Creating a database application using the Zeos components]]
937	937		- [Pascal Data Objects](http://pdo.sourceforge.net) is a database API that worked for both FPC and Delphi and utilises native MySQL libraries for version 4.1 and 5.0 and Firebird SQL 1.5, and 2.0. It's inspired by PHP's PDO class.
938	938
939	939		## Contributi e Modifiche
940	940
941	941		Questa pagina è stata convertita dalla [versione](http://lazarus-ccr.sourceforge.net/index.php?wiki=LazarusDatabase) di epikwiki.
942	942
943	943		---
944	944		From the Free Pascal wiki, page "Lazarus Database Tutorial/it", 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).
945	945		Category: Italiano

Back to history