Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Registro Existe (https://www.clubdelphi.com/foros/showthread.php?t=70706)

agustin173 05-11-2010 23:23:58

Registro Existe
 
hola a todos espero que esten bien

Tengo un problema con un maskedit para que me diga si existe el registro en la base da dato me explico mejor:

Estoy usando delphi 7
Una Tabla llamada = Suplidor
con 4 campos llamados = RNC, Suplidor, Telefono y Email
Tengo 2 maskedit = (RNC y Telefono)
Tengo 2 Edit = (Suplidor y Email)
Tengo un boton llamado = SuplidorGuardar

Pongo el Codigo

Código Delphi [-]
// Determina si Existe un Registro en la Base de Datos
 with temp do
  begin
    close;
    sql.Clear;
    sql.Add('select Rnc,Suplidor,Telefono,Email from Suplidor');
    sql.Add('where Rnc = '+QuotedStr(MERnc.Text));
//    sql.Add('and pais = '+QuotedStr(CBPaisBuscar.Text));
    open
  end;
   if not temp.IsEmpty then
     raise exception.Create('Registro Existe');

Lo que sucede es que cuando digito un RNC que ya existe en la base de datos no me dice que el registro existe el maskedit tiene una mascara y talvez sea por eso no se que hacer para resolver el caso

NOTA: Este codigo me funciona con los edit pero con los maskedit no, por favor ayudenme

ecfisa 06-11-2010 00:00:27

Hola Agustín.

Debería bastar con que quites el check de Save Literal Characters en el editor de máscara del TMaskEdit.


Saludos. :)

agustin173 06-11-2010 00:04:08

como estas ecfisa

no te entiendo ecfisa no se lo que es el check de save literal

si pudiera ser mas explicito, lo que pasa es que no se mucho de programacion

ecfisa 06-11-2010 00:07:39

Hola Agustin.

Estando el componente MaskEdit seleccionado y haciendo doble click en el Object Inspector sobre la propiedad EditMask, se abre el editor de máscaras. Ahí tenés la opción que te comento arriba.

Otra forma podría ser quitar la máscara antes de operar y restaurarla luego:
Código Delphi [-]
...
var
  Msk: string;
begin
   Msk:= MaskEdit1.EditMask;  // salvar mascara
   MaskEdit1.EditMask:= '';   // borrarla
   {
    Operaciones que utilicen MaskEdit1.Text 
    Ejemplo;    SQL.Add(MaskEdit1.Text);
    ...
    ...
    }
   MaskEdit1.EditMask:= Msk; // restaurarla;
end;

Saludos. :)

agustin173 06-11-2010 00:20:04

ecfisa mi hermano si me funciono muy bien muchas gracias te lo agradezco


La franja horaria es GMT +2. Ahora son las 01:57:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi