Base de données avec un fichier à accés direct

Soyez le premier à donner votre avis sur cette source.

Vue 10 412 fois - Téléchargée 1 661 fois

Description

on enregistre les données dans des tableaux puis on verse les tableaux dans un fichier .txt après lorsqu'on veut une donnée il suffit de la chercher en connaissant son code et si on veut on peut afficher les données dans un tableau msflexgrid. donc je vous laisse le soin d'explorer mon petit programme et si vous voyez qu'il y a une faute veuillez le mentionner en donnant la correction
et merci de votre attention!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

khedidija
Messages postés
34
Date d'inscription
samedi 16 février 2008
Statut
Membre
Dernière intervention
11 mai 2011
2 -
merci beaucoup
cs_comme
Messages postés
122
Date d'inscription
dimanche 19 mars 2006
Statut
Membre
Dernière intervention
18 juillet 2009
-
j'ai oublié de te dire qu'il faut désigner les autres forms comme filles de Mdiform pour celà mettre pour chaque form la proprieté Mdichild sur true et à la rigueur pour cacher les boutons (fermer ,restaurer et réduire) de chaque form, mettre la proprieté controlbox de chaque form (fille) sur false et comme ça le code suivant aura un sens;;;;
Private Sub parcode_Click(Index As Integer)
if activeform is Recherchestg then
exit sub
else
unload me
Recherchestg.Show
end if
End Sub
khedidija
Messages postés
34
Date d'inscription
samedi 16 février 2008
Statut
Membre
Dernière intervention
11 mai 2011
2 -
merci pour ces informations vraiment je savais pas ça avant donc merci beaucoup!:)
cs_comme
Messages postés
122
Date d'inscription
dimanche 19 mars 2006
Statut
Membre
Dernière intervention
18 juillet 2009
-
D'abord mettre la propriete windowstate de Mdiform sur 2 (maximized) celà est mieux pour la présentation....
en suite il faut décharger la feuille existante pour charger l'autre celà pour economiser la mémoire .
cet evenement :
Private Sub parcode_Click(Index As Integer)
Recherchestg.Show
End Sub

sera remplacé par celui là:

Private Sub parcode_Click(Index As Integer)
if activeform is Recherchestg then
exit sub
else
unload me
Recherchestg.Show
end if
End Sub
ici tu décharge la feuille existante avant de charger la form:Recherchestg

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.