MEMBUAT FORM Lanjutan Setelah membuat form untuk mengisi data selanjutnya adalah membaut form untuk mengedit data. Jalankan Aplikasi Visual Basic, buka Project sebelumnya, kemudian tambahkan sebuah Form, secara default akan bernama FORM2. Didalam Form yang masih kosong tambahkan sebuah Frame, sepuluh ...

Modul Database dan Pengaksesannya dari FORM #Lanjutan

MEMBUAT FORM Lanjutan

  1. Setelah membuat form untuk mengisi data selanjutnya adalah membaut form untuk mengedit data.
  2. Jalankan Aplikasi Visual Basic, buka Project sebelumnya, kemudian tambahkan sebuah Form, secara default akan bernama FORM2.
  3. Didalam Form yang masih kosong tambahkan sebuah Frame, sepuluh control Label, enam buah TextBox, dan empat buah Control CommandButton, serta sebuah Control Data
  4. 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

 form

Form

Caption

Edit Data Mahasiswa

Border Style

3 – Fixed Dialog

StartUpPosition

2 – Center Screen

 frame

Frame1

Caption

Keterangan

 label

Label1

Caption

1. Gunakan Tombol Cari untuk Malkukan Pencarian Data yang akan diedit

label 

Label2

Caption

2. Gunakan Tombol Batal untuk Membatalkan Pengisian Data

label 

Label3

Caption

3. Gunakan Tombol Update untuk Melakukan Penyimpanan hasil Update.

label 

Label4

Caption

4. Gunakan Tombol Keluar untuk Mengakhiri Program Ini.

label 

Label5

Caption

NIM

label 

Label6

Caption

Nama

label 

Label7

Caption

Kelas

label 

Label8

Caption

Jurusan

label 

Label9

Caption

Fakultas

 label

Label10

Caption

Dosen

 textbox

Text1

Text

Kosongkan

MaxLength

9

 textbox

Text2

Text

Kosongkan

MaxLength

25

 textbox

Text3

Text

Kosongkan

MaxLength

4

 textbox

Text4

Text

Kosongkan

MaxLength

25

 textbox

Text5

Text

Kosongkan

MaxLength

25

 textbox

Text6

Text

Kosongkan

MaxLength

25

 command

Command1

Caption

Cari Data

command 

Command2

Caption

Batal

command 

Command3

Caption

Update

 command

Command4

Caption

Keluar

 dataset

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()

    teks = InputBox("Masukan Kode Mahasiswa", "Cari Mahasiswa")

        Data1.Recordset.MoveFirst

        cari = "Nim = '" & teks & "'"

        Data1.Recordset.FindFirst cari

       

        If Data1.Recordset.NoMatch Then

            MsgBox "Data tidak ditemukan", vbExclamation, "Pesan Error"

        Else

            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)

            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

    Command1.SetFocus

End Sub

 

  1. Klik Ganda pada control Command3, atau tombol yang bertuliskan “Tambah”, kemudian ketikan kode program dibawah ini
Private Sub Command3_Click()

        Data1.Recordset.Edit

        Data1.Recordset.nim = Text1.Text

        Data1.Recordset.nama = Text2.Text

        Data1.Recordset.kelas = Text3.Text

        Data1.Recordset.jurusan = Text4.Text

        Data1.Recordset.fakultas = Text5.Text

        Data1.Recordset.dosen = Text6.Text

        Data1.Recordset.Update

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 Code, pilih object FORM, dan pada Procedure sorot LOAD. Isikan kode dibawah ini pada sub code load;
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)

    With Data1.Recordset

        If Action = 1 Then

            .MoveFirst

        ElseIf Action = 2 Then

            .MovePrevious

        ElseIf Action = 3 Then

            .MoveNext

        ElseIf Action = 4 Then

            .MoveLast

        End If     

        Text1.Text = .Fields(0)

        Text2.Text = .Fields(1)

        Text3.Text = .Fields(2)

        Text4.Text = .Fields(3)

        Text5.Text = .Fields(4)

        Text6.Text = .Fields(5)

    End With

End Sub

 

 

MEMBUAT TABEL Lanjutan

Struktur Tabel Jadwal

 

Field

Tipe

Size

Index

Kelas

Text

4

 

Materi

Text

50

 

Hari

Text

15

 

Ruang

Text

4

 

Waktu

Text

5

 

Pengajar

Text

50

 

 

Lakukan langkah-langkah pembuatan tabel sebagai berikut:

  1. Dari Jendela Visual Data, Klik Open Database, pilih Microsoft Access, dan cari database yang telah dibuat sebelumnya yang bernama Mahasiswa.MDB
  2. Dari Jendela Window Manager Klik kanan pada jendela Database Window, lalu sorot Properties
  3. Sorot dan klik pada New Table
  4. Buat nama Tabel Jadwal, pada kolom isian Table Name
  5. Kemudian, Klik pada Add Field
  6. Isikan kelas pada kolom isian Name
  7. Pilih Text pada daftar Type
  8. Isikan 4 pada kolom isian Size
  9. Kemudian Klik OK
  10. Lakukan hal yang sama mulai dari langkah ke 5 s/d ke 8 untuk membuat field Materi, Hari, Ruang, Waktu, dan Pengajar.
  11. Setelah semua dilakukan Klik tombol Close
  12. Langkah terakhir 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;

