Grafico de Gantt

[ClaudiaCosta]

Ramon
Gracias pela tua resposta.
Estou a usar fechas tipo Tdatatime. ?Como passar a Encodedate?

[[marceloalegre]]

Calculo que de lo que habla roman, es de los graficos de uso de cpu y memoria que normalmente se dictan en la materia de sistemas operativos o afin de cualquier carrera de informatica.

[roman]

Shhhh, kanvictor, que todos se van a enterar que nunca llevé esa materia

// Saludos

[ClaudiaCosta]

decidía ya el problema de la fecha
Necesario que me ayudan en el siguiente:
Como puedo hacer un gráfico de GANTT sin tener eso para hacer cada barra de cada tiempo. Necesario para hacer con eso una base de datos hace las barras diversas
Gracias

[Enan0]

los graficos de gantt tambien son utilizados para estadistca. y muchas otras cosas, no son mas que barras horizontales (a veces desfazadas del origen).

Empezado por ClaudiaCosta

Como puedo hacer un gráfico de GANTT sin tener eso para hacer cada barra de cada tiempo. Necesario para hacer con eso una base de datos hace las barras diversas
Gracias

Perdon podrias ser un poco mas clara, porque la verdad no te llego a comprender completamente.

he utilizado varias veces el Tchart y capaz que puedo darte una mano.
saludos

[ClaudiaCosta]

Preciso de hacer um gráfico de GANTT con dados inseridos numa base de datos

[ClaudiaCosta]

Enano,

Necessito hacer um grafico de gantt com datos que estão guardados em ACCESS.

O meu codigo é:

Código Delphi [-]
procedure TfmMapaObra.Button4Click(Sender: TObject);

var
  tarefa    : string;
  Data      : TDateTime;
  dura      : integer;
  numobra   : integer;
  numtarefa : integer;
  altura    : integer;

begin

  altura := 10;
  numobra := dblccodobra.KeyValue;

  GraficoObra.Series[0].Clear;

  with DMEst do
    begin
     try
      quMapaObraDepTarefa.SQL.Clear;
      quMapaObraDepTarefa.SQL.Add('SELECT * FROM MapaObraDepTarefa WHERE CodObra='+inttostr(numobra));
      quMapaObraDepTarefa.Open;
      quObra.Open;

      data := quObra.FieldByName('datainicio').AsDateTime;

      while not quMapaObraDepTarefa.Eof do
       begin
        dura      := quMapaObraDepTarefa.FieldByName('Duracao').AsInteger;
        tarefa    := quMapaObraDepTarefa.FieldByName('Nome').AsString;
        numtarefa := quMapaObraDepTarefa.FieldByName('DepTarefa').AsInteger;

        if (numtarefa=0) then
         begin
           series2.AddGantt(data,
                           (data+dura),
                            altura,
                            tarefa);
         end
        else
           begin
             series2.AddGantt(data + 30,
                             ((data+30)+dura),
                             altura,
                             tarefa);
             end;

        altura := altura -1;

        quMapaObraDepTarefa.ExecSQL;
        quMapaObraDepTarefa.Next;
      end;
     except
       showmessage('Erro no Mapa');
     end;

      quMapaObraDepTarefa.Close;
      quObra.Close;
      quMapaObraDepTarefa.SQL.Clear;
      quMapaObraDepTarefa.SQL.Add('SELECT * from MapaObraDepTarefa');
      quMapaObraDepTarefa.Open;

    end;
end;

Mas não consigo atribuir ao valor data(que voces chamam fecha) o valor da data de outra barra.
Por Exemplo: a barra 1 começa a 2-08-2006 e acaba a 23-08-2006 e a barra 2 deveria começar a 23-o8-2006. Como fazer isso.????

Obrigada
Desculpa mas não sei escrever em espanhol.