Exibir aniversáriantes no DBGrid

>
Aew galerinha, gostaria de saber se há como fazer aparecer os aniversáriantes do mês e talz no DBGrid que nem mais ou menos assim, http://www.planetadelphi.com.br/delphi/prints/00005135.jpg << veja a img...

Se alguém puder ajudar eu fico muito grato, pois nem sei por onde começar quando o assunto é aniversáriantes no DBGrid :(

Cara não entendi direito sua pergunta, seria apenas os aniversariantes no Grid???

Se sim vc PODE colocar na Query:

WHERE MONTH(DTNASC) = MONTH(GETDATE())

No caso do sql server é getdate(), se for Oracle current_date, etc...

>
Cara não entendi direito sua pergunta, seria apenas os aniversariantes no Grid???

Se sim vc PODE colocar na Query:

WHERE MONTH(DTNASC) = MONTH(GETDATE())

No caso do sql server é getdate(), se for Oracle current_date, etc...

hã se fosse na query ficaria feliz, mas infezlimente é na table1 o db é feito no paradox7... e desculpe nao esclarecer muito kkkk e tbm vou deixar um código aki mas nao sei se pode servir pois tentei mas um pouco fail....

procedure TfrmDevPOrPedido.DBGrid2DrawColumnCell(Sender: TObject;

 const Rect: TRect; DataCol: Integer; Column: TColumn;

 State: TGridDrawState);

begin

with dm do

begin

if

(tbmovpedidovalor_parc.Value <> 0) then

begin

 dbgrid2.Canvas.Brush.Color := clGreen;

 dbgrid2.Canvas.Font.Color := clBlack;

 end

 else if (tbmovpedidodt_vencimento.value > date)

 then

 begin

 dbgrid2.Canvas.Brush.Color := clyellow;

 dbgrid2.Canvas.Font.Color := clblack;

 end

 

 

 else if (tbmovpedidodt_vencimento.value < date) then

 begin

 dbgrid2.Canvas.Brush.Color := clRed;

 dbgrid2.Canvas.Font.Color := clBtnText;

 end

 else

 begin

 dbgrid2.Canvas.Brush.Color := clHighlight;

 dbgrid2.Canvas.Font.Color := clBtnText;

 

 end;

 Dbgrid2.DefaultDrawDataCell(Rect, dbgrid2.columns[datacol].field, State);

end;end;