Tutoriel 39 : La feuille MKFICH - saisie du code

L'auteur

Profil Pro

Liens sociaux

Viadeo Twitter Facebook Share on Google+   

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é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 :

 
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"
    'À 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 »

Vous avez aimé ce tutoriel ? Alors partagez-le en cliquant sur les boutons suivants : Viadeo Twitter Facebook Share on Google+   

  

Copyright © 2000 Gilmir. Aucune reproduction, même partielle, ne peut être faite de ce site ni 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.