MODUL 1 MERANCANG FILE DATABASE
Database adalah sekumpulan informasi yang diorganisir dan disimpan secara elektonis dalam sebuah file. Saat ini berbagai produk yang digunakan untuk membuat database mulai dari foxpro,paradox dbase, access dan produk pengelolaan database lainnya. Pada visual basic, database dapat dibuat melalui menu Add-Ins yang berada pada menu bar. Meciptakan File Database
Membuat database 1. Dari menu Add-Ins ÆVisual Data Manager 2. Dari window VisData, ikuti langkah berikut .
3. Ketik nama file pada text box file name : contoh Æ DenMasHarso
1
4. Pada Database Windows,klik kanan pada property, kemudian pilih New Table
5. Dari Windows Table structure, ketik nama table pada table name : contohÆteman
2
6. Klik Add Field, ketik nama field, tentukan type field dan ukuran field sesuai dengan table yang direncanakan.
7.
Ulangi Untuk field-field lainnya.
8. Klik Add Index dan tentukan field kunci index (jika diperlukan table diindex berdasarkan field tertentu ).
3
Membuka database -
Tambahkan objek data pada form
-
Rubah property DatabaseName ke database yang diinginkan
-
Tentukan jenis database melalui property connectÆ contoh : Accsess
-
Tentukan jenis record menggunakan property Recordset Æ 0 Table
Objek data pada form akan terlihat sebagai berikut
Maju ke record pertama
Maju satu record
Mundur satu record
Maju ke record ahir
Menampilkan field data . -
ubah property datafield ke field table Æ contoh : ClassName
-
ubah property datasource ke nama objek data Æ contoh : datstudent
Mencari data : Properti Recordset - Index
: Menentukan field referensi pencarian data
- Seek
: Metode pencarian data
4
- NoMatch
: Properti akan diset ke true jika pencarian gagal
- MoveFirst
: Memindahkan pointer ke record pertama
- MoveNext
: Memindahkan pinter ke record berikutnya
- MoveLast
: Memindahkan pointer ke record terahir.
Menambahkan record
Objek.recordset.addnew Menghapus Record Objek.recordset.delete Untuk lebih memahami penggunaan, penerapan dan hubungan antar objek, misalkan dibuat database teman dengan table dtapribadi sebagai berikut.
Field Name
Type
Width
Keterangan
Nama
Text
15
Nama teman
Tempat
Text
15
Kota kelahiran
TglLahir
Date
8
Tanggal lahir
Jumlah
Numerik
2
Jumlah saudara
Pendidikan
Text
15
Pendidikan terahir
NoTelpon
Text
8
Nomor telpon
Alamat
Text
40
alamat
Langkah-langkah Penyelesaian. 1. Buka project baru 2. Buat database, misal teman 3. Buat table dtapribadi mengikutu struktur table diatas. 4. Buat interface berikut
5
5. ubah property objek, seperti terlihat pada table berikut
Contoh : Objeck
Properti
Setting
Name
Data1
DatabaseName
C:\ data\teman
Connect
Accsess
RecordSet
0 Tabel
ReCordSource
Teman
Name
LblNama
Caption
Nama teman
…………..
……………..
Name
Txtnama
DataField
Nama
DataSource
Data1
………………
……………..
Name
CmdAdd
6
Caption
Add
……………….
……………..
Tanda …………. Adalah objek sejenis yang perlu anda rubah dengan melihat objek yang ada pada interface dan kode program.
Kode program Private Sub cmdDelete_Click() prompt$ = "Anda Yakin untuk hapus data ini?" reply = MsgBox(prompt$, vbOKCancel, "Delete Record") If reply = vbOK Then datateman.Recordset.Delete datateman.Recordset.MoveNext End If End Sub
Private Sub cmdExit_Click() End End Sub
Private Sub cmdFind_Click() prompt$ = "Ketik nama secara lengkap" SearchStr$ = InputBox(prompt$, "Cari Teman") datateman.Recordset.Index = "Nama" datateman.Recordset.Seek "=", SearchStr$ If datateman.Recordset.NoMatch Then datateman.Recordset.MoveFirst End If End Sub
Private Sub cmdAdd_Click() prompt$ = "Ketik data , kemudian panah kiri." reply = MsgBox(prompt$, vbOKCancel, "Add Record") If reply = vbOK Then txtnama.SetFocus
7
data1.Recordset.AddNew
End If End Sub Soal Latihan : Buat program pengolahan table master produk dengan struktur table sebagai berikut. Field Name
Type
Size
Keterangan
Kd_produk
text
6
Kode produk
Nm_produk
text
12
Nama produk
Hg_produk
number
8
Harga produk
St_produk
number
3
Jumlah stoc
Ro_produk
number
3
Reorder poin produk
Ds_produk
text
12
Distributor produk
Fasilitas pengelololan table terdiri dari pencarian data, penambahan, perbaikan dan hapus data. Pencarian data dilakukan berdasarkan kd_produk.
========================
8
