mika520
-
11 juin 2001 à 16:26
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 2019
-
14 août 2007 à 15:07
pour mon stage on m'a demande de faire la gestion de données des client ce ke j'ai a peu pres reussi a faire mais on m'a demande de faire un moteur de recherche ki marche avec le nom des client et lorsque le nom a été trouvé ca doit afficher les propriete du client (nom, adresse,tel...)de plus je dois ensuite envoyer cela ds une feuille excel .j'ajoute le début du code source pour aider a comprendre.si un courageux programmeur peut m'aider ca serait bien car c pour mon bts.
merci d'avance
Private Type enreg
Nom As String * 25 'variable pour le nom
Prénom As String * 25 'variable pour le prenom
Adresse As String * 200 'variable pour l'adresse
Téléphone As String * 25 'variable pour le telephone
Piece As String * 2000 'variable pour les pieces vendues
Valeur As String * 25 'variable pour la valeur des pieces
Recherche As String * 25
End Type
Dim txt As enreg 'repertoire d'enregistrement
Private Numéro As Integer 'variable pour la position du client ds la liste
Private Nbadresses As Integer 'variable pour le nombre de client ds le carnet
Dim Canal, Canal2, canal3 'fichier libre
Private Sub Chercher_Click() 'recherche du nom
Else
reponse = MsgBox("Recherche impossible!", vbInformation + vbSystemModal + vbOKOnly, "Mise en garde")
End If
End Sub
Private Sub Lien_Click()
APropos.Show
End Sub
Private Sub Copier_Click() 'pour envoyer a excel
If Nom.Text <> "" Then
Shell ("C:\Program Files\Microsoft Office\Office\Excel.exe")
Ouvrir_Excel
Else
reponse = MsgBox("Rien à enregistrer!", vbInformation + vbSystemModal + vbOKOnly, "Mise en garde")
End If
Numéro = 1
Lit
End Sub
Private Sub Dernier_Click() 'aller au dernier client de la liste
Numéro = Nbadresses
Lit
End Sub
Private Sub Enregistrer_Click() 'enregistrement d'un client
If Nom.Text <> "" Then 's'il y a des caractere ds la case nom
Ecrit 'alors on enregistre ds le fichier
Nbadresses = Numéro 'position sur la liste d'adresse
Compteur.Caption = Nbadresses & " adresses dans le carnet" 'afficher le nombre d'adresse
Else
reponse = MsgBox("Il faut entrer le nom pour pouvoir enregistrer", vbInformation + vbSystemModal + vbOKOnly, "Mise en garde")
End If
Numéro = 1 'choix de la fiche client affichée
Lit 'lire le fichier
End Sub
Private Sub Form_Load() 'Ouverture d'un fichier
Canal = FreeFile
Open "C:\Mes documents\adresses.txt" For Random As Canal Len = Len(txt) 'ouverture du fichier
Numéro = 1 'choix de la fiche client affichée
Lit 'lire le fichier
Nbadresses = LOF(Canal) / Len(txt) 'longeur totale du fichier par rapport au nbre de chaine de cara
Compteur.Caption = Nbadresses & " adresses dans le carnet" 'afficher le nombre d'adresse
End Sub
Private Sub Nouveau_Click() 'creer une nouvelle fiche client
Numéro = Nbadresses + 1 'position de la fiche
Lit 'afficher
Nom.SetFocus 'mettre le curseur sur nom
End Sub
Private Sub Précédent_Click() 'reculer d'un client
If Numéro > 1 Then
Numéro = Numéro - 1
Lit
Else
reponse = MsgBox("Vous êtes arrivé au bout de la liste", vbInformation + vbSystemModal + vbOKOnly, "Mise en garde")
End If
End Sub
Private Sub Premier_Click() 'retour au premier client de la liste
Numéro = 1 'position du client qui va etre affichée
Lit 'affichage du premier client
End Sub
Private Sub Quitter_Click() 'sortir du programme
If MsgBox("Voulez-vous quitter le programme?", vbYesNo + vbQuestion, "Sortie du programme?") = vbYes Then 'demande de confirmation de sortie
Close Canal 'ferme fichier libre
End 'ferme le programme
End If
End Sub
Private Sub Suivant_Click() 'passer au client suivant
If Numéro < Nbadresses Then
Numéro = Numéro + 1
Lit
Else
reponse = MsgBox("Vous êtes arrivé au bout de la liste", vbInformation + vbSystemModal + vbOKOnly, "Mise en garde")
End If
End Sub
Private Sub Supprimer_Click() 'supprimer un client de la liste
Canal2 = FreeFile 'ouvrir fichier
Open "C:\Mes documents\boite.txt" For Random As Canal2 Len = Len(txt) 'ouvrir le fichier boite
canal3 = 1
For Numéro = 1 To Numéro - 1
Get Canal, Numéro, txt
Put Canal2, canal3, txt
canal3 = canal3 + 1
Next Numéro
For Numéro = Numéro + 1 To Nbadresses
Get Canal, Numéro, txt
Put Canal2, canal3, txt
canal3 = canal3 + 1
Next Numéro
Close Canal, Canal2 'fermer le 2 fichier
Kill "C:\Mes documents\adresses.txt" 'effacer le fichier
Name "C:\Mes documents\boite.txt" As "C:\Mes documents\adresses.txt" 'renommer le 1er par le 2eme
Canal = FreeFile 'ouvrir fichier libre
Open "C:\Mes documents\adresses.txt" For Random As Canal Len = Len(txt) 'ouvrir le fichier
Numéro = 1 '
Nbadresses = Nbadresses - 1 'enlever 1 adresse au compteur
If Nbadresses = 0 Then
reponse = MsgBox("Il n'y a plus de client ds la liste", vbInformation + vbSystemModal + vbOKOnly, "Mise en garde")
Nbadresses = 0
Compteur.Caption = Nbadresses & " adresses dans le carnet" 'affichage du nouveau nombre d'adresse
End If
If Nbadresses < 0 Then
reponse = MsgBox("Il n'y a plus de client ds la liste", vbInformation + vbSystemModal + vbOKOnly, "Mise en garde")
Nbadresses = 0
Compteur.Caption = Nbadresses & " adresses dans le carnet" 'affichage du nouveau nombre d'adresse
End If
Lit 'voir combien il y a d'adresses
Compteur.Caption = Nbadresses & " adresses dans le carnet" 'affichage du nouveau nombre d'adresse
End Sub
Private Sub Ecrit() 'ecrire ds un fichier tampon "adresses.txt"
txt.Nom = Nom.Text 'ecrire ce k'il y a ds la case vers le fichier
txt.Prénom = Prénom.Text
txt.Adresse = Adresse.Text
txt.Téléphone = Téléphone.Text
txt.Piece = Piece.Text
txt.Valeur = Valeur.Text
Put Canal, Numéro, txt
End Sub
Private Sub Lit() 'lire le fichier tampon "adresses.txt"
Get Canal, Numéro, txt 'lire ce k'il y a ds le fichier et l'afficher ds la case
Nom.Text = txt.Nom
Prénom.Text = txt.Prénom
Adresse.Text = txt.Adresse
Téléphone.Text = txt.Téléphone
Piece.Text = txt.Piece
Valeur.Text = txt.Valeur
End Sub
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 20199 14 août 2007 à 15:07
Bonjour, tu trouveras plusieurs exemples/solutions sur ce site dans les rubriques "" ou "". Ou depuis le moteur de recherche avec les mots clef "". Si malgres cela tu ne trouves pas de reponse et si ta question est toujours d'actualité, tu peux lancer une nouvelle discussion sur le forum.