DBedit recebendo valor mediante digita��o do cod pelo usuari

Question

Tenho no form os campos:C�dDescri��oU nVl_unitEstou querendo fazer da seguinte forma:Quando o usu�rio digitar o c�digo do produto apare�a na mesma hora a descri��o e os demais campos U n e vl_unit.Est...

Rodrigorpb · Answer

jpauloss,Uma vez passei por esta mesma d�vida, ent�o pedi ajuda a um amigo que me passou o seguinte.Vou fazer seguindo seu exemplo.[b:6221196aa3]Componentes.[/b:6221196aa3]4 - DBEdit�sDBEd_Codigo = C�digo do Produto.DBEd_Descricao = Descri��o do ProdutoDBEd_Un = N�o entendi o que � U n  <==DBEd_ValorUni = Valor unit�rio do Produto [b:6221196aa3]No evento onChange do DBEdit do c�digo do produto (DBEd_Codigo):[/b:6221196aa3][code:1:6221196aa3]procedure TFProduto.DBEd_CodigoChange(Sender: TObject);begin  if DM.qProduto.State In &#91;dsEdit, dsInsert&93; Then    begin      if Trim(DBEd_Codigo.Text) <> �� Then        qConsProduto.Locate(�COD_PRODUTO�, StrToInt(DBEd_Codigo.Text),  &91;loPartialKey, loCaseInsensitive&93; );    end;end;[/code:1:6221196aa3]No exemplo a cima liguei o DBEd_Codigo a a uma query produto no Data Module, e os outros 3 DBEdit�s liguei na query qConsProduto que criei no pr�prio formul�rio.Se algu�m tiver algo melhor posta ai para que eu tamb�m possa melhorar meu c�digo. Mas este para mim funciona perfeitamente sem erros.Vlw.Rodrigo....

Jpauloss · Answer

[quote:8cfa7ebc9a=�Rodrigorpb�]jpauloss,Uma vez passei por esta mesma d�vida, ent�o pedi ajuda a um amigo que me passou o seguinte.Vou fazer seguindo seu exemplo.[b:8cfa7ebc9a]Componentes.[/b:8cfa7ebc9a]4 - DBEdit�sDBEd_Codigo = C�digo do Produto.DBEd_Descricao = Descri��o do ProdutoDBEd_Un = N�o entendi o que � U n  <==DBEd_ValorUni = Valor unit�rio do Produto [b:8cfa7ebc9a]No evento onChange do DBEdit do c�digo do produto (DBEd_Codigo):[/b:8cfa7ebc9a][code:1:8cfa7ebc9a]procedure TFProduto.DBEd_CodigoChange(Sender: TObject);begin  if DM.qProduto.State In &#91;dsEdit, dsInsert&93; Then    begin      if Trim(DBEd_Codigo.Text) <> �� Then        qConsProduto.Locate(�COD_PRODUTO�, StrToInt(DBEd_Codigo.Text),  &91;loPartialKey, loCaseInsensitive&93; );    end;end;[/code:1:8cfa7ebc9a]No exemplo a cima liguei o DBEd_Codigo a a uma query produto no Data Module, e os outros 3 DBEdit�s liguei na query qConsProduto que criei no pr�prio formul�rio.Se algu�m tiver algo melhor posta ai para que eu tamb�m possa melhorar meu c�digo. Mas este para mim funciona perfeitamente sem erros.Vlw.Rodrigo.[/quote:8cfa7ebc9a]Vou tentar. Qualquer coisa posto aqui.Valeu...

Rodrigorpb · Answer

ok.E se algu�m tiver uma id�ia para melhorar.Posta ai.Vlw...

Jpauloss · Answer

[quote:d5ec829c87=�Rodrigorpb�]ok.E se algu�m tiver uma id�ia para melhorar.Posta ai.Vlw[/quote:d5ec829c87]Rpz n�o consegui n�o. Veja bem como est� meu sistema:tem um DM que centralizo tudo l�. Estou usando o sqlDataSet + dataSetProvider + clientDataSet. Como fica no meu caso?...

F�rum DBedit recebendo valor mediante digita��o do cod pelo usuari #343336