Membuat Master Data User di Ms Visual Basic dengan database phpmyadmin

Setelah kita membuat Menu di Ms Visual Basic, Sekarang kita isi Menu menu tersebut dengan form form. Dalam bahasan kali ini saya akan mengisi form "Master Data User".
Kita buat formnya seperti berikut :

Selanjutnya kita ubah "name"nya seperti di bawah ini :

- Pertama kita buat Sub Aktif ( fungsi ketika kita pilih add maka semuanya aktif)

Sub aktif()
tkodeuser.Enabled = True

tnamauser.Enabled = True

cjabatan.Enabled = True

tpassword.Enabled = True
End Sub

- Buat Sub nonaktif ( fungsi ketika form dijalankan semuanya dalam kondisi nonaktif, kecuali add)

Sub nonaktif()
tkodeuser.Enabled = False

tnamauser.Enabled = False

cjabatan.Enabled = False

tpassword.Enabled = False

cmdsave.Enabled = False

cmdedit.Enabled = False

cmdupdate.Enabled = False

cmdcancel.Enabled = False

cmddelete.Enabled = False
End Sub

- Buat sub bersih

Sub bersih()
tkodeuser.Text = ""

tnamauser.Text = ""

cjabatan.Text = ""

tpassword.Text = ""
End Sub 

- Buat form-load

Private Sub Form_Load()
Call nonaktif
End Sub

- buat sub tampil :

Sub tampil()
 Call koneksi

 rsuser.Open "select*from tbuser", KON

 Set grid.DataSource = rsuser
End Sub 

Silahkan copy kode listing berikut dan pastekan sesuai name nya :

- cmdadd:

Private Sub cmdadd_Click()
Call bersih

Call aktif

tkodeuser.SetFocus

cmdsave.Enabled = True

cmdcancel.Enabled = True

cmdedit.Enabled = False

cmdupdate.Enabled = False
End Sub

- cmdsave

Private Sub cmdsave_Click()
Call koneksi

rsuser.Open "insert into tbuser values('" & tkodeuser & "','" & tnamauser & "','" & cjabatan & "','" & tpassword & "')", KON

MsgBox "Data Sudah Tersimpan", vbInformation

Call tampil

Call nonaktif
End Sub

-cmdcancel :

Private Sub cmdcancel_Click()
bersih

tkodeuser.SetFocus
End Sub

- cmdedit :

Private Sub cmdedit_Click()
Call koneksi

rsuser.Open "select*from tbuser where kodeuser='" & tcari.Text & "'", KON

With rsuser

 tkodeuser.Text = .Fields("kodeuser")

 tnamauser.Text = .Fields("namauser")

 cjabatan.Text = .Fields("jabatan")

 tpassword.Text = .Fields("password")

 End With

 Call aktif

 tkodeuser.Enabled = False

 tnamauser.SetFocus

 cmdupdate.Enabled = True
End Sub

- cmdupdate :

Private Sub cmdupdate_Click()
Call koneksi

rsuser.Open "update tbuser set namauser='" & tnamauser & "',jabatan='" & cjabatan & "',password='" & tpassword & "' where kodeuser='" & tkodeuser.Text & "'", KON

MsgBox "Data Berhasil di Update", vbInformation, "Info"

bersih

Call tampil
End Sub

- cmddelete :

Private Sub cmddelete_Click()
Call koneksi

a = MsgBox("Yakin Ingin Hapus Data ini?", vbQuestion + vbYesNo, "tanya")

If a = vbYes Then

rsuser.Open "delete from tbuser where kodeuser='" & tcari.Text & "'", KON

bersih

tcari.Text = ""

End If
End Sub

- bmenu :

Private Sub Command1_Click()
fmenu.Show
End Sub 

- exit :

Private Sub EXIT_Click()
a = MsgBox("Yakin Keluar", vbCritical + vbYesNo, "INFO")

If a = vbYes Then

End

End If
End Sub  

- tcari (ubah declarationsnya ke change):

Private Sub tcari_Change()
Call koneksi

rsuser.Open "select*from tbuser where kodeuser like '" & tcari.Text & "'", KON

If Not tcari.Text = "" Then

Set grid.DataSource = rsuser

Else

Call tampil

End If

Call nonaktif

tcari.Enabled = True

cmdedit.Enabled = True

cmddelete.Enabled = True
End Sub