Ver Mensaje Individual
  #5  
Antiguo 04-02-2011
Nacho5 Nacho5 is offline
Registrado
NULL
 
Registrado: feb 2011
Posts: 6
Reputación: 0
Nacho5 Va por buen camino
Smile Grabar un campo calculado.

¡ Hola de nuevo !

Código lo que se dice código, no hay mucho. Dado que no tengo mucha base para ello. El que hay es el que implementa Delphi a la hora de diseñar la aplicación. Pero para que veas lo que tengo sería esto :
_________________________________________________________________
Código Delphi [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    Table1Num1: TCurrencyField;
    Table1Num2: TCurrencyField;
    Table1Suma: TCurrencyField;
    Table1calculado: TCurrencyField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    DBNavigator1: TDBNavigator;
    procedure Table1CalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.dfm}

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
       DataSet['calculado']:= DataSet['Num1']+DataSet['Num2'];
end;

_________________________________________________________________
En la tabla( que denominé Suma.db tiene a su vez un campo Suma ) que debe registrar el valor del campo calculado( llamado calculado ). No sé como hacerlo por más que he intentado de una y otra forma. He leído cosas en este foro que me ha llevado a saber plantear un campo calculado viendo lo del :
Código Delphi [-]
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
       DataSet['calculado']:= DataSet['Num1']+DataSet['Num2'];
end;
pero no sé continuar... ni he visto por ahora algo que me ayude a seguir un paso más. Muchas gracias nuevamente, por vuestro interés!!!.

Última edición por ecfisa fecha: 12-02-2011 a las 00:15:02. Razón: ETIQUETAS DELPHI
Responder Con Cita