Manejo de Msnpopup

[Choclito]

Muchas gracia por responder amigo forero
Pero para aclarar la duda les explico lo siguiente, cuando ejecuto el sistema me muestra una venta de validacion de acceso que dependiendo del area de registro el usuario ingresa al menu del modulo(caja,enfermeria,etc)
Mi duda es que evento de que formulario es llamar al componente pues, la enfermera tiene su propio modulo de trabajo en el cual realiza un registro que simultaneamente la cajera esta con su modulo y en el cual quiero que le aparesca el mensaje tipo messenger del registro que se hizo en el modulo de enfermeria, ya lo he visto el componente pero no me ubico en que formulario o en que evento tendria que llamar al componente.
Gracias por responder y si no se me entendio volvere a consultares, mil gracias

[rgstuamigo]

Bueno... segun entiendo..lo que tratas de hacer es una especie de mensajería entre dos host(PC) clientes, cuando uno de ellos inserte un nuevo registro en la Base de dato.
Pues básicamente la idea es que despues que se inserte el registro nuevo, la aplicacion detecte eso desde la base de dato, y eso se puede lograr por ejmplo:
1.-Usando Trigger o procedimiento almacenado en la BD que notifique a un componente identico al TIBEvents de la paleta "InterBase" de delphi;que a ocurrido una insercion nueva ;personalmente no conosco los componentes MDO que mencionas, pero verifica o averigua si tiene algo similar al TIBEvents.
2.-Otra opcion es que te crees una miniaplicacion usando Socket para comunicarte entre las diferentes PC de tu red.

Pueda que hayas otras opciones... pero creo que por ahí va la cosa...
Saludos...

[Choclito]

Muchas gracias por tu comentario y ayuda,justamente es eso lo que quisiera lograr tipo mensajeria entre pcs, te comento que los componentes MDO cuentan con el componente MDOEvent, pero la verdad no tengo idea de como utilizarlo , te pido porfavor que si tuvieras un ejemplo me puedas indicar. mil gracias por todo

[rgstuamigo]

Has un a búsqueda con palabras clave como "IBEvents" de de seguro encontrarás muchos hilos(Temas) que hablan de su uso.
Saludos...

[[AzidRain]]

Otra forma un poco mas sencilla que no te requerirá mucha programacion:

1.- Creamos una tabla que llamaremos "mensajes" y ahi defines como va a ser el mensaje (de quien para quien, fecha y hora, etc.)
2.- En los módulos donde quieras "mandar un mensaje" simplemente haces una inserción en la tabla anterior y llenas con los datos necesarios.
3.- En los módulos coloca un timer que cada x segundos vaya y con un select vea si hay mensajes sin leer en la tabla "mensajes", si es así mandas el aviso y das oportunidad de leerlo. Una vez leído, marcas el registro para que la próxima vez que se dispare el timer ya no vuelva a "avisar".

Es un método muy sencillo pero funciona bien, además de que adicionalmente puedes mantener un historial de mensajes si así lo quieres. Y como "enviar" un mensaje es una mera inserción de un registro, puedes colocar esta rutina en cualquier parte de tu sistema donde lo requieras.

[Choclito]

Muchas gracias amigo AzidRain del foro por la sugerencia, lo pruebo y luego comento como me va.
Antes indicarle que gracias a las anteriores sugerencias y ejemplos de ibevent en el foro pude hacerlo, el problema era que podia mostrar el mensaje con un showmessage, mi intencion era mostrar con un tmsnpopup el nombre del paciente registrado en el otro modulo, pero cuando colocaba el codigo de popup.showpopup no mostraba nada, lo cambie por un showmessage y funciono, el problema era que cuando queria cerrar el otro modulo me daba un error con codigo 1400 y no sabia que hacer.
Esta ultima opcion la probare y luego les comento amigos del foro, mil gracias

[rgstuamigo]

Empezado por AzidRain

...
3.- En los módulos coloca un timer que cada x segundos vaya y con un select vea si hay mensajes sin leer en la tabla "mensajes", si es así mandas el aviso y das oportunidad de leerlo. Una vez leído, marcas el registro para que la próxima vez que se dispare el timer ya no vuelva a "avisar".

Bueno es una alternativa más la que nos comentas el amigo AzidRain y no quiero menospreciarla, al intentar de dar el siguiente comentario, de ninguna manera :
Bueno algo que le veo en contra es el hecho de estar cada "x" segundo haciendo un "SELECT" al base de dato, ésto me no me parece acertado, ya que estariamos saturando la red y el servidor demasiado, y peor aun si existen muchos usuarios conectados, si bien los servidores de BD de hoy en día son muy eficientes y potentes, pero no podemos (en mi opinion) darlos el lujo de lanzar cada x segundo una consulta nada más para hacer eso, pues no me perece muy óptimo, lo ideal para mí sería que cuando se inserte o edite un registro en la BD, el servidor de BD notifique de dicho cambio a la aplicación desde donde se ha hecho la insercion o Modificacion y es exactamente lo que logra el componente "IBEvents" atraves de algun Triggers
Es solo mi opinion personal...
Nuestro amigo Choclito es quien toma la decision de la manera que lo va a hacer?
Saludos...

[Choclito]

Gracias amigos del foro comentarles lo siguiente:
aplicando mdoevent les cuento que tengo los siguientes problemas:
Antes nuevamente decirles que lo que quiero es que en enfermeria registran a un paciente y quiero que en el modulo de caja me muestre un mensaje
Con los ejemplos de manejo de ibevent lo adecue a mi aplicacion pero tengo los siguientes problemas:
1.- En principio queria que el mensaje que se muestre en el modulo de caja sea con un msnpopup pero no daba nada, el codigo es el siguiente:

Código Delphi [-]

procedure TF_Menu_Caja.EventoEventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
If EventName = 'ALTA' then
  BEGIN
popup.Text:='Paciente dado de alta'; 
 popup.ShowPopUp;
//showmessage('paciene dado de alta');
//MsgBox ('Sistema S&S','Paciente dado de alta',MB_OK + MB_ICONINFORMATION);

  END;
end;

, luego para verificar si realmente trabaja el componente probe con un showmessage y dio el mensaje, pero luego como tengo una unidad para personalizar mis mensajes(esto gracias al foro tambien) entonces lo que hice es llamar al form del mensaje para mostrar el mensaje,el problema esta es que tengo varios botones que llaman al form del mensaje , el sistema me da error de debuger exception notification "el identificador de la ventana no es valido", donde esta el error
,el codigo es este:

Código PHP:

procedure TF_Menu_Caja.EventoEventAlert(Sender: TObject;
  EventName: String; EventCount: Integer; var CancelAlerts: Boolean);
begin
If EventName = 'ALTA' then
  BEGIN

//showmessage('paciene dado de alta');
MsgBox ('Sistema S&S','Paciente dado de alta',MB_OK + MB_ICONINFORMATION);

  END;
end; 


Cual seria el error? o que soluciones le doy? Muchas gracias amigos por el aporte brindado, y sobre el anterior post lo probe sobre crear una tabla de mensajes y por ultimo creo q utilizare esa opcion, pero me gustaria explotar las ventajas de firebird, mil gracias