♥ mmm.. ini blog yah?

ini blog apa kuburan yah? kok sepi banget!!!

blog ini di update terakhir di tahun 2012 (dua tahun silam)..

biar gak di sangka sampah internet atau bangkai website, hari ini ane kembali update untuk pertama kalinya setelah dua tahun silam (ngilang gegara habis nyelam)

ane bukan bertapa apa lagi berdukun. ane cuma lagi belajar ilmu tenaga dalam, biar bisa update blog tanpa ngetik...tinggal plototin halaman entri, dengan sendirinya tertulis sesuai yang ada di benak ane (mendadak gilak!)

well.. banyak hal yang menarik sebenarnya yang ingin ane sampaikan. seperti blog ane di sebelah yang lebih update di banding blog ini (asli! blog-blog ane semua kayak kuburan! sepiiiii tanpa updatan post terbaru)...

setelah mikir-mikir dari pada ane ngeFB lebih baik ane nge-blog.. itu lebih manfaat dibanding ane makan tiang listrik buat ninggin badan!

sekarang nge-FB buat ngasilin duit, sisanya buat foya-foya..nyambung?dikit!iya sih..

okeh, mudahan dengan ane apdetan hari ini bikin lo pada udah gak takut jika gak sengaja lewat depan blog yang udah kayak musium tengkorak dan lo udah gak geli buat ngomen-ngomen dengan sisa bangkai post ane di tahun 2012 silam #miris

tapi se bangkai-bangkainya blog, gak kecium juga kok..kecuali lo mutilsi anak tikus trus lo sembunyiin di bawah kasur..

thanks buat yang udah ngerelain telunjuknya buat scroll ni blog yang rada kurang jelas arahnya. intinya blog ini ane publish untuk niat baik koq, bukan untuk niat kriminal seperti malak lo kalau lewat depan rumah ane.

tujuannya sebenarnya mau share ilmu, tapi karena ilmunya sedikit, akhirnya niat bagi ilmu di pending...mudahan besok sempat update lagi #udahsiap11jari

^_^

♥ Koneksi database Menggunakan Adodc || VB6

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

بِسْـــــــــــــــــمِ اللّهِ الرَّحْمَنِ الرَّحِيْم

Entri kali ini tentang koneksi database pada VB 6.0 menggunakan Adodc dan data akan di tampilkan menggunakan DataGrid. mungkin sebagian chum uda banyak yang faham soal ini, namun bagi pemula (yang baru belajar) agak kesulitan tata cara peng-koneksian VB 6.0 ke database.

satu catatan lagi, disini saya menggunakan database Microsoft Access 2003 (extension .mdb) disini saya menggunakan nama database koneksi.mdb dan nama tabelnya adalah tbkoneksi.

berikut cara koneksi database menggunakan Adodc.

buka form baru kemudian pada Tool Box paling bawah saja, lakukan klik kanan dan akan muncul pilihan Components, add tabs, dll >> silahkan anda pilih yang Components

 kemudian pilih dengan mencentang combox di samping "Microsoft ADO Data Control 6.0 (OLEDB)" dan "Microsoft DataGrid Control 6.0 (OLEDB)"seperti gambar di atas. klik tombol Apply -> ok.

kalau udah... masukkan commponen Adodc dan DataGrid ke dalam tampilan form seperti Gambar berikut.

 nah langkah-langkah koneksi databasenya adalah ^_^ :
 1. klik pada Adodc (kebetulan namanya adidc1). pilih ConnectionString pada properties klik tombol add dan akan muncul tampilan Property pages
 










klik tombol build maka akan masuk ke form Data Link Properties. -> pilih Microsoft Jet 4.0 OLE DB Provider -> klik tombol next ->Add tombol pada pilihan Select or Enter....... -> cari database koneksi.mdb (yang dibuat sebelumnya) -> lakukan test Connection dengan klik tombol Test Connection. jika terhubung maka akan muncul pesan "Test Connection Succeded".

 

2. masih pada properties -> pilih RecordSource -> add -> pilih tabel yang sudah dibuat sebelumnya (tbkoneksi)

3. Selanjutnya koneksi data untuk ditampilkan di DataGrid. silahkan klik DataGrid -> pada propertid pilih DataSource -> Pilih Adodc1, setelah itu klik kanan pada DataGrid -> pilih Retrieve Field -> ada pesan pilih tombol "Yes" 

Koneksi Adodc pada dataGrid

Apply Field

Add caption

Program Pada saat di jalankan

 semoga bermanfaat yah chum.... silahkan dicoba ^_^ good luck!!!!

 

