Validar con un DBEDit

[guillotmarc]

Hola Marcos.

Empezado por marcoszorrilla

Yo al evento OnChange le veo un problema y es que se lanza por cada caracter que escribes, me parece mejor en el evento OnExit del control.

Un Saludo.

No debería. El OnChange del TEdit sí que se dispara por cada carácter escrito, pero el OnChange del campo persistente solo debería dispararse cuando el TEDit termina la modificación y la traslada al Dataset (por ejemplo, al moverte a otro control).

Saludos.

[servicomp]

Solicito mil disculpas a todos ustedes y muy especialmente al señor caral, por el comentario que escribí sobre el foro suyo, en realidad lo que había querido decir es sobre el tutorial que esta realizando, y que se ha publicado por este medio, se que muchos de los compañeros lo están leyendo y siguiendo.

Por ultimo espero que las disculpas sean aceptadas, y continuar adelante en el aprendizaje.

[[Caral]]

Hola
Gracias por la aclaración, con eso es suficiente, no hace falta disculparse, fue un mal entendido.
En lo que pueda ayudarte y este a mi alcance, con gusto.
Saludos

[marcoszorrilla]

Tienes razón Marc, en el OnChange del campo persistente, no en el control de pantalla que lo muestra, pues este último se lanza por cada carácter tecleado o eliminado.

Un Saludo.

[StartKill]

Duda:

Escrito por: servicomp
Solicito mil disculpas a todos ustedes y muy especialmente al señor caral, por el comentario que escribí sobre el foro suyo, en realidad lo que había querido decir es sobre el tutorial que esta realizando, y que se ha publicado por este medio, se que muchos de los compañeros lo están leyendo y siguiendo.

Donde puedo encontrar el tutorial??


Your Friend

StartKill
Lima-Perú
//-------------

[ecfisa]

Empezado por StartKill

Duda:
Donde puedo encontrar el tutorial??

Your Friend

StartKill
Lima-Perú
//-------------

Hola StartKill.

Está en los primeros hilos del foro Firebird e Interbase: Tutorial (como empezar con Firebird) Novatos.

Un saludo.

[servicomp]

Cordial saludo, despues de un tiempo, he solucionado el problema y deseo compartir con ustedes como fue la solución.

Lo que se hace es capturar por medio del evento OnKeyPress del DBEdit, capturamos la tecla que se ha pulsado, si esta es el Enter (#13) o el Tab (#9), hacemos una busqueda en SQL con la palabra escrita en el DBEdit, si el Query arroja un registro en su busqueda, el registro ya existe en la base de datos, y se toma la desición ha hacer.

El codigo que usamos es el siguiente, para que lo coloquen en practica y si es de mejorarlo, adelante.

Código Delphi [-]
procedure TForm1.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then  // si pulsamos la tecla enter
  begin
    IBQ1.Close;  // cerramos la busqueda
    IBQ1.SQL.Clear;
    IBQ1.SQL.Add('SELECT CODIGO, NOMBRE, APELLIDO, CIUDAD, TELEFONO FROM USUARIO WHERE CODIGO Starting With :Nom');
    IBQ1.ParamByName('Nom').AsString:=DBEdit1.Text;
    IBQ1.Open; // Activamos la Busqueda
    if IBQ1.RecordCount > 0 then
    begin
       Application.MessageBox('El registro ya existe, se va a editar','Mensaje del sistema',0);
    end;
  end
  else begin
  end;
end;

ya lo probamos y funciona super.

El unico problema que tenemos es que no cargo la información de los otros DBEdit en la forma, creo que por la información lo tenemos en un IBQ1, y necesitamos colocarlo en moto edición y que la información se nos cargue en los demas DBEdit. Si alguien tiene una solución para este problema, agradeceria su publicación.