Márcio, voce instanciou os campos da tabela????
Márcio C. Tenreiro
-------Mensagem original-------
De: marcio
Data: 09/22/08 16:37:15
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Acessar campo num tbl
alguem pod resonder ? :)
--- Em delphi-br@yahoogrupos.com.br, "marcio" <[EMAIL PROTECTED]>
escreveu
>
> 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 ?
>
[As partes desta mensagem que não continham texto foram removidas]
