Dear mas hasim,
great ....
bagus sekali ....
saya berikan masukan :
di module clsAnggota, ada deklarasi:
private mobjAnggota as clsAnggota
di module clsPerusahaan, ada deklarasi:
private mobjPerusahaan as clsPerusahaan
mas hasim mendeklarasikan obyek di dalam definisi class obyek tersebut, circular ....
dihapus saja.
di class clsAnggota, ada inisialisasi obyek mobjPerusahaan.
Karena kalau sudah dideklarasikan, dan di set ke memori tertentu, maka obyek ini menempati memori.
tidak seperti .net application yang ada garbage collection, maka obyek ini tidak otomotasi dibuang saat class selesai dipergunakan.
tambahkan event terminate untuk melepasnya dari memory:
Private Sub Class_Initialize()
mstrNoAnggota = ""
mstrNamaAnggota = ""
mstrAlamat = ""
mstrJK = ""
mstrTL = ""
mstrTLP = ""
Set mobjPerusahaan = New clsPerusahaan
End Sub
Private Sub Class_Terminate()
Set mobjPerusahaan = Nothing
End Sub
aksan kurdin
On 2/21/2012 11:17 AM, hasimnurhsm@yahoo.com wrote:
Hallo teman2, Accessor. saya masih pemula menggunakan module class di access. ini saya attach file latihan saya. semoga para master sudi menambahkannya, baik dari tehnik pemrogramannya atau kekurangan dan kelebihan menggunakan module class vs module prosedural.
Salam
Nurhasim
|
No comments:
Post a Comment