Datos por defecto en un DBGrid

[i_berbeu]

Pues eso, me gustaria saber como poner datos por defecto en un DBGrid. me explico:

yo pongo un DBGrid en un form y lo relaciono con una tabla.
entonces lo que quiero es que ciertos campos de la tabla, por defecto tengan un determinado valor y al crear una fila nueva en el DBGrid, me aparezca ese campo (Field) con ese valor dado

el caso es que no puedo usar DEFAULT dentro de la definicion de la tabla ya que yo tengo en realidad 2 DBGrid que hacen cada uno una consulta sobre la misma tabla y cada una da un valor por defecto a un campo en concreto.

Tambien a ver si sabeis como dar un valor especifico (ya no por defecto) a los campos de una nueva fila en un DBGrid

Gracias. espero haberme explicado

[[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).