re utilizacion de Fomr

[[maeyanes]]

Otra forma puede ser, si usas DataSet's, es al momento de crear o mostrar la forma, verificar el estado del DataSet para saber que estás haciendo, por ejemplo:

Código Delphi [-]
// Ejemplo de evento OnCreateForm
procedure TEditForm.CreateForm(Sender: TObject);
begin
  case DataSource.DataSet.State of
    dsBrowse:
      // Habilitar solo el botón cerrar...
    dsEdit:
      // Habilitar los botones aceptar, cancelar
    dsInsert:
  end
end;

// Formas de llamar la forma:
// Para editar un registo
DataSet.Edit;
with TEditForm.Create(nil) do
  try
    ShowModal
  finally
    Free
  end;

// Para insertar un nuevo registro
DataSet.Insert;
with TEditForm.Create(nil) do
  try
    ShowModal
  finally
    Free
  end;

// Solo quiero mostrar los datos del registro activo
with TEditForm.Create(nil) do
  try
    ShowModal
  finally
    Free
  end;

Espero que esto junto con lo que te han comentado mensajes arriba, te sirva para darte una idea de como puedes implementar tus formas de edición de datos...



Saludos...

[[Delphius]]

Me gusta la opción de Maeyanes, por lo de los estados del dataSet... no se me ocurrió hacer algo asi. Aunque puede que hay que hacerle algunas observacines, según mi entendimiento...

Por empezar... si hacemos algo como:

Código Delphi [-]
DataSet.Edit;
with TEditForm.Create(nil) do
  try
    ShowModal
  finally
    Free
  end;

Damos por entendido que el DataSet está en algún otro lado. Por ejemplo otra form o un DataModule.
Esto puede llegar a ser contraproducente pues puede que incluso llegue a nublar la comunicación... entre la forma a la que deseamos crear y el DataModule en donde está alojado el DataSet.

Lo digo por esta cuestión:

Código Delphi [-]
DataSource.DataSet.State

¿Quien "conoce" a quien? La primera form a la segunda.. y esta segunda al DataModule?

Como dije... es como lo estoy entendiendo... Será que a mi no me gusta ver este tipo de "unión" entre la interfaz y la lógica.
Creo que deben tenerse en cuenta esto... por más simple que sea el sistema.

Si me lo puedes explicar mejor maeyanes te lo agradecería. Ya que estoy intrigado.
Saludos,

[[maeyanes]]

Bueno... solo era un ejemplo a la ligera para darle una idea de como implementarlo...

El poner el DataSet en edición, inserción, etc... podría hacerse desde cualquier lado... tal vez usando un TDBNavigator...

La forma de edición podría tener un componente TDataSource conectado al TDataSet de los datos a editar...

Así una comparación del tipo case EmpleadosDS.DataSet.State of sería válida...

Entra mucho en juego como tengan diseñadas sus formas de captura y sus módulos de datos...



Saludos...