Membuat Kegiatan Database Mahasiswa Dengan Vb 6.0 - Fezarzone

Dalam menciptakan aktivitas database cukup gampang hanya saja dalam pembuatan programnya prosedural. Yang namanya database, kini sudah sangat diperlukan, hampir di semua instalsi baik dipemerintahan, pendidikan maupun perusahaan. Database merupakan Kumpulan dari item data yang saling bekerjasama satu dengan yang lainnya yang diorganisasikan menurut sebuah sketsa atau struktur tertentu, tersimpan di hardware komputer dan dengan software untuk melaksanakan manipulasi untuk kegunaan tertentu.

Mengapa Diperlukan Database alasannya antara lain :

• Salah satu komponen penting dalam sistem informasi, sebab merupakan dasar dalam menyediakan informasi
• Menentukan kualitas informasi : akurat, sempurna pada waktunya dan relevan.

·         Informasi sanggup dikatakan bernilai bila keuntungannya lebih efektif dibandingkan dengan biaya mendapatkannya.

• Mengurangi duplikasi data (data redudancy)
• Hubungan data sanggup ditingkatkan (data relatability)
• Mengurangi pemborosan daerah simpanan luar

Related: Apa perbedaan Freshbot dan Deepbot Googlebot Dalam Perayapan?

Pertama kali dalam menciptakan aktivitas database ini yaitu dengan visual data manager :

Berikut langkah-langkah dalam menciptakan aktivitas database :

1.    Buka aktivitas VB 6.0 anda

2.    Pilih sajian Add-Ins >> Visual Data Manager >> File >> New >> Microsoft Access >> Version 7.0 MDB

3.    Beri nama database anda kemudian simpan klik kanan Properties >> New Table

4.    Beri nama Tabel database anda >> Add Field >> tambahkan satu persatu komponen data yang ingin anda tampilkan seperti, NAMA, NIM, JURUSAN, IPK dan lain-lain >> close jikalau sudah

5.    Kemudian Build The Table jadinya ibarat berikut :

Gambar Visual Data Manager

6.    Klik Add kemudian masukkan data mahasiswa  jikalau sudah close

7.    Sekarang buka form anda kemudian desain dan tambahkan satu buah frame, 9 label, 5 commanbutton, 8 textbox dan satu kontrol data, untuk commandbutton ubah nama pada propertinya sesuai ibarat yang dibawah ini

Gambar Program Database mahasiswa dengan VB 6.0

8.    Kemudian klik control data ,lihat diproperties pilih DatabaseName kemudian masukkan database yang kita buat tadi, satu lagi RecordSources ganti dengan nama databasenya

9.    Kemudian atur properties masing-masing textbox ibarat dibawah ini :

TextBox	DataSource	DataField
Text1	Data1	NAMA
Text2	Data1	NIM
Text3	Data1	JENIS KELAMIN
Text4	Data1	ALAMAT
Text5	Data1	JURUSAN
Text6	Data1	NO HP
Text7	Data1	IPK

10.           Ketikkan Kode/listing/script aktivitas berikut ini :

Private Sub CANCEL_Click()

End

End Sub

Related: Tips Dasar Membangun Popularitas Blog

Private Sub CARI_Click()

Data1.Recordset.FindFirst "NIM='" + Text8 + "'"

If Data1.Recordset.NoMatch Then

MsgBox "NIM yang Anda cari Tidak Ditemukan", vbOKOnly, "cari"

Data1.Recordset.MoveFirst

Text8.SetFocus

End If

End Sub

Related: Alasan Bisnis Online Ramai Tapi Penjualan Sedikit

Private Sub Form_Load()

Call tidaktampil

End Sub

Private Sub tampil()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

Text5.Enabled = True

Text6.Enabled = True

Text7.Enabled = True

End Sub

Private Sub tidaktampil()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

Text6.Enabled = False

Text7.Enabled = False

End Sub

Private Sub HAPUS_Click()

Delete = MsgBox("Anda Yakin Ingin menghapusnya", vbInformation + vbYesNo, "hapus")

If Delete = vbYes Then

Data1.Recordset.Delete

Data1.Recordset.MoveNext

Else

Data1.Recordset.MoveFirst

End If

End Sub

Related: Memilih Nama Domain dan TLD Yang Tepat

Private Sub SIMPAN_Click()

Data1.Recordset.Update

Data1.Recordset.MoveFirst

Call tidaktampil

End Sub

Private Sub TAMBAH_Click()

Data1.Recordset.AddNew

Call tampil

Text1.SetFocus

End Sub

11.           Kemudian silahkan coba aktivitas anda dan lihat referensi ibarat dibawah ini :

Gambar aktivitas menciptakan Database Mahasiswa dengan VB 6.0

12.           Selamat mencoba….!!!