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]

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 (http://wiki.clubdelphi.com/wiki/index.php/Guia_de_estilo), por otro lado lo que tienes que hacer es lo siguiente:


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
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]

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
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.