Foros Club Delphi - Manejo DBnavigator

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Manejo DBnavigator (https://www.clubdelphi.com/foros/showthread.php?t=67935)

kakashi

14-05-2010 18:37:32

Manejo DBnavigator

Buenas,
soy nuevo en el club y he resuelto varias preguntas por el foro.
En esta ocasion me aqueja una duda, estoy desarrollando una aplicacion para realizar facturas relacionado con tablas, en el form utilizo un DBnavigator, Db grid, varios DBedit y algunos botones. Tengo algunos botones deshabilitados, quisiera habilitar los botones cuando de click en la opcion nbinsert en el DBnavigator y habilitar algunos campos DB edit, como lo hago.
Gracias de antemano por la colaboracion que me puedan brindar

look	14-05-2010 19:44:53

Cita:

Empezado por kakashi (Mensaje 364050)

Código Delphi [-]procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  case button of
    nbInsert  : ; // activamos o desactivamos los edits y bontones
  end;
end;

cloayza

14-05-2010 21:52:20

Yo por lo general para realizar esas acciones utilizo el evento del TDatasource, onStateChange;

Código Delphi [-]{
Los posibles valores de State son:

  TDataSetState = (dsInactive, dsBrowse, dsEdit, dsInsert, dsSetKey,
    dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead,
    dsInternalCalc, dsOpening);

}
procedure TForm1.DataSource1StateChange(Sender: TObject);
begin
       Button1.Enabled:=Datasource1.State in [dsEdit,dsInsert];
       Button2.Enabled:=(DataSource1.State=dsEdit);
       Edit1.Enabled    := (DataSource1.State = dsBrowse);
end;

Saludos...

La franja horaria es GMT +2. Ahora son las 05:16:49.