Delphi dicas

Filtrar uma tabela por um intervalo de datas

{Esta dica é especialmente úitil para quem quer filtrar uma tabela por um intervalo de datas. Por exemplo, você tem uma tabela com o cadastro de todos os funcionários de uma empresa, e o usuário deseja saber quais funcionários irão fazer aniversário em um determinado mês. Para isto, serve o código abaixo:}



//Obs.: EditInicio é o primeito intervalo do filtro

//Obs.: EditFim é o segundo intervalo do filtro

//O código pode ser incluído no evento OnClick de um botão, por exemplo

//Obs.: É necessário criar um índice secundário para a tabela. Neste exemplo, ele se chama ind_data. Este índice refere-se a um campo chamado "Data", que contém a data de nascimento do funcionário



//O código seria este:



Dados.TabelaFuncionarios.IndexName := 'ind_data';

Dados.TabelaFuncionarios.SetRangeStart;

DAdos.TabelaFuncionarios.FieldByName('Data').AsString := EditInicio.Text;

Dados.TabelaFuncionarios.SetRangeEnd;

Dados.TabelaFuncionarios.FieldByNAme('Data').AsString := EditFim.Text;



//Para cancelar o filtro:



Dados.TabelaFuncionarios.CancelRange;

por : Carlos Alberto