2 replies to this topic

[luk2009]

Tengo un programa que recibe datos de manera continua desde un puerto serial y estoy creando la plataforma del usuario. He puesto dos adoquery, datasource y  un adoconnection. He puesto un ttimer y en el evento ontimer

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.

[Caral]

Hola
1- la variable (buscar) tiene que estar en el timer y contener el ultimo valor, de otra forma siempre sera nuevo para ella y seguirá actualizándose.
2- yo haria un query que solo viera el dato (alarmnum) no toda la tabla y si ese dato es diferente o en este caso menor entonces si hago una seleccion total, se me ahce mas rapida la consulta.
3- si se hace un recordcoutn en el timer y se indica que sea mayor a 0, por supuesto seguira la secuencia que en este caso no deseas.
Saludos

[luk2009]

Gracias caral por tu respuesta.

Me gusta la idea del query de alarmnum solamente, porque con ello haria mas rapida la consulta. Por otro lado si necesito una secuencia, ya que podrian haber llegado varios datos entre consulta y necesito revisarlas todas.

Lo que necesito es sumar el valor del recordcount a el valor que obtengo de la variable buscar al inicio de la consulta para ir actualizando la variable.

Podrias darme un ejemplo de como ir actualizando la variable buscar al sumarle el valor de recordcount.