|
ok no conosco nada bien paradox pero si te permite hacer sentencia sql esto te servira, para optener la fecha del dia del sistema es co el comando Date al cual lo puedes transformar en texto y restarle o sumarle dias, por ejemplo:
Label1.Caption := DateToStr(Date - 30);
esto lo que hace es que a la etiqueta label1 optiene la fecha del sistema suponiendo 03/07/2007 y le resta los 30 dias obteniendo 03/06/2007, obiamente le pyedes fumar tambien lo que en tu sentencia quedaria algo asi
<nombredelcomponentequery>.sql.text := 'select idcliente, nombres, apellidos, dirección, tel,fechavencimiento from Tclientes where fechavencimiento = '''+ DateToStr(Date + 30) +'''';
claro son dos tablas primero tienes que unirlas con un join, suponiendo que la union fuera con el idcliente seria asi
<nombredelcomponentequery>.sql.text := 'select idcliente, nombres, apellidos, dirección, tel,fechavencimiento from Tclientes
left join Tfechaultimopago using (idcliente)
where fechavencimiento = '''+ DateToStr(Date + 30) +'''';
espero te sirva
|