Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Llamar a evento (https://www.clubdelphi.com/foros/showthread.php?t=60838)

Memo6015 15-10-2008 20:03:10

Llamar a evento
 
Hola amigos de clubdelphi tengo el siguiente problema, resulta que estoy creando un programa que carga una cantidad de productos en un dbgrid
la forma en que lo hago es a travez del evento OnkeyDown de un TEdit

en el TEdit ingreso el codigo y al presionar ENTER el evento OnKeyDown me llena la dbgrid que extrae los datos desde una tabla llamada productos que tengo en una base de datos con sql server 7

ok todo perfecto hasta ahi, la cosa es que tengo un boton que se llama agregar producto al hacerle click me llama a un form donde ingreso el nombre del producto y su codigo el problema es que no se como refrescar el form anterior donde el onkeydown me cargaba los datos de la tabla productos y llenaba la dbgrid

no se si me entiendan?

por ejemplo yo ingreso el codigo 105 y ese 105 me trae
botas
zapatos
zapatillas Nike
etc

con otra form agrego otro producto en esa tabla, ingreso codigo nro 105, producto zapatillas Adidas

pero cuando vuelvo al form anterior me sale solo
botas
zapatos
zapatillas Nike
no me sale zapatillas Adidas, por que no se como actualizar el form ya que este se llena con el evento onkeydown y recibe un codigo

Como puedo actualizar mi dbgrid con el nuevo producto ingresado????


espero me entiendan y me den sugerencias

gracias amigos

dec 15-10-2008 20:21:11

Hola,

Es posible "llamar" a un evento como a cualquier otro procedimiento, empero, no es una práctica recomendada. Tal vez deberías plantearte sacar del evento el código que se encarga de hacer lo que te interesa, y situarlo en un procedimiento aparte. Entonces, podrías llamar a dicho procedimiento cuando te fuera menester, bien en el evento a que haces referencia, bien desde otro lugar.

Memo6015 15-10-2008 21:37:35

hola gracias por responder
supongo que mi dbgrid se llena cuando se ejecuta este codigo

Código Delphi [-]
 Query :='SP_CONSULTA_PRODUCTOS  '
               + IntToStr(Codigo_Int);
       Q_PlatosConsultaCodigo.SQL.Clear;
       Q_PlatosConsultaCodigo.SQL.Add(Query);
       Q_PlatosConsultaCodigo.Open;

me creare un procedimiento aparte y lo llamare a ver si actualiza la dbgrid y te cuento , gracias por la recomendacion

Memo6015 15-10-2008 22:07:17

Excelente consejo dec, lo probe y funciona

muchas gracias


La franja horaria es GMT +2. Ahora son las 05:59:36.

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