Membuat Form User Di Visual Basic 6.0

Setelah kita berhasil membuat database User.Mdb dipelajaran sebelumnya, kini saatnya kita membuat sebuah program yang berfungsi untuk menyimpan, mengedit, menghapus dan memanggil database User.Mdb. Dalam Visual Basic 6.0 tools yang digunakan untuk mengkoneksikan antara form dengan database dapat dilakukan dengan 2 cara. Cara yang pertama adalah dengan menggunakan tools Adodc, sedangkan cara yang kedua adalah dengan menggunakan tools Data. Untuk pembahasan kali ini, saya ingin menjelaskan dengan cara yang kedua yaitu dengan Data karena pemakaian Data sangat cocok bagi orang awam daripada memakai Adodc.

Ok, langsung saja kita mulai membuat form user di Visual Basic 6.0. Berikut langkah - langkahnya :

1. Buka Visual Basic 6.0

2. Pilih Standart.Exe atau Vb Pro Edition Controls , kemudian Open

3. Kemudian Atur Form Seperti Dibawah Ini. Huruf yang dicetak tebal adalah ToolBox, sedangkan yang dibawahnya adalah Propertiesnya, Atur Propertiesnya persis seperti gambar

Klik Gambar Untuk Meperbesar

4. Ubah Nama Form kita dengan cara klik Form dan pada jendela Properties kolom Name ganti dengan nama Form_User
5.  Setelah form selesai dibuat langkah paling awal adalah memainkan tombol
6. Buat sub off, sub hidup, dan sub kosong (prosedur ini berfungsi agar kita tidak melakukan perulangan penulisan kembali di form yang sama) dengan cara Buka Tools pilih Add procedure dan pada Name isikan off, pada Type centang sub, pada Scope pilih public lalu klik OK.
7.  Hapus tulisan public sehingga hanya ada tulisan sub_off  () 

8.  Lakukan cara no 5 untuk membuat sub hidup dan sub kosong 

9.    Isikan listing dibawah ini

Sub Off()
Txt_Kode.Enabled = False
Txt_Nama.Enabled = False
Txt_Pass.Enabled = False
Opt_Admin.Enabled = False
Opt_User.Enabled = False
End Sub 

10.  Lakukan juga pada sub hidup dan sub kosong
11. Isi dengan kode seperti ini
 

Sub hidup()
Txt_Kode.Enabled = True
Txt_Nama.Enabled = True
Txt_Pass.Enabled = True
Opt_Admin.Enabled = True
Opt_User.Enabled = True
End Sub
 

Sub kosong()
Txt_Kode = ""
Txt_Nama = ""
Txt_Pass = ""
Opt_Admin.Value = False
Opt_User.Value = False
End Sub

12. Lanjutkan dengan membuat form activate (form aktif adalah form yang pertama kali aktif ketika program dijalankan. Maka buat hanya tambah , cari dan keluar saja yang aktif, yang lainnya jangan diaktifkan)
13. Ketik listing dibawah ini

Private Sub Form_Activate()
Off    ‘  fungsi ini untuk memanggil sub off yang telah kita buat
Kosong ‘  fungsi ini untuk memanggil sub kosong yang telah kita buat

Cmd_Simpan.Enabled = False
Cmd_Batal.Enabled = False
Cmd_Hapus.Enabled = False
Cmd_Edit.Enabled = False
End Sub

14. Selanjutnya kita isi listing tombol tambah, ketikan kode dibawah ini

Private Sub Cmd_Tambah_Click()
Data1.Recordset.AddNew  ‘ Untuk menambah field di database

Txt_Kode.Enabled = True
Txt_Nama.Enabled = False
Txt_Pass.Enabled = False
Opt_Admin.Enabled = False
Opt_User.Enabled = False
kosong

Cmd_Tambah.Enabled = False
Cmd_Simpan.Enabled = True
Cmd_Batal.Enabled = True
Cmd_Cari.Enabled = False

Txt_Kode.SetFocus
End Sub

15.  Selanjutnya Isi listing di txt_kode
Yang perlu diperhatikan disini adalah, ketika panjang kode =8 maka apa yang kita ketik di txt_kode kita chek dahulu di database apakah sudah ada atau belum. Jika sudah ada maka secara otomatis Txt_nama , txt_pass, opt_jenis , dan opt_user akan terisi sendiri secara otomatis berdasarkan data yang ada di database. Jika belum ada maka kita lanjut mengisi txt_nama

