Limpiar Formulario para ingresar nuevo registro en sql
 

Hola a Todos tengo lo siguiente:

Código Delphi [-]

procedure TfrmEmpleados.btnAgregarClick(Sender: TObject);
var
  exito: boolean;
begin
  trn := dmConecta.FBLINUXCONECTION.BeginTransaction;
  try
    with dmConecta.qEmpleados do
    begin
      sql.Clear;
      sql.Add('insert into EMPLEADOS (NOMBRE, NOMBRE_2, APELLIDO, APELLIDO_2, CEDULA, NACIMIENTO, ....)');
      sql.Add('values (:pNOMBRE,:pNOMBRE_2,:pAPELLIDO,:pAPELLIDO_2,:pCEDULA,:pNACIMIENTO,:pID_GENERO... )');
      parambyname('pNOMBRE').AsString := edtNombre1.Text;
      parambyname('pNOMBRE_2').AsString := edtNombre2.Text;
      parambyname('pAPELLIDO').AsString := edtApellido1.Text;
      parambyname('pAPELLIDO_2').AsString := edtapellido2.Text;
      parambyname('PCEDULA').AsString := edtCedula.Text;
      parambyname('pNACIMIENTO').AsDateTime := dtpFNacimiento.DateTime;
      parambyname('pID_GENERO').AsInteger := IdGenero;
      parambyname('pDIRECCION').AsString := mDireccion.Text;
      parambyname('pTELEFONO').AsString := edtTelefono.Text;
      parambyname('pCELULAR').AsString := edtCelular.Text;
      execsql;
      begin
        dmConecta.FBLINUXCONECTION.CommitFreeAndNil(trn);
        exito := true;
      end;
    end;
  except
    on e: exception do
    begin
      dmConecta.FBLINUXCONECTION.RollbackFreeAndNil(trn);
      showmessage('Error Encontrado' + e.message);
    end;
  end;
  if Application.MessageBox('¿Desea Agregar Otro?', 'Confirmación',
    MB_ICONQUESTION OR MB_YESNO) = ID_NO then
  begin
    dmConecta.qEmpleados.Close;
    frmPrincipal.CerrarPestana;
  end
  else
  begin
   // Aqui no se como hacer para ingresar a otro empleado
end;

Que me recomiendan?

novato_erick

No hacer nada (al menos si estoy entendiendo bién la lógica de tu ingreso).

Si decide continuar, saldrá del procedimiento btnAgregarClick, ingresará los nuevos datos, hará click en el botón agregar y así hasta que decida no agregar otro.

Código Delphi [-]
  ...
  if Application.MessageBox('¿Desea Agregar Otro?', 'Confirmación',
    MB_ICONQUESTION OR MB_YESNO) = ID_NO then
  begin
    dmConecta.qEmpleados.Close;
    frmPrincipal.CerrarPestana
  end;
  // no mas código aquí
end;

Saludos.

Habia propuesto Limpliar mis edit y variables. es lo que me imagino que puedo yo hacer hasta decidir decirle que no deseo Agregar mas.

Ejemplo:

Código Delphi [-]
 if Application.MessageBox('¿Desea Agregar Otro?', 'Confirmación',
    MB_ICONQUESTION OR MB_YESNO) = ID_NO then
  begin
    dmConecta.qEmpleados.Close;
    frmPrincipal.CerrarPestana;
  end;
  else
    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 := '';
     end;
end;

Es lo que se me ocurre.. Alguna otra idea?

Saludos

Hola novato_erick.

Si por supuesto, no usando controles data aware se sobreentiende esa acción.

¿ Sobre como realizar esa limpieza ?

Saludos.

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