Foros Club Delphi - Obligar ingreso de datos en varios DBEdits

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Obligar ingreso de datos en varios DBEdits (https://www.clubdelphi.com/foros/showthread.php?t=63612)

chino150

23-02-2009 05:04:51

Obligar ingreso de datos en varios DBEdits

hola a todos

Mi problema es lo siguiente necesito que en el evento onclick de un boton para guardar se verifique que los DBedit tengan datos si no muestre un mensaje a usuario que debe introducir los datos a lo contrario se guarde los datos, utilizo delphi 7 la base de datos es en access utilizo los componentes adoTable

Muchas Gracias por su ayuda.

ElKurgan

23-02-2009 07:14:45

Cita:

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to Self.ComponentCount - 1 do
    if Self.Components[i] = TDBEdit then
      if TDBEdit(Components[i]).Text = '' then
        Raise Exception.Create('Los datos no son válidos)
end;

Esto es sólo una idea, para empezar

Un saludo

Nasca

23-02-2009 10:37:39

¿Y meterlo en las propiedades de los Fields del Dataset no puede ser mejor aproximación al problema?

chino150

24-02-2009 05:49:27

Gracias por su ayuda ElKurgan

La franja horaria es GMT +2. Ahora son las 15:26:56.