Actuellement, on vit l’ère de l’informatisation de tous les systèmes et
dans tous les domaines et entreprises.
Dans notre cas, c’est la
pharmacie qui subira une gestion
informatique de tout élément étant en relation avec la pharmacie, à savoir les
médicaments, fournisseurs, stocks,
commandes, ventes et d’autres éléments.
La gestion est devenue une opération indispensable, c’est pour cette raison qu’on abordera dans cet article une conception avec une interface qui permettra d’informatiser le système d’une pharmacie.
Ressources logicielles :
Analyse :
Analyse :
PowerAMC Evaluation 11
Développement :
· Visual basic 2008
· Microsoft Access 2007
1. Cahier des charges :
1-1 : Analyse des besoins :
Cette démarche nous permettra d'identifier les besoins rencontrés par un pharmacien afin de mener à bon port sa gestion pharmaceutique.
Durant cette étude les besoins rencontrés sont les suivants :
- Gérer les opérations de ventes.
- Gérer les opérations vis à vis les fournisseurs.
- Gérer la liste des médicaments.
- Gérer les familles de médicaments.
- Gérer les différents stocks.
- Gérer les différentes commandes.
1-2 : Règles de gestion :
- La table Médicament est définie par un code, un libellé et un prix.
- La table Stock est définie par un numéro de stock et la quantité de médicament.
- La table Famille est définie par un code et une désignation.
- La table Fournisseur est définie par un code, un nom, une adresse, une ville et un numéro de téléphone.
- La table vente est définie par un numéro, une date et un montant.
- Un médicament peut être stocké dans un ou plusieurs stocks.
- Un médicament appartient à une et une seule famille.
- Un médicament peut être vendu plusieurs fois selon la quantité demandée.
- La commande peut faire l'objet de plusieurs médicaments.
- Un stock contient plusieurs médicaments.
- Une famille rassemble plusieurs médicaments.
- Un fournisseur peut fournir plusieurs commandes.
- Une commande est fournie par un et un seul fournisseur.
- Une vente peut faire l'objet de plusieurs médicaments.
1-3 : Modèle Conceptuel des Données -MCD-:
1-3 : Modèle Logique des Données -MLD-:
2. Réalisation du projet:
Cette partie contient les descriptions des différentes interfaces VB avec les codes sources des différents boutons de commande.
Médicament:
Public
Class Médicament
Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles GroupBox3.Enter
End Sub
Private Sub Médicament_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
On Error GoTo etiq
If cn.State = ConnectionState.Closed
Then
Call connect()
End If
Exit Sub
etiq:
With Err()
MsgBox("Erreur
no:" & .Number & vbCrLf & "description :" &
.Description & vbCrLf & "Apparu dans :" & .Source)
End With
End Sub
Bouton
liste des médicaments
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error GoTo etiq
req.Connection = cn
req.CommandType = CommandType.Text
req.CommandText = "SELECT
Médicament.*, Stockmed.Numstock, Stockmed.QuantitéMedi,
Commande.Codefournisseur FROM Commande INNER JOIN ((Médicament INNER JOIN
Stockmed ON Médicament.CodeMedicament = Stockmed.CodeMedicament) INNER JOIN
commandemed ON Médicament.CodeMedicament = commandemed.CodeMédicament) ON
Commande.Numcommande = commandemed.Numcommande"
datread = req.ExecuteReader
If Not datread.HasRows Then
MsgBox("La table est vide
!", MsgBoxStyle.Exclamation, "Opération d'affichage")
Else
Do While datread.Read
ListBox1.Items.Add(datread.GetValue(0) & "-----" &
datread.GetValue(1) & "-----" & datread.GetValue(2) &
"-----" & datread.GetValue(3) & "-----" &
datread.GetValue(4) & "-----" & datread.GetValue(5) &
"-----" & datread.GetValue(6))
Loop
End If
datread.Close()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Bouton
commander
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
On Error GoTo etiq
Me.Hide()
Commande.Show()
Commande.TextBox1.Text =
Me.TextBox1.Text
Commande.TextBox4.Text =
Me.TextBox2.Text
Commande.TextBox5.Text =
Me.TextBox3.Text
Commande.TextBox7.Text = Me.TextBox5.Text
Commande.TextBox9.Text =
Me.TextBox4.Text
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Bouton
rechercher
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
On Error GoTo etiq
Dim reqrech As New OleDb.OleDbCommand
Dim reqrech2 As New OleDb.OleDbCommand
Dim datreadrech, datreadrech2 As
OleDb.OleDbDataReader
reqrech.Connection = cn
reqrech.CommandType = CommandType.Text
reqrech.CommandText = "select *
from Médicament where CodeMedicament = '" & TextBox1.Text &
"'"
datreadrech = reqrech.ExecuteReader
reqrech2.Connection = cn
reqrech2.CommandType = CommandType.Text
reqrech2.CommandText = "select *
from stockmed where CodeMedicament =
'" & TextBox1.Text & "'"
datreadrech2 = reqrech2.ExecuteReader
If Not datreadrech.HasRows Then
MsgBox("Le numéro du médicament recherché n'existe pas ",
MsgBoxStyle.Exclamation, "Opération de recherche")
Else
MsgBox("La
recherche est fructueuse !", MsgBoxStyle.Information, "Opération de
recherche")
datreadrech.Read()
TextBox1.Text =
datreadrech.GetValue(0)
TextBox2.Text =
datreadrech.GetValue(2)
TextBox3.Text =
datreadrech.GetValue(1)
TextBox4.Text =
datreadrech.GetValue(3)
datreadrech2.Read()
TextBox5.Text =
datreadrech2.GetValue(0)
End If
datreadrech.Close()
datreadrech2.Close()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Bouton
modifier
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
On Error GoTo etiq
Dim reqmodif As New OleDb.OleDbCommand
reqmodif.Connection = cn
reqmodif.CommandType = CommandType.Text
reqmodif.CommandText = "update
médicament set libellemedicament='" & TextBox2.Text &
"',codefamille='" & Val(TextBox3.Text) & "',prix='"
& Val(TextBox4.Text) & "'where codemedicament ='" &
TextBox1.Text & "'"
reqmodif.ExecuteNonQuery()
Dim reqmodiff As New OleDb.OleDbCommand
reqmodiff.Connection = cn
reqmodiff.CommandType =
CommandType.Text
reqmodiff.CommandText = "update
stockmed set numstock ='" & TextBox5.Text & "' where
codemedicament ='" & TextBox1.Text & "'"
reqmodiff.ExecuteNonQuery()
MsgBox("L'opération de
modification est efféctuée avec succés!", MsgBoxStyle.Information,
"Opération de modification")
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number
& vbCrLf & "description :" & .Description & vbCrLf
& "Apparu dans :" & .Source)
End With
End Sub
Bouton
supprimer
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click
On Error GoTo etiq
Dim reqsuppr As New OleDb.OleDbCommand
Dim reqsuppr1 As New OleDb.OleDbCommand
Dim reqsuppr2 As New OleDb.OleDbCommand
Dim reqsuppr3 As New OleDb.OleDbCommand
Dim reqmod As New OleDb.OleDbCommand
reqsuppr1.Connection = cn
reqsuppr1.CommandType =
CommandType.Text
reqsuppr1.CommandText
= "delete * from commandemed where codemédicament='" &
TextBox1.Text & "'"
reqsuppr1.ExecuteNonQuery()
reqsuppr2.Connection = cn
reqsuppr2.CommandType =
CommandType.Text
reqsuppr2.CommandText = "delete *
from stockmed where codemedicament='" & TextBox1.Text &
"'"
reqsuppr2.ExecuteNonQuery()
reqsuppr3.Connection = cn
reqsuppr3.CommandType =
CommandType.Text
reqsuppr3.CommandText = "delete *
from ventemed where codemédicament='" & TextBox1.Text &
"'"
reqsuppr3.ExecuteNonQuery()
reqsuppr.Connection = cn
reqsuppr.CommandType = CommandType.Text
reqsuppr.CommandText = "delete *
from médicament where codemedicament='" & TextBox1.Text &
"'"
reqsuppr.ExecuteNonQuery()
MsgBox("L'opération de
suppression est efféctuée avec succés !", MsgBoxStyle.Information, "
Opération de suppression")
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Bouton
réinitialiser
Private Sub Button7_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
On Error GoTo etiq
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
ListBox1.Items.Clear()
datread.Close()
Exit Sub
etiq:
With Err()
MsgBox("Erreur
no:" & .Number & vbCrLf & "description :" &
.Description & vbCrLf & "Apparu dans :" & .Source)
End With
End Sub
Bouton
Quitter
Private Sub Button8_Click_1(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button8.Click
On Error GoTo etiq
Me.Hide()
Pharmacie.Show()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source
End With
End Sub
Bouton
choisir
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button6.Click
On Error GoTo etiq
Me.Hide()
famille.Show()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles GroupBox1.Enter
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Label1.Left = Label1.Left - 10
If Label1.Left < 0 Then
Label1.Left = 280
End If
End Sub
End Class
Commande
Public Class Commande
Bouton listes des
commandes
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error GoTo etiq
req.Connection = cn
req.CommandType = CommandType.Text
req.CommandText = "select * from
Commande"
datread = req.ExecuteReader
If Not datread.HasRows Then
MsgBox("La table est vide
!", MsgBoxStyle.Exclamation, "Opération d'affichage")
Else
Do While datread.Read
ListBox1.Items.Add(datread.GetValue(0) & "---" &
datread.GetValue(1) & "---" & datread.GetValue(2) &
"---" & datread.GetValue(3))
Loop
End If
datread.Close()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Bouton
réinitialiser
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
On Error GoTo etiq
ListBox1.Items.Clear()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
datread.Close()
Exit Sub
etiq:
With Err()
MsgBox("Erreur
no:" & .Number & vbCrLf & "description :" &
.Description & vbCrLf & "Apparu dans :" & .Source)
End With
End Sub
Private Sub Commande_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
Bouton
quitter
Private Sub Button4_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
On Error GoTo etiq
Me.Hide()
Médicament.Show()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Bouton
enregistrer la commande
Private Sub Button2_Click_1(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
On Error GoTo etiq
Dim reqcom1 As New OleDb.OleDbCommand
Dim reqcom2 As New OleDb.OleDbCommand
Dim reqcom3 As New OleDb.OleDbCommand
Dim reqcom4 As New OleDb.OleDbCommand
Dim reqcom5 As New OleDb.OleDbCommand
Dim reqcom6 As New OleDb.OleDbCommand
Dim reqqq As New OleDb.OleDbCommand
Dim datr As OleDb.OleDbDataReader
Dim req1 As New OleDb.OleDbCommand
Dim datread1 As OleDb.OleDbDataReader
Dim reqmod3 As New OleDb.OleDbCommand
Dim reqcom7 As New OleDb.OleDbCommand
Dim datread2 As OleDb.OleDbDataReader
req.Connection = cn
req.CommandType = CommandType.Text
req.CommandText = "SELECT * FROM
Stockmed where ([numstock]='" & TextBox7.Text & "' And
[codemedicament]='" & TextBox1.Text & "')"
datread2 = req.ExecuteReader
datread2.Read()
req1.Connection = cn
req1.CommandType = CommandType.Text
req1.CommandText = "select * from
commande where numcommande = '" & TextBox3.Text & "'"
datread1 = req1.ExecuteReader
datread1.Read()
reqqq.Connection = cn
reqqq.CommandType = CommandType.Text
reqqq.CommandText = "Select * from
médicament where codemedicament ='" & TextBox1.Text &
"'"
datr = reqqq.ExecuteReader
If Not datr.HasRows Then
If Not datread1.HasRows Then
reqcom1.Connection = cn
reqcom1.CommandType =
CommandType.Text
reqcom1.CommandText =
"insert into Commande values('" & TextBox3.Text &
"','" & TextBox6.Text & "','" & TextBox2.Text
& "','" & Val(TextBox10.Text) & "')"
reqcom1.ExecuteNonQuery()
Else
reqmod3.Connection = cn
reqmod3.CommandType =
CommandType.Text
reqmod3.CommandText =
"update commande set [montantcommande] = [montantcommande] + " &
Val(TextBox10.Text) & " where ([numcommande]='" &
TextBox3.Text & "')"
reqmod3.ExecuteNonQuery()
End If
reqcom2.Connection = cn
reqcom2.CommandType =
CommandType.Text
reqcom2.CommandText = "insert
into Médicament values('" & TextBox1.Text & "','" &
Val(TextBox5.Text) & "','" & TextBox4.Text &
"','" & Val(TextBox9.Text) & "')"
reqcom2.ExecuteNonQuery()
reqcom3.Connection = cn
reqcom3.CommandType =
CommandType.Text
reqcom3.CommandText =
"insert into Commandemed values('" & TextBox3.Text &
"','" & TextBox1.Text & "','" & TextBox8.Text
& "')"
reqcom3.ExecuteNonQuery()
reqcom7.Connection = cn
reqcom7.CommandType = CommandType.Text
reqcom7.CommandText = "insert
into stockmed values ('" &
TextBox7.Text & "','" & TextBox1.Text & "','"
& Val(TextBox8.Text) & "')"
reqcom7.ExecuteNonQuery()
reqcom5.Connection = cn
reqcom5.CommandType =
CommandType.Text
reqcom5.CommandText = "update
stock set [quantité] = [quantité] +" & Val(TextBox8.Text) & "
where numstock ='" & TextBox7.Text & "'"
reqcom5.ExecuteNonQuery()
Else
If Not datread2.HasRows Then
reqcom7.Connection = cn
reqcom7.CommandType =
CommandType.Text
reqcom7.CommandText =
"insert into stockmed values
('" & TextBox7.Text & "','" & TextBox1.Text &
"','" & Val(TextBox8.Text) & "')"
reqcom7.ExecuteNonQuery()
Else
reqcom5.Connection = cn
reqcom5.CommandType =
CommandType.Text
reqcom5.CommandText =
"update stockmed set [quantitémedi] = [quantitémedi] +" &
Val(TextBox8.Text) & " where numstock ='" & TextBox7.Text
& "'"
reqcom5.ExecuteNonQuery()
End If
reqcom5.Connection = cn
reqcom5.CommandType =
CommandType.Text
reqcom5.CommandText = "update
stock set [quantité] = [quantité] +" & Val(TextBox8.Text) & "
where numstock ='" & TextBox7.Text & "'"
reqcom5.ExecuteNonQuery()
If Not
datread1.HasRows Then
reqcom1.Connection = cn
reqcom1.CommandType =
CommandType.Text
reqcom1.CommandText =
"insert into Commande values('" & TextBox3.Text &
"','" & TextBox6.Text & "','" & TextBox2.Text
& "','" & Val(TextBox10.Text) & "')"
reqcom1.ExecuteNonQuery()
Else
reqmod3.Connection = cn
reqmod3.CommandType = CommandType.Text
reqmod3.CommandText =
"update commande set [montantcommande] = [montantcommande] + " &
Val(TextBox10.Text) & " where ([numcommande]='" &
TextBox3.Text & "')"
reqmod3.ExecuteNonQuery()
End If
reqcom3.Connection = cn
reqcom3.CommandType =
CommandType.Text
reqcom3.CommandText = "insert
into Commandemed values('" & TextBox3.Text & "','" &
TextBox1.Text & "','" & TextBox8.Text & "')"
reqcom3.ExecuteNonQuery()
End If
datread1.Close()
datread2.Close()
datr.Close()
MsgBox("L'opération d'ajout est efféctuée avec succés !",
MsgBoxStyle.Information, "Opération d'ajout")
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Label1.Left = Label1.Left - 10
If Label1.Left < 0 Then
Label1.Left = 280
End If
End Sub
End Class
Famille:
Public
Class famille
Bouton
valider
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
On Error GoTo etiq
Médicament.TextBox3.Text =
Me.TextBox1.Text
Me.Hide()
Médicament.Show()
Exit Sub
etiq:
With
Err()
MsgBox("Erreur
no:" & .Number & vbCrLf & "description :" &
.Description & vbCrLf & "Apparu dans :" & .Source)
End With
End Sub
Bouton
quitter
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
On Error GoTo etiq
Me.Hide()
Médicament.Show()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu dans
:" & .Source)
End With
End Sub
Private Sub form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
On Error GoTo etiq
req.Connection = cn
req.CommandType = CommandType.Text
req.CommandText =
"select * from famille"
datread = req.ExecuteReader
If Not datread.HasRows Then
MsgBox("La table est vide !", MsgBoxStyle.Exclamation,
"Opération d'affichage")
Else
Do While datread.Read
ListBox1.Items.Add(datread.GetValue(0) & "---" &
datread.GetValue(1))
Loop
End If
datread.Close()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Label1.Left = Label1.Left - 10
If Label1.Left < 0 Then
Label1.Left = 280
End If
End Sub
End Class
Fournisseur:
Public
Class Fournisseur
Bouton afficher
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
On Error GoTo etiq
req.Connection = cn
req.CommandType = CommandType.Text
req.CommandText = "select * from
fournisseur"
datread = req.ExecuteReader
If Not datread.HasRows Then
MsgBox("La table est vide !", MsgBoxStyle.Exclamation,
"Opération d'affichage")
Else
Do While datread.Read
ListBox1.Items.Add(datread.GetValue(0) & "---" &
datread.GetValue(1) & "---" & datread.GetValue(2) &
"---" & datread.GetValue(3) & "---" &
datread.GetValue(4))
Loop
End If
datread.Close()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Private Sub Fournisseur_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
On Error GoTo etiq
If cn.State = ConnectionState.Closed
Then
Call connect()
End If
Exit Sub
etiq:
With Err()
MsgBox("Erreur
no:" & .Number & vbCrLf & "description :" &
.Description & vbCrLf & "Apparu dans :" & .Source)
End With
End Sub
Bouton
ajouter
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
On Error GoTo etiq
Dim reqajout As New OleDb.OleDbCommand
reqajout.Connection = cn
reqajout.CommandType =
CommandType.Text
reqajout.CommandText =
"insert into fournisseur values('" & TextBox1.Text &
"','" & TextBox2.Text & "','" & TextBox3.Text
& "','" & TextBox4.Text & "','" &
TextBox5.Text & "')"
reqajout.ExecuteNonQuery()
MsgBox("L'opération
d'ajout est efféctuée avec succés!", MsgBoxStyle.Information,
"Opération d'ajout")
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Bouton
rechercher
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
On Error GoTo etiq
Dim reqrech As New OleDb.OleDbCommand
Dim datreadrech As
OleDb.OleDbDataReader
reqrech.Connection = cn
reqrech.CommandType = CommandType.Text
reqrech.CommandText = "select *
from Fournisseur where CodeFournisseur = '" & TextBox1.Text &
"'"
datreadrech = reqrech.ExecuteReader
If Not datreadrech.HasRows Then
MsgBox("Le numéro
du fournisseur recherché n'existe pas ", MsgBoxStyle.Exclamation,
"Opération de recherche")
Else
MsgBox("La
recherche est fructueuse !", MsgBoxStyle.Information, "Opération de
recherche")
datreadrech.Read()
TextBox1.Text =
datreadrech.GetValue(0)
TextBox2.Text =
datreadrech.GetValue(1)
TextBox3.Text =
datreadrech.GetValue(2)
TextBox4.Text = datreadrech.GetValue(3)
TextBox5.Text =
datreadrech.GetValue(4)
End If
datreadrech.Close()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Bouton
modifier
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
On Error GoTo etiq
Dim reqmodif As New OleDb.OleDbCommand
reqmodif.Connection = cn
reqmodif.CommandType = CommandType.Text
reqmodif.CommandText = "update
Fournisseur set Nom='" & TextBox2.Text & "',Adresse='"
& TextBox3.Text & "',Ville='" & TextBox4.Text &
"',Tél='" & TextBox5.Text & "'where codefournisseur
='" & TextBox1.Text & "'"
reqmodif.ExecuteNonQuery()
MsgBox("L'opération de
modification est efféctuée avec succés!", MsgBoxStyle.Information,
"Opération de modification")
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Bouton
supprimer
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click
On Error GoTo etiq
Dim reqsuppr As New OleDb.OleDbCommand
reqsuppr.Connection = cn
reqsuppr.CommandType = CommandType.Text
reqsuppr.CommandText = "delete *
from Fournisseur where CodeFournisseur='" & TextBox1.Text &
"'"
reqsuppr.ExecuteNonQuery()
MsgBox("L'opération de
suppression est efféctuée avec succés!", MsgBoxStyle.Information,
"Opération de suppression")
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Bouton
réinitialiser
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button6.Click
On
Error GoTo etiq
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text() = ""
TextBox5.Text = ""
ListBox1.Items.Clear()
datread.Close()
Exit Sub
etiq:
With Err()
MsgBox("Erreur
no:" & .Number & vbCrLf & "description :" &
.Description & vbCrLf & "Apparu dans :" & .Source)
End With
End Sub
Bouton
quitter
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button7.Click
On Error GoTo etiq
Me.Hide()
MdiParent.Show()
Exit Sub
etiq:
With Err()
MsgBox("Erreur
no:" & .Number & vbCrLf & "description :" &
.Description & vbCrLf & "Apparu dans :" & .Source)
End With
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Label6.Left = Label6.Left - 10
If Label6.Left < 0 Then
Label6.Left = 280
End If
End Sub
End Class
Stock:
Public
Class Stock
Bouton
quitter
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button6.Click
On Error GoTo etiq
Me.Hide()
MdiParent.Show()
Exit Sub
etiq:
With Err()
MsgBox("Erreur
no:" & .Number & vbCrLf & "description :" &
.Description & vbCrLf & "Apparu dans :" & .Source)
End With
End Sub
Bouton
listes des stocks
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error GoTo etiq
Dim req2 As New OleDb.OleDbConnection
req.Connection = cn
req.CommandType = CommandType.Text
req.CommandText = "SELECT Stock.*,
Médicament.CodeMedicament, Stockmed.QuantitéMedi FROM Médicament INNER JOIN
(Stock INNER JOIN Stockmed ON Stock.Numstock = Stockmed.Numstock) ON
Médicament.CodeMedicament = Stockmed.CodeMedicament"
datread = req.ExecuteReader
If Not datread.HasRows Then
MsgBox("Le numéro du stock recherché n'existe pas !", MsgBoxStyle.Exclamation,
"Opération d'affichage")
Else
Do While datread.Read
ListBox1.Items.Add(datread.GetValue(0)
& "---" & datread.GetValue(1) & " " &
datread.GetValue(2) & " " & datread.GetValue(3))
Loop
End If
datread.Close()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Private Sub Stock_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
On Error GoTo etiq
If cn.State = ConnectionState.Closed
Then
Call connect()
End If
Exit Sub
etiq:
With Err()
MsgBox("Erreur
no:" & .Number & vbCrLf & "description :" &
.Description & vbCrLf & "Apparu dans :" & .Source)
End With
End Sub
Bouton
ajouter
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
On Error GoTo etiq
Dim reqajout As New OleDb.OleDbCommand
Dim reqajout1 As New OleDb.OleDbCommand
reqajout.Connection = cn
reqajout.CommandType =
CommandType.Text
reqajout.CommandText
= "insert into stock values('" & TextBox1.Text &
"','" & Val(TextBox2.Text) & "')"
reqajout1.Connection = cn
reqajout1.CommandType =
CommandType.Text
reqajout1.CommandText
= "insert into stockmed values('" & TextBox1.Text &
"','" & TextBox3.Text & "','" &
Val(TextBox4.Text) & " ')"
reqajout.ExecuteNonQuery()
reqajout1.ExecuteNonQuery()
MsgBox("L'opération
d'ajout est efféctuée avec succés!", MsgBoxStyle.Information,
"Opération d'ajout")
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Bouton
rechercher
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
On Error GoTo etiq
Dim reqrech As New OleDb.OleDbCommand
Dim datreadrech, datreadrech1 As
OleDb.OleDbDataReader
Dim reqrech2 As New OleDb.OleDbCommand
reqrech2.Connection = cn
reqrech.CommandType = CommandType.Text
reqrech2.CommandText = "select *
from Stockmed where numstock = '" & TextBox1.Text & "'"
reqrech.Connection = cn
reqrech.CommandType = CommandType.Text
reqrech.CommandText = "select *
from Stock where numstock = '" & TextBox1.Text & "'"
datreadrech1 = reqrech2.ExecuteReader
datreadrech = reqrech.ExecuteReader
If Not datreadrech.HasRows Then
MsgBox("Le numéro
du stock recherché n'existe pas!", MsgBoxStyle.Exclamation,
"Opération de recherche")
Else
MsgBox("La
recherche est fructueuse !", MsgBoxStyle.Information, "Opération de
recherche")
datreadrech.Read()
TextBox1.Text =
datreadrech.GetValue(0)
TextBox2.Text =
datreadrech.GetValue(1)
datreadrech1.Read()
TextBox1.Text =
datreadrech1.GetValue(0)
TextBox3.Text =
datreadrech1.GetValue(1)
TextBox4.Text =
datreadrech1.GetValue(2)
End If
datreadrech.Close()
datreadrech1.Close()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" &
.Number & vbCrLf & "description :" & .Description &
vbCrLf & "Apparu dans :" & .Source)
End With
End Sub
Bouton
supprimer
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button5.Click
On Error
GoTo etiq
Dim
reqsuppr As New OleDb.OleDbCommand
Dim
reqsuppr1 As New OleDb.OleDbCommand
Dim
reqsuppr2 As New OleDb.OleDbComman
Dim
reqsuppr3 As New OleDb.OleDbCommand
reqsuppr1.Connection = cn
reqsuppr1.CommandType = CommandType.Text
reqsuppr1.CommandText = "delete
* from stockmed where numstock='" & TextBox1.Text & "'"
reqsuppr1.ExecuteNonQuery()
reqsuppr2.Connection = cn
reqsuppr2.CommandType =
CommandType.Text
reqsuppr2.CommandText = "delete
* from stock where numstock='" & TextBox1.Text & "'"
reqsuppr2.ExecuteNonQuery()
MsgBox("L'opération de suppression est efféctuée avec succés !",
MsgBoxStyle.Information, " Opération de suppression")
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Bouton
réinitialiser
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button7.Click
On Error GoTo etiq
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ListBox1.Items.Clear()
datread.Close()
Exit Sub
etiq:
With Err()
MsgBox("Erreur
no:" & .Number & vbCrLf & "description :" &
.Description & vbCrLf & "Apparu dans :" & .Source)
End With
End Sub
Private Sub Button4_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Label1.Left = Label1.Left - 10
If Label1.Left < 0 Then
Label1.Left = 280
End If
End Sub
End Class
Vente:
Public Class Vente
Bouton Enregistrer la
vente
Private Sub Button3_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim reqajout As New OleDb.OleDbCommand
Dim reqajout1 As New OleDb.OleDbCommand
Dim reqmod As New OleDb.OleDbCommand
Dim req2 As New OleDb.OleDbCommand
Dim reqmod1, reqmod3 As New
OleDb.OleDbCommand
Dim req As New OleDb.OleDbCommand
Dim reqmod2 As New OleDb.OleDbCommand
Dim datread, datread1 As
OleDb.OleDbDataReader
Dim req1 As New OleDb.OleDbCommand
req1.Connection = cn
req1.CommandType = CommandType.Text
req1.CommandText = "select * from
vente where Numerovente = '" & TextBox7.Text & "'"
datread1 = req1.ExecuteReader
datread1.Read()
req.Connection = cn
req.CommandType = CommandType.Text
req.CommandText = "SELECT * FROM
Stockmed where ([numstock]='" & TextBox8.Text & "' And [codemedicament]='"
& TextBox1.Text & "')"
datread = req.ExecuteReader
datread.Read()
If datread.GetValue(2) >
TextBox3.Text Then
If datread.GetValue(2) < 10 Then
MsgBox("Opération de vente inacssessible , veuillez vérifiez la
quatité voulue !", MsgBoxStyle.Exclamation, "Opération de
vente")
Else
If Not datread1.HasRows Then
reqajout.Connection = cn
reqajout.CommandType = CommandType.Text
reqajout.CommandText = "insert into vente values('" &
TextBox7.Text & "','" & TextBox6.Text & "','"
& TextBox5.Text & "')"
reqajout.ExecuteNonQuery()
Else
reqmod3.Connection = cn
reqmod3.CommandType =
CommandType.Text
reqmod3.CommandText =
"update vente set [montantdevente] = [montantdevente] + " &
Val(TextBox5.Text) & " where ([numerovente]='" &
TextBox7.Text & "')"
reqmod3.ExecuteNonQuery()
End If
reqajout1.Connection = cn
reqajout1.CommandType = CommandType.Text
reqajout1.CommandText
= "insert into ventemed values('" & TextBox7.Text &
"','" & TextBox1.Text & "','" & TextBox3.Text
& " ')"
reqajout1.ExecuteNonQuery()
reqmod1.Connection = cn
reqmod1.CommandType =
CommandType.Text
reqmod1.CommandText =
"update stock set [quantité] = [quantité] - " & Val(TextBox3.Text)
& " where ([numstock]='" & TextBox8.Text & "')"
reqmod1.ExecuteNonQuery()
reqmod2.Connection = cn
reqmod2.CommandType =
CommandType.Text
reqmod2.CommandText =
"update stockmed set [quantitémedi] = [quantitémedi] - " &
Val(TextBox3.Text) & " where ([numstock]='" & TextBox8.Text
& "' And [codemedicament]='" & TextBox1.Text &
"')"
reqmod2.ExecuteNonQuery()
MsgBox("L'opération d'ajout est efféctuée avec succés!",
MsgBoxStyle.Information, "Opération d'ajout")
End If
Else
MsgBox("Impossible d'éffectuer cette opération :quantité en stock
inférieure à la quantité demandée", MsgBoxStyle.Exclamation,
"Opération de vente . . .")
End If
Exit Sub
End Sub
Private Sub Vente_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
On Error GoTo etiq
If cn.State
= ConnectionState.Closed Then
Call connect()
End If
Exit Sub
etiq:
With Err()
MsgBox("Erreur
no:" & .Number & vbCrLf & "description :" &
.Description & vbCrLf & "Apparu dans :" & .Source)
End With
End Sub
Bouton
quitter
Private Sub Button2_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
On Error GoTo etiq
Me.Hide()
MdiParent.Show()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:"
& .Number & vbCrLf & "description :" & .Description
& vbCrLf & "Apparu dans :" & .Source)
End With
End Sub
Bouton
liste médicaments
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error GoTo etiq
req.Connection = cn
req.CommandType = CommandType.Text
req.CommandText = "SELECT
Médicament.*, Stockmed.Numstock, Stockmed.QuantitéMedi,
Commande.Codefournisseur FROM Commande INNER JOIN ((Médicament INNER JOIN
Stockmed ON Médicament.CodeMedicament = Stockmed.CodeMedicament) INNER JOIN
commandemed ON Médicament.CodeMedicament = commandemed.CodeMédicament) ON
Commande.Numcommande = commandemed.Numcommande"
datread = req.ExecuteReader
If Not datread.HasRows Then
MsgBox("La table est vide
!", MsgBoxStyle.Exclamation, "Opération d'affichage")
Else
Do While datread.Read
ListBox1.Items.Add(datread.GetValue(0) & "-----" &
datread.GetValue(1) & "-----" & datread.GetValue(2) &
"-----" & datread.GetValue(3) & "-----" &
datread.GetValue(4) & "-----" & datread.GetValue(5) &
"-----" & datread.GetValue(6))
Loop
End If
datread.Close()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Bouton
réinitialiser
Private Sub Button5_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
On Error GoTo etiq
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
ListBox1.Items.Clear()
datread.Close()
Exit Sub
etiq:
With Err()
MsgBox("Erreur
no:" & .Number & vbCrLf & "description :" &
.Description & vbCrLf & "Apparu dans :" & .Source)
End With
End Sub
Bouton
calculer montant TTC
Private Sub Button4_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
On Error GoTo etiq
TextBox5.Text = (Val(TextBox4.Text) +
(Val(TextBox4.Text) * 0.07)) * Val(TextBox3.Text)
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Label1.Left = Label1.Left - 10
If Label1.Left < 0 Then
Label1.Left = 280
End If
End Sub
End Class
Pharmacie (Multi Documents Interface) MDI:
Private Sub MédicamentsToolStripMenuItem_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
MédicamentsToolStripMenuItem.Click
On Error GoTo etiq
Dim f1 As New Médicament
f1.MdiParent = Me
f1.Show()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Private Sub StocksToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles StocksToolStripMenuItem.Click
On Error GoTo etiq
Dim f2 As New Stock
f2.MdiParent = Me
f2.Show()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Private Sub VentesToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles VentesToolStripMenuItem.Click
On Error GoTo etiq
Dim f3 As New Vente
f3.MdiParent = Me
f3.Show()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Private Sub FournisseursToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
FournisseursToolStripMenuItem.Click
On Error GoTo etiq
Dim f4 As New Fournisseur
f4.MdiParent = Me
f4.Show()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf & "description
:" & .Description & vbCrLf & "Apparu dans :" &
.Source)
End With
End Sub
Private Sub QuitterToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
QuitterToolStripMenuItem.Click
On Error GoTo etiq
Dim rep As String
rep = MsgBox("voulez vous vraiment quitter Oui/Non",
MsgBoxStyle.YesNo + MsgBoxStyle.Information, "Confirmation de
fermeture")
If rep =
vbYes Then
End
End If
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Private Sub DéconncterToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
DéconncterToolStripMenuItem.Click
On Error GoTo etiq
login.Show()
Me.Visible = False
Exit Sub
etiq:
With Err()
MsgBox("Erreur
no:" & .Number & vbCrLf & "description :" &
.Description & vbCrLf & "Apparu dans :" & .Source)
End With
End Sub
Private Sub
AProposDeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles AProposDeToolStripMenuItem.Click
On Error
GoTo etiq
Dim f4 As New apropos
f4.MdiParent = Me
f4.Show()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
End Class
Fenêtre de connexion:
Public
Class login
Bouton
OK
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error GoTo etiq
Dim reqlog
As New OleDb.OleDbCommand
Dim datlog As OleDb.OleDbDataReader
reqlog.Connection = cn
reqlog.CommandType = CommandType.Text
reqlog.CommandText = "select *
from utilisateur where login = '" & TextBox1.Text & "'and
password ='" & TextBox2.Text & "'"
datlog = reqlog.ExecuteReader
datlog.Read()
If Not datlog.HasRows Then
MsgBox("le nom d'utilisateur ou mot de passe invalide",
MsgBoxStyle.Information)
Else
Pharmacie.Show()
Me.Hide()
TextBox1.Text = ""
TextBox2.Text = ""
End If
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Bouton
annuler
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
On Error GoTo etiq
Me.Close()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf &
"description :" & .Description & vbCrLf & "Apparu
dans :" & .Source)
End With
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call connect()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
Label3.Left = Label3.Left - 10
If Label3.Left < 0 Then
Label3.Left = 280
End If
End Sub
End Class
3. Conclusion
D’après la réalisation de
ce travail, nous avons pu aboutir et apporter une réponse à notre problématique
qui consiste à réaliser une application
de gestion de pharmacie.
Bonne Lecture...
RépondreSupprimerC'est très bien
RépondreSupprimerlien pour telecharger logiciel Visual basic 2008 SVP
RépondreSupprimersalam khoya est ce que tu peux me envoyer le travail avec base de donnne dans email chafik.montaser@gmail.com
RépondreSupprimermerci d'avance
slm je veux cette application eb language php si vous voulez aide moi je besoin de ça ... cas urgent
RépondreSupprimerslm je veux cette application eb language php si vous voulez aide moi je besoin de ça ... cas urgent
RépondreSupprimerslm je veux cette application en language php si vous voulez aide moi je besoin de ça ... cas urgent
RépondreSupprimerslm je veux cette application en language php si vous voulez aide moi je besoin de ça ... cas urgent
RépondreSupprimercoucou a toute et tous j'aimerai me formé en html besoin de lien svp merci
RépondreSupprimerslt tu peux m'envoyer cette application a mon email avec la base de donné plzzzz
RépondreSupprimergmail : abdel.des.tenebres@gmail.com