Forma de Pesquisar

Delphi

06/05/2008

Bom dia !

Gostaria de uma ajuda sua , estou realizando um sistema de scanner , e eu tenho um form de cadastro de Remetente , onde eu tenho um Botao de Localizar para localizar o remetente só que no form de localizar remetente eu tenho um DBGrid onde eu acho o remetente que eu quero , até ai tudo certo.

Só que quando dentro do DBGrid do fomr de pesquisa de remetente eu selicionoo o remetente que eu quero e clico em CONFIRMA acontece o seguinte:




procedure TfrmPesqRemetente.btnConfirmaClick(Sender: TObject);
begin

frmCadRemet.dbtCodigo := cdsRemetenteID_CODIGO.AsInteger;
frmCadRemet.dbeNome.text:= cdsRemetenteNOME.AsString;
frmCadRemet.dbeCidade.text:= cdsRemetenteCIDADE.AsString;

close;

end;



na primeira linha

eu tenho que colocar a propriedade do TDBText tipo dbtCodigo.(alguma coisa)

se fosse edit seria edtCodigo.text mais com TDBText qual a propriedade?



frmCadRemet.dbtCodigo.( ) := cdsRemetenteID_CODIGO.AsInteger;


muito Obrigado!!!


Rodlima

Rodlima

Curtidas 0

Respostas

Edsant

Edsant

06/05/2008

se eu entendei a sua pergunta vc quer colocar um campo integer em uma Text.
[b:691b68afd5]frmCadRemet.dbtCodigo.( ) := cdsRemetenteID_CODIGO.AsInteger[/b:691b68afd5]

então é só vc fazer assim: frmCadRemt.dbtCodigo.text := IntToStr (cdsRemetenteID_CODIGO.AsInteger)

eu varia diferente,
não usaria o DBText,mas o campo da tabela direto.. tipo:

dm.TBClienteCodigo.Value := cdsRemetenteID_CODIGO.Value;

também daria certo...
valeus..

carlos.


GOSTEI 0
POSTAR