Kelas               :           TI-1

Hari                 :           Senin

Materi              :           Matematika Dasar

Ruang             :           R-1

Waktu              :           08:30

Pengajar          :           Dwicahyo

 

  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 

Kelas

Materi

Hari

Ruang

Waktu

Pengajar

TI-1

Database

Senin

R-1

11:00

Setiawan

TI-1

Fisika Dasar

Senin

R-1

14:30

Hendra

TI-2

Pemrograman

Selasa

R-5

08:30

Rangga

TI-1

Internet

Rabu

R-8

09:00

Srihastuti

TI-2

Algoritma

Rabu

R-1

09:00

Rangga

TI-1

Kewiraan

Kamis

R-5

08:30

Sudjaman

TI-1

Agama

Kamis

R-8

10:30

Harun

TI-2

Database Lanjut

Jumat

R-1

08:00

Setiawan

TI-1

Lab

Jumat

R-20

15:00

Melly

TI-1

Statistik

Sabtu

R-3

10:00

Doni

 

 

Buatlah kembali sebuah Form untuk dapat menangani pengisian data ke tabel jadwal,  lakukan langkah-langkah berikut ini:

  1. Pada Menu Bar, Pilih Project, kemudian sorot Components atau gunakan short-cut Ctr+T,  Tambahkan Componen Microsoft FlexGrid Control6.0 dan Microsoft Masked Edit Control 6.0
  2. Didalam Form yang masih kosong tambahkan sebuah Frame, sepuluh control Label, tiga buah TextBox, dua buah Combo Box, satu buah MaskEdBox dan delapan buah Control CommandButton, serta sebuah Control Data
  3. Aturlah posisi setiap control sehingga tampak seperti gambar dibawah ini.

 

 

Control

Nama Control

Properties

Nilai Pengaturan

 form

Form

Caption

Input Jadwal

Border Style

3 – Fixed Dialog

StartUpPosition

2 – Center Screen

 frame

Frame1

Caption

Keterangan

label 

Label1

Caption

1. Gunakan Tombol Simpan untuk Menyimpan Data Ke Dalam Tabel

label 

Label2

Caption

2. Gunakan Tombol Batal untuk Membatalkan Pengisian Data

label 

Label3

Caption

3. Gunakan Tambah untuk Memulai Manmbahkan Data Baru

label 

Label4

Caption

4. Gunakan Tombol Keluar untuk Mengakhiri Program Ini.

label 

Label5

Caption

Kelas

label 

Label6

Caption

Materi

label 

Label7

Caption

Hari

label 

Label8

Caption

Ruang

label 

Label9

Caption

Waktu

 label

Label10

Caption

Dosen Pengajar

 textbox

Text1

Text

Kosongkan

MaxLength

4

 textbox

Text2

Text

Kosongkan

MaxLength

50

 combo

Combo1

Text

Kosongkan

 

 

 combo

Combo2

Text

Kosongkan

 

 

 maskinput

MaskEdBox1

Mask

##:##

Format

hh;mm

 textbox

Text3

Text

Kosongkan

MaxLength

25

command 

Command1

Caption

Simpan

command 

Command2

Caption

Batal

command 

Command3

Caption

Tambah

command 

Command4

Caption

Keluar

command 

Command5

Caption

First Record

command 

Command6

Caption

Previous

command 

Command7

Caption

Next

 command

Command8

Caption

Last Record

 dataset

Data1

DataBaseName

Kosongkan

Recordsource

Kosongkan

 

  1. Buka Project Code, kemudian isikan pada properties Form Load kode berikut ini
Private Sub Form_Load()

    Data1.DatabaseName = App.Path & "/mahasiswa.mdb"

    Data1.RecordSource = "SELECT * FROM Jadwal"

 
    Call fungsikombo

End Sub

 

 

  1. buatlah function dengan nama fungsiCombo dan function-function tambahan seperti dibawah ini:
Function fungsikombo()

    Combo1.AddItem "Senin"

    Combo1.AddItem "Selasa"

    Combo1.AddItem "Rabu"

    Combo1.AddItem "Kamis"

    Combo1.AddItem "Jumat"

    Combo1.AddItem "Sabtu"

    Combo1.AddItem "Minggu"

   

    For i = 1 To 20

        Combo2.AddItem "R-" & i

    Next i

End Function

Function MengosongkanForm()

    Text1.Text = Clear

    Text2.Text = Clear

    Text3.Text = Clear

    Combo1.Clear

    Combo2.Clear

    Call fungsikombo

    MaskEdBox1.Text = Format("__:__", "##:##")

    Text1.SetFocus

