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

Soyez le premier à donner votre avis sur cette source.

Vue 10 983 fois - Téléchargée 1 783 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 33 Date d'inscription samedi 16 février 2008 Statut Membre Dernière intervention 11 mai 2011 2
9 juin 2008 à 20:39
merci beaucoup
cs_comme Messages postés 122 Date d'inscription dimanche 19 mars 2006 Statut Membre Dernière intervention 18 juillet 2009
6 juin 2008 à 18:46
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 33 Date d'inscription samedi 16 février 2008 Statut Membre Dernière intervention 11 mai 2011 2
6 juin 2008 à 15:06
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
2 juin 2008 à 14:05
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.