Berikut langkahnya :
Buka Project anda sebelumnya :
Pada tahap sebelumnya anda telah sukses membuat Form Login dan Logout, kini saatnya kita akan membuat Form Admin, dimana form admin berfungsi untuk menginput, edit, delete data admin yang digunakan untuk Login ke Aplikasi Penjualan.
Klik Project - Add Form
Buatlah Form dengan nama : FormMasterAdmin.vb
Kemudian Klik Add
Maka akan muncul FormMasterAdmin, kemudian buatlah design form seperti gambar dibawah ini :
Private Sub AdminToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AdminToolStripMenuItem.Click
FormMasterAdmin.ShowDialog()
End Sub
Kemudian masukan Koding dibawah ini pada FormMasterAdmin :
Imports System.Data.SqlClient
Public Class FormMasterAdmin
'Untuk Memunculkan di ComboBox
Sub TampilStatus()
ComboBox1.Items.Clear()
ComboBox1.Items.Add("ADMIN")
ComboBox1.Items.Add("USER")
End Sub
'Untuk Menampilkan Data di DataGridView
Sub TampilGrid()
Call Koneksi()
DA = New SqlDataAdapter("select kodeAdmin as Kode,NamaAdmin as Nama,LevelAdmin as Level From tbl_admin", CONN)
DS = New DataSet
DA.Fill(DS, "tbl_Admin")
DataGridView1.DataSource = DS.Tables("tbl_Admin")
DataGridView1.ReadOnly = True
End Sub
Private Sub FormMasterAdmin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call TampilStatus()
Call TampilGrid()
End Sub
End Class
Note :
Koding pada FormMasterAdmin diatas adalah hanya untuk memunculkan Data di DataGridView dan ComboBox. Adapaun untuk Input, Edit dan Delete nya anda bisa buka tutorial dibawah ini :
- Cara Input Data Kedalam Database Dengan VB .Net 2010
- Cara Edit Data Didalam Database Dengan VB .Net 2010
- Cara Hapus Data Didalam Database Dengan VB .Net 2010
Pembuatan FormMasterAdmin selesai, ikuti terus pembelajaran dari kami sleanjutnya..
mw tanyak gan, kenapa muncul error correction options pada Call PesanSuksesInput() dan Call PesanSuksesEdit()
ReplyDeleteDear Hermawan,
DeleteJika di hapus Call PesanSuksesInput() dan Call PesanSuksesEdit() program jalan tidak?
Itu fungsi untuk memanggil sebuah function, silahkan dicoba kembali dengan menghapus terlebih dahulu yaaa
gan error disini teus DGV.AlternatingRowsDefaultCellStyle.BackColor = Color.Silver kenapa ya?
ReplyDeleteDear M Rizky,
DeleteApakah masih Error? jika masih, coba untuk koding dibawah dihapus dulu :
DGV.AlternatingRowsDefaultCellStyle.BackColor = Color.Silver
karena fungsi diatas adalah hanya untuk tambahan agar datagrid berwarna warni.
Jika masih error silahkan informasi kembali
Gan, qo ane ga muncul ya datanya di data grid? ke input tapi ga muncul gtu? bagaimana ya? Mohon bantuannya
ReplyDeleteDear Risca,
DeleteUntuk permasalahkan kamu, mohon informasinya :
1. Apakah sudah mencoba tutorial kami lainnya untuk mengkoneksikan database ke VB?
2. Jika sudah mengikuti langkah satu namun masih error, silahkan delete Datagridnya terlebih dahulu pada Form, kemudian add lagi pada toolbax
Dan silahkan Jalankan, silahkan info ke kami jika anda sudah bisa
Salam
JNM
DA.Fill(DS, "tbl_Admin") untuk ini kenapa ya eror pas clik ke master setelah login??
ReplyDeleteDear YSART,
DeleteBisa di capture dan dikirim ke email?
Agar lebih jelas, dan mohon dijelaskan sangat detail ya...
Salam
JNM