Share Code:db40 Case Study Sistem Informasi Bengkel

4 Comments on Share Code:db40 Case Study Sistem Informasi Bengkel

1. Hardyman says:

   August 21, 2009 at 11:55 pm

   Membuat Class
   Public Class Customer
   Private _KdCustomer As String
   Private _Nama As String
   Private _Alamat As String
   Private _NoTelp As String

   Public Sub New(ByVal KdCustomer As String, ByVal Nama As String, ByVal Alamat As String, ByVal NoTelp As String)
   _KdCustomer = KdCustomer
   _Nama = Nama
   _Alamat = Alamat
   _NoTelp = NoTelp
   End Sub

   Public Class Mobil

   Private _NoPlat As String
   Private _Customer As Customer
   Private _JenisMobil As String
   Private _TypeMobil As String
   Private _Warna As String
   Public Sub New(ByVal NoPlat As String, ByVal JenisMobil As String, ByVal TypeMobil As String, ByVal Warna As String)
   _NoPlat = NoPlat
   _Customer = Nothing
   _JenisMobil = JenisMobil
   _TypeMobil = TypeMobil
   _Warna = Warna
   End Sub

   Public Class Part
   Private _KdPart As String
   Private _Namapart As String
   Private _Harga As Integer
   Private _Stok As Integer

   Public Sub New(ByVal KdPart As String, ByVal Namapart As String, ByVal Harga As Integer, ByVal Stok As Integer)
   _KdPart = KdPart
   _Namapart = Namapart
   _Harga = Harga
   _Stok = Stok
   End Sub

   Fungsi Store
   Dim db As ObjectContainer = Db4oFactory.OpenFile(“namadatabase.yap”)
   Try
   Dim Customer1 As Customer = New Customer(“C004″, “Ronald”, “Kemanggisan Binus”, “021503405″)
   db.Set(Customer1) ‘save data customer

   Dim Mobil1 As Mobil = New Mobil(“B0077AK”, “Sedan”, “Timor”, “Merah Maroon”)
   Mobil1.Customer = Customer1 ‘set Customer1 ke dalam Mobil1, dimana Customer1 sebagai owner dari Mobil1
   db.Set(Mobil1)

   Dim Part1 As Part = New Part(“P001″, “Kingpin”, 380000, 5)
   db.Set(Part1)
   yang diinginkan
   Finally
   db.Close()
   End Try

   lengkapnya sudah ada di forum binus maya,
   perlu dipindahin ke sini pak ?
2. admin says:

   September 4, 2009 at 4:14 pm

   Pindahin ke sini donk… yang lengkap. Di Binusmaya kamu taruh dimana?
