1.
Tampilan Form Menu
Public Class Form1
Private Sub DataBarangToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
DataBarangToolStripMenuItem.Click
barang.Show()
End Sub
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KeluarToolStripMenuItem.Click
End
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
End Class
2.Tampilan Form
Input
Imports
MySql.Data.MySqlClient
Public Class barang
Public db As New
MySql.Data.MySqlClient.MySqlConnection
Public sql As String
Public cmd As MySqlCommand
Public rs As MySqlDataReader
Sub
opendb()
sql = "server=localhost;uid=root;pwd;database=barang3"
Try
db.ConnectionString = sql
db.Open()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
bersih()
kodebarang.Text = ""
namabarang.Text = ""
jenis.Text = ""
stok.Text = ""
harga.Text = ""
rubahbutton(True,
False, False, False, True)
kodebarang.Enabled = True
End Sub
Sub
rubahbutton(ByVal btn1 As
Boolean, ByVal
btn2 As Boolean,
ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean)
btnbaru.Enabled = btn1
btnsimpan.Enabled = btn2
btnhapus.Enabled = btn3
btnbatal.Enabled = btn4
btnkeluar.Enabled = btn5
End Sub
Sub
buattable()
lv.Columns.Add("kode_barang",
80, HorizontalAlignment.Center)
lv.Columns.Add("Nama_barang",
180, HorizontalAlignment.Left)
lv.Columns.Add("jenis",
80, HorizontalAlignment.Left)
lv.Columns.Add("stok",
100, HorizontalAlignment.Left)
lv.Columns.Add("harga",
100, HorizontalAlignment.Left)
lv.GridLines = True
lv.FullRowSelect = True
lv.View = View.Details
End Sub
Sub
isitable()
lv.Items.Clear()
sql = "select
* from barang"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
While
rs.Read
Dim
lst As New
ListViewItem
lst.Text = rs("kode_barang")
lst.SubItems.Add(rs("Nama_barang"))
lst.SubItems.Add(rs("Jenis"))
lst.SubItems.Add(rs("stok"))
lst.SubItems.Add(rs("harga"))
lv.Items.Add(lst)
End
While
Catch
ex As Exception
MsgBox(ex.Message)
End Try
rs.Close()
End Sub
Sub
prosesdb(ByVal log As
Integer)
Dim
pesan As String
= ""
Select Case log
Case
0
sql = "insert
into barang values(kdoe_barang,nama_barang,jenis,stok,harga)" &
_
"values('"
& kodebarang.Text & _
"','"
& namabarang.Text & _
"','"
& jenis.Text & _
"','"
& stok.Text & _
"','"
& harga.Text & "')"
pesan = "data telah tersimpan"
Case
1
sql = "update
barang set nama_barang='" & namabarang.Text & "'," & _
"jenis='"
& jenis.Text & "'," &
_
"stok='"
& stok.Text & "' " & _
"harga='"
& harga.Text & "' " &
_
"where
kode_barang='" & kodebarang.Text & "'"
pesan = "data telah terupdate"
Case
2
sql = "delete
from barang where kode_barang='" & kodebarang.Text & "'"
pesan = "data telah dihapus"
End Select
Try
cmd = New
MySqlCommand(sql, db)
cmd.ExecuteNonQuery()
MsgBox(pesan,
MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmsi")
Call
bersih()
Call
isitable()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
showdb()
rs.Read()
kodebarang.Text = rs("kode_barang")
namabarang.Text = rs("Nama_barang")
jenis.Text = rs("jenis")
stok.Text = rs("stok")
harga.Text = rs("harga")
rubahbutton(False,
True, True, True, False)
btnsimpan.text = "edit"
kodebarang.Enabled = False
End Sub
Private Sub form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Call
opendb()
Call
bersih()
Call
buattable()
Call
isitable()
End Sub
Private Sub baru_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnbaru.Click
Call
bersih()
kodebarang.Focus()
End Sub
Private Sub batal_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnbatal.Click
Call
bersih()
kodebarang.Focus()
End Sub
Private Sub keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub hapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapus.Click
Dim x As String
x = MsgBox("anda
yakin akan menghapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo,
"hapus")
If x = vbYes Then
Call
prosesdb(2)
End If
End Sub
Private Sub simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnsimpan.Click
If
btnsimpan.text = "simpan" Then prosesdb(0) Else
prosesdb(1)
End Sub
Private Sub kodebarang_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
kodebarang.KeyPress
Dim
tombol As Integer
= Asc(e.KeyChar)
If
tombol = 13 Then
Dim
x As String
If
kodebarang.Text = "" Then
MsgBox("isi
kode terlebih dahulu")
Else
sql = "select
* from barang where kode_barang='" & kodebarang.Text & "'"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
Call
showdb()
Catch
ex As Exception
x = kodebarang.Text
bersih()
kodebarang.Text = x
rubahbutton(False, True, False, True, False)
btnsimpan.Text = "simpan"
End
Try
namabarang.Focus()
rs.Close()
End
If
End If
End Sub
End Class
3.Tampilan Form
Input
Demikian Lah hasil postingan saya.
Nama : BINSAR MULIADI SIAGIAN
Npm :
1102013
Tidak ada komentar:
Posting Komentar