Datos por defecto en un DBGrid

[[Lepe]]

Utiliza 2 TTables, una para cada Grid.

Doble clic a la tabla, añades todos los campos y ahora configuras desde delphi, y para cada tabla, el valor que quieres por defecto.

Para la segunda pregunta, usa el evento OnNewRecord de cada tabla, y ahí le das a los campos el valor que desees (por código).

saludos

[i_berbeu]

lo que pasa es que yo uso Querys en vez de tablas. es decir

tengo una tabla con un campo tipo. y dos DBGrid en los que quiero mostrar:

en el DBGrid1, los registros de la tabla que tienen el campo Tipo=1, para lo que uso un Query (select * from Tabla where Tipo=1)

y en el DBGrid2, los registros de la misma tabla con Tipo=2 para lo que uso otro Query (select * from Tabla where Tipo=2)

no se si asi vale lo que me has dicho porque uso Querys y no tablas.
a ver si puedes confirmarme esto.

Gracias

[[Lepe]]

Dependerá del motor de bases de datos que uses, si son RequestLive, etc.

Lo dicho para el TTable, tambien sirve para el TQuery, haz la prueba.

saludos

[i_berbeu]

uso paradox7 y requestlive

pero... como se ponen los valores por defecto con delphi??

[[Lepe]]

Para que funcione, solo puedes usar en tu query un select de una sola tabla, y en el Evento OnNewRecord de ese query, le das los valores que quieras a los campos.

query1.Fieldbyname('Tipo').AsInteger := 1;

saludos (que conste que no lo he probado).

[i_berbeu]

todavia no lo he probado pero me da toda la pinta de que es asi, estoy seguro

es que yo probaba con
Query1.Fieldbyname('Tipo').value=1

pero no me iba, el .value no me daba problemas pero luego el =1 parece que si. yo usaba el .asinteger para sacarlo pero no lo habia pensado para cambiar el valor

voy a probarlo y te cuento.
Muchas Gracias

[[Lepe]]

En principio no tiene por qué haber problemas. Value es de tipo Variant, por tanto, se puede leer y escribir directamente en él sin conocer el tipo del campo, (otra cosa es que se le de un valor incorrecto como por ejemplo 'a')

AsInteger, se le está diciendo el tipo de dato, es más concreto y eficiente ya que no usa conversiones Variants innecesarias.

De ambas formas debería funcionar.

Es mas si das doble clic a tu query y con el boton derecho añades tus campos (añades los campos de forma persistente). Ya puedes usar otra expresión más para acceder a los campos y sería:

Query1Tipo.AsInteger := 1;

(notese que entre "Query1" y "Tipo" no hay ningun punto), de esta forma estamos accediendo directamente al campo sin buscarlo en el Query.


saludos