registro vacio not null..!!

[negrokau]

hola.. tengo un formulario, con los siguientes registros cod_usuario (primari key), nombre(not null) y documento_nro (not null), mi pregunta es la siguiente, al guardar quiero que me salte un showmessage "Debe completar NOMBRE", si es que no lo hizo, por que es un registro not null, uso interbase y query, muchas gracias gracias por su tiempo...

[[oscarac]]

me imagino que el formulario que estas haciendo es un mantenimiento o algo parecido

lo que puedes hacer es utiilzar el Evento OnValidate que lo encuentras en el campo ya sea de tu query o de tu tabla

en una proxima ocasion seria bueno que detallaras un poco mas, puesto que el comentario que te estoy haciendo se basa en una "suposicion" de lo que quieres hacer, entonces al tener las cosas mas claras podrias obtener mejores respuestas

saludos

[ecfisa]

Hola.

Otra opción. La clase TField y sus descendientes tienen la propiedad Required de tipo Boolean que si está en True y el valor del campo sin asignar, disparará una excepción con la advertencia que buscas si se intenta guardar.
Tenés dos maneras de asignarla: si tenés declarados los campos persistentes, desde el Field Editor y si no por código:

Código Delphi [-]
  IBDataSet1.FieldByName('TU_CAMPO').Required:= True;
  // o con IBQuery.
  IBQuery1.FieldByName('TU_CAMPO').Required:= True;

Saludos.

[negrokau]

yo estaba pensando algo asi:

Código Delphi [-]
if NOMBRE.text=' ' then
SHOWMESSAGE('debe ingresar un NOMBRE');
query.edit;
else
query.post;

corrijanme si esta mal por favor... gracias...

[[oscarac]]

pensemos un poquito

si mas o menos hace lo que tu dices, solo te funcionaria bien con 1 solo dbedit, puesto que al tener "algun" dato, confirmaria la grabacion mediante el post, si esta rutina la implementas en todos los dbedits que tengas haria post despues de cada uno de ellos (con su consiguiente error)

por eso al principio te pedi que fueras un poco mas claro...
la forma que tu mas o menos quieres seria algo asi (siempre suponiendo)

Código Delphi [-]
 
procedure TfrmNumeraciond.edtCodigoExit(Sender: TObject);
begin
  If EdtCodigo.Text = '' Then
    Begin
      SHOWMESSAGE('debe ingresar un NOMBRE');
      edtCodigo.SetFocus;
    end;
end;

[negrokau]

sabes, no me sale, me salta el mensaje, pero despues me salta el error de que no puede guardar un campo nulo... como puedo hacer que no me saltar error de guardar? gracias.....