Modul Database dan Pengaksesannya dari FORM #1 Oleh: Aep
Modul Database & Form Secara sederhana Database dapat diartikan dengan kumpulan data yang membentuk suatu informasi. Dalam pemakaian komputer secara umum, Database adalah kumpulan Tabel yang saling berhubungan antara satu dengan yang lainnya, dan dari hubungan tersebut, maka akan didapatkan suatu informasi yang tepat, cepat, d...
DATABASE Secara sederhana Database dapat diartikan dengan kumpulan data yang membentuk suatu informasi. Dalam pemakaian komputer secara umum, Database adalah kumpulan Tabel yang saling berhubungan antara satu dengan yang lainnya, dan dari hubungan tersebut, maka akan didapatkan suatu informasi yang tepat, cepat, dan akurat.
Gambar 1.1
Pada Gambar 1.1 diatas merupakan gambaran dari seubah database mahasiswa yang memiliki tabel mahasiswa dan tabel jadwal kuliah, dimana tabel mahasiswa berhubungan dengan tabel jadwal kuliah. Dari hasil hubungan tersebut akan diketahui jadwal perkuliahan dari seorang mahasiswa, dengan cara melihat data-data yang terdapat dalam tabel tersebut.
OPERASI DASAR DATABASE Dalam suatu database operasi-operasi dasar yang dapat dilakukan adalah: 1. 2. 3. 4. 5. 6. 7. 8. 9.
Pembuatan Database Penghapusan Database Pembuatan Tabel Perbaikan Struktur Tabel Penghapusan Tabel Penambahan Data Ke Dalam Tabel Pengambilan Data Ke Dalam Tabel Pengubahan Data Ke Dalam Tabel Penghapusan Data Ke Dalam Tabel
MEMBUAT DATABASE Dalam membuat suatu database Visual Basic dapat menggunakan berbagai aplikasi antara lain Microsoft Access, Microsoft Foxpro, Borland Paradox, dll.
Langkah-langkah untuk membuat dataset adalah; 1. Dari aplikasi Visual Basic, klik menu Add-Ins 2. Klik sub menu Visual Data Manager..
1. 2. 3. 4.
Pada Jendela VisData, klik menu File Klik sub menu New Klik sub menu Microsof Access Klik sub menu Version 7.0. MDB
1. Buat nama Database dengan nama Mahasiswa, dan simpan ke dalam folder latihan Anda.
Setelah langkah penyimpanan maka tampilan jendela Visual Data Manager akan tampak seperti Gambar dibawah ini.
MEMBUAT TABEL Struktur Tabel Mahasiswa:
Field
Tipe
Size
Index
Nim
Text
9
Primary
Nama
Text
25
Kelas
Text
4
Jurusan
Text
25
Fakultas
Text
25
Dosen
Text
25
Lakukan langkah-langkah pembuatan tabel sebagai berikut:
1. Dari Jendela Window Manager Klik kanan pada jendela Database Window, lalu sorot Properties 2. Sorot dan klik pada New Table 3. Buat nama Tabel Mahasiswa, pada kolom isian Table Name
1. Kemudian, Klik pada Add Field
1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12.
Isikan nim pada kolom isian Name Pilih Text pada daftar Type Isikan 9 pada kolom isian Size Kemudian Klik OK Lakukan hal yang sama mulai dari langkah ke 5 s/d ke 8 untuk membuat field Nama, Kelas, Jurusan, Fakultas, dan Dosen. Setelah semua dilakukan Klik tombol Close Selanjutnya untuk membuat file Index, lakukan dengan mengklik tombol Add Index Pilih nim sebagai index nya Isikan IDXnim pada kolom isian Name Klik OK Klik Tombol Close untuk mengakhiri Langkah terkahir adalah memilih tombol Build The Table untuk menghasilkan Tabel dengan nama Mahasiswa
MENGISIKAN DATA KE DALAM TABEL Setelah Tabel kita buat, maka langkah berikutnya adalah mgnisikan data ke dalam Tabel tersebut. Lakukan pengisian data dengan cara dibawah ini: 1. Klik kanan pada Tabel Mahasiswa 2. Klik Open, Kemudian Klik pada tombol Add 3. Isikan data berikut ini; NIM
:
082005001
Nama
:
Budi
Kelas
:
TI-1
Jurusan
:
Teknik Informatika
Fakultas
:
Informatika
Dosen
:
Zein
1. Klik tombol Update 2. Apabila muncul jendela konfirmasi Save New Record? Klik tombol Yes 3. Untuk menambah data baru klik tombol Add kemudian ulangi langkah 3 s/d 5
Isikan data-data contoh berikut ini
Nim
Nama
Kelas
Jurusan
Fakutas
Dosen
082005002 Ananda
TI-1
Taknik Informatika
Informatika Zein
082005003 Yanto
TI-1
Taknik Informatika
Informatika Zein
082005004 Heri
TI-1
Taknik Informatika
Informatika Zein
082005005 Firdaus
TI-1
Taknik Informatika
Informatika Zein
082005006 Kuntoro
TI-1
Taknik Informatika
Informatika Zein
082005007 Yeni
TI-1
Taknik Informatika
Informatika Zein
082005008 Sri
TI-1
Taknik Informatika
Informatika Zein
082005009 Sutari
TI-1
Taknik Informatika
Informatika Zein
082005010 Dadan
TI-1
Taknik Informatika
Informatika Zein
082005011 Risman
TI-1
Taknik Informatika
Informatika Zein
CONTROL DATA Control Data adalah control yang berfungsi sebagai penghubung/koneksi antara DataBase dan program yang dibuat. Melalui koneksi inilah data dalam tabel yang ada dapat diakses, baik untuk mengisi data, mengedit data, menghapus data ataupun mencari data. Control Box dapat dipilih pada ControlBox sebelah kiri.
MEMBUAT FORM UNTUK MENGISI DATA
1. Jalankan Aplikasi Visual Basic 2. Didalam Form yang masih kosong tambahkan sebuah Frame, sembilan control Label, enam buah TextBox, dan empat buah Control CommandButton, serta sebuah Control Data 3. Aturlah posisi setiap control sehingga tampak seperti gambar dibawah ini.
1. Gantilah Properties dari setiap control, menjadi seperti di tunjukan pada tabel dibawah ini;
Control
Nama Control
Properties
Nilai Pengaturan
Caption
Input Data Mahasiswa
Border Style
3 – Fixed Dialog
StartUpPosition
2 – Center Screen
Frame1
Caption
Keterangan
Label1
Caption
1. Gunakan Tombol Simpan untuk Menyimpan Data Ke Dalam Tabel
Label2
Caption
2. Gunakan Tombol Batal untuk Membatalkan Pengisian Data
Label3
Caption
3. Gunakan Tombol Keluar untuk Mengakhiri Program Ini.
Label4
Caption
NIM
Label5
Caption
Nama
Label6
Caption
Kelas
Label7
Caption
Jurusan
Label8
Caption
Fakultas
Label9
Caption
Dosen
Text
Kosongkan
MaxLength
9
Text
Kosongkan
MaxLength
25
Text
Kosongkan
MaxLength
4
Text
Kosongkan
MaxLength
25
Text
Kosongkan
MaxLength
25
Form
Text1
Text2
Text3
Text4
Text5
Text
Kosongkan
MaxLength
25
Command1
Caption
Simpan
Command2
Caption
Batal
Command3
Caption
Tambah
Command4
Caption
Keluar
DataBaseName
Kosongkan
Recordsource
Kosongkan
Text6
Data1
1. Klik Ganda pada control Command1, atau tombol yang bertuliskan “Simpan”., ketikan kode program dibawah ini Private Sub Command1_Click() If Text1.Text = Empty Then Text1.SetFocus Exit Sub End If cari = "Nim = '" & Text1.Text & "'" Data1.Recordset.FindFirst cari If Data1.Recordset.NoMatch Then Data1.Recordset.AddNew Data1.Recordset.nim = Text1.Text Data1.Recordset.nama = Text1.Text Data1.Recordset.kelas = Text1.Text Data1.Recordset.jurusan = Text1.Text Data1.Recordset.fakultas = Text1.Text Data1.Recordset.dosen = Text1.Text Data1.Recordset.Update Call Command2_Click
Else MsgBox "NIM Sudah Ada", vbExclamation, "Pesan Error" Text1.SetFocus End If End Sub
1. Klik Ganda pada control Command2, atau tombol yang bertuliskan “Batal”, kemudian ketikan kode program dibawah ini Private Sub Command2_Click() Text1.Text = Clear Text2.Text = Clear Text3.Text = Clear Text4.Text = Clear Text5.Text = Clear Text6.Text = Clear Text1.SetFocus End Sub
1. Klik Ganda pada control Command3, atau tombol yang bertuliskan “Tambah”, kemudian ketikan kode program dibawah ini Private Sub Command3_Click() Text1.Text = Clear Text2.Text = Clear Text3.Text = Clear Text4.Text = Clear Text5.Text = Clear
Text6.Text = Clear Text1.SetFocus End Sub
1. Klik Ganda pada control Command4, atau tombol yang bertuliskan “Keluar”, kemudian ketikan kode program dibawah ini Private Sub Command4_Click() Unload Me End Sub
1. Pada Project Properties disebelah kanan, klik pada Form1, kemudian klik View pada Menu, lalu sorot Code
1. Setelah muncul tampilan Code, terdapat dua kolom daftar yang terdiri dari:Object dan Procedure
1. Bukalah Daftar pada Object, kemudian pilih Form, dan pada kolom Procedure pilih Load 2. Kemudian isikan kode dibawah ini; Private Sub Form_Load() Data1.DatabaseName = App.Path & "/mahasiswa.mdb" Data1.RecordSource = "SELECT * FROM Mahasiswa" End Sub
1. Klik Ganda pada control Data1, kemudian isikan kode dibawah ini;
Private Sub Data1_Validate(Action As Integer, Save As Integer)
If Action = 1 Then Data1.Recordset.MoveFirst Text1.Text = Data1.Recordset.Fields(0) Text2.Text = Data1.Recordset.Fields(1) Text3.Text = Data1.Recordset.Fields(2) Text4.Text = Data1.Recordset.Fields(3) Text5.Text = Data1.Recordset.Fields(4) Text6.Text = Data1.Recordset.Fields(5) ElseIf Action = 2 Then Data1.Recordset.MovePrevious Text1.Text = Data1.Recordset.Fields(0) Text2.Text = Data1.Recordset.Fields(1) Text3.Text = Data1.Recordset.Fields(2) Text4.Text = Data1.Recordset.Fields(3) Text5.Text = Data1.Recordset.Fields(4) Text6.Text = Data1.Recordset.Fields(5) ElseIf Action = 3 Then Data1.Recordset.Movenext Text1.Text = Data1.Recordset.Fields(0) Text2.Text = Data1.Recordset.Fields(1) Text3.Text = Data1.Recordset.Fields(2) Text4.Text = Data1.Recordset.Fields(3) Text5.Text = Data1.Recordset.Fields(4) Text6.Text = Data1.Recordset.Fields(5) ElseIf Action = 4 Then Data1.Recordset.MoveLast
Text1.Text = Data1.Recordset.Fields(0) Text2.Text = Data1.Recordset.Fields(1) Text3.Text = Data1.Recordset.Fields(2) Text4.Text = Data1.Recordset.Fields(3) Text5.Text = Data1.Recordset.Fields(4) Text6.Text = Data1.Recordset.Fields(5) End If End Sub
Tentang Penulis Aep Memperluas pengetahuan saya dan pengalaman dalam Komunikasi Data, Sistem Administrasi, Programming, Pemrograman Web, Web Design, dan Sistem Manajemen Database
