Application de gestion pharmaceutique avec Visual Basic .

net

Code Form Mdicament:

Public Class Mdicament

Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
GroupBox3.Enter
End Sub
Private Sub Mdicament_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 mdicaments

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
On Error GoTo etiq
req.Connection = cn

Plus de projets sur: www.cour2.blogspot.com

 Application de gestion pharmaceutique avec Visual Basic .net
req.CommandType = CommandType.Text
req.CommandText = "SELECT Mdicament.*, Stockmed.Numstock, Stockmed.QuantitMedi,
Commande.Codefournisseur FROM Commande INNER JOIN ((Mdicament INNER JOIN Stockmed ON
Mdicament.CodeMedicament = Stockmed.CodeMedicament) INNER JOIN commandemed ON
Mdicament.CodeMedicament = commandemed.CodeMdicament) ON Commande.Numcommande =
commandemed.Numcommande"
datread = req.ExecuteReader
If Not datread.HasRows Then
MsgBox("La table est vide !", MsgBoxStyle.Exclamation, "Opration 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
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
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 Mdicament 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 numro du mdicament recherch n'existe pas ", MsgBoxStyle.Exclamation, "Opration
de recherche")
Else
MsgBox("La recherche est fructueuse !", MsgBoxStyle.Information, "Opration 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

Plus de projets sur: www.cour2.blogspot.com

 Application de gestion pharmaceutique avec Visual Basic .net
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 mdicament 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'opration de modification est effctue avec succs!", MsgBoxStyle.Information, "Opration
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 codemdicament='" & TextBox1.Text
& "'"
reqsuppr1.ExecuteNonQuery()
reqsuppr2.Connection = cn
reqsuppr2.CommandType = CommandType.Text
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
reqsuppr2.CommandText = "delete * from stockmed where codemedicament='" & TextBox1.Text & "'"
reqsuppr2.ExecuteNonQuery()
reqsuppr3.Connection = cn
reqsuppr3.CommandType = CommandType.Text
reqsuppr3.CommandText = "delete * from ventemed where codemdicament='" & TextBox1.Text & "'"
reqsuppr3.ExecuteNonQuery()
reqsuppr.Connection = cn
reqsuppr.CommandType = CommandType.Text
reqsuppr.CommandText = "delete * from mdicament where codemedicament='" & TextBox1.Text &
"'"
reqsuppr.ExecuteNonQuery()
MsgBox("L'opration de suppression est effctue avec succs !", MsgBoxStyle.Information, "
Opration de suppression")
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf & "description :" & .Description & vbCrLf & "Apparu dans
:" & .Source)
End With
End Sub

Bouton rinitialiser
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

Plus de projets sur: www.cour2.blogspot.com

 Application de gestion pharmaceutique avec Visual Basic .net
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

Plus de projets sur: www.cour2.blogspot.com

 Application de gestion pharmaceutique avec Visual Basic .net
Code Form 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, "Opration 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:

Plus de projets sur: www.cour2.blogspot.com

 Application de gestion pharmaceutique avec Visual Basic .net
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf & "description :" & .Description & vbCrLf & "Apparu dans
:" & .Source)
End With
End Sub

Bouton rinitialiser
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()
Mdicament.Show()
Exit Sub
etiq:
With Err()
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
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 mdicament where codemedicament ='" & TextBox1.Text & "'"
datr = reqqq.ExecuteReader
If Not datr.HasRows Then
If Not datread1.HasRows Then
reqcom1.Connection = cn
reqcom1.CommandType = CommandType.Text

Plus de projets sur: www.cour2.blogspot.com

 Application de gestion pharmaceutique avec Visual Basic .net
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 Mdicament 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 [quantitmedi] = [quantitmedi] +" &
Val(TextBox8.Text) & " where numstock ='" & TextBox7.Text & "'"
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
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'opration d'ajout est effctue avec succs !", MsgBoxStyle.Information, "Opration 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
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
End If
End Sub
End Class

Code Form 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
Mdicament.TextBox3.Text = Me.TextBox1.Text
Me.Hide()
Mdicament.Show()
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf & "description :" & .Description & vbCrLf & "Apparu dans
:" & .Source)
End With
End Sub

Bouton quitter

Plus de projets sur: www.cour2.blogspot.com

 Application de gestion pharmaceutique avec Visual Basic .net
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
On Error GoTo etiq
Me.Hide()
Mdicament.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, "Opration 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
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
Code Form 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, "Opration 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()
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
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'opration d'ajout est effctue avec succs!", MsgBoxStyle.Information, "Opration
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
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
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 numro du fournisseur recherch n'existe pas ", MsgBoxStyle.Exclamation, "Opration
de recherche")
Else
MsgBox("La recherche est fructueuse !", MsgBoxStyle.Information, "Opration 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 & "',Tl='" & TextBox5.Text & "'where codefournisseur ='" &
TextBox1.Text & "'"
reqmodif.ExecuteNonQuery()
MsgBox("L'opration de modification est effctue avec succs!", MsgBoxStyle.Information, "Opration
de modification")
Exit Sub
etiq:
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
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'opration de suppression est effctue avec succs!", MsgBoxStyle.Information, "Opration
de suppression")
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf & "description :" & .Description & vbCrLf & "Apparu dans
:" & .Source)
End With
End Sub

Bouton rinitialiser
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
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
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

Code Form Stock:

Plus de projets sur: www.cour2.blogspot.com

 Application de gestion pharmaceutique avec Visual Basic .net

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.*, Mdicament.CodeMedicament, Stockmed.QuantitMedi FROM
Mdicament INNER JOIN (Stock INNER JOIN Stockmed ON Stock.Numstock = Stockmed.Numstock) ON
Mdicament.CodeMedicament = Stockmed.CodeMedicament"
datread = req.ExecuteReader
If Not datread.HasRows Then
MsgBox("Le numro du stock recherch n'existe pas !", MsgBoxStyle.Exclamation, "Opration
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()
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
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'opration d'ajout est effctue avec succs!", MsgBoxStyle.Information, "Opration
d'ajout")
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf & "description :" & .Description & vbCrLf & "Apparu dans
:" & .Source)
End With
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
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 numro du stock recherch n'existe pas!", MsgBoxStyle.Exclamation, "Opration de
recherche")
Else
MsgBox("La recherche est fructueuse !", MsgBoxStyle.Information, "Opration 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

Plus de projets sur: www.cour2.blogspot.com

 Application de gestion pharmaceutique avec Visual Basic .net
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'opration de suppression est effctue avec succs !", MsgBoxStyle.Information, " Opration de
suppression")
Exit Sub
etiq:
With Err()
MsgBox("Erreur no:" & .Number & vbCrLf & "description :" & .Description & vbCrLf & "Apparu dans :" &
.Source)
End With
End Sub

Bouton rinitialiser
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
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
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

Code Form 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
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
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("Opration de vente inacssessible , veuillez vrifiez la quatit voulue !",
MsgBoxStyle.Exclamation, "Opration 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()
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
reqmod2.Connection = cn
reqmod2.CommandType = CommandType.Text
reqmod2.CommandText = "update stockmed set [quantitmedi] = [quantitmedi] - " &
Val(TextBox3.Text) & " where ([numstock]='" & TextBox8.Text & "' And [codemedicament]='" &
TextBox1.Text & "')"
reqmod2.ExecuteNonQuery()

MsgBox("L'opration d'ajout est effctue avec succs!", MsgBoxStyle.Information, "Opration

d'ajout")
End If
Else
MsgBox("Impossible d'ffectuer cette opration :quantit en stock infrieure la quantit
demande", MsgBoxStyle.Exclamation, "Opration 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()

Plus de projets sur: www.cour2.blogspot.com

 Application de gestion pharmaceutique avec Visual Basic .net
MsgBox("Erreur no:" & .Number & vbCrLf & "description :" & .Description & vbCrLf & "Apparu dans
:" & .Source)
End With
End Sub

Bouton liste mdicaments

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 Mdicament.*, Stockmed.Numstock, Stockmed.QuantitMedi,
Commande.Codefournisseur FROM Commande INNER JOIN ((Mdicament INNER JOIN Stockmed ON
Mdicament.CodeMedicament = Stockmed.CodeMedicament) INNER JOIN commandemed ON
Mdicament.CodeMedicament = commandemed.CodeMdicament) ON Commande.Numcommande =
commandemed.Numcommande"
datread = req.ExecuteReader
If Not datread.HasRows Then
MsgBox("La table est vide !", MsgBoxStyle.Exclamation, "Opration 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 rinitialiser
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 = ""
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
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

Plus de projets sur: www.cour2.blogspot.com

 Application de gestion pharmaceutique avec Visual Basic .net
Code Form Menu Pharmacie (Multi Documents Interface) MDI:

Private Sub MdicamentsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MdicamentsToolStripMenuItem.Click
On Error GoTo etiq
Dim f1 As New Mdicament
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()

Plus de projets sur: www.cour2.blogspot.com

 Application de gestion pharmaceutique avec Visual Basic .net
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()
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
MsgBox("Erreur no:" & .Number & vbCrLf & "description :" & .Description & vbCrLf & "Apparu dans
:" & .Source)
End With
End Sub
Private Sub DconncterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles DconncterToolStripMenuItem.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

Plus de projets sur: www.cour2.blogspot.com

 Application de gestion pharmaceutique avec Visual Basic .net
Code Form Login Fentre 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
Plus de projets sur: www.cour2.blogspot.com
 Application de gestion pharmaceutique avec Visual Basic .net
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

Plus de projets sur: www.cour2.blogspot.com