como adicionar campo dinamicamente somando nos do clientdats

Delphi

10/03/2007

oi delphianos...

Eu preciso adicionar um campo ao clientdataset em tempo de execucao para juntar com os que ja estão definidos pela estrutura da tabela.

Isto é possível, como faço?

ja tentei assim mas não estar dando certo! Os outros campos da consulta ficam inexistentes...

´ValorTotalOrcam´ é o novo campo galera!!!!

...
Var
ValorTotalOrcam: TStringField;
...
with DmConsulta.CDS_Orcam do
begin

Close;
CommandText:= ´select o.CF_COD, o.fp_cod, o.O_DATA_ORCAM, o.O_NUM_ORCAM, ´+
´o.O_VALOR_TOTAL, o.O_AVISTA, o.O_APRAZO, c.CF_NOME from ORCAMENTO o ´+
´left join CLI_FOR c on o.CF_COD = c.CF_COD´;

ValorTotalOrcam:=TStringField.Create( DmConsulta.CDS_Orcam );
ValorTotalOrcam.FieldKind:= fkCalculated;
ValorTotalOrcam.FieldName:=´ValorTotalOrcam´;
ValorTotalOrcam.Name:=´CDS_PesqOrcamValorTotalOrcam´;
ValorTotalOrcam.DataSet:= DmConsulta.CDS_Orcam;
ValorTotalOrcam.DisplayLabel:=´Valor Total´;
ValorTotalOrcam.Visible:=True;
ValorTotalOrcam.Index:= DmConsulta.CDS_Orcam.FieldCount;
ValorTotalOrcam.Size:=8;
FieldDefs.UpDate;

Open;

DBEdit5.DataField:= ´ValorTotalOrcam´;

erivando


Erivando

Erivando

Curtidas 0

Respostas

Erivando

Erivando

10/03/2007

oi delphianos...

Eu preciso adicionar um campo ao clientdataset em tempo de execucao para juntar com os que ja estão definidos pela estrutura da tabela.

Isto é possível, como faço?

ja tentei assim mas não estar dando certo! Os outros campos da consulta ficam inexistentes...

´ValorTotalOrcam´ é o novo campo galera!!!!

...
Var
ValorTotalOrcam: TStringField;
...
with DmConsulta.CDS_Orcam do
begin

Close;
CommandText:= ´select o.CF_COD, o.fp_cod, o.O_DATA_ORCAM, o.O_NUM_ORCAM, ´+
´o.O_VALOR_TOTAL, o.O_AVISTA, o.O_APRAZO, c.CF_NOME from ORCAMENTO o ´+
´left join CLI_FOR c on o.CF_COD = c.CF_COD´;

ValorTotalOrcam:=TStringField.Create( DmConsulta.CDS_Orcam );
ValorTotalOrcam.FieldKind:= fkCalculated;
ValorTotalOrcam.FieldName:=´ValorTotalOrcam´;
ValorTotalOrcam.Name:=´CDS_PesqOrcamValorTotalOrcam´;
ValorTotalOrcam.DataSet:= DmConsulta.CDS_Orcam;
ValorTotalOrcam.DisplayLabel:=´Valor Total´;
ValorTotalOrcam.Visible:=True;
ValorTotalOrcam.Index:= DmConsulta.CDS_Orcam.FieldCount;
ValorTotalOrcam.Size:=8;
FieldDefs.UpDate;

Open;

DBEdit5.DataField:= ´ValorTotalOrcam´;

erivando

eu estava analizando bem o caso, teria alguma formar de obter estes tipos de campos ja embutidos em uma consulta sql ???



GOSTEI 0
Erivando

Erivando

10/03/2007

oi delphianos...

Eu preciso adicionar um campo ao clientdataset em tempo de execucao para juntar com os que ja estão definidos pela estrutura da tabela.

Isto é possível, como faço?

ja tentei assim mas não estar dando certo! Os outros campos da consulta ficam inexistentes...

´ValorTotalOrcam´ é o novo campo galera!!!!

...
Var
ValorTotalOrcam: TStringField;
...
with DmConsulta.CDS_Orcam do
begin

Close;
CommandText:= ´select o.CF_COD, o.fp_cod, o.O_DATA_ORCAM, o.O_NUM_ORCAM, ´+
´o.O_VALOR_TOTAL, o.O_AVISTA, o.O_APRAZO, c.CF_NOME from ORCAMENTO o ´+
´left join CLI_FOR c on o.CF_COD = c.CF_COD´;

ValorTotalOrcam:=TStringField.Create( DmConsulta.CDS_Orcam );
ValorTotalOrcam.FieldKind:= fkCalculated;
ValorTotalOrcam.FieldName:=´ValorTotalOrcam´;
ValorTotalOrcam.Name:=´CDS_PesqOrcamValorTotalOrcam´;
ValorTotalOrcam.DataSet:= DmConsulta.CDS_Orcam;
ValorTotalOrcam.DisplayLabel:=´Valor Total´;
ValorTotalOrcam.Visible:=True;
ValorTotalOrcam.Index:= DmConsulta.CDS_Orcam.FieldCount;
ValorTotalOrcam.Size:=8;
FieldDefs.UpDate;

Open;

DBEdit5.DataField:= ´ValorTotalOrcam´;

erivando

eu estava analizando bem o caso, teria alguma formar de obter estes tipos de campos ja embutidos em uma consulta sql ???



GOSTEI 0
POSTAR