[novato_erick]

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