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...

Modul Database dan Pengaksesannya dari FORM #1

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.

 Struktur Database

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. Pembuatan Database
  2. Penghapusan Database
  3. Pembuatan Tabel
  4. Perbaikan Struktur Tabel
  5. Penghapusan Tabel
  6. Penambahan Data Ke Dalam Tabel
  7. Pengambilan Data Ke Dalam Tabel
  8. Pengubahan Data Ke Dalam Tabel
  9. 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..

 Visual Data Manager

  1. Pada Jendela VisData, klik menu File
  2. Klik sub menu New
  3. Klik sub menu Microsof Access
  4. Klik sub menu Version 7.0. MDB

 Visual Data Manager

 

  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.

Database Windows

 

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

 Struktur Tabel

 

  1. Kemudian, Klik pada Add Field

 Tambah Field 

 

  1. Isikan nim pada kolom isian Name
  2. Pilih Text pada daftar Type
  3. Isikan 9 pada kolom isian Size
  4. Kemudian Klik OK
  5. Lakukan hal yang sama mulai dari langkah ke 5 s/d ke 8 untuk membuat field Nama, Kelas, Jurusan, Fakultas, dan Dosen.
  6. Setelah semua dilakukan Klik tombol Close
  7. Selanjutnya untuk membuat file Index, lakukan dengan mengklik tombol Add Index
  8. Pilih nim sebagai index nya
  9. Isikan IDXnim pada kolom isian Name
  10. Klik OK
  11. Klik Tombol Close untuk mengakhiri
  12. 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

 Tambah Data

 

  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.

  Form

 

  1. Gantilah Properties dari setiap control, menjadi seperti di tunjukan pada tabel dibawah ini;

 

Control

Nama Control

Properties

Nilai Pengaturan

 

Form

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

 

Text1

Text

Kosongkan

MaxLength

9

 

Text2

Text

Kosongkan

MaxLength

25

 

Text3

Text

Kosongkan

MaxLength

4

 

Text4

Text

Kosongkan

MaxLength

25

 

Text5

Text

Kosongkan

MaxLength

25

 

Text6

Text

Kosongkan

MaxLength

25

 

Command1

Caption

Simpan

 

Command2

Caption

Batal

 

Command3

Caption

Tambah

 

Command4

Caption

Keluar

 

Data1

DataBaseName

Kosongkan

Recordsource

Kosongkan

 

  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

 Control

 

  1. Setelah muncul tampilan Code, terdapat dua kolom daftar yang terdiri dari:Object dan Procedure

 Control

 

  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

About Author

Aep

Memperluas pengetahuan saya dan pengalaman dalam Komunikasi Data, Sistem Administrasi, Programming, Pemrograman Web, Web Design, dan Sistem Manajemen Database


Comment & Discussions

    Please LOGIN before if you want to give the comment.