Membuat Form Admin Aplikasi Pembelian Vb 6.0

Dibawah ini akan kami bahas wacana Cara Membuat Form Admin Aplikasi Pembelian VB 6.0. Jika anda sudah mengikuti tutorial sebelumnya ialah anda telah sukses menciptakan Login dan Logout Apikasi. Kini saatnya kita menciptakan Form Admin. Form Admin ini berfungsi untuk mengelola daftar Admin yang akan Login ke Aplikasi.

Langkah sebelumnya :
1. Membuat Project Aplikasi Pembelian
2. Membuat Form Menu Utama
3. Membuat Database dan Tabel
4. Membuat Koneksi Database Dengan Module
5. Membuat Form Login Aplikasi Pembelian
6. Membuat Koding Logout Aplikasi Pembelian

Berikut langkahnya :
Buka Project Aplikasi Pembelian anda sebelumnya :

Jika dilihat dari gambar diatas, anda telah sukses menciptakan Form Login beserta koding Logoutnya.

Silahkan Klik Project - Add Form

Klik Form lalu Klik Open
Pada Properties Ganti nama Form1 menjadi FormMasterAdmin
Kemudian buatlah Design FormMasterAdmin menyerupai gambar dibawah ini :

Kemudian masukan koding dibawah ini :

Tambahkan Koding FormMenuUtama :

Private Sub MnAdmin_Click()    FormMasterAdmin.Show vbModal End Sub

Masukan Pada FormMasterAdmin

Dim mvBookMark As Variant Private Sub Command1_Click() If Text1 = "" Or Text2 = "" Or Text3 = "" Or Combo1 = "" Then MsgBox "Data Belum Lengkap" Else Call BukaDB Dim SQLTambah As String             SQLTambah = "Insert Into TBL_ADMIN values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Combo1 & "')"             Koneksi.Execute SQLTambah             MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"             Form_Activate             Call kondisiawal End If End Sub Private Sub Command4_Click() Unload Me End Sub Sub Form_Load() Text1.MaxLength = 6 Text2.MaxLength = 20 Text3.MaxLength = 15 Text3.PasswordChar = "X" kondisiawal End Sub Private Sub kondisiawal()     Command1.Caption = "&Input"     Command2.Caption = "&Edit"     Command3.Caption = "&Hapus"     Command4.Caption = "&Tutup"     Command1.Enabled = True     Command2.Enabled = True     Command3.Enabled = True     Text1 = ""     Text2 = ""     Text3 = ""     Combo1.Clear     Combo1.AddItem "USER"     Combo1.AddItem "ADMIN" End Sub Private Sub Form_Activate() Call BukaDB Adodc1.ConnectionString = Koneksi Adodc1.RecordSource = "select KodeAdmin,NamaAdmin,LevelAdmin from TBL_ADMIN" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh Call kondisiawal Command1.SetFocus End Sub

Dengan langkah diatas, anda telah sukses menciptakan FormMasterAdmin untuk mengelola data Admin yang akan memakai Aplikasi Pembelian Visual Basic 6.0

Silahkan KLIK DISINI untuk melanjutkan ke tahap berikutnya.
Silahkan KLIK DISINI untuk download Project diatas

Share this post