Exercice Visual Basic : Gestion Magasin

Afin de faciliter la gestion de notre magasin, on souhaite développer une petite application qui répond aux fonctionnalités désirés :

  1. Créer une Interface de Mise à Jour des Articles
    1. Ajouter un Article (le contrôle de saisie est obligatoire et l’article ne doit pas être enregistré deux fois.)
    2. Modifier un article
    3. Rechercher un article
    4. Supprimer un article

Interface Graphique:

 ExerciceVB-id2141



 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Public Class Form1
    Public num As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        With art
            .numA = Textnum.Text
            .nomA = Textnom.Text
            .prixA = TextprixA.Text
            .prixV = TextprixV.Text
            For i = 0 To col.Count - 1
                art = col(i)
                If col(art.numA) = .numA Then
                    MsgBox("cette article existe déjà")
                    Exit Sub
                Else
                End If
            Next
            col.Add(art)
        End With
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Textnum.SelectAll()
        If MessageBox.Show("voulez vous vraiment modifier cette article", "information", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
            col.Insert(art.numA, art)
        End If
    End Sub
 
End Class
 
------------------------------------------------------------------------------
 
 
Module gestion_art
    Structure articles
        Public numA As Integer
        Public nomA As String
        Public prixA As Double
        Public prixV As Double
    End Structure
    Public art As articles
    Public col As New ArrayList
End Module