45 respuestas en este tema

[enecumene]

Pues eso amigos, tengo un formulario con varios DBEdits donde el usuario debe llenar, hay campos que son obligatorios y otros no, para evitarme hacer un código con muchos:

delphi

DBEdit1.Text := NULL;

ó

delphi

DBEdit1.Text := ' ';

Quise reducirlo de la siguiente manera:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i := 0 to 2 do begin
  if (ADOTable1.Fields[i].Value = NULL) then begin
     Showmessage('La Casilla ' +ADOTable1.Fields[i].DisplayLabel+ ' está vací­a.');
     Abort;
   end
end;
    ShowMessage('Todos están llenos');
end;

El code me funciona a medias y tiene sus fallas, luego que recorre todo no vuelve a empezar, reconoce los campos la primera vez y luego todos están llenos y no vuelve a recorrer y la otra es que aquí­ estoy obligando que todos los campos deben estar llenos, también intenté esta otra pero no me pasa del primer campo:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i := 0 to 2 do begin
  if ADOTable1.Fields[i].Required then begin
     Showmessage('La Casilla ' +ADOTable1.Fields[i].DisplayLabel+ ' está vací­a.');
     Abort;
   end
end;
    ShowMessage('Todos están llenos');
end;

¿Alguien me puede mostrar una manera mejor de hacerlo?.

Saludos.

[Caral]

Hola
No entiendo muy bien lo que pretendes pero, lo que entiendo:
Tienes muchos dbedit, enlazados a una tabla, NO todos los campos se tienen que llenar, osea algunos pueden estar vací­os.
Primero, no usarí­a adotable
Segundo, no usarí­a dbedits.
Tercero pondrí­a un campo valido, que especifique si es necesario que se rellene.
Cuarto, el recorrido en tal caso lo harí­a por componente no por Campo.
Quinto, limpiarí­a la variable al principio.
No se amigo, seguro no entiendo bien el asunto.
Saludos

[felipe]

Hola,
me pasa un tanto como a Caral, por un lado quieres limpiar los componentes DBEdit, pero por el otro estas es validando que en los campos del ADOTable no esten en blanco  ¿ ?
Ahora bien, si te funciona la primera vez y en la segunda no, pues me imagino porque en este proceso cambió el estado de la tabla; si es asi deberias plantear bien el algoritmo.

Saludos!

[egostar]

Hola

Y porque no hacer la validación de los campos que requieren algún dato (NOT NULL) desde el momento mismo de que se está "escribiendo"  en ellos.

Yo usaria un solo evento OnExit para todos los DBEdit's que quieras verificar y mostrar un mensaje de que debe ser llenado.

delphi

procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
  if (sender as TDBEdit).Text = '' then begin
     ShowMessage('Este campo no debe esta vacio');
     (Sender as TDBEdit).SetFocus;
  end;
end;

Asigno todos los DBEdit a este evento y cuando saltan de un campo les enviará el mensaje si lo han dejado vacio.

Salud OS

[Rolphy Reyes]

Saludos.

Enecumene, si tienes los JEDI instalados puedes ver el componente JvValidators que puede realizar esta tarea por ti, es muy sencillo de usar.

Suerte!

[enecumene]

Amigo Ego, más fácil de ahí­ no puede ser :$, Rolphy, tengo las JEDI y probaré ese componente a ver qué tal.

Saludos.

[Delphius]

Hola Fernando, pues me resulta extraño que te funcione una vez y otra no... quizá hay algo por allí­ afecta al dataset, tal vez lo cierras y abres, cambias el estado... habrí­a que ver.

Lo que si yo cambiarí­a es en vez de emplear Value = NULL optarí­a por el uso de IsNull y acompañado de una evaluación Required:

delphi

with ADOTable1.Fields[i] do
  begin
    if IsNull AND Required
       then ....
  end;

La Idea de Eliseo no está demás. Y una buena regla es: "Cuanto más antes se pueda realizar una validación, hacerlo".

Saludos,

[Caral]

Hola
Perdonen que me meta con mi Maistro Egostar.
La idea seria buena siempre y cuando el sistema fuera usado con los tab, o en tal caso obligar al usuario a seguir un orden, también se puede auto destruir en algunos segundos, pero ya se, es mucho.
Si el usuario se brinca o no pasa por el dbedit que tiene el código de validación, simplemente lo grabara Null sin mas.
El código de validación tiene que estar en el ultimo paso, revisando todos los dbedits, así­ si se sabrá si hay algún dbedit vací­o.
Solo digo.
Saludos

[Rolphy Reyes]

Hola
Perdonen que me meta con mi Maistro Egostar.
La idea seria buena siempre y cuando el sistema fuera usado con los tab, o en tal caso obligar al usuario a seguir un orden, también se puede auto destruir en algunos segundos, pero ya se, es mucho.
Si el usuario se brinca o no pasa por el dbedit que tiene el código de validación, simplemente lo grabara Null sin mas.
El código de validación tiene que estar en el ultimo paso, revisando todos los dbedits, así­ si se sabrá si hay algún dbedit vací­o.
Solo digo.
Saludos

