Exibir aniversáriantes no DBGrid

[Kevin Sampaio 0]

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 :(

[Yoshi 1]

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...

[Kevin Sampaio 0]

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;