Saturday, June 11, 2016

VB6 : Database & Form Barang

Database

Pengertian Database dan Hirarki Database


Hirarki Database
  • Character Satuan Data Terkecil dalam database, dapat berupa karakter numerik (angka 0 s.d 9), huruf (A - Z, a - z) ataupun karakterkarakter khusus, seperti *, &. %, # dan lain-lain
  • Field Merupakan bagian dari record yang menunjukkan suatu item data yang sejenis
  • Record kumpulan data value dari attribute yang berkaitan sehingga dapat menjelaskan sebuah entity secara lengkap
  • File/Tabel File merupakan sesuatu yang dapat diidentifikasi dari suatu sistem database, bisa berupa objek, orang, tempat, kejadian atau konsep yang informasinya akan disimpan dalam database
  • Database Kumpulan dari tabel-tabel yang saling berelasi, disusun secara logis, sehingga menghasilkan informasi yang bernilai guna dalam proses pengambilan keputusan

Latihan Yuk!

Buatlah Tabel sesuai struktur dibawah ini dengan menggunakan Microsoft Access



Buka microsoft access kalian lalu pilih new blank database dan isi nama databasenya dengan nama latihanDbVB.


Ubah menu view lalu masukkan nama tabel dengan barang.

isi field table sesuai soal .
Selesai,..




Manipulasi Database, Koneksi Antara Database dengan Form, Pengenalan Metode Recordset

MANIPULASI DATABASE
  • Manipulasi database merupakan proses menanipulasi data yang dapat berupa menambah data (Append), menghapus data (Delete), merubah data (Update), menyisipkan data (insert), dan juga menarik informasi tertentu (query).
  • Pada Visual basic manipulasi data memalui form dapat dilakukan dengan mengggunakan komponen data sebagai penghubung antara database Access yang sudah dibuat dengan Visual basic.

KONEKSI FORM DENGAN DATABASE
  • Untuk membuat aplikasi Database dengan bahasa pemrograman apapun, yang harus disiapkan terlebih dahulu adalah koneksi aplikasi tersebut ke dalam Database
  • Yang banyak digunakan jenis koneksi Visual Basic saat ini adalah Microsoft Data Control untuk semua koneksi database.

OBJEK RECORDSET
Objek yang digunakan untuk memanipulasi isi database (menambah, menyimpan, menghapus record atau lainnya).
• Recordset dapat ditentukan lokasinya (Server atau di download ke client).
• Recordset dapat diputuskan dari sumber databasenya.
• Hasil dari sebuah objek recordset adalah sekumpulan baris yang dihasilkan dari satu atau lebih tabal yang disebut Cursor.
• Memilih jenis dan lokasi cursor yang tepat adalah bagian penting dari perancangan suatu aplikasi.


CONTOH KASUS MANIPULASI DATABASE
Pada kasus ini kia akan membua Form Barang yang digunakan untuk mengelola data barang, dengan menggunkan database penjualan yang telah dibuat dan juga table barang.
langkah-langkah pembuatannya sebagai berikut :

Buatlah sebuah Form Barang dengan desain seperti dibawah ini


Sebelum membuat form diatas silakan kalian mengexport datagrid dan adodata terlebih dahulu jika blum, Klik kanan pada menu tools yang kosong lalu Pilih Components, Kemudian pilih Microsoft Data Grid Control 6.0(OLDB) juda Microsoft ADO Data Control 6.0(OLDB)



Setting Properties Objeknya seperti berikut :



Cara Koneksi Database Menggunakan Objek
Mengkoneksikan antara Form dengan Database dapat dilakukan dengan merubah properties dari Adodc 1. Adapun langkah-langkahnya adalah sebgai berikut :
Klik objek Adodc1 kemudian pilih properties untuk Conection String. Tahap ini digunakan untuk mengkoneksikan anatar Form dengan Database yang sudah dibuat. Lihat gambar dibawah ini


Klik tombol Build pada langkah kedua maka akan tampil Tab Link Provider pada Data link properties pilih Microsoft Jet 4.0 OLEDB Provider kemudian pilih next.
Select or Enter Database Name masukkan database yang sudah dibuat kemudian klik Test
Catatan : Jika database error buka ulang file database microsof access dan save as kembali dengan file access 2002-2003
Selanjutnya klik ok dan apply.

Settig recordsource adobarangnya seperti dibawah ini





edit ulang terlebih dulu field table databasenya seperti ini :


Listing programnya :
Sub tampil()
With adobarang.Recordset
txtkdbrg.Text = !kdbrg
txtnmbrg.Text = !nmbrg
txthrg.Text = !harga
txtsatuan.Text = !satuan
txtstok.Text = !stok
End With
End Sub

Sub bersih()
txtkdbrg.Text = ""
txtnmbrg.Text = ""
txthrg.Text = ""
txtsatuan.Text = ""
txtstok.Text = ""
End Sub

Sub mati()
txtkdbrg.Enabled = False
txtnmbrg.Enabled = False
txthrg.Enabled = False
txtsatuan.Enabled = False
txtstok.Enabled = False
End Sub

Sub hidup()
txtkdbrg.Enabled = True
txtnmbrg.Enabled = True
txthrg.Enabled = True
txtsatuan.Enabled = True
txtstok.Enabled = True
End Sub



Private Sub cmdadd_Click()
Call hidup
Call bersih
cmdsave.Enabled = True
cmdadd.Enabled = False
cmdundo.Enabled = True
txtkdbrg.SetFocus
End Sub

Private Sub cmddelete_Click()
a = MsgBox("Yakin Mau Dihapus???", vbYesNo + vbInformation, "Konfirmasi")
If a = vbYes Then
adobarang.Recordset.Delete
Call mati
Call bersih
End If
End Sub

