Gestion stock: cas des commandes

bonjour,je souhaiterai comprendre le mécanisme de gestion de stocks,commprendre les types de stocks et les coûts qu'ils génèrent.merci

svp je veux dit a tous les membres stp aider moi dans cette exercice plzz et le soulution dans cette facon plz !!!
il y a tous les annoncés ici !!!(merci en tous cas)

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

svp je chercher un code source en vb de systeme des gestion du stock