Scribd
Upload
31 views21 pages

Listing Barang Management System

This document provides code for a listing program that allows users to view, add, edit, and delete product data from a database table. The code includes: 1) Functions for initializing the data grid view, loading data from the database table, and searching/filtering records. 2) Event handlers for buttons to add, edit, delete records, and clear fields. These handlers contain code to execute the corresponding SQL statements. 3) A load event handler that calls functions to display initial data and configure interface elements like labels and buttons. 4) Additional functions for connecting to the database, clearing fields, and retrieving a selected record's details. The code allows users to manage product data stored in

Uploaded by

Gema Muhammad
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
31 views21 pages

Listing Barang Management System

This document provides code for a listing program that allows users to view, add, edit, and delete product data from a database table. The code includes: 1) Functions for initializing the data grid view, loading data from the database table, and searching/filtering records. 2) Event handlers for buttons to add, edit, delete records, and clear fields. These handlers contain code to execute the corresponding SQL statements. 3) A load event handler that calls functions to display initial data and configure interface elements like labels and buttons. 4) Additional functions for connecting to the database, clearing fields, and retrieving a selected record's details. The code allows users to manage product data stored in

Uploaded by

Gema Muhammad
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

LISTING PROGRAM

Form data barang


Imports [Link]
Public Class formbarang
Public from As String
Public halaman As Integer = 1
Dim DBDataset As New DataTable

Sub judulgrid()
Dim objAlternatingCellStyle As New
DataGridViewCellStyle()
[Link] =
objAlternatingCellStyle
Dim style As DataGridViewCellStyle =
[Link](0).DefaultCellStyle
[Link](0).HeaderText = "Kd. Barang"
[Link](0).Width = 95
[Link](1).HeaderText = "Nama
Barang"
[Link](1).AutoSizeMode =
[Link]
[Link](3).HeaderText = "Jenis"
[Link](3).Width = 90
[Link](4).HeaderText = "Hrg. Jual"
[Link](4).Width = 100
[Link](4).[Link] =
"c"
[Link](5).HeaderText = "Stok"
[Link](5).Width = 50
[Link] =
[Link]
[Link] =
[Link]
[Link] = True
[Link] = False
End Sub
Sub isigrid(ByVal page As String)
Call konek()
Dim param As String = "stok"

85
Dim jumlahitem As Integer = 30
Dim index As Integer = jumlahitem *
(page - 1)
Dim query As String = "SELECT
kd_barang,nama_barang,harga_jual " _
& param & " FROM tb_barang tb " _
& "LIMIT " & index & ", " & jumlahitem
If from = "penjualan" Then
param = "stok-(SELECT
COALESCE(SUM(qty),0) FROM tb_penjualan WHERE
kd_barang = tb.kd_barang)"
End If
cmd = New MySqlCommand(query, conn)

[Link]("@kd_barang", "%" +
[Link] + "%")

[Link]("@nama_barang", "%"
+ [Link] + "%")
dr = [Link]
If [Link] Then
dt = New DataTable
[Link](dr)
[Link] = dt
[Link]()
cmd = New MySqlCommand("SELECT
COUNT(*) FROM tb_barang WHERE (kd_barang LIKE
@kd_barang OR nama_barang LIKE @nama_barang)",
conn)

[Link]("@kd_barang", "%" +
[Link] + "%")

[Link]("@nama_barang", "%"
+ [Link] + "%")
dr = [Link]
[Link]()
halaman =
[Link]([Link](0).ToString / jumlahitem)
[Link]()
[Link] = " / " & halaman

