Tutoriel 39 : La feuille MKFICH - saisie du code

Date de publication : Lundi 17 mai 2004 , Date de mise à jour : Lundi 11 février 2008

Par Gilbert Miralles (gilmir.developpez.com)

Version PDF (Miroir) Version hors-ligne (Miroir)

Exercice 7 La feuille MKFICH - saisie du code

Construction de la feuille Mkfich.frm

Cette feuille va nous permettre de créer manuellement ou automatiquement les fichiers devant composer notre base de données. Quatre boutons complètent le graphique, un bouton "Créer", "Effacer champs", "Automatique", "Quitter".

Les icônes peuvent être éventuellement récupérés directement sur l'image
ndl : Si problème m'écrire

Sur un "Panel", qui occupe toute la surface de la feuille, on insère 4 "Frames" qui comprendront chacune d'elles :

- Fichiers bases de données
- Bases de données existantes
- Description de la base de données
- Répertoire de travail

Dans la première Frame on installe une textBox qui sera suivie d'un Label ".VSW".
PropriétéName : Texte1
Dans la deuxième on installe une ComboBox
PropriétéName : ListeModif1
Dans la troisième Frame on insère une autre TextBox
PropriétéName : Texte2
Dans la quatrième Frame on installe un Label
PropriétéName : Etiquette2
4 boutons viennent compléter la feuille
PropriétéName : Command3D3 (Créer)
PropriétéName : Command3D1 (Effacer Champs)
PropriétéName : Command3D2 : (Automatique)
PropriétéName : ctlStatistique : (Quitter)

Ecriture du code :
En "Object"/"Général" - "Proc:"/"Déclarations", nous écrivons :

Sub FileDefinition (Fichier$, Info$)
	'Sélection des fichiers uniquement si nouvelles définitions
	For x% = 1 To 10
		'Si fichier existe déjà, annuler
		If Trim$(Fichier$) = Trim$(BaseDonnees$(x%)) Then Exit Sub
	Next x%
	'Nouvelle définition -> créer
	Texte1.Text = Fichier$
	Texte2.Text = Info$
	Command3D3_Click
End Sub
' Nous programmons les commandes de boutons
Sub Command3D1_Click ( )
	Texte1.Text = ""
	Texte2.Text = ""
End Sub
'
Sub Command3D2_Click ( )
	'Création automatique de bases de données
	FileDefinition "SF", "Science Fiction"
	FileDefinition "fantasy", "Fantasy / Contes"
	FileDefinition "horror", "Horreur / Angoisse"
	FileDefinition "action", "Action / Aventure"
	FileDefinition "comedy", "Comédies / Divertissement"
	FileDefinition "music", "Musique / Musicals"
	FileDefinition "thriller", "Thriller "
	FileDefinition "love", "Love Stories / Histoires d'amour"
	FileDefinition "exotic", "Erotique & Exotique"
	FileDefinition "western", "Western / Western spaghetti"
	'A partir de cette ligne nous mettons les instructions suivantes en commentaires

	'FileDefinition "eastern", "Eastern / Karate / Kung Fu"
	'FileDefinition "war", "Guerre"
	'FileDefinition "polard", "Policiers/ Espionnage"
	'FileDefinition "trick", "Dessins animés / Animations"
	'FileDefinition "nature", "Nature / Vie des bêtes"
	'FileDefinition "sport", "Sport"
	'FileDefinition "document", "Documentaires"
	'FileDefinition "roman", "Films à base de romans"
	'FileDefinition "show", "Shows & Music / Concerts"
	'FileDefinition "tv", "Films télévision / Séries"
End Sub
'
Sub Command3D3_Click ( )
	For x% = 1 To 10
		If BaseDonnees$(x%) = "" Or BaseDonnees$(x%) = Texte1.Text Then Exit For
	Next x%
	If x% = 10 And BaseDonnees$(x%) <> "" Then
		MsgBox "Vous ne pouvez pas créer plus de 10 bases de données !", 16, "Attention!"
		Exit Sub
	End If

	If BaseDonnees$(x%) <> Texte1.Text Then
		ListeModif1.AddItem Trim$(Texte1.Text)
		ListeModif1.Refresh
	End If
	BaseDonnees$(x%) = Trim$(Texte1.Text)
	InfosBDonnees$(x%) = Trim$(Texte2.Text)
End Sub
'
Sub CtlStatistique_Click ( )
	Unload frmMakeFile
End Sub

'Nous ecrivons le code de la procédure "Form"
Sub Form_Load ( )
	Etiquette2.Caption = App.Path + "\DATAS"
	For x% = 1 To 10
		If BaseDonnees$(x%) <> "" Then
			ListeModif1.AddItem BaseDonnees$(x%)
		End If
	Next x%
	ListeModif1.Text = BaseDonnees$(1)
	Texte1.Text = BaseDonnees$(1)
	Texte2.Text = InfosBDonnees$(1)
	CenterForm Me
End Sub

'Nous saisissons le code du contrôle ComboBox
Sub ListeModif1_Change ( )
	Texte1.Text = ListeModif1.Text
	Texte1.Refresh
	Texte2.Refresh
End Sub
'
Sub Texte1_Change ( )
	ListeModif1.Text = Texte1.Text
End Sub

Prochain tutoriel :

La feuille devant afficher les statistiques "frmStatistiques"

Version PDF (Miroir) Version hors-ligne (Miroir)

Copyright © 2000 Gilmir. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérêts. Cette page est déposée à la SACD.