[delphi-br] Acessar campo num tbl

Sun, 21 Sep 2008 17:00:55 -0700 

estou tentando acessat um campo chamado quantidade numa tbl para
retornar o valor num edit e ta retornando o seguinte erro:
[Error] UCadVendas.pas(60): Undeclared identifier: 'Tb_SaidaValorTotal'
o codigo da unit é:
unit UCadVendas;

interface

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

type
  TFrm_Vendas = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBText1: TDBText;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Edit1: TEdit;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Vendas: TFrm_Vendas;

implementation

uses UDados;

{$R *.dfm}

procedure TFrm_Vendas.FormShow(Sender: TObject);
begin
  Dm_Base.Tb_Saida.Open;
  Dm_Base.Tb_MotivoSaida.Open;
  Dm_Base.Tb_Produtos.Open;
  Dm_Base.Tb_Saida.Append;
  Edit1.Text := FormatFloat('000000.00', 0.0);
  DbLookupComboBox1.SetFocus;
end;

procedure TFrm_Vendas.BitBtn1Click(Sender: TObject);
var
  vltot, vltot2 : real;
begin
  //vltot2 := (Dm_Base.Tb_SaidaQuantidade.AsInteger *
Dm_Base.Tb_ProdutosValorVenda);
  Dm_Base.Tb_SaidaValorTotal := nltot2;
  vltot := 0;
  Edit1.Text := formatfloat('000000,00', vltot);
  Dm_Base.Tb_Saida.Appdend;
  DBLookUpComboBox1.SetFocus;  
end;

procedure TFrm_Vendas.BitBtn2Click(Sender: TObject);
begin
  Dm_Base.Tb_Saida.Delete;
end;

procedure TFrm_Vendas.BitBtn3Click(Sender: TObject);
begin
  Close;
end;

end.

Como posso resolver ?

Responder a