3. Hardyman says:

   September 4, 2009 at 4:51 pm

   Berikut contoh Class dan operasi db4o untuk class tersebut

   catatan : untuk menjalankan db4o di VB.NET anda
   harus tambahkan refference db4o.dll yang
   bisa di download di
   http://www.db4o.com
   dan menambahkan Imports com.db4o di setiap form yang mengandung db4o

   
   Class Customer

   Code for Class Customer:

   Public Class Customer
   Private _KdCustomer As String
   Private _Nama As String
   Private _Alamat As String
   Private _NoTelp As String

   Public Sub New(ByVal KdCustomer As String, ByVal Nama As String, ByVal Alamat As String, ByVal NoTelp As String)
   _KdCustomer = KdCustomer
   _Nama = Nama
   _Alamat = Alamat
   _NoTelp = NoTelp
   End Sub
   Public ReadOnly Property KdCustomer() As String
   Get
   Return _KdCustomer
   End Get
   End Property
   Public ReadOnly Property Nama() As String
   Get
   Return _Nama
   End Get
   End Property
   Public ReadOnly Property Alamat() As String
   Get
   Return _Alamat
   End Get
   End Property
   Public ReadOnly Property NoTelp() As String
   Get
   Return _NoTelp
   End Get
   End Property

   Public Overloads Overrides Function ToString() As String
   Return String.Format(“{0}/{1}/{2}/{3}”, _KdCustomer, _Nama, _Alamat, _NoTelp)
   End Function

   End Class

   Class Mobil

   Code for Class Mobil:

   Public Class Mobil

   Private _NoPlat As String
   Private _Customer As Customer
   Private _JenisMobil As String
   Private _TypeMobil As String
   Private _Warna As String
   Public Sub New(ByVal NoPlat As String, ByVal JenisMobil As String, ByVal TypeMobil As String, ByVal Warna As String)
   _NoPlat = NoPlat
   _Customer = Nothing
   _JenisMobil = JenisMobil
   _TypeMobil = TypeMobil
   _Warna = Warna
   End Sub
   Public Property Customer() As Customer
   Get
   Return _Customer
   End Get
   Set(ByVal value As Customer)
   _Customer = value
   End Set
   End Property
   Public ReadOnly Property NoPlat() As String
   Get
   Return _NoPlat
   End Get
   End Property
   Public ReadOnly Property JenisMobil() As Integer
   Get
   Return _JenisMobil
   End Get
   End Property
   Public ReadOnly Property TypeMobil() As Integer
   Get
   Return _TypeMobil
   End Get
   End Property
   Public ReadOnly Property Warna() As Integer
   Get
   Return _Warna
   End Get
   End Property

   Public Overloads Overrides Function ToString() As String
   Return String.Format(“{0}/{1}/{2}/{3}/{4}/{5}”, _NoPlat, _JenisMobil, _TypeMobil, _Warna, _Customer.Nama, Customer.NoTelp)
   End Function

   End Class

   Class Part

   Code for Class Part:

   Public Class Part
   Private _KdPart As String
   Private _Namapart As String
   Private _Harga As Integer
   Private _Stok As Integer

   Public Sub New(ByVal KdPart As String, ByVal Namapart As String, ByVal Harga As Integer, ByVal Stok As Integer)
   _KdPart = KdPart
   _Namapart = Namapart
   _Harga = Harga
   _Stok = Stok
   End Sub
   Public ReadOnly Property KdPart() As String
   Get
   Return _KdPart
   End Get
   End Property
   Public ReadOnly Property Namapart() As String
   Get
   Return _Namapart
   End Get
   End Property
   Public ReadOnly Property Harga() As String
   Get
   Return _Harga
   End Get
   End Property

   Public ReadOnly Property Stok() As Integer
   Get
   Return _Stok
   End Get
   End Property
   Public Sub AddPart(ByVal Jum As Integer)
   _Stok += Jum
   End Sub
   Public Overloads Overrides Function ToString() As String
   Return String.Format(“{0}/{1}/{2}/{3}”, KdPart, Namapart, Harga, Stok)
   End Function

   End Class

   Funsi DB4O
   setiap kali melakukan operasi atau fungsi ke database db4o, harus selalu diawali dengan
   open database dengan Db4o.openfile()
   dan diakhiri dengan db.close()

   Code for Store:

   Dim db As ObjectContainer = Db4oFactory.OpenFile(“namadatabase.yap”)
   Try
   ‘ isi dengan fungsi Retrieve, update, delete, sesuai yang diinginkan
   Finally
   db.Close()
   End Try

   Note :nama database dapat diisi terserah anda, contoh : “dbBengkel.yap”

   Fungsi Storing :
   kita bisa menggunakan db.set() atau bisa juga dengan db.[Set]()

   Code for Store:

   Dim Customer1 As Customer = New Customer(“C004″, “Ronald”, “Kemanggisan Binus”, “021503405″)
   db.Set(Customer1) ‘save data customer

   Dim Mobil1 As Mobil = New Mobil(“B0077AK”, “Sedan”, “Timor”, “Merah Maroon”)
   Mobil1.Customer = Customer1 ‘set Customer1 ke dalam Mobil1, dimana Customer1 sebagai owner dari Mobil1
   db.Set(Mobil1)

   Dim Part1 As Part = New Part(“P001″, “Kingpin”, 380000, 5)
   db.Set(Part1)

   Fungsi Retrieve :
   kita bisa menggunakan db.[Get]() atau bisa juga dengan =db.[Get](GetType())

   Code for Retrieve:

   Retrieve berdasarkan kode customer :

   Dim cekCustomer As Cutomer = New Customer(“C004″, Nothing, Nothing, Nothing)
   Dim result As ObjectSet = db.[Get](cekCustomer)

   Retrieve berdasarkan Nama customer :

   Dim cekCustomer As Cutomer = New Customer(Nothing, “Ronald”, Nothing, Nothing)
   Dim result As ObjectSet = db.[Get](cekCustomer)

   Retrieve berdasarkan Nama dan No.telp customer :

   Dim cekCustomer As Cutomer = New Customer(Nothing, “Ronald”, Nothing, “021503405″)
   Dim result As ObjectSet = db.[Get](cekCustomer)

   Fungsi Update :
   fungsi update juga menggunakan store, dimana di set DirectCast ke objek yang sama dengan nama atau kode yang spesifik
   db.[Set](found)

   Code for Update:

   Dim result As ObjectSet = db.[Get](New Part(“P001″, “Kingpin”, Nothing, Nothing))
   Dim found As Part = DirectCast(result.[Next](), Part)
   found.AddPart(5) ‘update dengan menambahkan jumlah stok part sebanyak 5
   db.[Set](found)

   Fungsi Delete :
   fungsi delete menggunakan db.Delete(), dengan deklarasi DirectCast ke objek yang dimaksud dengan nama atau kode yg spesifik

   Code for Delete:

   Delete berdasarkan Kode Customer tertentu :

   Dim result As ObjectSet = db.[Get](New Customer(“C004″, Nothing, Nothing, Nothing))
   Dim found As Pilot = DirectCast(result.[Next](), Customer)
   db.Delete(found)

   Delete berdasarkan Nama Customer tertentu :

   Dim result As ObjectSet = db.[Get](New Customer(Nothing, “Ronald”, Nothing, Nothing))
   Dim found As Pilot = DirectCast(result.[Next](), Customer)
   db.Delete(found)
4. Hardyman says:

   September 4, 2009 at 5:06 pm

   diatas saya pindahkan dari forum binusmaya kelas OOD (12PAM)
   kurang begitu rapi, tapi mudahan bisa membantu pak.

   source code lengkapnya juga sudah saya kirimkan ke email pak johan

   utk kedepan, kalau ada source code tentang db4o lainnya, kita seneng bgt kalo masih bisa dpt share²an db4o lainnya pak.

   secara gw blom ngerti memanfaatkan database object, db4o itu keren bgt mana costnya gratis pula…

   oh iya, nilai gmn pak ^^
   bagus2 kan kelas 12PAM nya pak ^^