Tutoriel 39 : La feuille MKFICH - saisie du code

Gilbert Miralles

- Titre : Tutoriel 39 : La feuille MKFICH - saisie du code

- Auteur : Gilbert Miralles

- Parution : 17 mai 2004

- Licence : 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'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Sommaire

- Exercice 7 La feuille MKFICH - saisie du code ♪

- Prochain tutoriel

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ées directement sur l'image
Note : 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)

É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 Sub

Prochain tutoriel

La feuille devant afficher les statistiques « frmStatistiques »