Lazarus Tdbf Tutorial/es: what changed

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

Old	New		Line
1	1		## Resumen
2	2
3	3		Esta tutoría trata sobre el desarrollo elemental de bases de datos usando el componente [TDbf](http://tdbf.sf.net) (de Micha Nelissen) con Lazarus. Hay disponible documentación adicional para TDbf. Esta página fue creada por Tony Maro, pero ¡se agradecen otras colaboraciones!
4	4
5	5		En Lazarus, el componente DbfLaz utiliza el código de FPC TDbf.
6	6
7	7		### Documentación
8	8
9	9		Para documentación de TDbf en PDF ir a [SourceForge](https://sourceforge.net/project/showfiles.php?group_id=34085&package_id=26371). Puede ser útil tener este pdf junto con este documento durante su lectura.
10	10
11	11		Este artículo sirve como documentación adicional para nuevas características respecto a la documentación original.
12	12
13	13		### Alternativas y problemas conocidos
14	14
15	15		Alternativas para bases de datos embedias tales como Firebird embebido (ventaja: fácilmente escalable para cliente / servidor), SQLite (ventaja: fácil implementación), o ZMSQL (usa archivos CSV; ventaja: sólo necesita código Pascal).
16	16
17	17		Problemas conocidos: El código TDbf careció de mantenedor por largo tiempo. Actualmente (marzo de 2013), tanto el proyecto upstream de Sourceforge (centrado en Delphi) como los desarrolladores de bases de datos FPC están de nuevo para arreglar errores de TDbf. Los errores corregidos en el trunk de FPC necesitarán fusionarse con la versión de SourceForge y viceversa.
18	18
19	19		Incidencias actuales: por favor ver bugs en el seguimiento de errores, especialmente <http://bugs.freepascal.org/view.php?id=22177>
20	20
21	21		#### Limitaciones
22	22
23	23		- TDBF establece la codificación de la base de datos basándose en las configuraciones del lenguaje del sistema operativo (puedes establecer el tuyo estableciendo LanguageID; ver documentación). Mover una de estas bases de datos a un computador que no soporta dicha codificación puede ocasionar que la base de datos se quede como de solo lectura. Nota: investigar cuando esto se aplica a Tablelevel 7 (Visual DBase) y 25/30 (Foxpro/Visual Foxpro)
24	24
25	25		- Ninguno de los formatos DBF utilizados soporta codicación Unicode (si UTF-8, UTF-16 o UTF-32). Podría haber una solución utilizando campos binarios, pero entonces perderiamos habilidades de reordenación, etc.
26	26
27	27		- El indexado de un fichero DBase con \[ixCaseInsensitive\] no funciona actualmente.
28	28		- No soporta todavía integridad referencial en formatos de fichero que si lo soportan (DBase VII, Visual FoxPro).
29	29		- No soporta (ahora o bien para siempre) encriptación interna de ficheros .dbf: el mecanismo de encriptación de DbaseIV es bastante debil de todos modos. Por favor utiliza uno de los métodos de encriptación que se mencionan más abajo.
30	30
31	31		FPC 2.6.x y anteriores:
32	32
33	33		- En procesadores ARM, el códigoTDBF es sabido que no funciona debido a incidencias de alineación de bus. Esto está siendo addressed en la versión de desarrollo/trunk.
34	34		- Escoger el tablelevel (25) de FoxPro generará ficheros que no se podrán leer mediante drivers Visual Foxpro. Esto se ha solucionado en la versión de desarrollo/trunk de FPC.
35	35
36	36		### No necesita instalación
37	37
38	38		El paquete DbfLaz (dbflaz.lpk) viene instalado por defecto tanto en FPC como en Lazarus. Este paquete utiliza TDbf y sus unidades asociadas en Free Pascal Free Component Library. En otras palabras, no es necesario instalar nada si tienes justamente una versión reciente de Lazarus. Está situado en la carpeta lazarus/components/tdbf/.
39	39
40	40		### ¿Qué se puede hacer con TDbf?
41	41
42	42		El componente TDbf proporciona a Lazarus (y otros entornos) acceso a tablas dBase y FoxPro. Permite la lectura, escritura y creación de tablas dBase III+, dBase IV, Visual dBase VII y FoxPro. Y sin necesitar librerías o gestores de bases de datos adicionales. Simplemente ponga el componente TDbf en su formulario y tendrá acceso inmediato a un entorno de bases de datos de para múltiples plataformas. TDbf funciona tanto en Windows como en Linux usando Lazarus.
43	43
44	44		## Cómo crear una nueva tabla
45	45
46	46		Como no hay todavía una aplicación "Database Desktop" para Lazarus, debemos crear las tablas de la base de datos mediante código, o utilizando herramientas externas.
47	47
48	48		Puedes probar esta aplicación (windows - funciona con *wine*): <http://www.dirfile.com/cdbf_explorer.htm>
49	49
50	50		### Establecer la ruta de acceso
51	51
52	52		Es recomendable crear una carpeta para sus aplicaciones de bases de datos. Esto simplifica la realización de copias de seguridad de los datos. Hay dos maneras de establecer la ruta de acceso. Puede fijar la ruta completa usando la propiedad FilePathFull, o puede establecer una ruta relativa a la ruta del programa con FilePath. Por ejemplo, estableciendo "FilePath" en tiempo de ejecución a "datos/" utilizaría una subcarpeta de datos dentro de la carpeta del archivo ejecutable. Fijar la propiedad "FilePathFull" a "/var/datos/" colocaría todo en esa carpeta, no teniendo en cuenta la ubicación del programa.
53	53
54	54		### Elegir un tipo de tabla con TableLevel
55	55
56	56		Por omisión, TDbf creará tablas dBase IV. Aunque son muy compatibles, hay características que puede desear usar que no están disponibles. Para poder utilizar campos autoincrementales, debe usar algo más nuevo. Los tipos de tabla posibles son:
57	57
58	58		Tipos de tabla
59	59
60	60		TableLevel
61	61
62	62		dBase III+
63	63
64	64		3
65	65
66	66		dBase IV
67	67
68	68		4
69	69
70	70		Visual dBase VII
71	71
72	72		7
73	73
74	74		FoxPro
75	75
76	76		25
77	77
78	78		Para elegir un tipo de tabla de el valor adecuado a la propiedad TableLevel.
79	79
80	80		### Añadir campos
81	81
82	82		La creación de campos para su nueva tabla en tiempo de ejecución se realiza como en Delphi. Una vez establecidas las propiedades FilePath, TableLevel, y TableName, hay que utilizar la propiedad FieldDefs para determinar su estructura. Por ejemplo:
83	83
84	84		``` pascal
85	85		MyDbf.FilePathFull := '/ubicacion/para/mis/datos';
86	86		MyDbf.TableLevel := 7;
87	87		MyDbf.TableName := 'clientes.dbf'; // nota: ¿es realmente necesario .dbf?
88	88		With MyDbf.FieldDefs do begin
89	89		Add('Id', ftAutoInc, 0, True);
90	90		Add('Nombre', ftString, 80, True);
91	91		End;
92	92		```
93	93
94	94		Los tipos de campo definidos son:
95	95
96	96		- ftUnknown
97	97		- ftString
98	98		- ftSmallInt
99	99		- ftInteger
100	100		- ftWord
101	101		- ftBoolean
102	102		- ftFloat
103	103		- ftCurrency (TableLevel 25)
104	104		- ftBCD (TableLevel 25)
105	105		- ftDate
106	106		- ftTime
107	107		- ftDateTime
108	108		- ftBytes (TableLevel 25)
109	109		- ftVarBytes
110	110		- ftAutoInc (TableLevel 7 or 25)
111	111		- ftBlob
112	112		- ftMemo
113	113		- ftGraphic
114	114		- ftFmtMemo
115	115		- ftParadoxOle
116	116		- ftDBaseOle
117	117		- ftTypedBinary
118	118		- ftCursor
119	119		- ftFixedChar
120	120		- ftWideString
121	121		- ftLargeInt
122	122		- ftADT
123	123		- ftArray
124	124		- ftReference
125	125		- ftDataSet
126	126		- ftOraBlob
127	127		- ftOraClob
128	128		- ftVariant
129	129		- ftInterface
130	130		- ftIDispatch
131	131		- ftGuid
132	132		- ftTimeStamp
133	133		- ftFMTBcd
134	134
135	135		Los tipos que aparecen en negrita son los soportados en la actualidad.
136	136
137	137		### ¡Siga adelante y créela!
138	138
139	139		Una vez que ha definido los campos deseará usarlos en su nueva tabla, puede seguir adelante y crearla con:
140	140
141	141		``` pascal
142	142		MyDbf.CreateTable;
143	143		```
144	144
145	145		## Añadir índices a una tabla
146	146
147	147		Si su base de datos es bastante grande, deberá definir índices para hacer búsquedas más rápidas. Para cambiar la estructura de índices de una tabla, deberemos tener acceso exclusivo a la tabla -mientras los creamos.
148	148
149	149		``` pascal
150	150		MyDbf.Exclusive := True;
151	151		MyDbf.Open;
152	152		```
153	153
154	154		Justo ahora, tenemos que añadir el índice.
155	155
156	156		``` pascal
157	157		MyDbf.AddIndex('clienteid', 'Id', [ixPrimary, ixUnique]);
158	158		MyDbf.AddIndex('nombrecliente','Nombre', [ixCaseInsensitive]);
159	159		MyDbf.Close;
160	160		```
161	161
162	162		## Lo unimos todo y ... ¡ya está!
163	163
164	164		El siguiente ejemplo crea una tabla "clientes" mediante código. Esto, por supuesto, sólo es necesario hacerlo una vez para cada tabla, y de ahí en adelante, abrir la tabla, no crearla ;-)
165	165
166	166		``` pascal
167	167		{Necesitamos que las siguientes unidades aparezcan en la clásula USES:}
168	168		uses {otras unidades, } Dbf, db, Dbf_Common;
169	169		{ "Dbf" aparecerá, automáticamente, cuando pongamos el componente TDbf en el formulario... }
170	170		{ pero necesitamos la unidad "db" para el objeto DataSet
171	171		{ y la unidad "Dbf_Common" para las definiciones de tipos de campo, por ejemplo }
172	172		var
173	173		MyDbf: TDbf;
174	174		begin
175	175		MyDbf := TDbf.Create(nil);
176	176		try
177	177
178	178		MyDbf.FilePath := 'datos/'; // usamos una ruta de acceso relativa para la carpeta "datos"
179	179		MyDbf.TableLevel := 7; // utilizaremos tablas de tipo "Visual dBase VII"
180	180		MyDbf.Exclusive := True; // imprescindible para poder modificar la estructura añadiendo campos
181	181		MyDbf.TableName := 'clientes.dbf';
182	182		With MyDbf.FieldDefs do begin
183	183		Add('Id', ftAutoInc, 0, True);
184	184		Add('Nombre', ftString, 80, True);
185	185		End;
186	186		MyDbf.CreateTable;
187	187		MyDbf.Open;
188	188		MyDbf.AddIndex('clienteid', 'Id', [ixPrimary, ixUnique]);
189	189		{ añadimos un índice secundario }
190	190		MyDbf.AddIndex('nombrecliente','Nombre', [ixCaseInsensitive]);
191	191		MyDbf.Close;
192	192		finally
193	193		MyDbf.Free;
194	194		end;
195	195		```
196	196
197	197		## Archivos índice externos
198	198
199	199		El componente TDBF también soporta índices secundarios que se almacenan en un archivo separado. Esto será útil cuándo la base de datos sea muy grande, al poder separar en varios archivos los distintos índices. Los archivos de índice secundarios se crean de forma muy parecida a los índices normales, pero con la adición de la extensión '.ndx ' en el nombre:
200	200
201	201		``` pascal
202	202		MyDbf.AddIndex('nombrecliente.ndx','Nombre', [ixCaseInsensitive]);
203	203		```
204	204
205	205		Estos índices no se gestionan de forma automática, por ello cada vez que se abre la tabla, se deberán cargar los archivos de índice que deseamos utilizar, usando el método OpenIndexFile, así:
206	206
207	207		``` pascal
208	208		MyDbf.OpenIndexFile('nombrecliente.ndx');
209	209		```
210	210
211	211		Por la misma razón los índices se empaquetan por separado, para ello utilizaremos el método CompactIndexFile, de esta forma:
212	212
213	213		``` pascal
214	214		MyDbf.CompactIndexFile('nombrecliente.ndx');
215	215		```
216	216
217	217		Y al dar el valor a la propiedad IndexName, para seleccionar el que estará activo, debemos incluir el nombre y la extensión:
218	218
219	219		``` pascal
220	220		MyDbf.IndexName := 'nombrecliente.ndx';
221	221		```
222	222
223	223		## Cómo enlazar TDbf a componentes de datos
224	224
225	225		Los ejemplos anteriores muestran como crear una nueva tabla de base de datos mediante código. Usar la tabla es aún más simple.
226	226
227	227		Los componentes de acceso a datos en Lazarus (como TDBEdit y TDbNavigator por ejemplo) se vinculan a un componente TDataSource mediante las propiedades DataSource y DataField. El componente TDataSource controla la comunicación entre el gestor de bases de datos y los componentes de acceso a datos. Un TDataSource se vincula al componente TDbf mediante su propiedad DataSet. La conexión sería así:
228	228
229		-	~~` TDbEdit------\`\~~
230		-	~~` \|`\~~
231		-	~~` TDbEdit------\|-->TDataSource-->TDbf`\~~
232		-	~~` \|`\~~
233		-	~~` TDbNavigator-/`~~
	229	+	```text
	230	+	TDbEdit------\
	231	+	\|
	232	+	TDbEdit------\|-->TDataSource-->TDbf
	233	+	\|
	234	+	TDbNavigator-/
	235	+	```
234	236
235	237		No olvides establecer las propiedades FilePath (o FilePathFulll), TableLevel, y TableName del componente TDbf a los valores adecuados antes de activarlos mediante
236	238
237	239		``` pascal
238	240		TDbf.Active := True;
239	241		```
240	242
241	243		Se podría decir mucho más sobre programación con bases de datos en Lazarus, y yo recomendaría un buen libro de programación de bases de datos con Delphi porque los conceptos fundamentales son los mismos. Constantemente hago referencia a mi ejemplar de "Liberado Delphi 2" porque los conceptos y el código básico no han cambiado mucho en 8 años.
242	244
243	245		## Empaquetar y reconstruir índices
244	246
245	247		Cuando se borra un registro, realmente no desaparece físicamente del archivo que guarda la tabla. De vez en cuando debe empaquetar la tabla para eliminar realmente los registros y así recuperar ese espacio desaprovechado del archivo. Esto hay que hacerlo teniendo la tabla abierta en modo exclusivo.
246	248
247	249		``` pascal
248	250		MyDbf.Exclusive := True;
249	251		MyDbf.Open;
250	252		MyDbf.PackTable;
251	253		// reconstruimos todos los índices
252	254		MyDbf.RegenerateIndexes;
253	255		MyDbf.Close;
254	256		MyDbf.Exclusive := False;
255	257		```
256	258
257	259		## Relaciones de tabla principal
258	260
259	261		La verdadera potencia de la programación de bases de datos comienza cuando tenemos múltiples tablas que se hacen referencia mutuamente. Mientras que TDbf aún no soporta la integridad referencial, si soporta una relación del tipo maestro/detalle entre componentes TDbf.
260	262
261	263		Cuando hay dos tablas relacionadas, por ejemplo:
262	264
263		-	~~` [``clientes``]`\~~
264		-	~~` Id <----\`\~~
265		-	~~` Nombre \|`\~~
266		-	~~` Telefono \|`\~~
267		-	~~` Direccion \|`\~~
268		-	~~` \| ClienteID en facturas hace referencia a un campo primario de clientes`\~~
269		-	~~` [``facturas``] \|`\~~
270		-	~~` Id \|`\~~
271		-	~~` Importe \|`\~~
272		-	~~` ClienteID --\---\| * Campo indexado como "idxclienteid"`~~
	265	+	```text
	266	+	[clientes]
	267	+	Id <----\
	268	+	Nombre \|
	269	+	Telefono \|
	270	+	Direccion \|
	271	+	\| ClienteID en facturas hace referencia a un campo primario de clientes
	272	+	[facturas] \|
	273	+	Id \|
	274	+	Importe \|
	275	+	ClienteID --\---\| * Campo indexado como "idxclienteid"
	276	+	```
273	277
274	278		Si desea mostrar todas las facturas para un cliente determinado, la tabla detalle (facturas) puede sincronizarse con la tabla principal (clientes) automáticamente.
275	279
276	280		En el componente TDbf de facturas seleccione lo siguiente:
277	281
278	282		``` pascal
279	283		InvDbf.IndexName := 'idxclienteid'; // campo que se emparejará con el campo ID de la tabla clientes
280	284		InvDbf.MasterSource := dsClientes; // fuente de datos que se enlaza al componente TDbf de clientes
281	285		InvDbf.MasterFields := 'Id'; // campo en la tabla clientes que emparejamos con nuestro índice
282	286		```
283	287
284	288		## Cómo filtrar las Fechas vacías
285	289
286	290		Voy a mostrar aquí como podemos filtrar las fechas en blanco con el componente de Lazarus TDbf.
287	291
288	292		Considérese que en este ejemplo, el componente se denomina datos dbf1 y la base de datos tiene un campo, DT_ENCERRA, que indica cuando el caso se completó. Imagina también que necesitas crear un informe utilizando LazReport que enumera todos los casos que siguen pendientes, con el campo DT_ENCERRA en blanco.
289	293
290	294		La forma más sencilla de hacerlo es utilizando el controlador de eventos OnFilterRecord y poner el siguiente código:
291	295
292	296		``` pascal
293	297		if not dfb1.FieldByName('DT_ENCERRA').IsNull then Accept := False;
294	298		```
295	299
296	300		Cuando ponemos el valor de Accept a False todos los registros que no cumplen con esa condición particular, no se tienen en cuenta, es decir, no se muestran en el informe.
297	301
298	302		También es necesario poner la propiedad Dbf1.Filtered a True, pero fuera de este evento.
299	303
300	304		``` pascal
301	305		dfb1.Filtered := True;
302	306		```
303	307
304	308		## Cómo filtrar un valor con TDbf
305	309
306	310		Supón que tienes una base de datos que identifica los productos con un código, por ejemplo, B019, y es necesario filtrar sólo aquellos productos que son de este código (B019, en este ejemplo) de manera que se genera un informe con LazReport. El componente se llama Dbf1. El campo que almacena el valor es "product_no"
307	311
308	312		Tenemos dos maneras de filtrar. La primera sería la de utilizar el siguiente código:
309	313
310	314		``` pascal
311	315		Dbf1.filter:= 'product_no "=" B019 "';
312	316		```
313	317
314	318		Resulta que esto funciona muy bien con varios componentes, pero no funciona con LazReport.
315	319
316	320		Para resolver el problema con LazReport puede utilizar el controlador de eventos OnFilterRecord y utilizar el siguiente código:
317	321
318	322		``` pascal
319	323		Accept:= Copy(Trim(Dbf1.FieldByName('product_no').AsString),1,4)='B019';
320	324		```
321	325
322	326		También es necesario poner la propiedad Dbf1.Filtered a True, pero fuera de este evento.
323	327
324	328		Como se dijo antes, cuando el valor de Accept es false los registros no se tienen en cuenta y de esta manera puede evitar mostrar todos los productos con ese código en el informe LazReport
325	329
326	330		## Programa de ejemplo - navegador DB
327	331
328	332		He escrito un programa sencillo que utiliza el componente TDbf para abrir y mostrar tablas de bases de datos mediante el control dbGrid. El ejecutable Linux, junto con las fuentes del proyecto, que debería compilarse bien en Windows, está disponible en
329	333
330		-	~~` `[`tony.maro.net`](http://tony.maro.net/mod.php?mod=downloads&op=showcat&id=3&level=1)~~
	334	+	```text
	335	+	tony.maro.net
	336	+	```
331	337
332	338		## See also
333	339
334	340		- [[Example: TDbf (creating table and indexes, selecting of index)]]
335	341
336	342		## A tener en cuenta
337	343
338	344		Actualmente no se soporta la integridad referencial, ni los archivos .db encriptados internamente.
339	345
340	346		- Traducido por Usuario: Mgsalvador
341	347		- Normalización de estilo y formato, y algún añadido menor, por iskraelectrica (jldc). 11 de junio de 2008.
342	348
343	349		---
344	350		From the Free Pascal wiki, page "Lazarus Tdbf Tutorial/es", 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).
345	351		Category: Castellano
346	352		Category: Español

Back to history