Tout d'abord, avant d'entrer dans le sujet de fond et d'expliquer comment construire une classe, je veux m'assurer que vous connaissez "l'objet". Bien que vous puissiez utiliser des objets dans votre programme sans connaître les règles correctes, je ne le recommande pas! Pour les débutants de l'objet, la section suivante vous donnera une idée de son concept et de son contenu. Les lecteurs qui ont déjà appris la programmation orientée objet (POO) peuvent ignorer ce chapitre.
introduction
l "Qu'est-ce qu'un objet?" - Les objets représentent généralement une sorte d'entité, principalement une collection de variables et de fonctions.
L "Qu'est-ce qu'une entité?" - Littéralement, une entité est une "chose", et je veux dire un concept ou n'importe quel objet. Par exemple, une voiture est une entité car c'est un objet. Les produits vendus par le service des ventes de votre entreprise sont également une entité. Bien sûr, vous pouvez également les démonter. Le personnel de vente, les clients, les produits, etc. sont tous des entités.
Examinons de plus près l'entité (objet) de la «vente». Afin de vous faire avoir une "image" de vente plus précisément, vous devez savoir ce que le client a acheté, quel client est, qui est le vendeur, etc. Existe-t-il un moyen plus facile d'obtenir toutes les informations sur la vente à la fois? "Objet".
Dans un objet, vous pouvez implanter du code pour obtenir des données provenant d'autres tables, et vous pouvez également enregistrer toutes les informations sur les propriétés des objets, afin que vous puissiez facilement gérer vos données de vente à l'aide du code. Par exemple:
'' '' '' '' OpenTheDatabaseConnection
SetObjConn = server.createObject ("adodb.connection")
objconn.open "MyDSn"
'' '' '' '' '' '' CreateTherecordSetObject
SetObjrs = server.createObject ("adodb.recordSet")
'' '' '' '' '' '' Définit lesqlquery
strComplexsqlQuery = "selectc.Name, s.NamefromCustomescrsc, & _
"SalesPeoples, Salesslwheresl.CustomerId = C.Idand" & _
"Sl.SaleSpersonID = S.IDANDSL.ID =" & Stridofthissale & ";"
'' '' '' '' '' OpenTheRordset
Objrs.OpenStrComplexSqlQuery, ObjConn, AdoptenForwardOnly, _
AdlockReadonly, adcmdText
'' '' '' '' '' '' TakeTheCustomerandSalsonNamesfromTherecordset
strCustomEnName = objrs (0)
strSalepersonName = objrs (1)
'' '' '' '' '' 'TidyuptheObjects
objrs.close
objconn.close
SetObjrs = rien
SetObjConn = rien
'' '' '' '' '' '' '' OutputTheData
Response.Write "ThisSalewasmadeby" & StrSalePersonName & _
"To" & strcustomdername
Vous pouvez utiliser "objet" à la place:
'' '' '' '' '' '' Créer un objet "vente"
SetObjsale = newsale