Membuat Form Film DVD Aplikasi Rental DVD VB 6.0 Database MySQL

Ini adalah tahapan #KeSepuluh dalam Membuat Project Aplikasi Rental DVD Dengan VB 6.0 Database MySQL. Fungsi dari Form Film ini adalah untuk mengelola atau memanage data pada Tabel Film yang telah kita buat sebelumnya, dimana tabel FILM ini nantinya adalah barang atau DVD yang akan kita rentalkan kepada para Anggota pada Aplikasi ini. Dengan adanya Form Film ini kita bisa Input, Edit dan Delete data Film DVD.

Untuk membuat Form Film DVD 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
9. Membuat Form Anggota Aplikasi Rental DVD VB 6.0 Database MySQL

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

Berikut Langkah-langkahnya :
Buka project Rental DVD sebelumnya :

Jika dilihat dari gambar diatas maka terakhir kita telah sukses membuat FormMasterAnggota.
Kemudian klik Project - Add Form

Klik Open

Ganti nama form1 menjadi FormMasterFilm seperti gambar diatas.
Design FormMasterFilm seperti gambar dibawah ini :

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_Film 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_Film"
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 = 1200: DataGrid1.Columns(2).Locked = True
DataGrid1.Columns(2).Width = 1200: DataGrid1.Columns(2).Locked = True
Command1.SetFocus
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
End Sub

Jangan lupa masukan koding dibawah pada FormMenuUtama :

Private Sub MnFilm_Click()
FormMasterFilm.Show vbModal
End Sub

Jika sudah silahkan Jalankan atau Run Project Aplikasi DVD yang telah dibuat diatas.
Silahkan KLIK LINK INI untuk melanjutkan ke Tahap-11 selanjutnya