Private Sub cmdedit_Click()
Call hidup
txtkdbrg.Enabled = False
cmdsave.Enabled = True
cmdedit.Enabled = False
cmdundo.Enabled = True
cmddelete = False
End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdfind_Click()
adobarang.Recordset.Find "kdbrg='" & Me.txtcari.Text & "'", , adSearchForward
If Not adobarang.Recordset.EOF Then
Call tampil
Call mati
cmdadd.Enabled = False
cmdedit.Enabled = True
cmdsave.Enabled = False
txtkdbrg.Enabled = False
txtcari.Text = ""
Else
MsgBox "kode barang tidak ada", vbInformation, "info"
txtcari.Text = ""
End If
End Sub

Private Sub cmdfirst_Click()
adobarang.Recordset.MoveFirst
tampil
End Sub

Private Sub cmdlast_Click()
adobarang.Recordset.MoveLast
tampil
End Sub

Private Sub cmdnext_Click()
adobarang.Recordset.MoveNext
If adobarang.Recordset.EOF Then
MsgBox "DATA SUDAH DIAKHIR RECORD", vbInformation, "INFO"
adobarang.Recordset.MoveLast
End If
Call tampil
End Sub

Private Sub cmdprevious_Click()
adobarang.Recordset.MovePrevious
If adobarang.Recordset.BOF Then
MsgBox "DATA SUDAH DIAWAL RECORD", vbInformation, "INFO"
adobarang.Recordset.MoveFirst
End If
Call tampil
End Sub

Private Sub cmdsave_Click()
With adobarang.Recordset
adobarang.Recordset.Find "kdbrg='" & Me.txtkdbrg.Text & "'", , adSearchForward
.AddNew
If adobarang.Recordset.EOF Then
!kdbrg = txtkdbrg.Text
!nmbrg = txtnmbrg.Text
!harga = txthrg.Text
!satuan = txtsatuan.Text
!stok = txtstok.Text
.Update
Else
!kdbrg = txtkdbrg.Text
!nmbrg = txtnmbrg.Text
!harga = txthrg.Text
!satuan = txtsatuan.Text
!stok = txtstok.Text
.Update
End If
End With
Call mati
Call bersih
cmdsave.Enabled = False
cmdadd.Enabled = True
cmddelete.Enabled = True
cmdundo.Enabled = False
End Sub

Private Sub cmdundo_Click()
Call bersih
Call mati
cmdundo.Enabled = False
cmdadd.Enabled = True
cmdsave.Enabled = False
cmddelete.Enabled = True
End Sub

Private Sub Form_Activate()
Call mati
cmdedit.Enabled = False
cmdsave.Enabled = False
cmdundo.Enabled = False
jam.Caption = Time
tanggal.Caption = Date
End Sub

Private Sub txthrg_Change()
If Len(txthrg.Text) > 0 Then
If Not IsNumeric(Right$(txthrg.Text, 1)) Then
txthrg.Text = ""
txthrg.SetFocus
End If
End If
End Sub

Private Sub txthrg_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtsatuan.SetFocus
End If
End Sub

Private Sub txtkdbrg_Change()
txtkdbrg.MaxLength = 6
End Sub

Private Sub txtkdbrg_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
adobarang.Recordset.Find "kdbrg = '" & Me.txtkdbrg.Text & "'", , adSearchForward
If Not adobarang.Recordset.EOF Then
MsgBox "Kode Barang Sudah Terdaftar", vbOKOnly, "Informasi"
txtkdbrg.Text = ""
txtkdbrg.SetFocus
Exit Sub
cmdadd.Enabled = True
cmdsave.Enabled = False
cmdundo.Enabled = False
End If
txtnmbrg.SetFocus
End If
End Sub

Private Sub txtsatuan_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyAscii = 13 Then
txtstok.SetFocus
End If
End Sub


Penjelasan singkat coding :
karena ini berkaitan dengan database saya akan memberi sedekit keterangan listing program mengenai databasenya..

!kdbrg atau kdbrg adalah nama field dalam table barang di database yang kita buat.
txtkdbrg.text=!kdbrg ; berarti memasukkan isi dari textfield kodebarang yang kita ketik kedalam dalam record field kdbrg database

kdbrg='" & Me.txtcari.Text & "'",, ; Jika field txtcari diisi dengan record database maka adsearchforward akan bekerja

adobarang.recordset ; berarti memanggil databarang siap kita olah
.AddNew ; siap untuk menambah data
.Update ; menyimpan atau mengupdate data database


Hasil tampilannya seperti ini :



Untuk kalian yang gagal membuatnya silakan download filenya DISINI , dengan password rarnya fajaryusuf.com






Jika ada pertanyaan silakan berkomentar.

Jangan Lupa like dan share.

Bejar Pemrograman di fajaryusuf.com aja. :)

Seseorang yang ingin membagi pengalaman dan ilmu yang berguna untuk para pembaca FajarYusuf.Com :)

Cobalah untuk memilih Pelajaran Pemrograman dan belajar dari Materi Pertama
EmoticonEmoticon


TENTANG SITUS

SITUS INI ADALAH SITUS PEMBELAJARAN PEMROGRAMAN DAN JUGA PEMAHAMAN TERHADAP TEKNOLOGI KOMPUTER. KALIAN BISA MENGIKUTI PEMBELAJARAN PEMROGRAMAN DENGAN BERTAHAP PADA MATERI YANG SUDAH SAYA SEDIAKAN, JIKA ADA MATERI YANG MEMBINGUNGKAN SILAKAN LAKUKAN KOMENTAR PADA MATERI YANG ANDA TANYAKAN ATAU KALIAN BISA MENGHUBUNGI SAYA DIHALAMAN KONTAK.

https://smallseotools.com/