delphi
procedure TFRMpendientes.Timer1Timer(Sender: TObject); begin DMmonitorenred.ADOQPendientes.SQL.Clear; DMmonitorenred.ADOQPendientes.SQL.Add('select * from activas where alarmnum > ' + quotedstr(inttostr(buscar)) ); DMmonitorenred.ADOQPendientes.Open; if DMmonitorenred.ADOQPendientes.RecordCount > 0 then begin if DMmonitorenred.ADOQPendientesALARMNUM.AsInteger > buscar then begin DMmonitorenred.ADOQPendientes.last; contador:= DMmonitorenred.ADOQPendientesALARMNUM.value; end; if contador > DMmonitorenred.ADOQActivasALARMNUM.value then if DMmonitorenred.ADOQActivasEVENTO.AsString ='UB*' then showmessage('bypass'); DMmonitorenred.ADOQActivas.Close; DMmonitorenred.ADOQActivas.SQL.Clear; DMmonitorenred.ADOQActivas.SQL.add('select * from Activas where activas.alarmnum > ' + quotedstr(inttostr(buscar)) ); DMmonitorenred.ADOQActivas.Open; DMmonitorenred.ADOQActivas.Last; end; end;
-BUSCAR es una variable de tipo entero. A esta variable le paso el valor del
campo llave llamado alarmum en el evento ONSHOW del form y me sirve de
guia para saber si hay algun evento nuevo que haya llegado a la base de datos
del servidor.
- Tengo dos Dbgrid , uno es para los eventos nuevos que llegan y el otro tiene todo los eventos que van a ser procesados, la idea es que si el valor del campo alarmnum en el registro nuevo que llega desde el servidor es mayor que el del 1er query, este se actualice.
-Esta parte la hace casi totalmente bien, lo que pasa es que se mantiene ACTUALIZANDO el otro QUERY aunque no haya llegado ningun registro nuevo en el 1er query.
-Esto es una idea que tengo para manejar este proyecto, pero quisiera me dijeran si entienden que hay una mejor forma.
-Es simplemente darle seguimiento a los registros nuevos que llegan a el servidor, y que son guardados automaticamente en sus tablas, evaluarlos y tomar acciones dependiendo de esta evaluacion.
gracias de antemano.