♥ 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 ^_^