Exibir consulta num EDIT

Delphi

29/12/2008

Olá Companheiros!
Estou desenvolvendo um sistema para um motel, e estou enfrentando um problema no formulário de Consumo Interno. Este formulário se resume na seleção(através de um DBLookupComboBox) do quarto que o cliente está hospedado e a seleção dos produtos que o cliente consumirá. Após o quarto for selecionado, será retornado em um campo EDIT o número da conta (que foi gerada pelo banco de dados em um outro formulário), ou seja, será necessário uma consulta. Porém não consegui retornar este número em um capo EDIT. 

var conta:real;

begin
with DM.QUERT do
       begin
       close;
       SQL.clear;
       SQL.Add(´SELECT id_conta FROM conta WHERE id_conta = :pIdConta´);
       ParamByName(´pIdConta´).Value := StrToInt(DBLookupComboBox.Text); 
     Open;
    end;

  conta:=DM.Query.Field[0].AsInteger;
  EDIT.text:=Format(´´,[conta]);
  end;


Por favor... preciso de uma luz.
Desde já agradeço pela atenção!


Fabricio.ribeiro

Fabricio.ribeiro

Curtidas 0

Respostas

Devmedia

Devmedia

29/12/2008

Acabei de lhe responder neste tópico aberto por voce!

http://forum.devmedia.com.br/viewtopic.php?t=99070

Não flode tópicos.


GOSTEI 0
POSTAR