Grafico de Gantt

[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.

[delphi.com.ar]

¿No puedes incrustar el "Microsoft Project" dentro de tu aplicación?... obviamente necesitarías la licencia

[[kuan-yiu]]

Empezado por ClaudiaCosta

[...]
Desculpa mas não sei escrever em espanhol.

No te preocupes, yo soy gallega y entiendo muy bien el portugués (pero no sé escribirlo), así que puedo hacer de intérprete si es necesario.

[ClaudiaCosta]

Não posso incrustar el "Microsoft Project" dentro de minha aplicación. A aplicación tem que ser toda em DELPHI

[[kuan-yiu]]

Creo que "M. Project" permite guardar como XML, y ese fichero puedes mostrarlo en Delphi.