♥ Pencarian Data >> VB6

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

بِسْـــــــــــــــــمِ اللّهِ الرَّحْمَنِ الرَّحِيْم

Halooooooo chum.......
posting kali ini aku mau sedikit share untuk pencarian data pada VB 6.0... yah mungkin sebagian besar dari chum semua udah tau, tapi apa salahnya donk kalau kali ini aku berbagi di post kali ini... hehhehe
semoga bermanfaat dan dapat membantu chum semua...


Untuk kasus pencarian data disini, aku mengambil tentang peminjaman buku di perpustakaan (karena kebetulan s/d tgl 2 des 2012 ini, aku bekerja di perpustakaan STMIK PPKIA Tarakanaita Rahmawati tarakan), yah iseng-iseng karena mau cuti melahirkan, kasian ntar teman yang aku tinggal pada kebingungan buat laporan peminjaman buku, karena untuk beberapa bulan ini laporan peminjaman buku perpustakaan dilakukan secara manual, sempat sebelumnya sih menggunakan Palikasi di Web, cuma database yang digunakan MYSQL nya lagi trouble chum n yang punya hak asis itu yah boz gede', alias ketia STMIK PPKIA... beliau lagi sibuk-sibuknya, padahal hal ini udah berapa kali kami laporkan dalam setahun...
loh-loh-loh... koq aku jadi curhat... xixixixixi.. ya udah.. langsung aja yah chum.... come on ^_^

Form Peminjaman Buku

Sederhana banget kan untuk tampilannya.. hehe
 untuk name pada text box aku ubah menjadi :
text1 = tanggal
text2 = tglkembali
text3 = nim
text4 = kodebuku1
text5 = kodebuku2
text6 = keterangan
nah chum.....
untuk listing pencarian, seperti biasa, aku tidak menggunakan tombol (commandbutton) melainkan menggunakan fungsi tombol enter "keypress 13"
so..... double klik pada textbox "nim" kemudian ubah menjadi keypress.
masukkan listing program berikut ;

If KeyAscii = 13 Then  ' fungsi kode 13 yaitu enter
   Adodc3.Recordset.MoveFirst  ' Pencarian pada tabel pinjaman mulai dari data pertama
   Adodc3.Recordset.Find "NIM='" & nim.Text & "'"  ' Pencarian dilakukan pada field nim

  If nim.Text = "" Then

     MsgBox "Masukkan NIM"

     nim.SetFocus 

  Else
     Adodc3.Recordset.MoveFirst
     Adodc3.Recordset.Find "NIM='" & nim.Text & "'"

     If Adodc3.Recordset.EOF Then     ' Pengujian, jika data tidak ada

       Adodc3.Recordset.AddNew

       MsgBox "Mhs dibolehkan Meminjam Buku"

       keterangan.Text = "Sedang meminjam buku"

       nim.Enabled = True

       kodebuku1.Enabled = True

       kodebuku2.Enabled = True

       keterangan.Enabled = True

       kodebuku1.SetFocus

    Else   ' Pengujian, jika data ada

        kodebuku1.Text = Adodc3.Recordset!kode1

        kodebuku2.Text = Adodc3.Recordset!kode2

        tanggal.Text = Adodc3.Recordset!tglp

        tglkembali.Text = Adodc3.Recordset!tglk

        keterangan.Text = Adodc3.Recordset!keterangan

              MsgBox "Mhs tidak boleh Meminjam Buku"

        nim.Enabled = False

        kodebuku1.Enabled = False

        kodebuku2.Enabled = False

        keterangan.Enabled = False

End If

Jika Pencarian data di temukan & Nim tersebut sedang meminjam buku

Jika Pencarian data tidak di temukan

Input data baru peminjaman Buku

 Silahkan chum jalankan programnya... mudahan berhasil dan bermanfaat yah... thank u udah mampir di blog sederhana ini yah chum ^_^


 

♥ Membuat Password di VB6

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

بِسْـــــــــــــــــمِ اللّهِ الرَّحْمَنِ الرَّحِيْم

Hal yang mudah dan sederhana... mudahan post kali ini bisa membantu chum semua yang lagi kebingungan untuk membuat form Password / Login untuk keamanan data chum..

disini kita tidak menggunakan database untuk penyimpanan data user dan password, kita buat yang mudah saja dulu dengan menyimpan data-nya pada listing program... ok chum... mari kita cikedot... ^_^

