cual es la mejor forma de llamar a un formulario de modificación de datos

[roman]

Empezado por novato_erick

Es lo que trato de decirles: En teoría son argumentos que exponen los autores en sus reconocidos libros que "Funcionan" sin embargo en la programación me he percatado que es a base de experiencia lo que realmente manda.

Desde luego. Pero muchos de esos autores escriben sus libros basados en su experiencia .

// Saludos

[novato_erick]

Bueno logre poner en modo de Edición mi procedimiento al llamar el formulario en modo de edición he aquí la forma en que lo deje.

Código Delphi [-]

procedure MuestraVentana(ventana: string; modo: string);

if ventana = 'Clientes' then // lo considero como mi modo 'Normal' al ejecutarlo que significa agregar registros
  begin
    if FrmCliente = nil then
    begin
      FrmCliente := TfrmCliente.create(FrmCliente);
      Try
      FrmCliente.Parent := FrmPrincipal.Panel4;
      FrmCliente.Caption := 'Clientes';
      dmacceso.cdsClientes.Active := True;
      dmacceso.cdsClientes.Insert;
      FrmCliente.Show;
      finally
      If FrmCliente.Caption <> ' ' then
      Begin
      FrmPrincipal.TabSet1.Tabs.add(FrmCliente.Caption);
      FrmPrincipal.TabSet1.TabIndex := FrmPrincipal.TabSet1.Tabs.Count - 1;
      end;
      end;
    end;

    if modo = 'Editar' then
    begin
        frmCliente.btnModificar.Visible := True;// hago que se ponga visible el botón de modificar
        frmCliente.btnGuardar.Visible := False;// aquí oculto el botón de guardar pues esta en modo de edición
        frmCliente := TfrmCliente.Create(nil);
        dmacceso.cdsClientes.Edit;
    end;

  end;

Sin embargo aun pasa algo extraño, no me muestra los datos en seguida en los dbedit al abrir el formulario para ser modificados si no le doy click en algun dbEdit. ¿Alguien tiene alguna idea de como sulucionar este problema en si?

aquí esta como llamo a mi formulario en modo de Edición en el DBGrid con el evento DblClick

Código Delphi [-]
procedure TfrmFicheroCliente.dbgClientesDblClick(Sender: TObject);
begin
 pais := dmAcceso.cdsClientesPais.text;
 MostrarRegistroYGuardar;
end;

aquí llamo el modo de edición con un TButton:

Código Delphi [-]
procedure TfrmFicheroCliente.aModificarExecute(Sender: TObject);
begin
  pais := dmAcceso.cdsClientesPais.text;
  MostrarRegistroYGuardar;
end;

procedure TfrmFicheroCliente.MostrarRegistroYGuardar;
begin
  utiles.MuestraVentana('Clientes', 'Editar');// aquí llama al modo Editar del FrmCliente
end;

[[oscarac]]

mmm me atrevo a preguntar si los dbedits estan asociados a un datasource?

[novato_erick]

Así es oscarac

Este esta en

dmAcceso.cdsClientes

DataSource properties

AutoEdit = True
DataSet = dmAcceso.cdsClientes
Enable = True
Name = dsClientes
Tag = 0

Saludos;

[roman]

Yo veo raro tu código. Aparentemente, el código de inserción de un nuevo registro se ejecuta aún cuando lo que quieras sea editar un registro existente. Es más, en tal caso creas la ventana frmCliente ¡dos veces!

Por otra parte, creo que sería mejor mostrar la ventana con ShowModal, a menos que haya alguna razón especial que no conozco.

// Saludos

[[oscarac]]

Yo tambien pienso que te estas complicando la existencia.... anteriormente te deje unos ejemplos de como lo hago yo.. quiza no seas una de las mejores formas pero me parece mucho mas sencillo que el tuyo

segun entiendo.. en un formulario de modificacion de datos puedes ejecutar 3 acciones

1.- agregar registros (append)
2.- modificar registros (edit)
3.- eliminar registros (delete)

la informacion en el form en cualquiera de los 3 casosa (con reservas en el modo insertar) es la misma y el procedimiento de aperturar el form deberia ser el mismo

segun YO cuando preguntas si el formulario = nil, es porque no tienes un control del flujo del programa....

creas un formulario y cuando lo cierras lo destruyes.. eso te evita preguntar si esta nil
del mismo modo con los botones... tienes 2 botonos 1 para crear y el otro para modificar... cuando deberias tener solo 1 que puedes cambiar el caption segun la accion y dentro del onclick manejar las "acciones" a seguir... segun hice referencia en los ejemplos que te deje anteriormente

sin animos de desanimarte ni mucho menos de hacerte cambiar de opinion (porque puede existir una buena razon del porque lo haces de esa forma), esos son mis comentarios

salvo error u omision o alguien con mas conocimientos me pueda corregir y de paso aprender mas..

saludos

[roman]

De hecho, ¿por qué frmCliente tiene un botón Modificar y uno Guardar? Yo pondría sólo el botón Guardar que sirve para lo mismo en ambos casos (inserción y edición): guardar los datos. Es más, si el formulario se muestra modalmente, dicho botón Guardar únicamente pondría la propiedad ModalResult del formulario en mrOk para que la ventana que lo abrió sepa que se aceptan los cambios y se haga el Post a la base de datos.

Por otra parte, oscarac, no me queda claro que el mismo formulario se use para borrar registros. Creo que esa operación quedaría mejor en un explorador de registros, siguiendo la terminología de Chris.

// Saludos

[[oscarac]]

Empezado por roman

Por otra parte, oscarac, no me queda claro que el mismo formulario se use para borrar registros. Creo que esa operación quedaría mejor en un explorador de registros, siguiendo la terminología de Chris.

// Saludos

OJO yo hablo de 2 formularios.. 1 donde esta el explorador de registros... osea el grid con los datos y el otro es en que se invoca cuando se ejecutan las "acciones" (agregar, modificar, eliminar).. es en este segundo formulario donde muestro los campos y cuando hablamos de eliminar simplemente desactivos los bdedits y en el boton ejecuto la "accion"

[[maeyanes]]

Hola...

Aquí metiendo mi cuchara...

oscarac, para eliminar un registro no veo el por que tengas que mostrar el formulario con sus datos si estás realizando la acción desde un explorador de registros. Basta con preguntar si se desea eliminar el registro actual (el que está seleccionado) y dependiendo de la respuesta del usuario, realizas o no la acción de eliminar.


Saludos...