GESTION COMMANDE
cs_Gwendal3
Messages postés
24
Date d'inscription
samedi 4 mars 2006
Statut
Membre
Dernière intervention
7 mai 2009
-
7 févr. 2008 à 18:45
hamdi802 Messages postés 6 Date d'inscription dimanche 6 décembre 2009 Statut Membre Dernière intervention 21 mars 2011 - 23 déc. 2009 à 13:37
hamdi802 Messages postés 6 Date d'inscription dimanche 6 décembre 2009 Statut Membre Dernière intervention 21 mars 2011 - 23 déc. 2009 à 13:37
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/45661-gestion-commande
https://codes-sources.commentcamarche.net/source/45661-gestion-commande
23 déc. 2009 à 13:37
et le solution du cette manière
et SVP Aider moi urgent !!!avant le 26/12/2009
merci pour votre attention !!!
22 déc. 2009 à 18:06
++
22 déc. 2009 à 10:43
Pouvons nous avoir la base de données de ton exemple
6 déc. 2009 à 18:17
Il existe un forum pour ce genre de post.
et pour finir, on ne bosse pas pour que tu ais une bonne note à ton exo, ou une promotion dans ton taff, surtout lorsque l'on n'est pas poli et que l'on explique pas le probléme. Parcequ'en gros faut faire tout le code pour toi ?
namého !
Maintenant ce n'est que mon avis, mais sur mes fofos cela se passe comme ça.
6 déc. 2009 à 12:58
Module Gest_Commandes
Private Sub Ajouter_Commande(ByVal intNumC As Integer)
'elle permet d'ajouter une nouvelle commande dans le fichier FCOMMANDE
'NB: intNumC est un numéro séquentiel automatique qui représente à la fois
' le numéro d'une commande et sa position dans le fichier FCOMMANDE.
End Sub
Private Sub Ajouter_LigneCom(ByVal intNumC As Integer, ByVal strRef As String)
'elle permet d'ajouter une nouvelle ligne de commande dans FLIGNECOM
End Sub
Private Sub Saisir_Date(ByRef dt As Date)
'elle permet de saisir une date valide
End Sub
Private Function Verifier_Prod(ByVal strRef As String, ByVal intNumC As Integer) As Boolean
'elle permet de retourner:
' VRAI: si strRef existe déjà dans FLIGNECOM avec la même commande intNumC
' FAUX: si strRef n'existe pas dans la commande intNumC
End Function
Private Function Verifier_Dispo(ByVal intPos As Integer, ByVal intNumC As Integer) As Boolean
'elle permet de retourner:
' VRAI: si le produit se trouvant à la position intPos est disponible en stock
' FAUX: s'il n'est pas disponible.
End Function
Private Sub MiseAJour_Stock(ByVal intPos As Integer, ByVal intQteC As Integer)
'elle permet de diminuer la quantité en stock du produit
'se trouvant à la position intPos de la quantité commandée intQteC
End Sub
Function Rechercher_Commande(ByVal intNumC As Integer) As Boolean
'elle permet de retourner
' VRAI: si la commande numéro intNumC existe dans FCOMMANDE
' FAUX: sinon
End Function
Private Sub Afficher_Commande(ByVal intNumC As Integer)
'elle permet d'afficher toutes les informations d'une commande numéro intNumC
'Voici un exemple d'affichage de la commande N°5:
' Numéro Commande : 5
' Date commande : 28/11/2009
' Nom du Client : Société DIDO
' Date Livraison : 28/11/2009
' Produits commandés
' ----------------------------------------------------------------------
' Référence Nom du produit Prix Vente Quantité Total Ligne
' ----------------------------------------------------------------------
' PS100 Papier serviette 100 0.720 100 72,000
' SAVAB Savon Anti-Bactérien 0.550 200 110,000
' DEOBE Déodorant pour bébé 12.000 10 120,000
' ----------------------------------------------------------------------
' Taux Remise: 10% Total Brut: 302,000
' Net à payer: 271,800
End Sub
End Module
23 avril 2008 à 18:25
Public strcon As String = "Data Source=.\sqlexpress;Initial Catalog=Gestion_Commande;Integrated Security=True"
il y a bien un MDF dans le débug mais le chemin ne me parait pas relatif ???
Sinon le code parait trés bien, je serais donc preneur d'explication M.stop1985 !
@ te lire, @dn
7 févr. 2008 à 18:45
Il ne manquerait pas la base ?
Autrement, avec ma petite expérience, le code est compréhensif, bonne présentation...
Gwendal