Ver Mensaje Individual
  #5  
Antiguo 09-09-2012
novato_erick novato_erick is offline
Miembro
 
Registrado: ago 2010
Ubicación: Panamá
Posts: 396
Reputación: 14
novato_erick Va por buen camino
Cita:
eficsa:
¿Sobre como realizar la Limpieza?
En realidad de esta manera la hago yo:

Código Delphi [-]
  if Application.MessageBox('¿Desea Agregar Otro?', 'Confirmación',
    MB_ICONQUESTION OR MB_YESNO) = ID_NO then // Aqui confirmamos si seguimos mas registros o cerramos el form
  begin
    dmConecta.qEmpleados.Close;
    frmPrincipal.CerrarPestana;
  end
  else              // si no cerramos limpiamos nuestros componentes y variables del form dejando algunos componente en su estado por defecto al abrir el form.
     begin
      edtNombre1.Text := '';
      edtNombre2.Text := '';
      edtApellido1.Text := '';
      edtapellido2.Text := '';
      edtCedula.Text := '';
      dtpFNacimiento.DateTime := Now;
      IdGenero := 0;;
      mDireccion.Text := '';
      edtTelefono.Text := '';
      edtCelular.Text := '';
      dtpFAlta.DateTime := Now;
      edtContacto.Text := '';
      edtEmail.Text := '';
      id := 0;
      edtDependientes.Text := '';
      Estado := '';
      cbxECivil.Text := 'Estado Civil';
      cbxGenero.Text := 'Género';
      cbxActivado.Checked := False;
     end;
end;

Creo que es la forma "talvez no la correcta". pero es la que se me ocurre.

Con esto puedo dejar como solucionado mi problema, agradeciendo enormemente tu ayuda eficsa y también a los chicos como Casimiro_Notevi, roman y caral....

Saludos

novato_erick
Responder Con Cita