أولاً ، قبل أن أتوصل إلى الموضوع الموضوعي وشرح كيفية إنشاء فصل ، أريد أن أتأكد من أنك تعرف "الكائن". بينما يمكنك استخدام الكائنات في برنامجك دون معرفة القواعد الصحيحة ، لا أوصي بذلك! بالنسبة للمبتدئين في الكائن ، سيعطيك القسم التالي فكرة عن مفهومه ومحتوىه. يمكن للقراء الذين تعلموا بالفعل عن البرمجة الموجهة للكائنات (OOP) تخطي هذا الفصل.
مقدمة
"ما هو الكائن؟" - عادة ما تمثل الكائنات نوعًا من الكيان ، وخاصة مجموعة من المتغيرات والوظائف.
"ما هو الكيان؟" - حرفيًا ، الكيان هو "شيء" ، وأعني مفهومًا أو أي كائن. على سبيل المثال ، السيارة هي كيان لأنها كائن. المنتجات التي تباعها قسم مبيعات شركتك هي أيضًا كيان. بالطبع ، يمكنك أيضًا تفكيكهم. موظفو المبيعات ، العملاء ، المنتجات ، إلخ.
دعنا نلقي نظرة فاحصة على الكيان (الكائن) من "البيع". من أجل أن تجعلك لديك "صورة" مبيعات أكثر دقة ، تحتاج إلى معرفة ما هو العميل الذي اشترى العميل ، وهو ، من هو مندوب المبيعات ، وما إلى ذلك .... يبدو أن هذا حدث بسيط ، ولكن على افتراض أن جميع المعلومات يتم تخزينها في جدول قاعدة بيانات منفصل ، ثم عندما تحتاج إلى الحصول على جميع المعلومات ذات الصلة بعملية المبيعات ، يجب عليك القيام بوسائل بيانات مستقلة متعددة في قاعدة البيانات الخاصة بك. هل هناك طريقة أسهل للحصول على جميع المعلومات حول البيع في وقت واحد؟ "هدف".
في كائن ، يمكنك زرع رمز للحصول على بيانات من جداول أخرى ، ويمكنك أيضًا حفظ جميع المعلومات حول خصائص الكائن ، بحيث يمكنك بسهولة إدارة بيانات المبيعات الخاصة بك باستخدام الرمز. على سبيل المثال:
'' '' '' OpenthedatabaseConnection
setObjConn = server.createObject ("adodb.connection")
Objconn.Open "mydsn"
'' '' '' '' 'CreateTheRecorDSetObject
setObjrs = server.createBject ("adodb.recordset")
'' '' '' '' 'inferenesqlquery
stromplexsqlquery = "SelectC.Name ، S.NameFromCustomersc ،" & _
"المبيعات ، salesslwheresl.customerid = c.idand" & _
"sl.SalespersonId = s.idandsl.id =" & stridofthissale & "؛"
'' '' '' 'OpentHereCordset
objrs.openstroctcomplexsqlquery ، objconn ، engenforwardonly ، _
AdlockReadonly ، ADCMDText
'' '' '' '' 'takeTheCustomerAndSalespersonnamesFromTherecordset
strcustomername = objrs (0)
strsalespersonname = objrs (1)
'' '' '' '' TIDYUPTheObjects
objrs.close
objconn.close
setObjrs = لا شيء
setObjConn = لا شيء
'' '' '' '' '' OutputTheData
reponse.write "thissalewasmadeby" و StrSalespersonname & _
"إلى" & strcustomername
يمكنك استخدام "كائن" بدلاً من ذلك:
"'' '' '' '' createThe" بيع "
setobjsale = Newsale