Adicionar Tfields em tempo de execu��o

Question

Pessoal, estou com essa d�vida faz tempo, e parece que existem no forum outros colegas nossos com a mesma duvida: Se mudamos a consulta SQL a uma tabela em tempo de execu��o, num ibtable ou ibdataset,...

Nbs Inform�tica Ltda · Accepted Answer

Se oque voc� quer � definir os fields dinamicamente em run-time � simples:SuaQuery.FieldList.Create(SuaQuery);com isto ele ir� criar os fields com base no sql que voc� rodou...

Koplin · Answer

Se a tabela vai exibir dados diversos, � melhor n�o definir os TFields em design time.
Quando a consulta mudar, os campos ser�o mopstrados, acrescidos ou suprimidos normalmente. Para evitar que o titulo dos campos (field name) apare�am com nomes estranhos tipo COD_CLI fa�a a consulta como algo assim:
select COD_CLI as Codigo, NOME_CLI as Nome...

Pode-se mudar os TFields usando a propriedade FieldsDef. Se preferir este caminho, d� uma olhada nesta propriedade.

Vitor Rubio · Answer

Mas o que eu queria era justamente isso! Ao mudar a tabela da minha consulta, automaticamente adicionar os Tfields com os nomes padr�o do delphi mesmo, assim eu poderia referencia-los como ibquery1COD_CLI.value numa tabela que traz o cod do cliente, ou ibquery1.COD_FOR.value, numa consulta que traria o cod do fornecedor, mas valeu, obrigado mesmo assim! :wink:

Danielrossi · Answer

tbm estou querendo utilizar esse esquema, mas para colocar valor no displayformat dos campos q forem ftInteger, ftFloat,.......

Bon Jovi · Answer

[quote:4c34e10fe2=�DanielRossi�]tbm estou querendo utilizar esse esquema, mas para colocar valor no displayformat dos campos q forem ftInteger, ftFloat,....[/quote:4c34e10fe2]DanielRossi,Como os TFields j� s�o criados dinamicamente pelo Delphi ap�s o Open, ent�o no seu caso basta alterar a propriedade depois do Open...Exemplo:[code:1:4c34e10fe2]procedure TForm1.ClientDataSet1AfterOpen(DataSet: TDataSet);begin  PreencheDisplayFormat(DataSet);end;procedure TForm1.PreencheDisplayFormat(DataSet: TDataSet);var  i: integer;begin  for i := 0 to DataSet.Fields.Count - 1 do  begin    if DataSet.Fields&#91;i&93; is TFloatField then      TFloatField(DataSet.Fields&91;i&93;).DisplayFormat := �,0.00�    else if DataSet.Fields&91;i&93; is TIntegerField then      TIntegerField(DataSet.Fields&91;i&93;).DisplayFormat := �000�;      end;end;[/code:1:4c34e10fe2]E vitor^_^, n�o entendi exatamente qual sua necessidade....

Vitor Rubio · Answer

Minha necessidade � a seguinte: em tempo de design eu posso mudar o SQL da query, ativar, abrir o fields editor e dar um �add all fields�, Certo?

O que eu queria era fazer tudo isso em run-time, por ex.: uma query do tipo �select cod_cli, nome_cli from cleites� tem os campos cod_cli e nome_cli, mas, e se em runtime eu alterar a query para �select * from fornecedores�, os campos seriam outros, como adicionar esses Tfields em tempo de execu��o?

Bon Jovi · Answer

Isso � poss�vel, mas no seu caso tamb�m n�o vejo necessidade, pois o Delphi j� recria automaticamente ao reabrir a query. Vc s� n�o pode criar os TFields em tempo de design. Delete todos os TFields que tenha criado caso tenha feito isso. E se o tipo de DataSet que esteja usando tiver a propriedade FieldDefs, tamb�m remova em design.

DataSet.Close;
DataSet.SQL.Text := �SELECT CODIGO, NOME FROM PRODUTO�;
DataSet.Open;
//Delphi criou os TFields para Codigo e Nome
ShowMessage(DataSet.FieldByName(�NOME�).AsString);

DataSet.Close;
DataSet.SQL.Text := �SELECT TELEFONE FROM CLIENTE�;
DataSet.Open;
//Delphi limpou os TFields do DataSet e criou o TField para para Telefone
ShowMessage(DataSet.FieldByName(�Telefone�).AsString);

Everton · Answer

Vitor, o c�digo abaixo pode te dar uma �luz�.

procedure InsereFields(Form: TForm; ADataSet: TDataSet);
var I: Integer;
    Field: TComponent;
begin
  ADataSet.Active := False;
  For I := 0 to (ADataSet.Fields.Count - 1) do
  begin
    Case ADataSet.Fields[I].DataType of
       ftBlob:
         begin
           Field := TBlobField.Create(Form);
           TBlobField(Field).FieldName := ADataSet.Fields[I].FieldName;
           TBlobField(Field).DisplayLabel := ADataSet.Fields[I].DisplayLabel;
           TBlobField(Field).Size := ADataSet.Fields[I].Size;
           TBlobField(Field).DisplayWidth := ADataSet.Fields[I].DisplayWidth;
           TBlobField(Field).Required := ADataSet.Fields[I].Required;
           TBlobField(Field).DataSet := ADataSet;
         end;
       ftBoolean:
         begin
           Field := TBooleanField.Create(Form);
           TBooleanField(Field).FieldName := ADataSet.Fields[I].FieldName;
           TBooleanField(Field).DisplayLabel := ADataSet.Fields[I].DisplayLabel;
           TBooleanField(Field).Size := ADataSet.Fields[I].Size;
           TBooleanField(Field).DisplayWidth := ADataSet.Fields[I].DisplayWidth;
           TBooleanField(Field).Required := ADataSet.Fields[I].Required;
           TBooleanField(Field).DataSet := ADataSet;
         end;
         // E por a� vai ...
    end;
    Field.Name := ADataSet.Name + ADataSet.Fields[I].FieldName;
  end;
end;

Vitor Rubio · Answer

Pessoal, na verdade, o que eu estou fazendo � um componente filho de TibDataset onde eu pudesse, em tempo de design, abrir um arquivo-texto com uma query, colocar essa query na propriedade SQL e adicionar os tfields, em tempo de design mesmo, automaticamente (assim que ativasse a query). Mas para saber como adicionar os Tfields automaticamente em tempo de design, eu teria que saber como fazer isso em tempo de execu��o. [b:b01b3be96e]A Pen�ltima dica, do nosso amigo Bon Jovi deu certo, Funcionou legal, mas em Run-time. Especialmente �til foi a �ltima dica, do nosso amigo Everton, que eu pretendo aplicar agora.

Pessoal, muito obrigado mesmo!!!![/b:b01b3be96e] qualquer coisa, me ponho a disposi��o, meu e-mail e outros contatos vc�s podem conferir no meu perfil!

FLW!

F�rum Adicionar Tfields em tempo de execu��o #240220