Evento OnCalcFields. Como us�-lo?

22/03/2006

Estou tentando usar o evento OnCalcFields em Tabela Paradox mas esta dando o seguinte erro:

[Error] Unit1.pas(57): Incompatible types
[Fatal Error] Project2.dpr(5): Could not compile used unit �Unit1.pas�

estou usando Delphi 7 e Paradox os Campos em quest�o s�o todos do tipo S.

Se alguem puder ajudar - Sou iniciante

Segue o c�digo do programa:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables;

type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    Table1RELOGIO: TStringField;
    Table1CONSUMIDOR: TStringField;
    Table1PRECO_KILOWATE: TCurrencyField;
    Table1LEITURA_ANTERIOR: TSmallintField;
    Table1LEITURA_ATUAL: TSmallintField;
    Table1CONSUMO_TOTAL: TSmallintField;
    Table1CONSUMO_EXCEDIDO: TSmallintField;
    Table1TOTAL_DA_FATURA: TSmallintField;
    Table1DATA: TDateField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Table1TOTAL: TIntegerField;
    procedure Table1CalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
Table1CONSUMO_TOTAL :=Table1LEITURA_ANTERIOR+Table1LEITURA_ATUAL;
end;

end.

Ciro_cj

Curtir t�pico + 0

Responder

Posts

22/03/2006

Vinicius2k

Colega,

Table1CONSUMO_TOTAL.Value := Table1LEITURA_ANTERIOR.Value + Table1LEITURA_ATUAL.Value;

Aten��o ao [b:61fb25469b].Value[/b:61fb25469b] que � a propriedade do TField que cont�m o valor, propriamente dito.

Responder

Gostei + 0

23/03/2006

Paullsoftware

s� um detalhe, para funcionar voc� deve chamar o Fields Editor da Tabela (clique doplo sobre ela) selecionar os campos que ser�o calculados ir no Object Inspector e na pripriedade Field King = FkData mude para [b:d4512a2215]fkCalculated[/b:d4512a2215] e depois � s� usar normalemente o campo no OnCalcFields como j� foi mostrada anteriormente:

Table1CONSUMO_TOTAL.Value := Table1LEITURA_ANTERIOR.Value + Table1LEITURA_ATUAL.Value;

:wink:

Responder

Gostei + 0

30/07/2007

Barretoee

valew galera, esse forum ta me ajudando pra karamba..... muito bom

Responder

Gostei + 0