F�rum TdbChart e Tquery, duvuda #245421

03/08/2004

Bom galera, estou com umas d�vidas.
Estou desenvolvendo um exe para gerar gr�fico
meu exe � composto por dois form:
Um form principal, com um menu, esse sendo gerado apartir de uma tabela.
Tenho uma tabela em sql server 200 com os campos, caption(caracter) e outro query(memo)

esta � a rotina:

procedure TfrmPrincipal.CapturaClick(Sender: TObject);
begin
   //frmGrafico.gr�fico ser� o par�metro de uma outra query
   frmGrafico.gr�fico := trim(TMenuItem(Sender).Caption);
   frmGrafico.ShowModal;
end;

procedure TfrmPrincipal.FormCreate(Sender: TObject);
var
   I: Integer;
   NovoItem : TMenuItem;
begin
   DM.tbsSZL010.First;
   i:=0;
    for i:=0 to DM.tbsSZL010.RecordCount do
    begin
       NovoItem := TMenuItem.Create(MainMenu1);
       NovoItem.Caption := DM.tbsSZL010ZL_CAPTION.Value;
       MainMenu1.Items[0].Items[0].Insert(I,NovoItem);
       MainMenu1.Items[0].Items[0].Items[I].OnClick := CapturaClick;
       DM.tbsSZL010.Next;
    end;
    NovoItem.Free;
end;

ate aqui esta blz
oq estou fazendo, o capiton ser� o capiton do menu
ex:
Arquivo
Relat�rio-->campos da tabela

qdo clica em um item do menu � chamado o evento CapturaClick q extrai o nome do capiton clicado e chama o frmGrafico
neste dou um sql para retirar a query cadastrada
sendo esse o sql: select ZL_QUERY from SZL010 where ZL_CAPTION=:Caption

esta � a rotina do frmGrafico:

procedure TfrmGrafico.FormShow(Sender: TObject);
var
   cQuery:string;
begin
   //passagem de par�metros para o sql
   DM.qrySZL010.Parameters[0].Value := grafico;
   DM.qrySZL010.Open;
   cQuery := DM.qrySZL010ZL_QUERY.Value;
   DM.qrySZL010.Close;
   DM.qrySZL010.Fields.Clear;
   DM.qrySZL010.SQL.Clear;
   //select na query retirada do sql acima
   DM.qrySZL010.SQL.Text := cQuery;
   DM.qrySZL010.Open;
   //montagem do gr�fico
end;

ate aqui tudo certo, esta funcionando, agora q vem a minha d�vida.
no form gr�fico, tenho um dbChart, quase td configurado, eu quero fazer isso: passar os campos da segunda query para o gr�fico.
sei fazer, mais quero fazer dinamicamente, � sei os campos da query, uma id�ia q tive foi apos dar o sql, adicionar tds os campos, como se faz com ctrl+f, assim eu verificaria qual � numerico e qual � caracter e informaria o labeln a pien, so q isso que � estou conseguindo: fazer um ctrl+f e informar as propriedades para o chart

este exe � para fazer gr�ficos gen�ricos, assim � irei fazer v�rios forms para cada Gr�fico q os gerentes pedirem e tb, mais a frete, fazer uma interface para q eles mesmos fazam o gr�fico q quiserem
qquer LUZ ajuada muito, valeu :lol:

Wolverine

Curtir t�pico

+ 0

Responder

Posts

03/08/2004

Wolverine

:cry:

Responder

Gostei + 0