Exercice 7 La feuille MKFICH - saisie du code

Construction de la feuille Mkfich.frm

./images/mkfich.jpg   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 :
  1. - Fichiers bases de données
  2. - Bases de données existantes
  3. - Description de la base de données
  4. - 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 :

 
Sélectionnez
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"