Tema: ayuda con if
Ver Mensaje Individual
  #2  
Antiguo 23-11-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.572
Reputación: 27
egostar Va camino a la fama
Cita:
Empezado por trianazac Ver Mensaje
quisiera que al momentod e dar click al boton si el campo rfc no estea rellenado salga un mensaje de que esta vasio y deve ser llenado.
muchas gracias por su ayuda
Hola, bienvenido al club, te invito a que leas nuestra guía de estilo, por otro lado lo que tienes que hacer es lo siguiente:

Código Delphi [-]
if TxtRfc.text <> '' then begin
   cadSql:='INSERT INTO cliente(RFC, NOM_CLIENTE, DIRECCION, CIUDAD) values ("'+
            TxtRfc.text+'","'+TxtNombre.text+'","'+TxtDireccion.text+'","'+Txtciudad.text+'")';
   MessageDLG(cadSql,mtInformation,[mbOK],0);
   TempSQL(cadSql, false, Unit_DataModule.DataModule2.qryClientes);
end
else begin
      ShowMessage('Campo RFC debe ser capturado');
end;

Salud OS

PD. Usa las etiquetas para que tu código se vea mas claro.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita