Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Sistema de busca
Message
 
À
22/01/2002 21:51:07
Danilo Luis Camillo
Tech.Way Eletrotécnica
São José, Brésil
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Divers
Thread ID:
00608755
Message ID:
00608760
Vues:
26
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform