F�rum Preencher StringGrid #387510

29/09/2010

Bom dia, preciso fazer algo semelhante a esse link, por�m gostaria de exibir todos os hor�rios de 00:00 at� 23:30 (30 em 30 minutos), e caso algum hor�rio esteja preenchido exibir um campo determinado.

No exemplo do t�pico, ele exibe apenas os hor�rios preenchidos, eu gostaria de exibir todos (preenchidos e n�o preenchidos)

Alguem teria alguma id�ia de como fazer?

F�bio Cruz

Curtir t�pico

+ 0

Responder

Posts

29/09/2010

Wilson Junior

Fa�a uma consulta (SQL) dos seus hor�rios, ap�s fa�a um loop para incluir os hor�rios (com o intervalo desejado), dentro do loop, para cada intervalo, fa�a um LOCATE na sua consulta, sendo assim, voc� ir� incluir o hor�rio do intervalo e se existir o registro voc� o inclui o conte�do

Exemplo:
Hor� Conte�do
----- --------
00:00
00:30
01:00
01:30 Paciente Jo�o { Aqui o LOCATE encontrou }
02:00
02:30
03:00
03:30
04:00 Reuni�o { Aqui o LOCATE encontrou }
...

Espero ter colaborado.

Responder

Gostei + 0

29/09/2010

F�bio Cruz

ent�o para cada hor�rio teria um locate na tabela?

Algo semelhante a isso?

While not Table.Eof do
begin 
  for i = 0 to i >= table.RecordCount 
  begin
    StringGrid1.Cells[0, i] := '0:00';
    if (StringGrid1.Cells[0, i] = TableHora.asstring) then
      StringGrid1.Cells[1, i] := TableAssunto.Asstring;
  ...

Obs: Coloquei table para simplificar, mas irei utilizar ClientDataSet

Responder

Gostei + 0

29/09/2010

Eriley Barbosa

Acho que � mais ou menos isso que voc� quer baseado no t�pico que passou: procedure TForm1.FormShow(Sender: TObject);
var
i: Integer;
hora: string;
begin
hora := '23:30';
//Preenche a primeira coluna com os horarios
for i := 1 to 48 do
begin
    hora := FormatDateTime('hh:mm',
    IncMinute(StrtoDateTime(FormatDateTime('hh:mm',StrToDateTime(hora))), 30));
     GradeEspera.Cells[0, i] := hora;
end;
while not qSalaEspera.Eof do
begin
    for i := 1 to GradeEspera.RowCount - 1 do
    begin
      //Se a hora for igual a que esta na coluna lan�a na grade
      if Copy(qSalaEspera.FieldByName('HORA').AsString, 1, 5) = GradeEspera.Cells[0, i] then
      begin
        GradeEspera.Cells[1, i] := qSalaEspera.FieldByName('CLIENTE').AsString + ' (' +
                               qSalaEspera.FieldByName('ANIMAL').AsString + ') - ' +
                               qSalaEspera.FieldByName('SIGLA').AsString +
                               qSalaEspera.FieldByName('FUNCIONARIO').AsString;
        //Abandona o la�o
        Break;
      end;
    end;
    //Vai para o proximo registro
    Next;
end;
}
end;

Responder

Gostei + 0

29/09/2010

Wilson Junior

Seria algo mais ou menos assim

Const
  INTERVALO = '00:30:00';
var
  Hora: TTime;
  Linha: integer;
begin
  { Primeira linha para o t�tulo e a segunda linha em branco }
  StringGrid1.RowCount := 2;

  Linha := 1;
  Hora := StrToTime( '00:00:00' );
  while Hora <= StrToTime( '23:59:59' ) do
  begin
    StringGrid1.Cells[0, Linha] := TimeToStr( Hora );
    if  ClientDataSet.Locate( 'CampoHora', Hora, [] ) then
        StringGrid1.Cells[1, Linha] := ClientDataSet.FieldByName('CampoConteudo').AsString
    ;
    
    Hora := Hora + StrToTime( INTERVALO );
    Inc( Linha );
    StringGrid1.RowCount := Linha;
  end;
end;

Espero ter colaborado.

Responder

Gostei + 0

29/09/2010

Eriley Barbosa

S� para constar, no meu exemplo eu coloquei colcount =2 e rowcount = 49.

Responder

Gostei + 0

29/09/2010

F�bio Cruz

Vou verificar e qualquer coisa posto aqui.

Obrigado.

Responder

Gostei + 0

29/09/2010

F�bio Cruz

Muito obrigado ao Eriley e ao Wilson, ambos c�digos chegaram ao resultado.

Muito Obrigado.

Responder

Gostei + 0