Description de l'application*
L’utilisateur attend le chargement de la page.
Page de sécurité
Après Avoir accéder À cette Application il faut d'abord entrer un Login et un Mot de passe pour plus de sécurité et pour que l'application reste privée.
Private Sub ok_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles ok.Click
Dim dr As SqlDataReader
con.Open()
Dim cmd As New SqlCommand("select * from passeword where nom='"& TB1.Text &"'", con)
dr = cmd.ExecuteReader()
While dr.Read()
If TB2.Text = dr(1) Then
Dim ee As New Menu
ee.Show()
Me.Close()
Else
MsgBox("le mot de passe ou Nom utilisateur invalide", MsgBoxStyle.Critical)
Me.TB1.Clear()
Me.TB2.Clear()
End If
End While
con.Close()
End Sub
Après avoir cliqué sur le bouton changer le mot de passe cette page aparté de donner un nouveau mot de passe
da = New SqlDataAdapter("update passeword set passewords='" & Me.TextBox4.Text & "' where nom='" & TextBox1.Text & "' and passewords='" & TextBox2.Text & "'", con)
da.Fill(ds, "passeword")
MsgBox("bien Modifier", MsgBoxStyle.Information)
Cette page est le Menu général qui regroupe tous les modules utilisés dans cette application, et qui permet de faciliter les tâches de navigation
 |
Ce formulaire permet de saisir les informations d’un nouvel article.
Le texte box de Référence d’article s’incrémenter automatiquement
Le combo boxpermet d’afficher les trois types d’article
Le Bouton Vider: pour vider les zones de texte pour ajouter des nouvelles données.
Le bouton OKpermet d’ajouter une nouvelle ligne à la table article
Après chaque opération ; un message de confirmation sera affiché.
Ce formulaire permet de Supprimer un Article.
Dans le combo boxl’utilisateur choisit la désignation d’article à supprimer.
Le click sur le bouton Supprimer permet de faire une confirmation sur son choix.
Le bouton retourpermet de fermer cette page et revenir à la page Menu
Ce formulaire permet de faire Afficher toutes les informations de la table Article
Ce formulaire sert à la mise à jour de la table Service :
Lorsque l’utilisateur veut ajouter un service il clique :
Pour ajouter un service
da = New SqlDataAdapter("insert into Service values ( " & TextBox1.Text & ",'" & ComboBox1.Text & "','" & TextBox3.Text & "')", con)
da.Fill(ds, "Service")
MsgBox("bien Ajouter", MsgBoxStyle.Information)
Pour modifier un service et choisit un Nom de Service dans le combo box et appuie sur le bouton Modifier
da = New SqlDataAdapter("update Service set Resp_serv = '" & TextBox3.Text & "' where nom_srv ='" & ComboBox1.Text & "'", con)
da.Fill(ds, "Service")
MsgBox("bien Modifier", MsgBoxStyle.Information)
Après avoir choisir le nom de service à supprimer l’utilisateur peut appuyer sur le bouton Supprimer
da = New SqlDataAdapter("delete from Service where nom_srv= '" & ComboBox1.Text & " ' ", con)
da.Fill(ds, "Service")
MsgBox("bien Supprimer ", MsgBoxStyle.Information)
Pour ajouter une livraison :
On choisit la désignation d’article puis on entre la Quantitéet on clique sur bouton enregistrer.
Page Affiche :
Dans cette page l’utilisateur choisit une date donnée et on reçoit comme résultat tous
les Articles livrés et qui référent à la date d’ajout dans le stock
Cette page permet d'enregistrer les nouvelles commandes livrées au service destinataire :
L’utilisateur choisit le nom de service, la désignation d’article concerné puis il faut entrer la Quantité commandée et la Quantité sortie
à Pour enregistrer ces informations on clique sur le bouton enregistrer
à L’utilisateur choisi le nom de service et clique sur le bouton Afficher toutes les commandes.
Le bouton imprimer : pour imprimer les dernières commandes affichées dans Datagrid
C’est l’état Bon D’approvisionnement
Quand l’utilisateur clique sur Imprimer le formulaire " imprime état" s’affiche :
àImprimer par mois affiche l’état ci-dessous :
àImprimer par Année affiche l’état ci-dessous :
Post a Comment