Fórum Forma de Pesquisar #358045
06/05/2008
0
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!!!
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
Curtir tópico
+ 0
Responder
Posts
06/05/2008
Edsant
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.
[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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)