Pertama, sebelum saya masuk ke topik substantif dan menjelaskan cara membangun kelas, saya ingin memastikan Anda tahu "objek". Meskipun Anda dapat menggunakan objek dalam program Anda tanpa mengetahui aturan yang benar, saya tidak merekomendasikan ini! Untuk pemula objek, bagian selanjutnya akan memberi Anda gambaran tentang konsep dan kontennya. Pembaca yang telah belajar tentang pemrograman berorientasi objek (OOP) dapat melewatkan bab ini.
perkenalan
l "Apa itu objek?" - Objek biasanya mewakili beberapa jenis entitas, terutama kumpulan variabel dan fungsi.
l "Apa itu entitas?" - Secara harfiah, suatu entitas adalah "benda", dan maksud saya sebuah konsep atau objek apa pun. Misalnya, mobil adalah entitas karena itu adalah objek. Produk yang dijual oleh departemen penjualan perusahaan Anda juga merupakan entitas. Tentu saja, Anda juga bisa memisahkannya. Personil penjualan, pelanggan, produk, dll. Semuanya adalah entitas.
Mari kita lihat lebih dekat pada entitas (objek) "Penjualan". Untuk membuat Anda memiliki "gambar" penjualan lebih akurat, Anda perlu tahu apa yang dibeli pelanggan, pelanggan mana, siapa tenaga penjualan, dll. .... Ini tampaknya merupakan peristiwa sederhana, tetapi dengan asumsi bahwa semua informasi disimpan dalam tabel basis data yang terpisah, kemudian ketika Anda perlu mendapatkan semua informasi yang relevan dari proses penjualan, Anda harus melakukan banyak kueri independen di semua data di database Anda. Apakah ada cara yang lebih mudah untuk mendapatkan semua informasi tentang penjualan sekaligus? "Obyek".
Dalam suatu objek, Anda dapat menanamkan kode untuk mendapatkan data dari tabel lain, dan Anda juga dapat menyimpan semua informasi tentang properti objek, sehingga Anda dapat dengan mudah mengelola data penjualan Anda menggunakan kode. Misalnya:
'' '' '' '' OpenthedatabaseConnection
Setobjconn = server.createObject ("adodb.connection")
objconn.open "mydsn"
'' '' '' '' '' '' CreateTherecordSetObject
SetoBjrs = server.CreateObject ("adodb.recordset")
'' '' '' '' '' '' 'Pasti
strcomplexsqlquery = "selectc.name, s.namefromcustomersc," & _
"Salespeoples, Salesslwheresl.customerid = c.idand" & _
"Sl.salespersonid = s.idandsl.id =" & stridofthissale & ";"
'' '' '' '' 'Opentherecordset
objrs.openstrCexplexsqlQuery, objconn, adoptForwardonly, _
adlockreadonly, adcmdtext
'' '' '' '' '' '' TakeThecustomerandSalespersonNamesFromtherecordset
strcustomername = objrs (0)
strsalespersonName = objrs (1)
'' '' '' '' '' 'TidyuptheHjects
objrs.close
objconn.close
Setobjrs = tidak ada
Setobjconn = tidak ada
'' '' '' '' '' '' '' OutputThedata
Response.write "thissalewasmadeby" & strsalespersonNoname & _
"to" & strcustomername
Anda dapat menggunakan "objek" sebagai gantinya:
'' '' '' '' '' '' CreateThe "Sale" objek
Setobjsale = newsale