TD3 / SLAM1 : CAS AU BON BEURRE

APPLICATION DES CONTRAINTES SUR ENTITE SPECIALISATION / GENERALISATION

Contexte : Une épicerie fine : AU BON BEURRE.

Le magasin distribue des produits qui sont soit fabriqués en interne soit achetés auprès de ses fournisseurs. Il emploie des vendeurs qui sont salariés mais peuvent aussi percevoir un % des ventes si leur statut est commercial. La clientèle est composée de supérettes et d’hypermarchés.

Objectif : Mettre à disposition une base de données « AU_BON_BEURRE ». Définir des contraintes sur certaines propriétés afin de respecter le Modèle Conceptuel de Données MCD validé par la direction.

Outils :

  • JMERISE, AGL pour la conception de la base de données
  • Mysql, SGBDR de transfert pour la gestion de la base de données
  • ACCESS, pour définir l’application des  utilisateurs

Démarche :

  • ETAPE 1 : Créer le MCD AU_BON_BEURRE selon l’ANNEXE 1 sous JMERISE
  • ETAPE 2 : Générer  la BDD AU_BON_BEURRE sous MySQL
  • ETAPE 3 : Créer l’application ACCESS avec les formulaires nécessaires à la saisie des données en respectant les contraintes du MCD
  • ETAPE 4 : Créer une vidéo à l’aide de screencast-O-Matic ou autres pour démontrer le fonctionnement de son application

L’énoncé détaillé du TD : fichierEleveAUBONBEURRE

Code VBA pour la procédure du Vendeur :

 ATTENTION AUX NOMS DES VARIABLES 

Option Compare Database

Private Sub Form_BeforeUpdate(Cancel As Integer) ' Vérifier que cela ne soit pas à la fois un hyper et une supérette
 If IsNull(Forms!vendeur!PourcentageVente) Then
  If IsNull(Forms!vendeur!Fixe) Then
   Cancel = True
   num = Forms!vendeur!NumVendeur
   nom = Forms!vendeur!NomVendeur
   prenom = Forms!vendeur!PrenomVendeur
   Forms!vendeur!NumVendeur.SetFocus
   MsgBox ("Un vendeur est au minimum salarié ou commercial")
   Me.Undo
   Forms!vendeur!NumVendeur = num
   Forms!vendeur!NomVendeur = nom
   Forms!vendeur!PrenomVendeur = prenom
  End If
 End If
End Sub
Ce contenu a été publié dans TD, TD SLAM1. Vous pouvez le mettre en favoris avec ce permalien.