Tareas repetitvas en tiempo de diseño

[roman]

Empezado por anubis

Me gustaria saber si hay alguna forma de evitar escribir codigo para no tener que escribir una procedure en la que, si quiero añadir registro, me ponga readonly en false en cada uno de los campos por ejemplo.

Otra procedure para volver a ponerlos en readonly en true.
Se que es una pregunta de vago, pero tengo muchos campos de diferentes tablas y es un engorro.

A mi no me queda claro qué es lo que quieres hacer. Da la impresión de que quieres poder insertar registros nuevos pero no editarlos. Si fuera en estos términos generales, bastaría con programar el evento OnBeforeEdit de cada DataSet:

Código Delphi [-]
procedure TForm1.AlgunDataSet1BeforeEdit(DataSet: TDataSet);
begin
  Abort;
end;

y con ello evitarías que los datos se editen sin tener que lidiar con cada campo o DBEdit. Incluso puedes asignar el mismo manejador de evento a los DataSet que te interesen.

Pero, si en cada caso son sólo unos campos los que deben ser ReadOnly y otros no, entonces no veo manera de hacerlo genérico y lo más cercano sería lo que te comenta Agustín (segundo método) en el que tu llenas la lista de los DBEdit que no quieresque editen.

LineComment Saludos

[anubis]

Gracias a todos por contestar.

Lo que pretendia hacer un form, digamos estandard, donde pudiera ver un registro de una tabla sin poder modificarla, o poder insertar uno nuevo, o borrarlo o modificarlo, todo eso a base de botones. Direis que lo mas facil seria usar un dbnavigator, pero queria aplicarlo con campos dbtext. Poer un boton para insertar, otro para editar por ejemplo.
Vamos son tareas repetitivas para cada registro de cada tabla de una base de datos. Cuando tienes muchas tablas y muchos campos por tabla, se hace tedioso escribir cada campo en una procedure y habilitar o no determinadas opciones por campo.

La pregunta es como lo haceis vosotros que llevais mucho tiempo en esto .

Gracias

[roman]

Empezado por anubis

Gracias a todos por contestar.

Lo que pretendia hacer un form, digamos estandard, donde pudiera ver un registro de una tabla sin poder modificarla, o poder insertar uno nuevo, o borrarlo o modificarlo, todo eso a base de botones. Direis que lo mas facil seria usar un dbnavigator, pero queria aplicarlo con campos dbtext. Poer un boton para insertar, otro para editar por ejemplo.
Vamos son tareas repetitivas para cada registro de cada tabla de una base de datos. Cuando tienes muchas tablas y muchos campos por tabla, se hace tedioso escribir cada campo en una procedure y habilitar o no determinadas opciones por campo.

La pregunta es como lo haceis vosotros que llevais mucho tiempo en esto .

Gracias

Pues insisto en el evento OnBeforeEdit. Puedes hacer que tus botones controlen una variable booleana, digamos CanEdit y modificas el evento así:

Código Delphi [-]
procedure TForm1.AlgunDataSet1BeforeEdit(DataSet: TDataSet);
begin
  if not CanEdit then
    Abort;
end;

LineComment Saludos

[anubis]

gracias por el aporte,
perdon pero soy un poco burro, se que debe ser facil entenderlo pero no lo veo claro.

[mamcx]

Lo que te dice AgustinOrtu es basicamente lo que se hace.

Lo que quieres es hacer algo con el minimo esfuerzo? Pues eso es lo que hacen los controles DataAware junto al DataSet (que tiene exactamente eso que quieres).

Si no quieres usarlo? Pues te toca hacer lo que te dice AgustinOrtu. Hay formas mas o menos elegantes de lograr esto, pero todas seran variaciones de esos dos tipos.

[anubis]

Si si, gracias, lo que digo es que no entiendo como se implementa de esa forma, con los controles dataware en lazarus, que no se por donde estan o como se usan.

[Ñuño Martínez]

Es que eso de recorrer la lista de componentes... Nunca ha terminado de gustarme lo del RTTI. Que sí, que será muy útil, pero no termino de verlo.