|
commission de vente peut être structuré de différentes manières en fonction de l'industrie et de l'entreprise . L'exécution de ce calcul dans un programme Visual Basic est rapide et efficace . VB fournit un couple de moyens pour boucler à travers un ensemble de données , le traitement de chaque élément un par un jusqu'à la fin. Le programme peut lire tous les commentaires d'un fichier ou base de données, une boucle à travers le seul enregistrement de données à la fois. Les résultats peuvent soit être insérés dans une table de base de données pour la génération de rapports plus tard, écrit dans un fichier ou par courrier électronique à un superviseur. Instructions
1 ouvrir une connexion à une base de données soit ou d'un fichier externe pour récupérer l'entrée de votre application Visual Basic. Vous aurez besoin de définir des variables de type double de tenir la commission , salaire, taux de commission et les chiffres de ventes pour le mois en cours.
2 boucle à travers l'information en utilisant un " Do While " boucle. Si la récupération entrée d'une base de données, "Do While Not rstSalesData.EOF " va exécuter les commandes qui suivent cette déclaration jusqu'à la fin du jeu d'enregistrements a été atteint.
3 récupérer les montants nécessaires pour le calcul de la commission. Une commission typique pourrait être que le vendeur reçoit 10 pour cent du chiffre d'affaires de plus de 10,000 $ et de 5 pour cent sur les ventes moins de $ 10,000 . Tout d'abord, récupérer le montant des ventes pour le mois dans la variable des ventes et le salaire dans la variable de salaire. Si le montant est plus de $ 10,000, le taux de commission sera de 5 pour cent . Définissez la variable taux égal à .05 et la variable des ventes égal au montant du chiffre d'affaires , 4,700 $ par exemple .
4 calculer la commission en prenant les ventes des durées variables le rate.dCommission de commission = dSales * dRate.Get le salaire total pour le mois en ajoutant " dCommission " à la variable de salaire de " dSalary . " Format " dSalary " à deux décimales près pour obtenir un montant précis.
5 Fin de la boucle avec «Loop» . Le code du programme final devrait ressembler à ceci : Do While Not rstSalesData.EOFdSales = rstSalesData.field ("Ventes " ) valueIf dSales < 10000 ThendRate = .05 = .10 ElsedRate Fin IfdSalary = rstSalesData.fields ( «Salaire» ) . . valuedCommission = dSales * dRatedSalary = round ( ( dSalary + dCommission ) , 2 ) « ajouter du code ici pour mettre à jour la base de données avec dSalary ou écrire à une ligne filerstSalesData.MoveNextLoopThe qui commence par une apostrophe est un commentaire dans Visual Basic. C'est là une fonction peut être ajouté pour enregistrer de " dSalary " à un fichier ou à la base de données avant de passer à l'enregistrement suivant.
|
