Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Sistema de busca
Message
 
To
22/01/2002 21:51:07
Danilo Luis Camillo
Tech.Way Eletrotécnica
São José, Brazil
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
00608755
Message ID:
00608760
Views:
27
Ops... Vou tentar ajudar... Eu sei lá onde o Lassala foi parar! Ele sempre está conectado, hoje não apareceu... Deve ter acabado a bateria! :)

Vou passar o básico do cliente, você faz uma adaptação para os produtos, ok?

1º - Você deve colocar um TextBox para o usuário digitar o que ele quer procurar. Adicione também uma grade para ter o resultado da busca. Não se esqueça do botão: OK.

2º - Código Valid do TextBox:
ThisForm.Grade.RecordSource = ""
Select Codigo, Nome From Clientes Where Nome = ThisForm.TextBox.Value Into Cursor cClientes
ThisForm.Grade.RecordSource = "cClientes"
3º - Código Valid do Botão OK:
MessageBox("Cliente selecionado: "+cCliente.Codigo + " " +cClientes.Nome)
Return .T.
Bem... Aqui está o básico... Acho que já dá para você brincar um pouquinho.

Depois você pode implementar uma busca por parte do nome (veja o LIKE do comando SQL). Também pode retornar um código do formulário atual para outro formulário...

[]s
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Rodolfo Duarte
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform