Ver Mensaje Individual
  #8  
Antiguo 26-02-2016
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por anubis Ver Mensaje
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
Responder Con Cita