Faculté des Sciences Economiques et de Gestion de Tunis
2ème Licence Fondamentale en Informatique de Gestion
TP : Environnement de développement
Série d’exercices N° 3
(VB et les Bases de données)
Exercice 1 :
On souhaite créer une application VB pour gérer les surveillances des examens au sein de la FSEG de
Tunis. Pour cela, on dispose de la base de données «Surveillances.mdb» contenant les 02 tables
suivantes :
Enseignant (CodeE, Nom, Prenom, Discipline, Grade, Tel, Email)
Examen (Date, Heure, Salle, Duree, CodeE)
- Les champs soulignés sont les clés primaires des tables.
- Le fichier Surveillances.mdb se trouve sur le lecteur C:
- Les types des champs sont comme suit : CodeE (texte), Nom (texte), Prenom (texte),
Discipline (texte), Grade (texte), Tel (texte), Email (texte), Date (date), Heure (texte), Salle
(texte) et Duree (texte).
- Pour la connexion, on utilisera le mode non-connecté.
On veut créer une interface permettant de consulter les différentes surveillances relatives à un
enseignant dont le code est choisi à partir d’un ComboBox qui doit être rempli dynamiquement à partir
de la base de données au moment du chargement de la feuille.
Advertisement
Une fois le code choisi, l’utilisateur doit cliquer sur le bouton "Afficher surveillances" pour :
- Afficher dans un TextBox (qui doit être désactivé) le code de l’enseignant choisi.
- Afficher dans des TextBox les détails des surveillances de l’enseignant choisi.
L’utilisateur pourra aussi parcourir les surveillances de l’enseignant choisi (en avant et en arrière).
Fig.2. Feuille «frmCons.vb»
1
Faculté des Sciences Economiques et de Gestion de Tunis
2ème Licence Fondamentale en Informatique de Gestion
TP : Environnement de développement
Questions :
Ecrire le code complet de la classe frmCons qui doit inclure les procédures suivantes :
a- Private Sub frmCons_Load (ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
b- Private Sub cmdSur_Click (ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles cmdSur.Click (cid:1) pour le bouton "Afficher surveillances"
c - Private Sub cmdPrec_Click (ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles cmdPrec.Click (cid:1) pour le bouton "< Précédent"
d- Private Sub cmdSuiv_Click (ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles cmdSuiv.Click (cid:1) pour le bouton "Suivant >"
Advertisement
Exercice 2 :
On souhaite créer une application VB.Net qui permet de gérer la bibliothèque de la FSEGT. Pour cela,
on dispose de la base de données «Biblio.mdb» contenant les tables suivantes :
Titles (ISBN, Title, YearPublished, PubID): la table contenant la liste des livres.
Publishers (PubID, Name, Address): la table contenant la liste des maisons d’édition.
- Les champs soulignés sont les clés primaires des tables.
- Le fichier Biblio.mdb se trouve sur le lecteur C:
- Les types des champs sont comme suit : ISBN (texte), Title (texte), YearPublished (entier),
PubID (entier), Name (texte) et Address (texte).
- Pour la connexion, on utilisera le mode non-connecté.
On veut créer une interface permettant de consulter les différents livres d’une maison d’édition dont le
nom (Name) est choisi à partir d’un ComboBox qui doit être rempli dynamiquement à partir de la base
de données au moment du chargement de la feuille.
Une fois le nom de la maison d’édition sélectionné, l’utilisateur doit cliquer sur le bouton "Afficher"
pour afficher la liste des livres édités par la maison d’édition choisie dans un DataGridView.
Fig.2. Feuille «frmLivres.vb»
2
Faculté des Sciences Economiques et de Gestion de Tunis
2ème Licence Fondamentale en Informatique de Gestion
TP : Environnement de développement
Advertisement
L’utilisateur pourra aussi cliquer sur le bouton "Trier" s’il veut ordonner la liste des livres du plus
récent au plus ancien (comme le montre la figure Fig.2). L’affichage se fera dans le même
DataGridView.
Questions :
Ecrire le code complet de la classe frmLivres qui doit inclure les procédures suivantes :
a- Private Sub frmLivres_Load (ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
b- Private Sub btnAff_Click (ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnAff.Click (cid:1) pour le bouton "Afficher"
c - Private Sub btnTrier_Click (ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btnTrier.Click (cid:1) pour le bouton "Trier"
Exercice 3 :
On souhaite créer une application VB.Net permettant de gérer le parc auto d’une agence de location.
Pour cela, on dispose de la base de données «ParcAuto.mdb» contenant la table suivante :
Voitures (Matricule, Marque, Kilométrage, PrixJournee, Moteur, Disponible)
- Les champs soulignés sont les clés primaires.
- Le fichier ParcAuto.mdb se trouve sur le lecteur C:
- Tous les champs sont de type texte.
- Pour la connexion, on utilisera le mode non-connecté.
On veut créer une interface permettant, au moment de son chargement, d’afficher les différentes
voitures disponibles dans le parc de l’agence (Disponible=oui) dans un dataGridView.
Advertisement
L’utilisateur pourra aussi filtrer les voitures affichées selon la marque ou bien selon le moteur. Le
choix du filtre se fera à l’aide des boutons d’option comme le montre la figure suivante :
3
Faculté des Sciences Economiques et de Gestion de Tunis
2ème Licence Fondamentale en Informatique de Gestion
TP : Environnement de développement
Apres avoir choisi le filtre, quand l’utilisateur clique sur « Filtrer », une boite de saisie s’affichera à
l’utilisateur pour qu’il saisisse la valeur relative au critère choisi :
ou bien (si choix = maque)
Questions :
Ecrire le code complet de la classe frmVoiture qui doit inclure les procédures suivantes :
Private Sub frmVoiture_Load (ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Private Sub cmdFiltrer_Click (ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles cmdTri.Click (cid:1) pour le bouton "Filtrer"
4