Consejo para una aplicación ( paradox )

[[Lepe]]

Sólo puedo darte ideas, ya te dije que MySql no es lo mío, trabajo con Firebird.

Reconozco que no es buen método el que voy a darte, precisamente por mi desconocimiento de MySql.

¿como identificar si un usuario está haciendo un login o un logout?

Código Delphi [-]
query1.sql.text:= 'select HoraEntrada, HoraSalida from horarios where  (FechaEntrada = :FechaActual) and (HoraEntrada < :HoraActual) and (id_usuario = :Id';
query1.parambyname('FechaActual').Value := Date;
query1.parambyname('HoraActual').Value := Time;
query1.parambyname('Id').Value := id del usuario actual;
query1.Open;
if query1.fieldbyname('HoraEntrada').IsNull then
// es un login, no se encuentra la fecha de entrada de hoy, todavía no se ha realizado.
else 
  // es un logout, grabar la hora actual del sistema en HoraSalida y además computar las horas trabajadas en este periodo

Hay un error que puede ser grave, aquí uso "Date" y "Time" para sacar la fecha y hora del ordenador donde está el usuario, se debería usar la fecha del servidor, MySql debe tener funciones como 'Now' para averiguar esos valores.

cuando un usuario hace el logout (salir de tu aplicación) puedes lanzar 2 consultas:
- En una sacas el total de horas trabajadas ese día (tal y como has hecho)
- Teniendo un campo numérico en la base de datos vamos a llamarle HorasTrabajadas, (en Firebird sería Numeric (10, 0)) ahora puedes guardar ese valor.

Bien, ya tienes actualizadas las horas trabajadas de ese individuo en el día actual, ahora en el informe situas un QrDBText (suponiendo que usas QuickReport) y en el evento OnPrint, añades el código delphi para traducir ese número a un texto más legible.

Código Delphi [-]
procedure QuickReport1.Qrdbtext1Print(..... var PrintText:string);
var  T, H, M, S: Integer;
       Texto:string;
Time: TTime;
begin
  T := Query1['HorasTrabajadas'];
  H := T div 3600;
  M := (T mod 3600) div 60;
  S := (T mod 3600) mod 60;
  Texto:=  format('%d Horas %d minutos %d segundos',
                      [ H, M, S]);
{esto va en el evento Onprint del qrdbtext, verás que tienes un parametro
 de texto que puedes cambiarlo, no tengo delphi a mano, así que le he llamado
 PrintText}
 PrintText := Texto;
end;

Con esto ya tienes el informe terminado.

Edito: Borro lo de la tabla horariosFijos, ya que confunde y después de pensarlo mejor, no hace falta.


Tengo que irme, espero que todo esto te sirva de algo.

Saludos