End Function


Function TampilkanData()

With Data1.Recordset

    Text1.Text = .kelas

    Text2.Text = .materi

    Text3.Text = .pengajar

    Combo1.Text = .hari

    Combo2.Text = .ruang

    MaskEdBox1.Text = .waktu

End With

End Function

 

  1. Pada tampilan Project Form, klik ganda pada tombol Command1 atau Simpan, dan isikan kode dibawah ini;
 Data1.Recordset.AddNew

    Data1.Recordset.kelas = Text1.Text

    Data1.Recordset.materi = Text2.Text

    Data1.Recordset.hari = Combo1.Text

    Data1.Recordset.ruang = Combo2.Text

    Data1.Recordset.waktu = MaskEdBox1.Text

    Data1.Recordset.pengajar = Text3.Text

    Data1.Recordset.Update

    Data1.Recordset.MoveLast

 

  1. Pada tampilan Project Form, Klik ganda pada tombol Command2 atau Batal, dan isikan kode dibawah ini;
Private Sub Command2_Click()

    Call MengosongkanForm

    Text1.SetFocus

End Sub

 

  1. Pada tampilan Project Form, Kklik ganda pada tombol Command3 atau Tambah, dan isikan kode dibawah ini;
Private Sub Command3_Click()

    Call MengosongkanForm

    Text1.SetFocus

End Sub

 

  1. Pada tampilan Project Form, Kklik ganda pada tombol Command4 atau Keluar, dan isikan kode dibawah ini;
Private Sub Command4_Click()

    Unload Me

End Sub

 

  1. Pada tampilan Project Form, Kklik ganda pada tombol Command5 atau First Record, dan isikan kode dibawah ini;
Private Sub Command5_Click()

    If Data1.Recordset.RecordCount <> 0 Then

        Data1.Recordset.MoveFirst

        Call TampilkanData

        MsgBox "Data Awal..", , "Data Awal"

    Else

        MsgBox "Data Masih Kosong !", vbInformation, "Data Kosong"

    End If

End Sub

 

 

  1. Pada tampilan Project Form, Kklik ganda pada tombol Command6 atau Next, dan isikan kode dibawah ini;
Private Sub Command6_Click()

    If Data1.Recordset.RecordCount <> 0 Then

        Data1.Recordset.MovePrevious

        If Not (Data1.Recordset.BOF) Then

            Call TampilkanData

        Else

            MsgBox "Anda Telah Sampai pada Data Awal..", , "Data Awal"

            Data1.Recordset.MoveFirst

        End If

    Else

        MsgBox "Data Masih Kosong !", vbInformation, "Data Kosong"

    End If

End Sub

 

 

  1. Pada tampilan Project Form, Kklik ganda pada tombol Command7 atau Previous, dan isikan kode dibawah ini;
Private Sub Command7_Click()

    If Data1.Recordset.RecordCount <> 0 Then

        Data1.Recordset.MoveNext

        If Not (Data1.Recordset.EOF) Then

            Call TampilkanData

        Else

            MsgBox "Anda Telah Sampai pada Data Akhir..", , "Data Awal"

            Data1.Recordset.MoveLast

        End If

    Else

        MsgBox "Data Masih Kosong !", vbInformation, "Data Kosong"

    End If

End Sub

 

 

  1. Pada tampilan Project Form, Kklik ganda pada tombol Command8 atau Last Record, dan isikan kode dibawah ini;
Private Sub Command8_Click()

    If Data1.Recordset.RecordCount <> 0 Then

        Data1.Recordset.MoveLast

        Call TampilkanData

        MsgBox "Data Akhir..", , "Data Awal"

    Else

        MsgBox "Data Masih Kosong !", vbInformation, "Data Kosong"

    End If

End Sub

 

 

  1. Setelah selesai dengan Form Input Jadwal ini Lakukan Penambahan Form untuk melakukan transaksi hubungan antara dua tabel, dimana tabel mahasiswa dengan menggunakan nomor induk mahasiswa dapat melihat jadwal kuliah yang diikutinya selama satu semester. Tampilannya seperti pada berikut ini.

 

 

  1. Tambahkan satu control label, dua Option Button, satu textbox, satu buah listbox, satu buah flexgrid, satu buah command button, dan dua buah control data.

 

  1. Coba lakukan pengisian kode dengan melihat contoh-contoh yang telah diberikan, dimulai dengan melakukan pengkodean untuk memilih pencarian jadwal mahasiswa berdasarkan manual (textbox) atau pilih daftar (listbox) yang diakhiri dengan pengeksekusian tombol Cari Jadwal Kuliah.

About Author

Aep

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


Comment & Discussions

  • Cecep Yusuf
    Siip, mantap euy lengkap..

    • Aep

      Alhamdulillah hatur nuhun kang.. :)


  • Please LOGIN before if you want to give the comment.