Do banco de dados para o MonthCalendar

[Mauro Sergio Nascimento 0]

Boa tarde mestres,

 

Estou desenvolvendo uma aplicação e estou com a seguinte dúvida.

 

a) Tenho a seguinte tabela: (EXEMPLO)

 

CODIGO | EMBARCACAO | DATA_CADASTRO

=-=-=-=-=-=-==-=-=-===-=-=--==-=-=-=

000001 MARCO ANDRE 21/12/2008

000002 MARCO FILHO 10/12/2007

000003 AGUIA 10/12/2005

000008 AGUATERRA 10/12/2005

000010 TERRAAGUA 06/07/2008

 

 

B) Quero efetuar o filtro em meu banco de dados através do SELECT, encontrando a data de cadastro das embarcacoes e exibir em negrito no MONTHCALENDAR datas que possuiram cadastro de embarcacoes, para que ao clicar duas vezes ele me exiba em um DBGRID que vou criar as movimentações de cadastro daquele dia.

 

Alguem sabe como devo proceder?

[Discorpio 1]

Boa noite Mauro Sergio Nascimento.

 

No evento OnClick do MonthCalendar, escreva o seguinte código:

 

procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
  if IBQuery1.State in [dsBrowse] then
	 with IBQuery1 do begin
		  Close;
		  SQL.Clear;
		  SQL.Add('Select * From Tabela Where Data_Cadastro = :Data');
		  ParamByName('Data').AsDate := MonthCalendar1.Date;
		  Open;
	 end;
end;

Repare que esse filtro será feito somente quando a sua tabela estiver em modo de navegação (IBQuery1.State in [dsBrowse])

 

O IBQuery é o componente que eu presumo que voce esteja utilizando para conectar o seu Banco Firebird, banco esse que eu também presumo.

 

Um abraço

Jorge da Silva Abreu

[Mauro Sergio Nascimento 0]

Meu banco é MySQL e utilizo o componente Zeos. De qualquer forma vou tentar adaptar o codigo proposto. Agora preciso ler o banco de dados antes e negritar no MONTHCALENDAR apenas as datas que possuiram cadastro de embarcacoes.