Empezado por nefore (Mensaje 465792)

Hola estoy aprendiendo a programar en Delphi, y me he topado con el siguiente problema:

Tengo un sistema de ABM de Base de Datos y necesito controlar el tiempo para generar un informe (semanal y mensual) sobre las diversas tablas que contiene la BD, es decir, necesito controlar que, al pasar una semana, se emita un informe en un form del delphi y permita al usuario imprimirlo.
El problema es que no tengo idea de como hacer para controlar que haya transcurrido esa semana y mucho menos el de imprimir un formulario.

Muchas gracias por su atencion

Empezado por nefore (Mensaje 465812)

Lo siento si no he sido claro, como he dicho al principio estoy aprendiendo a programar y no queria ser muy amplio en el sentido de aburrir.
En fin, para aclarar:
Tengo un ABM de Personas (codigo de persona, nombre, dni, sexo, direccion, etc.) y Medicos (ademas de los datos de personas posee también datos como nº matricula, direccion del consultorio, etc).
A todo esto, genero una inspeccion (con su respectivo codigo de inspeccion, ademas de tener asociado un codigo de persona sobre la cual realizo la inspeccion) en donde se consideran aspectos como: Si esta enfermo, si es una mujer si esta embarazada, cuando fue su ultima inspeccion, etc.

Ahora bien, teniendo en cuenta las inspecciones, yo semanalmente debo generar un informe que contenga los pacientes de dicha semana, reflejando la inspeccion correspondiente a esas personas por Ejemplo:
Tengo una tabla en donde deberia mostrar

Codigo DNI Apellido y Nombre Enfermedad Peligrosidad Tratamiento Embarazo
125 37456789 Gonzalez Jose x x


Y asi sucesivamente con todos los clientes de la semana
Asi tambien, debo brindar la posibilidad de imprimir este informe

De ahi que me surgen la preguntas: ¿Como haria para controlar una semana? y ¿Como hago para imprimir ese formulario o la tabla?
Espero haber sido claro y disculpen las molestias

Empezado por nefore (Mensaje 465816)

Creeme que lo haria con un par de DateTimePicker si pudiera, pero en realidad es un trabajo de universidad, y en el documento para la creacion del programa, me exige que semanalmente realize este informe, o sea, en el formulario debe aparecer solamente un edit conteniendo la fecha de emision (del informe) y una tabla con el resumen semanal de controles de los pacientes. Ademas de dos botones de cerrar e impimir

Empezado por tiammat (Mensaje 465830)

Independientemente de cómo llegues a configurarlo, el "preguntar" por la condición no debería ser problema. Una vez que llegues al menú o pantalla principal, corres un procedimiento o función que te avise que para ciertos registros ya se cumplió la condición de haber pasado una semana.

Empezado por ecfisa (Mensaje 465851)

Hola nefore.

Al igual que mis compañeros, pienso que lo mas simple y flexible es usar una consulta con rango de fechas .

Según veo para generar el listado habría, al menos, dos tablas involucradas: PACIENTES e INSPECCION y estas están relacionadas por el campo CODIGO.

Creo que una consulta similar a esta resolvería tu problema:

Código SQL [-]
SELECT T1.CODIGO,
       T1.DNI,
       T1.APELLIDONOMBRE,
       T2.ENFERMEDAD,
       T2.CONTAGIOSA,
       T2.TRATAMIENTO,
       T2.EMBARAZO
FROM PACIENTES T1, INSPECCION T2
WHERE T1.CODIGO = T2.CODIGO
  AND T2.FECHA_INSPECCION >= :DESDE AND T2.FECHA_INSPECCION <= :HASTA

Luego a los parámetros DESDE y HASTA le envias los rangos de fechas que desees (por semana, por mes, etc.).

Saludos :)

Empezado por nefore (Mensaje 465936)

¿Existira alguna funcion en delphi, que me devuelva los dias de la semana, de acuerdo a una determinada fecha?, o sea por ejemplo yo en una variable tengo la fecha de hoy (22/08/13), y ¿existira una funcion que me devuelva "jueves"?

Empezado por ecfisa (Mensaje 465937)

Hola nefore.

Código Delphi [-]
...
uses DateUtils;

function DayName(aDate: TDate): string;
begin
  case GetUserDefaultLangID and $03FF of
    LANG_SPANISH: Result := LongDayNames[DayOfTheWeek(aDate)+1];
    LANG_ENGLISH: Result := LongDayNames[DayOfTheWeek(aDate)];
    //...
  end;
end;

// Ejemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(DayName(StrToDate('22/08/2013')));
end;

Saludos. :)

Edito: Para la próxima, recuerda que debes crear un nuevo hilo para una nueva pregunta. ;)