Ciertamente Caral, has dado en el clavo con el asunto de las validaciones con el evento OnExit.

Yo asocio los Label's con los Edit's y les pongo una marca a esos label's que los Edit's deben de estar lleno y hago la validación al final antes de Postear.

[enecumene]

Siguiendo con este tema y siguiendo la sugerencia de Delphius, ha quedado en un procedimiento así­:

delphi

procedure TFMantenimiento.CamposVacios(Data: TDataSource);
var nIdx: Integer;
begin
for nIdx := 0 to Data.DataSet.FieldCount -1 do begin
  if (Data.DataSet.Fields[nIdx].Value = NULL) And (Data.DataSet.Fields[nIdx].Required = True) then begin
     Showmessage('La Casilla ' +Data.DataSet.Fields[nIdx].DisplayLabel+ ' está vací­a.');
     Abort;
   end
end;
    ShowMessage('Todos están llenos');
end;

Pues todo está funcionando muy bien, pero sólo tiene una pequeña falla, y es que si tengo el foco en uno de los campos requeridos aunque esté lleno aún me dice que debo llenarlo, ahora si cambio el foco pues corre bien, ¿cómo corrigo eso?.

Saludos.

[Caral]

Hola
Amigo, para aprender y tratar de entender:
Cuando llamas a este procedimiento??, en que paso? (CamposVacios).
Saludos

[enecumene]

Al momento de grabar o insertar los datos .

Saludos.

[Caral]

Hola
Perdona, sigo sin entender (que viejo mas necio ).
Creo que usas DBEdits, es asi?.
No entiendo....
Saludos

[enecumene]

Sí­, estoy usando DBEdits, fí­jate, normalmente para crear avisos de que una casilla está vací­a y obligar al usuario a llenarlo se hace esto:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   if (DBEdit1.Text = NULL) or (DBEdit1.Text = '') then
     begin
       ShowMessage('La Casilla nombre está vací­a');
       Abort;
     end;
   if (DBEdit2.Text = NULL) or (DBEdit2.Text = '') then
     begin
       ShowMessage('La Casilla apellido está vací­a');
       Abort;
     end;
 
//...Aqui grabamos los datos
end;

Imagí­nate tener 10 DBEdits en la cual sean obligatorios ser llenados por el usuario, un choclo de código ¿no?, pues con ese procedimiento me ahorro muchas lí­neas:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
 
CamposVacios(dsEmpleados);
 
//...Aqui grabamos los datos
end;

¿Cómo ves? , ¿se entiende ahora?

Saludos.

[Caral]

Hola
Esa parte la entiendo amigo.
Lo que no sabia es que presionabas un botón para confirmar, creí­ que lo hací­as por procedimiento.
Lo que no me explico es como presionando el botón tienes el foco en algún dbedit?, deberí­a estar en el botón, no?.
En tal caso, no seria fácil en el botón cambiar el foco?, para evitar el error?.
Solo trato de entender y tal vez se te ocurra algo amigo, el maestro eres tu.
Saludos

[enecumene]

No No, cuando hablo del foco no me refiero al botón sino al DBEdit, o sea, si estoy situado en un DBEdit al correr el procedimiento aunque esté lleno ese DBEdit me dice que debo llenarlo, ahora, si me sitúo en otro DBEdit entonces el procedimiento corre perfectamente.

Saludos.

[Caral]

Hola
Entiendo.
Pues esta raro el asunto, no se a que se deba.
Tal vez es una de las razones por las cuales no me gusta usar DBEdits, como están en contacto con la BD suelen traer disgustos, prefiero los edits comunes y silvestres.
Saludos

[egostar]

Hola

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for I := 0 to ComponentCount - 1 do begin
      if (Components[i] is TDBEdit) then begin
          if TDBEdit(Components[i]).Text = '' then
             showmessage(TDBEdit(Components[i]).name+' esta vacio');
      end;
  end;
end;

Salud OS

[Delphius]

Hola, debo admitir que cuando hice mi sugerencia no ha habí­a probado pero intuí­a que deberí­a funcionar.

Lo que me pregunto es ¿cómo es posible que algo del foco de un DBEdit afecte? ¡Si se ha presionado un botón es porque el foco están en él!

A lo mejor algo del manejo de los DBEdits se me escapa... es que como no los uso y prefiero las consultas SQL...

Me gustarí­a saber que más hace ese botón en el que ejecutas el método CamposVacios.

No se... hay algo que no veo

Saludos,

[Delphius]

Lo que veo es que por un lado está la validación a nivel dataset (Fields[]) y otra a nivel data-ware.... creo que allí­ está el problema: no se ha volcado el dato.

Saludos,