Problemas em Select para DBGRID

[Ronaldo Lanhellas]

Bom gente, estou a quase 1 semana (sim isso mesmo), quebrando cabeça para solucionar um problema que é o seguinte: Estou desenvolvendo um software para uma clinica, neste sistema tem uma área chamada AGENDA DE CONSULTAS, que eu irei por as consultas agendadas pela recepcionista.

A minha estrutura de tabelas para isso está assim:

TABELA AGENDA

campos:

DATA

HORA

PACIENTEID (campo fk da tabela PACIENTE)

MEDICOID (campo fk da tabela MEDICO)

Bem, eu peço em um formulario qualquer que o usuario preencha os campos Data,Hora,Medicoid e PacienteId. Até ae tudo bem !

Depois mostro os dados da agenda todos em uma DBGRID, ae começa o problema.

Primeiro Problema: a dbgrid me mostra as colunas assim( DATA, HORA ,PACIENTEID, MEDICOID), o que eu queria que fosse feito é mudar o PACIENTEID e MEDICOID para em vez de mostrar o ID do PACIENTE e do MEDICO, mostrasse o NOME. Ou seja, na dbgrid aparecesse assim:

DATA HORA NOME DO PACIENTE NOME DO MEDICO

Segundo Problema: na dbgrid ele mostra os dados de todos os dias, coloquei um DateTimePicker para pegar uma data selecionada pelo usuário, e gostaria de usar esta data para filtrar os campos mostrados no dbgrid, por exemplo: se o usuário escolher a data 23.08.2010, a dbgrid vai filtrar os campos apenas para esta data.

Bom aguardo "apressadamente" a resposta :D, pois preciso deste software completo até Quarta-Feira e só falta alguns detalhes e este é um deles !!

[Alberto Mota]

Para a sua primeira questão adapte o select abaixo:

select TblMedicos.nomemedico, Tblpacientes.nomepaciente, TblAgenda.data, TblAgenda.hora, TblAgenda.medico, TblAgenda.paciente from

tblAgenda, TblMedicos, TblPacientes

where TblAgenda.medico = TblMedicos.IDMedico

And TblAgenda.Paciente = TblPacientes.IDPaciente

Para o segundo problema o código abaixo filtra 2 datas

data inicial e data final

procedure TFrmCR.BitBtn13Click(Sender: TObject);

var

dt_ini, dt_fin: String;

Begin

dt_ini:=DateToStr(DateTimePicker1.Date);

dt_fin:=DateToStr(DateTimePicker2.Date);

edit1.Text := dt_ini;

edit2.Text := dt_fin;

begin

case rg3T.ItemIndex of

0: //Todos

begin

if rg1.ItemIndex = 0 then //Todos Todos

Begin

GridTipo.Visible := false;

DbGridFormapgto.Visible := true;

DBGridTodosN.Visible := false;

spRecTodosG.close;

spRecTodosG.Parameters.ParamByName('@datai').Value := dt_ini;

spRecTodosG.Parameters.ParamByName('@dataf').Value := dt_fin;

spRecTodosG.open;

spRecTodosG.active := true;

statusbar1.Panels[0].Text:= ' registros encontrados. ';

somatodos;

if spRecTodosG.IsEmpty then

Begin

statusbar1.Panels[0].Text := ' Não existem registros para esse período';

exit;

end;

end;

//=================================

if rg1.ItemIndex = 1 then //Normal Todos

Begin

DBGridTodosN.Visible := true;

GridTipo.Visible := false;

DbGridFormapgto.Visible := false;

SpTodosN.close;

SpTodosN.Parameters.ParamByName('@datai').Value := dt_ini;

SpTodosN.Parameters.ParamByName('@dataf').Value := dt_fin;

SpTodosN.open;

SpTodosN.active := true;

statusbar1.Panels[0].Text:= ' registros encontrados. ';

SomaTodosN;

if SpTodosN.IsEmpty then

Begin

statusbar1.Panels[0].Text:= ' Não existem registros para esse período';

exit;

end;

end;

end;

//=======================================

1: //Por Tipo

Begin

if rg1.ItemIndex = 0 then //Tipo Todos

Begin

GridTipo.Visible := true;

DbGridFormapgto.Visible := false;

DBGridTodosN.Visible := false;

spTipoTodos.close;

spTipoTodos.Parameters.ParamByName('@datai').Value := dt_ini;

spTipoTodos.Parameters.ParamByName('@dataf').Value := dt_fin;

spTipoTodos.Parameters.ParamByName('@formapgto').Value := edit7.Text;

spTipoTodos.open;

spTipoTodos.active := true;

statusbar1.Panels[0].Text:= ' registros encontrados. ';

somatipot;

if spTipoTodos.IsEmpty then

Begin

statusbar1.Panels[0].Text:= ' Não existem registros para esse período';

exit;

end;

end;

end;

end;

end;

end;

Editado Agosto 29, 2010 por Alberto Mota

[Ronaldo Lanhellas]

ok consegui fazer a primeira parte, agora na segunda para que serve o "case rg3T.itemindex, de onde voce tirou o rg3T

Editado Agosto 29, 2010 por Ronaldo Lanhellas

[Alberto Mota]

Elimine o case rg3T.ItemIndex of

No meu caso é um grupo de opção

válido para mim apenas

Para voce não há necessidade. Podendo ficar assim:

procedure TFrmCR.BitBtn13Click(Sender: TObject);

var

dt_ini, dt_fin: String;

Begin

dt_ini:=DateToStr(DateTimePicker1.Date);

dt_fin:=DateToStr(DateTimePicker2.Date);

edit1.Text := dt_ini;

edit2.Text := dt_fin;

begin

spRecTodosG.close;

spRecTodosG.Parameters.ParamByName('@datai').Value := dt_ini;

spRecTodosG.Parameters.ParamByName('@dataf').Value := dt_fin;

spRecTodosG.open;

spRecTodosG.active := true;

statusbar1.Panels[0].Text:= ' registros encontrados. ';

somatodos;

if spRecTodosG.IsEmpty then

Begin

statusbar1.Panels[0].Text := ' Não existem registros para esse período';

exit;

end;

end;

[Ronaldo Lanhellas]

sinceramente não estou entendo seu codigo direito, o que faz o spRecTodosG ?, o somatodos, o @datai

[Alberto Mota]

spRecTodosG é 1 ADOStoredProc da Palheta Ado

Poderia ser uma query

somatodos é um procedimento que joga o total num label

Voce pode eliminar.

@datai é um parametro criado no banco de dados, no caso o sql server

Isso é um exemplo apenas. O caminho é esse.

Ficaria mais facil se dissesse qual banco de dados esta usando.

[Ronaldo Lanhellas]

resolvido o problema ! xD