Buatkan form sederhana seperti gambar di samping.
- ubah name pada propertis textbox
text1 aku ubah namanya menjadi "user" dan text2 aku ganti menjadi "pass"
- double klik pada text2 / pass (untuk membuat listing programnya)

nah.... hati-hati chum sebelum mengetikkan listing program, karena disini aku menggunakan fungsi keypress (fungsi tombol enter).. supaya gak ribet pegang mouse pada saat menjalankan program. jadi pada saat double klik pad textbox pass, pilih perintah "keypress" seperti gambar dibawah ini.

 Ketik perintah listing berikut :

If KeyAscii = 13 Then 

    If user.Text = "lala" And pass.Text = "hanur" Then

    MsgBox "Welcome to My Blog"

    Else

   MsgBox "User / Password Anda Salah"

   user.SetFocus

End If
End If

Silahkan chum coba jalankan programnya... maka akan tampil berikut, jangan lupa masukkan user dan passwordnya yah chum ^_^ 

 Selamat mencoba ya chum.... semoga berhasil dan bermanfaat.... ^_^

Sincerelly

Lala ***

♥ Istri Solehah

بسم الله الرحمن الرحيم

الحمد لله رب العالمين, والصلاة والسلام على أشرف المرسلين. أما بعد :

Istri sholehah adalah idaman bagi setiap laki-laki. sholehah secara bahasa berarti layak dan pantas. dan istri sholehah adalah istri yang memiliki kepribadian layak sebagai seorang istri. kelayakan kepribadian tersebut dinilai dari sisi agama karena Islam telah memberitakan tentang ciri-ciri istri sholehah/idaman dalam banyak ayat-ayat Al-Qur'an dan Hadist Nabi.

Dan menjadi pribadi istri sholehah juga diidam-idamkan oleh kebanyakan wanita, baik yang telah menjadi istri atau yang belum. karena secara naluri, setiap orang selalu berusaha menjadi lebih baik dari apa yang pernah dia raih sebelumnya.

Jika anda seorang wanita yang ingin menyempurnakan kepribadian sehingga menjadi seorang istri yang sholehah, atau seorang laki-laki yang ingin memiliki seorang istri yang sholehah. perhatikan hadist berikut :

خير النِّسَاء امْرَأَة نظرت إِلَيْهَا سرتك وَإِذا أَمَرتهَا أَطَاعَتك وَإِذا غبت عَنْهَا حفظتك فِي نَفسهَا وَمَالك

Artinya : "Sebaik-baik wanita (istri) adalah yang ketika engkau memandangnya akan membuatmu bahagia. dan jika diperintah, dia akan mentaatimu. dan jika engkau tidak bersamanya, dia akan menjagamu dalam dirinya dan menjaga apa-apa yang engkau miliki." (HR Abu Daud, Al-Hakim dan Al-Baihaqi)

- 3 Ciri-ciri Istri Sholehah/Idaman

1. Ketika dipandang, dia akan membuatmu bahagia, nyaman dan menentramkan jiwa.

2. Ketika engkau memerintahkannya akan sesuatu yang mubah/boleh, dia mentaatimu.

3. Ketika engkau pergi dan dia tidak bersamamu, dia akan menjaga dirinya untukmu dan juga menjaga apa-apa yang engkau miliki; harta, anak dan lain-lain.

Berlombalah untuk selalu menjadi lebih baik. memperbaiki kesalahan-kesalahan dan selalu berpikir maju. itulah pribadi seorang muslim yang hakiki.

♥ رَبِّ هَبْ لِي مِنَ الصَّالِحِينَ

رَبِّ هَبْ لِي مِنَ الصَّالِحِينَ

“Ya Allah, Anugerahkanlah kepadaku (seorang anak) yang termasuk orang-orang yang saleh" (QS. Ash Shafat : 100)

Segala Puji Hanya untuk Allah SWT.

Assalamu"alikum...... 

semalam adalah malam ke-3 ana merasa benar-benar akan menjadi seorang ibu (Insya Allah). meskipun beberapa kali ana sering USG dan melihat keadaan si calon buah hati, tapi perasaan ini benar-benar beda. perasaan dimana calon buah hati bergerak-gerak dan menyentuh dinding rahim dengan sentuhan lembut.... terharu #netesairmata

sejak 4 bulan lebih ana gak pernah rasa gerakannya chum, namun pada usia kandungan memasuki 5 bulan, alhamdulillah.. 

سُبْحَانَ اللّهُ وَاَلْحَمْدُلِلّهِ وَلاَ اِلَهَ اِلاَّ اللّهُ اللهُ أكبر

