ayuda con if

[trianazac]

en realidad soy nuevo utilizando delphi y estoy haicnedo un sistema en donde necesito que al momento de dar de alta a un cliente el campo rfc sea llenado forsosamente tengo entendido que con un if funcionaria , el problema es que no se en que parte meterle el codigo del if por el momento esto es lo que tengo apra dar de alta al cliente:

procedure TFrm_CLIENTES.BtnAltaClick(Sender: TObject);
var
cadSql: string;
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;

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

[[egostar]]

Empezado por trianazac

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.

[jhonny]

Otra cosa que debes hacer es colocar el campo RFC de tu base de datos a Not Null .

[trianazac]

bueno con respecto al problema que tenia ya vi como puede hacer que te mande un mensage cuando no has llenado un campo y fue de la siguiente forma

Código PHP:

 if txtclave.text = '' then
        begin
        Application.MessageBox('EL CAMPO CLAVE NECESITA SER LLENADO','Informacion',Mb_Ok+Mb_iconInformation)
        end
        else
         cadSql:='INSERT INTO PROVEEDOR (clave_proveedor, nom_proveedor, direccion, telefono) values ("'+Txtclave.text+'","'+txtnombre.text+'","'+Txtdireccion.text+'","'+Txttelefono.text+'")';
         MessageDLG(cadSql,mtInformation,[mbOK],0);
         TempSQL(cadSql, false, Unit_DataModule.DataModule2.QryPROVEEDOR); 


aunque en el ejemplo anterior que puse era para un cliente, es basicamente lo mismo de antemano muchas gracias pr al ayuda y aqui dejo esta aportacion por si le sirve a alguien mas.

[jhonny]

Empezado por trianazac

bueno con respecto al problema que tenia ya vi como puede hacer que te mande un mensage cuando no has llenado un campo y fue de la siguiente forma

Código PHP:

 if txtclave.text = '' then
        begin
        Application.MessageBox('EL CAMPO CLAVE NECESITA SER LLENADO','Informacion',Mb_Ok+Mb_iconInformation)
        end
        else
         cadSql:='INSERT INTO PROVEEDOR (clave_proveedor, nom_proveedor, direccion, telefono) values ("'+Txtclave.text+'","'+txtnombre.text+'","'+Txtdireccion.text+'","'+Txttelefono.text+'")';
         MessageDLG(cadSql,mtInformation,[mbOK],0);
         TempSQL(cadSql, false, Unit_DataModule.DataModule2.QryPROVEEDOR); 


aunque en el ejemplo anterior que puse era para un cliente, es basicamente lo mismo de antemano muchas gracias pr al ayuda y aqui dejo esta aportacion por si le sirve a alguien mas.

Es lo mismo que te habia sugerido egostar.