Modul Database dan Pengaksesannya dari FORM #Lanjutan Oleh: Aep
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 ...
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
Caption
Edit Data Mahasiswa
Border Style
3 – Fixed Dialog
StartUpPosition
2 – Center Screen
Frame1
Caption
Keterangan
Label1
Caption
1. Gunakan Tombol Cari untuk Malkukan Pencarian Data yang akan diedit
Label2
Caption
2. Gunakan Tombol Batal untuk Membatalkan Pengisian Data
Label3
Caption
3. Gunakan Tombol Update untuk Melakukan Penyimpanan hasil Update.
Label4
Caption
4. Gunakan Tombol Keluar untuk Mengakhiri Program Ini.
Label5
Caption
NIM
Form
Label6
Caption
Nama
Label7
Caption
Kelas
Label8
Caption
Jurusan
Label9
Caption
Fakultas
Label10
Caption
Dosen
Text
Kosongkan
MaxLength
9
Text
Kosongkan
MaxLength
25
Text
Kosongkan
MaxLength
4
Text
Kosongkan
MaxLength
25
Text
Kosongkan
MaxLength
25
Text
Kosongkan
MaxLength
25
Command1
Caption
Cari Data
Command2
Caption
Batal
Command3
Caption
Update
Command4
Caption
Keluar
DataBaseName
Kosongkan
Recordsource
Kosongkan
Text1
Text2
Text3
Text4
Text5
Text6
Data1
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
Kelas
Text
4
Materi
Text
50
Hari
Text
15
Ruang
Text
4
Waktu
Text
5
Pengajar
Text
50
Index
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
08:00
Setiawan
TI-1
Lab
Jumat
R-20
15:00
Melly
TI-1
Statistik
Sabtu
R-3
10:00
Doni
R-1
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
Caption
Input Jadwal
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 Tambah untuk Memulai Manmbahkan Data Baru
Label4
Caption
4. Gunakan Tombol Keluar untuk Mengakhiri Program Ini.
Label5
Caption
Kelas
Label6
Caption
Materi
Label7
Caption
Hari
Label8
Caption
Ruang
Label9
Caption
Waktu
Label10
Caption
Dosen Pengajar
Text
Kosongkan
MaxLength
4
Text
Kosongkan
MaxLength
50
Text
Kosongkan
Text
Kosongkan
Mask
##:##
Format
hh;mm
Text
Kosongkan
MaxLength
25
Caption
Simpan
Form
Text1
Text2
Combo1
Combo2
MaskEdBox1
Text3 Command1
Command2
Caption
Batal
Command3
Caption
Tambah
Command4
Caption
Keluar
Command5
Caption
First Record
Command6
Caption
Previous
Command7
Caption
Next
Command8
Caption
Last Record
DataBaseName
Kosongkan
Recordsource
Kosongkan
Data1
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.
Tentang Penulis Aep Memperluas pengetahuan saya dan pengalaman dalam Komunikasi Data, Sistem Administrasi, Programming, Pemrograman Web, Web Design, dan Sistem Manajemen Database
