Destacar o anivers�rio de um aluno ao abrir programa

Question

Ol�! eu estou tentando fazer um programa em que registro alunos e suas datas de anivers�rio num campo date, mas eu gostaria de que quando eu iniciasse o programa fosse destacado quem est� de anivers�r...

Slack · Answer

claro q pode veio.. eh facil .. eu nunca mexi com paradox.. uso access.. mas vc cria uma tabela.. com 2 campos.. Nome e Data.. dae na hr q inicar o programa tu faz um codigo . pra v c no registro tem algum dia q eh igual a hj.. tipo algum dia e mes.. :-)

Jorgerock · Answer

Obrigado, mas n�o ajudou muito. eu queria saber como seria esse c�digo. mas valeu pela ajuda! alguem pode me ajudar com esse c�digo?...

Macario · Answer

Ola programador, bom dia.A diversas maneiras de se fazer isso, tudo ira depender da utilidade a qual destinara as informa��es.vou lhe passar duas formas:[b:5c889efb61]1� Modo (o mais facil).[/b:5c889efb61][quote:5c889efb61][color=green:5c889efb61]Insira um componente TQuery (paleta BDE), no seu DM.Na propriedade SQL inclua o seguinte codigoSelect * from nome_da_tabelaWhere Data_nascimento = Date[/color:5c889efb61][/quote:5c889efb61]2� ModoInsira um componente TTable (paleta BDE), no seu DM.e no evento onShow do form no qual ira mostrar as informa��es inclua este codigo[quote:5c889efb61][color=green:5c889efb61]  Dm.TbClientes.First;  while not Dm.TbClientes.Eof do    begin      if Dm.TbClientes.FieldByName(�DatNiver�).AsString = date then        begin          TbTemp.Append;          TbTemp.FieldByName(�codigo�).AsInteger := Dm.TbClientes.FieldByName(�codigo�).AsInteger;          TbTemp.FieldByName(�nome�).AsString := Dm.TbClientes.FieldByName(�Nome�).AsString;          {e os demais campos.....}          TbTemp.Post;        end;      Dm.TbClientes.Next;    end;[/color:5c889efb61][/quote:5c889efb61]espero que ajudequalquer duvida estamos aqui....

Edilcimar · Answer

coloque no form principal a table de cadastro de pessoas e ou criar este form coloque a tabela filtered := true e no onfilterrecord coloque
accept := dataset[�nascimento�] = date() -> isto se o campo nascimento estiver como data
depois mostre um stringgrid ou dbgrid e l� estar�o os anivesariantes com nascimento igual a data atual

F�rum Destacar o anivers�rio de um aluno ao abrir programa #234986