Membuat Form Anggota Aplikasi Rental DVD VB 6.0 Database MySQL

Ini adalah tahapan #KeSembilan dalam Membuat Project Aplikasi Rental DVD Dengan VB 6.0 Database MySQL. Fungsi dari Form Anggota ini adalah untuk mengelola atau memanage data pada Tabel Anggota, dimana tabel anggota ini nantinya adalah orang atau anggota yang akan menyewa dari Rental DVD. Jika ada anggota baru maka data anggota harus diinput di Form ini. pada Form Anggota yang akan kita buat ini juga anda bisa edit atau update serta hapus data anggota sesuai dengan keinginan dari pengguna Aplikasi Rental DVD ini.

Untuk membuat Form Anggota ini sangat mudah, anda cukup pasrah mengikuti tutorial kami dibawah ini, diharapkan anda fokus dan langsung di praktikan pada komputer anda.

Untuk bisa mengikuti Tahap ini pastikan anda telah mengikuti tahapan sebelumnya yaitu :

1. Membuat Project Baru Aplikasi Rental DVD Dengan VB 6.0
2. Membuat Form Menu Utama Aplikasi Rental DVD Dengan VB 6.0
3. Membuat Database dan Tabel Aplikasi Rental DVD
4. Membuat Koneksi Database Dengan Modul Aplikasi Rental DVD
5. Membuat Form Login Aplikasi Rental DVD Dengan VB 6.0
6. Membuat Koding Logout Aplikasi Rental DVD VB 6.0 Database MySQL
7. Membuat Form Admin Aplikasi Rental DVD VB 6.0 Database MySQL
8. Membuat Tabel Anggota dan Tabel Film VB 6.0 Database MySQL 

Jika anda sudah mengikuti langkah diatas, silahkan dilanjut mengikuti tahap dibawah ini :

Berikut Langkah-langkahnya :
Buka project RentaDVD sebelumnya :

Jika anda lihat gambar diatas, maka terakhir kita buat adalah form master admin.
Klik Project - add form

Klik Open

Ganti form1 menjadi FormMasterAnggota seperti gambar diatas.
Kemudian design FormMasterAnggota seperti gambar dibawah ini :

Jika sudah membuat FormMasterAnggota seperti gambar diatas,
silahkan masukan koding dibawah ini :

Dim mvBookMark As Variant
Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then
MsgBox "Data masih Ada yang kosong!"
Else
Call BukaDB
Dim SQLTambah As String
            SQLTambah = "Insert Into tbl_Anggota values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')"
            koneksi.Execute SQLTambah
            MsgBox "Data Berhasil diinput"
            Form_Activate
End If
End Sub

Private Sub Command4_Click()
Unload Me
End Sub
Sub Form_Load()
Text1.MaxLength = 6
Text2.MaxLength = 50
Text3.MaxLength = 80
Text4.MaxLength = 80
End Sub
Private Sub Form_Activate()
Call BukaDB
Adodc1.ConnectionString = koneksi
Adodc1.RecordSource = "select * from tbl_Anggota"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
DataGrid1.Columns(0).Width = 1000: DataGrid1.Columns(0).Locked = True
DataGrid1.Columns(1).Width = 2200: DataGrid1.Columns(1).Locked = True
DataGrid1.Columns(2).Width = 1800: DataGrid1.Columns(2).Locked = True
DataGrid1.Columns(2).Width = 1000: DataGrid1.Columns(2).Locked = True
Command1.SetFocus
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
End Sub

Jangan lupa pada FormMenuUtama masukan koding dibawah ini :

Private Sub MnAnggota_Click()
FormMasterAnggota.Show vbModal
End Sub

Silahkan anda run atau jalankan project Aplikasi Rental DVD VB 6.0 Database MySQL
Silahkan KLIK LINK INI untuk melanjutkan ke Tahap-10 selanjutnya.