Private Sub Txt_Kode_Change()
If Len(Trim(Txt_Kode.Text)) = 8 Then ‘kode agar jumlah huruf yang bisa diketik hanya 8
Data1.Recordset.Index = "InKodeUser" ‘Cari dulu berdasarkan index
Data1.Recordset.Seek "=", Txt_Kode.Text ‘samakan index dengan form (misal kita ‘membuat index di 'database user adalah InkodeUser dengan mengarah ke namauser, maka yang mengarah ke nama di form 'adalah txt_namauser bukan txt_kodeuser
If Not Data1.Recordset.NoMatch Then ‘Jika tidak tidak ada di database maka (jika tidak tidak maka 'artinya adalah iya, jadi membacanya adalah jika ada di database maka)
Txt_Kode.Enabled = False 
Txt_Nama.Text = Data1.Recordset!NamaUser ‘nama yang ada di database akan muncul di txt_nama 'sesuai kode yang kita input apabila ada di database
Txt_Pass.Text = Data1.Recordset!Password
If Data1.Recordset!jenis = "ADMIN" Then
    Opt_Admin.Value = True
Else
    Opt_User.Value = True
End If
Cmd_Edit.Enabled = True
Cmd_Simpan.Enabled = False
Cmd_Hapus.Enabled = True
Exit Sub
End If
End If

‘Jika tidak ada di database maka lanjut ke txt_nama
If Len(Trim(Txt_Kode.Text)) = 8 Then
Txt_Kode.Enabled = False
Txt_Nama.Enabled = True
Txt_Nama.SetFocus
Txt_Pass.Enabled = True
Opt_Admin.Enabled = True
Opt_User.Enabled = True
Data1.Recordset.AddNew
Cmd_Simpan.Enabled = True

End If
End Sub 

16. Selanjutnya buat listing kode SIMPAN , Isikan listing kode berikut

Private Sub Cmd_Simpan_Click()
If Txt_Kode = "" Then ‘jika txt_kode belum diisi dan kita langsung memencat tombol simpan maka 'keluar pesan “Harap Isi Data Dahulu
MsgBox " Harap Isi Data Dahulu"
Txt_Kode.SetFocus
Exit Sub
Else
If Txt_Kode = Txt_Kode Then ‘Jika txt_kode tidak kosong maka
Data1.Recordset!KodeUser = Txt_Kode ‘Data1.Recordset!KodeUser adalah Field KodeUser yang ada 'di database login tabel User = apa yang kita tulis di txt_kode
Data1.Recordset!NamaUser = Txt_Nama
Data1.Recordset!Password = Txt_Pass
If Opt_Admin.Value = True Then ‘Jika opt_admin kita klik maka jenis ADMIN
    Data1.Recordset!jenis = "ADMIN"
Else
    Data1.Recordset!jenis = "USER"
End If
MsgBox "Data Tersimpan"
Data1.Recordset.Update ‘Update database
Data1.Refresh
Data1.Refresh
End If
End If
Cmd_Simpan.Enabled = False
Cmd_Batal.Enabled = False
Cmd_Tambah.Enabled = True
Cmd_Cari.Enabled = True

Kosong  ‘panggil sub kosong
Off  ‘panggil sub off
End Sub

17.  Selanjutnya kita isikan kode Cari

Private Sub Cmd_Cari_Click()
Dim conn As String ‘Konversi dulu agar conn menjadi string

conn = InputBox("Masukan Nama User", "Cari Data", "Max 8 Huruf")
Data1.Recordset.Index = "innamauser" ‘Index yang ada di table user
Data1.Recordset.Seek "=", conn ‘cocokkan nama user  dengan conn yang tadi kita ketik

If Data1.Recordset.NoMatch Then ‘jika tidak ditemukan maka
    MsgBox "Nama Tidak Ditemukan, Silahkan masukkan kode user!", , "Pemberitahuan !"
Else ‘ Jika ditemukan maka
Txt_Kode = Data1.Recordset!KodeUser ‘Txt_kode = apa yang ada di database
Txt_Nama = Data1.Recordset!NamaUser
Txt_Pass = Data1.Recordset!Password
If Data1.Recordset!jenis = "ADMIN" Then
    Opt_Admin.Value = True
Else
    Opt_User.Value = True
End If
Cmd_Cari.Enabled = False
Cmd_Edit.Enabled = True
Cmd_Hapus.Enabled = True
Cmd_Tambah.Enabled = False
Cmd_Batal.Enabled = True
End If
End Sub

18.  Selanjutnya kita buat listing kode edit

Private Sub Cmd_Edit_Click()
Data1.Recordset.Edit ‘perintah untuk mengedit database
Hidup ‘panggil sub hidup

Cmd_Edit.Enabled = False
Cmd_Hapus.Enabled = False
Cmd_Simpan.Enabled = True
Cmd_Batal.Enabled = True
Txt_Kode.Enabled = False
End Sub

19. Langkah selanjutnya kita buat listing kode hapus

Private Sub Cmd_Hapus_Click()
Dim conn As String ‘Konversikan conn adalah string

conn = MsgBox("Apakah anda ingin mengahpus data user?", vbYesNo + vbQuestion, "Konfirmasi!!!")
If conn = vbYes Then ‘ Jika kita klik Yes maka
MsgBox "Data Berhasil Dihapus"
    Data1.Recordset.Delete ‘Perintah untuk menghapus database
    Off
    kosong
    Cmd_Tambah.Enabled = True
    Cmd_Edit.Enabled = False
    Cmd_Hapus.Enabled = False
    Cmd_Cari.Enabled = True
    Cmd_Batal.Enabled = False
End If
End Sub

20. Buat listing kode keluar

Private Sub Cmd_Keluar_Click()
Unload Me
End Sub


Penjelasan :
Kode yang diwarnai biru jangan ditulis, itu hanya sekedar keterangan saja

Untuk contoh programnya, anda dapat download disini