86
Else
[Link]()
[Link] = Nothing
[Link] = "1"
[Link] = " / 0"
End If
cmd = New MySqlCommand("SELECT COUNT(*)
FROM tb_barang", conn)
dr = [Link]
[Link]()
[Link] = "Jumlah Item : " &
[Link](0).ToString
[Link]()
End Sub
Sub fgd()
Call konek()
da = New MySqlDataAdapter("select * from
tb_barang where kd_barang LIKE '%" & [Link]
& "%' or nama_barang LIKE '%" & [Link] &
"%'", conn)
ds = New DataSet
[Link](ds, "tb_barang")
[Link] = [Link]("tb_barang")
End Sub
Private Sub tbcari_TextChanged(sender As
Object, e As EventArgs) Handles
[Link]

fgd()

End Sub

Private Sub btntambah_Click(sender As


Object, e As EventArgs) Handles [Link]
'KODING SIMPAN DATA'
konek()

87
cmd = New MySqlCommand("Insert into
tb_barang
(kd_barang,nama_barang,harga_jual,stok)
values('" & [Link] & "','" & [Link] & "','" &
[Link] & "','" & [Link] & "')", conn)
[Link]()
MsgBox("Simpan Data Berhasil",
[Link], "Informasi")
tampil()
clear()
diskonek()
End Sub
Sub tampil()
'KODING TAMPILKAN KE DATAGRIDVIEW'
Call konek()
da = New MySqlDataAdapter("select * from
tb_barang", conn)
ds = New DataSet
[Link](ds, "tb_barang")
[Link] = [Link]("tb_barang")
End Sub
Private Function carinama(ByVal namasiswa As
String) As Integer
Try
Dim foundrow As DataGridViewRow = (
From row As DataGridViewRow In
[Link]
Where [Link](1).Value =
namasiswa
Select row
).First
If foundrow IsNot Nothing Then
Return ([Link])
Else
Return -1
End If
Catch ex As Exception
Return -1
End Try
End Function

88
Private Sub formbarang_Load(sender As
Object, e As EventArgs) Handles [Link]
tampil()
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
End Sub

Private Sub btnedit_Click(sender As Object,


e As EventArgs) Handles [Link]
'KODING UBAH DATA'
Call konek()
cmd = New MySqlCommand("UPDATE tb_barang
SET kd_barang = '" & [Link] & "', nama_barang =
'" & [Link] & "', harga_jual = '" & [Link] &
"', stok = '" & [Link] & "' WHERE kd_barang =
'" & [Link] & "'", conn)
[Link]()
Call diskonek()
[Link]("Data berhasil diubah")
clear()
tampil()
End Sub

Private Sub dgv_CellContentClick(sender As


Object, e As DataGridViewCellEventArgs) Handles
[Link]

End Sub

Private Sub btnhapus_Click(sender As Object,


e As EventArgs) Handles [Link]
Call konek()

89
cmd = New MySqlCommand("delete from
tb_barang WHERE kd_barang = '" & [Link] & "'",
conn)
[Link]()
Call diskonek()
[Link]("Data berhasil dihapus")
tampil()
clear()
End Sub

Private Sub btnbatal_Click(sender As Object,


e As EventArgs) Handles [Link]
[Link]()
[Link]()
End Sub

Private Sub dgv_CellClick(sender As Object,


e As DataGridViewCellEventArgs) Handles
[Link]
'KODING PANGGIL DATA DIDATAGRIDVIEW KE
TEXTBOX'
[Link] =
[Link]([Link]).Cells(0).Value
[Link] =
[Link]([Link]).Cells(1).Value
[Link] =
[Link]([Link]).Cells(2).Value
[Link] =
[Link]([Link]).Cells(3).Value
End Sub
Sub clear()
[Link]()
[Link]()
[Link]()
[Link]()
[Link]()
[Link]()

90
Form Pelanggan
Imports [Link]
Public Class formpengguna

Private Sub formpengguna_Load(sender As


Object, e As EventArgs) Handles [Link]

tampil()
[Link](0).HeaderText =
"kode"
[Link](1).HeaderText =
"Nama"
[Link](2).HeaderText =
"Alamat"
[Link](3).HeaderText =
"[Link]"

End Sub
Sub nootomatis()

Call konek()
cmd = New MySqlCommand("select * from
tb_pelanggan order by kd_pelanggan desc", conn)
dr = [Link]
[Link]()
If Not [Link]() Then
[Link] = "P" + "0001"
Else
[Link] =
Val(Mid([Link]("kd_pelanggan").ToString, 2, 4))
+ 1
If Len([Link]) = 1 Then

91
[Link] = "P000" & [Link] &
""
ElseIf Len([Link]) = 2 Then
[Link] = "P00" & [Link] & ""
ElseIf Len([Link]) = 3 Then
[Link] = "P0" & [Link] & ""
End If
End If

diskonek()
End Sub
'NOOTOMATIS'
Sub nootomatis1()
Call konek()
cmd = New MySqlCommand("select * from
tb_pelanggan order by kd_pelanggan desc", conn)
dr = [Link]
[Link]()
If Not [Link]() Then
[Link] = "R" + "0001"
Else
[Link] =
Val(Mid([Link]("kd_pelanggan").ToString, 2, 4))
+ 1
If Len([Link]) = 1 Then
[Link] = "R000" & [Link] &
""
ElseIf Len([Link]) = 2 Then
[Link] = "R00" & [Link] & ""
ElseIf Len([Link]) = 3 Then
[Link] = "R0" & [Link] & ""
End If
End If
diskonek()
End Sub
Sub kosong()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""

92
[Link]()
End Sub
Sub tampil()
konek()
da = New
[Link]("select
* from tb_pelanggan", conn)
ds = New DataSet
[Link]()
[Link](ds, "tb_pelanggan")
[Link] =
[Link]("tb_pelanggan")
diskonek()
End Sub
Sub tampil1()
konek()
da = New
[Link]("select
* from tb_pelanggan1", conn)
ds = New DataSet
[Link]()
[Link](ds, "tb_pelanggan1")
[Link] =
[Link]("tb_pelanggan1")
diskonek()
End Sub

Private Sub simpan_Click(sender As Object, e


As EventArgs) Handles [Link]
'KODING SIMPAN DATA'
konek()
If [Link] Then
cmd = New MySqlCommand("Insert into
tb_pelanggan
(kd_pelanggan,nama_pelanggan,alamat,no_hp)
values('" & [Link] & "','" & [Link] &
"','" & [Link] & "','" & [Link] &
"')", conn)
[Link]()
MsgBox("Simpan Data Berhasil",
[Link], "Informasi")

93
kosong()
tampil()
diskonek()
End If
End Sub

Private Sub
cbjenis_SelectedIndexChanged(sender As Object, e
As EventArgs)

End Sub

Private Sub gridpengunaan_CellClick(sender


As Object, e As DataGridViewCellEventArgs)
Handles [Link]
'KODING PANGGIL DATA DIDATAGRIDVIEW KE
TEXTBOX'
[Link] =
[Link]([Link]).Cells(0).Value
[Link] =
[Link]([Link]).Cells(1).Value
[Link] =
[Link]([Link]).Cells(2).Value
[Link] =
[Link]([Link]).Cells(3).Value
End Sub
Private Sub Button2_Click(sender As Object,
e As EventArgs) Handles [Link]
hapus()
End Sub
Sub hapus()
Dim yesno As String

yesno = MsgBox("Apakah Anda Yakin


Menghapus Data ini?", [Link],
"Informasi")

If yesno = [Link] Then


konek()

94
cmd = New MySqlCommand("Delete From
tb_pelanggan Where kd_pelanggan='" & [Link] &
"'", conn)
[Link]()
MsgBox("Hapus Data Sukses",
[Link], "Sukses")
kosong()
diskonek()
tampil()
tampil1()

End If
End Sub
Form Penjualan
Imports [Link]

Public Class formpenjualan01


Public kd_barang As String
'NOOTOMATIS'
Sub nootomatis()
Call konek()
cmd = New MySqlCommand("select * from
tb_penjualan1 order by no_trans desc", conn)
dr = [Link]
[Link]()
If Not [Link]() Then
[Link] = "R" + "0001"
Else
[Link] =
Val(Mid([Link]("no_trans").ToString, 2, 4)) + 1
If Len([Link]) = 1 Then
[Link] = "R000" &
[Link] & ""
ElseIf Len([Link]) = 2 Then
[Link] = "R00" &
[Link] & ""
ElseIf Len([Link]) = 3 Then
[Link] = "R0" &
[Link] & ""
End If
End If

95
diskonek()
End Sub

Private Sub formpenjualan01_Load(sender As


Object, e As EventArgs) Handles [Link]
tampil()
nootomatis()
tampilComboBox()

End Sub
Sub tampil()
'KODING TAMPILKAN KE DATAGRIDVIEW'
Call konek()
da = New MySqlDataAdapter("select * from
tb_barang", conn)
ds = New DataSet
[Link](ds, "tb_barang")
[Link] = [Link]("tb_barang")
[Link]()

End Sub

Private Sub dgvkeranjang_CellClick(sender As


Object, e As DataGridViewCellEventArgs) Handles
[Link]
'KODING PANGGIL DATA DIDATAGRIDVIEW KE
TEXTBOX'
[Link] =
[Link]([Link]).Cells(0).Value
[Link] =
[Link]([Link]).Cells(1).Value
[Link] =
[Link]([Link]).Cells(2).Value
[Link] =
[Link]([Link]).Cells(3).Value
[Link] =
[Link]([Link]).Cells(4).Value
[Link] =
[Link]([Link]).Cells(5).Value

96
[Link] =
[Link]([Link]).Cells(6).Value

End Sub
Sub tampil1()
'KODING TAMPILKAN KE DATAGRIDVIEW'
Call konek()
da = New MySqlDataAdapter("select * from
tb_penjualan1", conn)
ds = New DataSet
[Link](ds, "tb_penjualan1")
[Link] =
[Link]("tb_penjualan1")
End Sub

Private Sub btnsimpan_Click(sender As


Object, e As EventArgs) Handles [Link]

'KODING SIMPAN DATA'


konek()
cmd = New MySqlCommand("Insert into
tb_penjualan1
(no_trans,nama_pelanggan,kd_barang,nama_barang,q
ty,harga_jual,total) values('" & [Link] &
"','" & [Link] & "','" & [Link] &
"','" & [Link] & "','" & [Link]
& "','" & [Link] & "','" &
[Link] & "')", conn)
[Link]()
MsgBox("Simpan Data Berhasil",
[Link], "Informasi")
tampil1()
clearinput()
nootomatis()
reset()

diskonek()

End Sub

97
Private Sub btninput_Click(sender As Object,
e As EventArgs) Handles [Link]
Dim tot As Integer
tot = [Link] * [Link]
[Link] = tot
[Link] = (tot)
End Sub
Sub inputkeranjang()
If kd_barang = "" Then
MsgBox("Input dahulu item barang!",
16, "Perhatian")
Else
If Val([Link]) <= 0 Then
MsgBox("Masukkan Qty!", 16,
"Perhatian")
Else
cmd = New MySqlCommand("SELECT
stok-(SELECT COALESCE(SUM(qty),0) FROM
tb_penjualan1 where kd_barang = '" & kd_barang &
"') AS stok" _
& " FROM tb_barang
WHERE kd_barang = '" & kd_barang & "'", conn)
dr = [Link]
[Link]()
Dim stok As Integer =
[Link]("stok").ToString
[Link]()
If Val([Link]) > stok Then
MsgBox("Stok tidak cukup!",
16, "Informasi")
Else
cmd = New
MySqlCommand("SELECT no FROM tb_penjualan1 where
kd_barang = '" & kd_barang & "'", conn)
dr = [Link]
[Link]()
If [Link] Then
Dim update As String =
"UPDATE tb_penjualan1 SET qty = qty + " &
Val([Link]) & ", harga_jual = " &
[Link] _

98
&
", total = qty * harga_jual WHERE no = " &
[Link]("no").ToString
[Link]()
Query(update)
Else
[Link]()
Dim query As String =
"INSERT INTO tb_penjualan1 (kd_barang,
nama_barang, qty, ambil, harga_jual, total)" _
& "VALUES
(@kd_barang, @nama_barang, @qty, @ambil,
@harga_jual, @total)"
QueryKeranjang(query,
kd_barang.ToUpper, [Link],
[Link], "", [Link],
Val([Link]) * Val([Link]))
End If
kd_barang = ""
isikeranjang()
[Link]()
clearinput()

End If
End If
End If
End Sub
Sub isikeranjang()
Dim query As String = "SELECT * FROM
tb_penjualan1"
Dim da As New MySqlDataAdapter(query,
conn)
Dim ds As New DataSet()
If [Link](ds) Then
[Link] =
[Link](0)
[Link]()
Else
[Link] = Nothing
End If

99
If [Link] > 0 Then
judulgrid()
End If
hitungtotal()
End Sub
Sub judulgrid()
Dim objAlternatingCellStyle As New
DataGridViewCellStyle()

[Link] =
objAlternatingCellStyle
Dim style As DataGridViewCellStyle =
[Link](0).DefaultCellStyle
[Link](0).Visible = False
[Link](1).HeaderText =
"Kd. Barang"
[Link](1).Width = 150
[Link](2).HeaderText =
"Nama Barang"
[Link](2).AutoSizeMode =
[Link]
[Link](3).HeaderText =
"Qty"
[Link](3).Width = 100
[Link](4).HeaderText =
"Ambil"
[Link](4).Width = 100

[Link](5).Visible = False
[Link](6).HeaderText =
"Hrg. Jual"
[Link](6).Width = 150

[Link](6).[Link]
= "c"
[Link](7).HeaderText =
"Total"
[Link](7).Width = 150

[Link](7).[Link]
= "c"

100
[Link] =
[Link]
[Link] =
[Link]
[Link] = True
[Link] = False
End Sub
Sub hitungtotal()
Dim hitung As Integer
For i = 0 To [Link] - 1
hitung +=
[Link](i).Cells(8).Value
Next
[Link] = FormatCurrency(hitung)
End Sub
Sub clearinput()
[Link]()
[Link] = ""
[Link]()
[Link]()
[Link] = (0)
[Link] = "Pilih Kode"
[Link]()

End Sub
Sub reset()

[Link] = (0)
clearinput()
tampil1()
End Sub

Private Sub dgv1_CellClick(sender As Object,


e As DataGridViewCellEventArgs) Handles
[Link]
'KODING PANGGIL DATA DIDATAGRIDVIEW KE
TEXTBOX'
[Link] =
[Link]([Link]).Cells(0).Value
[Link] =
[Link]([Link]).Cells(1).Value

101
[Link] =
[Link]([Link]).Cells(2).Value
[Link]()
End Sub
Sub hitung()
Dim total = Aggregate row As
DataGridViewRow In [Link] _
Into
Sum([Link]([Link](6).Value))
[Link] = "Rp. " +
Format(total, "###,###.00")
End Sub

Private Sub btnhapus_Click(sender As Object,


e As EventArgs) Handles [Link]
Call konek()
cmd = New MySqlCommand("delete from
tb_penjualan1 WHERE No_trans = '" &
[Link] & "'", conn)
[Link]()
Call diskonek()
[Link]("Data berhasil dihapus")

reset()
tampil1()
[Link]()
End Sub

Private Sub btnbatal_Click(sender As Object,


e As EventArgs) Handles [Link]
[Link]()
[Link]()
End Sub

Private Sub GroupBox5_Enter(sender As


Object, e As EventArgs) Handles [Link]

End Sub

102
Private Sub
ComboBox1_SelectedIndexChanged(sender As Object,
e As EventArgs)

End Sub

Private Sub
dgvkeranjang_CellContentClick(sender As Object,
e As DataGridViewCellEventArgs) Handles
[Link]

End Sub

Private Sub lbltotal_Click(sender As Object,


e As EventArgs) Handles [Link]

End Sub

Private Sub btnbarang_Click(sender As


Object, e As EventArgs)

End Sub

Private Sub tidp_KeyPress(sender As Object,


e As KeyPressEventArgs)

End Sub

Private Sub GroupBox1_Enter(sender As


Object, e As EventArgs) Handles [Link]

End Sub
Sub tampilComboBox()
konek()
Dim str As String
str = "select kd_pelanggan from
tb_pelanggan"
cmd = New MySqlCommand(str, conn)
dr = [Link]
If [Link] Then
Do While [Link]

103
[Link](dr("kd_pelanggan"))
Loop
Else
End If
End Sub
'CETAK'
Sub cetak()

End Sub

Private Sub Button1_Click(sender As Object,


e As EventArgs)
[Link]()

End Sub

Private Sub tnotrans_TextChanged(sender As


Object, e As EventArgs) Handles
[Link]

End Sub
Sub tampilnama()
konek()
cmd = New MySqlCommand("select
kd_pelanggan, nama_pelanggan from tb_pelanggan
where kd_pelanggan='" & [Link] & "'", conn)
dr = [Link]
[Link]()
If [Link] Then
[Link] =
[Link]("nama_pelanggan")

Else
End If

End Sub

104
Private Sub
cnama_SelectedIndexChanged(sender As Object, e
As EventArgs) Handles [Link]
tampilnama()
End Sub

Private Sub dgv1_CellContentClick(sender As


Object, e As DataGridViewCellEventArgs) Handles
[Link]

End Sub
End Class

105

You might also like