Buscar por:

Filtrando dados com calendario montcalendar

Código

// Crie um Banco (aniversario) em Access ou DBE com os seguintes campos: Nome {chavePrimaria} e Data {Indice crescente}

//  lembre-se que no DBE do delphi precisa-se criar uma indexação secundaria com a DATA se não nosso exemplo não funciona.

// Crie um formulario:

// Insira 2 MontnCalendar da paleta win32

// o 1º calendar altera as seguintes propriedades: DATE = 15/08/2006 e NAMe = dti

// o 2º calendar altera as seguintes propriedades: DATE = 15/08/2006 e NAMe = dtf

// Coloque agora um botao e dê 2 clicks:

aniversario.open;

aniversario.indexfieldnames := 'Data';

aniversario.filtered := false;

aniversario.filter := 'Data >= '+ Quotedstr (datetostr (dti.Date)) + 'and Data <= ' + Quotedstr (datetostr (dtf.Date));

aniversario.filtered := true;

// Consultando com Tabela SQL

// Na paleta DBE insira uma Query e renomeia para qryaniversario {parto daqui supondo que ja sabe adcionar os campos do banco aniversario na query}

qryaniversario.close;

qryaniversario.open;

qryaniversario.indexOfName := ('Data');

qryaniversario.filtered := false;

qryaniversario.filter := 'Data >= '+ Quotedstr (datetostr (dti.Date)) + 'and Data <= ' + Quotedstr (datetostr (dtf.Date));

qryaniversario.filtered := true;

// Para Verificar o resultado adcione um Dbgrid para visualizar o resultado no banco de dados