Crear Campos Calculados en una Dataset

[ecfisa]

Hola GerTorresM.

No decís con que base de datos estás trabajando, por lo que lamento no poder ser más específico.

Te escribo un ejemplo simple con BDE.

var
  tbCalc: TStringField;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  tbCalc:= TStringField.Create(Self);
  with tbCalc do
  begin
    Name := 'tbCalc';
    FieldKind:= fkCalculated;
    FieldName:= 'tbCalc';
    DisplayLabel:= 'CALCULADO';
    Size := 30;
    DataSet := Table1;
  end;
  Table1.OnCalcFields:= Table1CalcFields;
  Table1.Open;
end;

Saludos.

[GerTorresM]

Te agradezco el detalle de tu respuesta, para el caso de hecho trabajo con BDE, Pero quisiera colocarte una nueva molestia, como opera para el caso de los lookUp y en el caso de utilizar Postgres y Zeos el procedimiento sería similar.

Muchas gracías de antemano.


gertorresm
Colombia

[ecfisa]

Hola GerTorresM.

No estoy con Delphi en esta máquina pero creo que sería algo así:

...
  with TStringField.Create(Table1) do
  begin
     DataSet := Table1;
     FieldName := 'Table1_NombreDeCampo';
     FieldKind := fkLookup;
     Name := Table1.Name + FieldName;
     KeyFields := 'Table1_KeyFields';
     LookupDataSet := Table2;
     LookupKeyFields := 'Table2_KeyFields';
     LookupResultField := 'Table2_Resultado';
     FieldDefs.Add(FieldName, ftString, 30, False);
  end;

En cuanto a postgress y zeos lamento no poder ayudarte ya que no los uso.

Pero create un nuevo hilo en el foro correspondiente y seguro que hay quien te pueda asesorar sobre ellos.

Saludos