Ini adalah tutorial kedua atau saya sebut Part 2 dalam membuat Aplikasi Penjualan Menggunakan Visual Basic .NET Database MySQL. di Part dua ini kita akan membuat Form Input, Edit dan Delete form Admin. Form Admin ini fungsinya untuk management User yang akan login di Aplikasi Penjualan.
Bagi temen2 yang baru gabung silahkan ikuti Part 1 terlebih dahulu ya..
Link Part 1 silahkan KLIK DISINI
Mari kita lanjut
Silahkan Klik Project – Add Windows Form
Buatlah Form dengan Nama : FormMasterAdmin
Sehingga jumlah form yang telah terbuat di Form Solution adalah sebagai berikut :
Jika sudah membuat FormMasterAdmin seperti gambar di atas, silahkan masukan koding dibawah ini :
Imports System.Data.Odbc
Public Class FormMasterAdmin
Sub KondisiAwal()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Items.Clear()
ComboBox1.Text = ""
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
ComboBox1.Enabled = False
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button1.Text = "Input"
Button2.Text = "Edit"
Button3.Text = "Hapus"
Button4.Text = "Tutup"
Call Koneksi()
Da = New OdbcDataAdapter("Select KodeAdmin,NamaAdmin,LevelAdmin From tbl_admin", Conn)
Ds = New DataSet
Da.Fill(Ds, "tbl_admin")
DataGridView1.DataSource = Ds.Tables("tbl_admin")
DataGridView1.ReadOnly = True
End Sub
Sub SiapIsi()
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
ComboBox1.Enabled = True
ComboBox1.Items.Add("ADMIN")
ComboBox1.Items.Add("USER")
End Sub
Private Sub FormMasterAdmin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call KondisiAwal()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Input" Then
Button1.Text = "Simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
Call SiapIsi()
Else
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or ComboBox1.Text = "" Then
MsgBox("Silahkan isi semua Field")
Else
Call Koneksi()
Dim InputData As String = "insert into tbl_admin values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "')"
Cmd = New OdbcCommand(InputData, Conn)
Cmd.ExecuteNonQuery()
MsgBox("Input Data Berhasil")
Call KondisiAwal()
End If
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
Call Koneksi()
Cmd = New OdbcCommand("Select * From tbl_admin where kodeadmin='" & TextBox1.Text & "'", Conn)
Rd = Cmd.ExecuteReader
Rd.Read()
If Not Rd.HasRows Then
MsgBox("Kode Admin tidak Ada")
Else
TextBox1.Text = Rd.Item("KodeAdmin")
TextBox2.Text = Rd.Item("NamaAdmin")
TextBox3.Text = Rd.Item("PasswordAdmin")
ComboBox1.Text = Rd.Item("LevelAdmin")
End If
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "Tutup" Then
Me.Close()
Else
Call KondisiAwal()
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button3.Text = "Hapus" Then
Button3.Text = "Delete"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
Call SiapIsi()
Else
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or ComboBox1.Text = "" Then
MsgBox("Silahkan isi semua Field")
Else
Call Koneksi()
Dim HapusData As String = "Delete from tbl_admin where kodeadmin='" & TextBox1.Text & "'"
Cmd = New OdbcCommand(HapusData, Conn)
Cmd.ExecuteNonQuery()
MsgBox("Hapus Data Berhasil")
Call KondisiAwal()
End If
End If
End Sub
End Class
Jika sudah silahkan save, dan jalankan project Aplikasi penjualan yang telah anda buat.
Demikian Tutorial Membuat Aplikasi Penjualan VB .NET Database MySQL – #Part 2 semoga bermanfaat, ikuti terus tutorial selanjutanya