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 ». |
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)
Écriture 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"
'À 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 écrivons 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 SubProchain tutoriel ▲
La feuille devant afficher les statistiques « frmStatistiques »