tidak ada kata yang dapat ana rangkai buat ungkapin perasaan bahagia dan haru... sejak tanggal 01 s/d 03 Agustus malam... setiap sekitar pukul 11 s/d 12 malam, ana merasakan aktifitas yang baby lakuin di dalam perut. Subhanallah... maklum chum ini kehamilan pertama. seumur hidup baru kali ini ana rasakan hal yang seperti ini #huuhuhuuuuuuuu... 

alkisah pertama kali ana rasakan gerakan si dede pada tanggal 01 agustus 2012 pukul 11 malam... ceritanya ana lagi baring-baring chum, misua di samping #lupa misua lagi ngapain... heheeee.. posisi baring ana tu telentang, tiba-tiba perut kiri ada yang seruduk secara halus dari dalam... Subhanallah... #kaget chum chum, seketika ana langsung ngasi tau misua... Misua seneng banget, bahagia dy chum, langsung misua pegang perut ana... gak lama si baby ana gerak lagi, misua makin girang #senyumsumringah... lumayan lama gerakan baby  di dalam chum... 

rasanya itu beda banget... ada khasnya gitu chum, beda dengan angin yang berputar di perut. pokoknya rasanya bikin bahagia chum ^_^ 

bagi chum Ukhti yang sudah menikah dan hamil, chum busa rasakan seperti apa rasa baby melakukan aktifitas di dalam.. sebuah kebahagiaan yang tak terkirakan. lagi-lagi Maha suci Allah chum.

Moga Allah melindungi kita yah chum dalam keadaan sehat dan selamat,  Semoga juga amal Ibadah kita selalu di rahmati Allah SWT. Amin

MYOB - INVENTORY

Inventory

Hal yang terpenting pada MYOB juga terletak pada Modul Inventory. Apa lagi untuk Persahaan Dagang. Cikedot!

== Mencatat Data Persediaan Barang ==

1.     Command Centre pilih Modul Inventory Item List

2.      Klik new untuk membuat persediaan barang

3.     Pilih Tab Profil dan isi data berikut

a.     Item Number : Kode Barang

b.     Name : Nama Barang

c.     Centang checkbox □ I Buy This Item link sebagai HPP Barang Dagang

d.     Centang checkbox □ I Sell This Item link sebagai Penjualan Barang Dagang

e.     Centang checkbox □ I Inventory This Item link sebagai Persediaan Barang Dagang

4.     Pilih Tab Buying Details dan isi data berikut

a.     Buying Unit Of Measure : Satuan barang (ex. : Unit, Lusin, Kg)

b.     Number Of Items per Buying Unit : ukuran satuan terkecil (ex. Lusin = 12, Unit = 1)

c.     Tax Code When Bought : masukan Kode pajak, jikat tidak ada gunakan kode “N-T”

d.     Minimal Level For Restocking Alert : Jumlah minimal yang ada di gudang

e.     Primary Supplier For Recorder : Supplier yang sering dimita pesanan barang

f.     Suplier Item Number : Kode Barang Supplier

g.     Default Reorder Quantity : pengotomatisan setiap order barang

5.     Pilih Tab Selling Details dan isi data berikut

a.     Base Selling Price : Harga Jual

b.     Selling Unit Of Measure : Satuan barang (ex. : Unit, Lusin, Kg)

c.     Number Of Items per Selling Unit : ukuran satuan terkecil (ex. Lusin = 12, Unit = 1)

d.     Tax Code When Sold : masukan Kode pajak, jikat tidak ada gunakan kode “N-T”

e.     Inclusive / Exclusvie : cenng jika harga jual sudah termasuk pajak, abaikan bila harga jual belum termasuk pajak

f.     Calculate Sales Tax On : Actual Selling Price pajak dihitung dari harga difaktur penjualan, Base Selling Price Pajak dihitung sesuai harga jual

6.     Klik tombol OK

== Mencatat Jumlah Persediaan Barang ==

1.     Command Centre pilih Modul Inventory Count Inventory

2.     Input jumlah barang pada field “Counted”

3.     Klik tombol Adjust Inventory

4.     Pada Default Adjust Account link sebagai “Persediaan Barang Dagang” klik tombol Continue Klik tombol Opening Balances

5.     Input nilai Amount sesuai harga beli barang Klik tombol record

6.     Untuk melihat apakan data dan nilai persediaan barang sesuai dengan neraca saldo pada Account persediaan barang. Bisa dilihat pada Laporan.

7.     Klik tombol Report pada command button paling bawah Inventory Item List Summary Disply

8.     Klik tombol OK