Data Inventaris PT.POS Indonesia
(Persero) Medan
1.Menu
Public Class Form1
Private Sub ToolStripMenuItem1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
ToolStripMenuItem1.Click
Data_Nama_Peralatan.Show()
End Sub
Private Sub ToolStripMenuItem2_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
ToolStripMenuItem2.Click
Data_Supplier.Show()
End Sub
Private Sub ToolStripMenuItem3_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
ToolStripMenuItem3.Click
Pemakaian.Show()
End Sub
Private Sub ToolStripMenuItem4_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
ToolStripMenuItem4.Click
Pembelian.Show()
End Sub
Private Sub ToolStripMenuItem5_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
ToolStripMenuItem5.Click
Me.Close()
End Sub
Private Sub CetakRelasiToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
CetakRelasiToolStripMenuItem.Click
cetak_relasi.MdiParent = Me
cetak_relasi.Show()
End Sub
End Class
2. Form Data Nama Barang
Imports
MySql.Data.MySqlClient
Public Class Data_Nama_Peralatan
Public db As New
MySql.Data.MySqlClient.MySqlConnection
Public sql As String
Public cmd As MySqlCommand
Public DS As DataSet
Public rs As MySqlDataReader
Sub
openDB()
sql = "server=localhost;uid=root;pwd;database=Inventaris"
Try
db.ConnectionString = sql
db.Open()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
Bersih()
Kode.Text = ""
Nama.Text = ""
Harga.Text = ""
Satuan.Text = ""
Jumlah.Text = ""
KelompokPeralatan.Text = ""
Rubahbutton(True,
False, False, False, False, True)
Kode.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, ByVal btn6 As Boolean)
BtnTambah.Enabled = btn1
BtnSimpan.Enabled = btn2
BtnHapus.Enabled = btn3
BtnBatal.Enabled = btn4
BtnEdit.Enabled = btn5
BtnClose.Enabled = btn6
End Sub
Sub
buattable()
LV.Columns.Add("Kode",
80, HorizontalAlignment.Center)
LV.Columns.Add("Nama",
180, HorizontalAlignment.Left)
LV.Columns.Add("Harga",
80, HorizontalAlignment.Left)
LV.Columns.Add("Satuan",
100, HorizontalAlignment.Left)
LV.Columns.Add("Jumlah",
100, HorizontalAlignment.Left)
LV.Columns.Add("Rusak",
100, HorizontalAlignment.Left)
LV.Columns.Add("KelompokPeralatan",
100, HorizontalAlignment.Left)
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details
End Sub
Sub
isitable()
LV.Items.Clear()
sql = "select*from
data_nama"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
While
rs.Read
Dim
lst As New
ListViewItem
lst.Text = rs("Kode_peralatan")
lst.SubItems.Add(rs("Nama_peralatan"))
lst.SubItems.Add(rs("Harga"))
lst.SubItems.Add(rs("Satuan"))
lst.SubItems.Add(rs("Jumlah_Tersedia"))
lst.SubItems.Add(rs("Rusak"))
lst.SubItems.Add(rs("Kelompokperalatan"))
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 data_nama
(Kode_peralatan,Nama_peralatan,Harga,Satuan,Jumlah_tersedia,Rusak,KelompokPeralatan)
" & _
"values
('" & Kode.Text & _
"','"
& Nama.Text & _
"','"
& Harga.Text & _
"','"
& Satuan.Text & _
"','"
& Jumlah.Text & _
"','"
& Rusak.Text & _
"','"
& KelompokPeralatan.Text & "')"
pesan = "Data Tersimpan"
Case
1
sql = "update
data_nama set Nama_peralatan='" & Nama.Text & "', " & _
"Harga='"
& Harga.Text & "'," &
_
"Satuan='"
& Satuan.Text & "'," &
_
"Jumlah_tersedia='"
& Jumlah.Text & "'," &
_
"Rusak='"
& Rusak.Text & "'," &
_
"KelompokPeralatan='"
& KelompokPeralatan.Text & "',"
& _
"where
Kode_peralatan='" & Kode.Text & "'"
pesan = "Data Terupdate"
Case
2
sql = "delete from data_nama where
Kode_peralatan='" & Kode.Text & "'"
pesan = "Data Dihapus"
End Select
Try
cmd = New
MySqlCommand(sql, db)
cmd.ExecuteNonQuery()
MsgBox(pesan,
MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Konfirmasi")
Call
Bersih()
Call
isitable()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
showDB()
rs.Read()
Kode.Text = rs("Kode_Peralatan")
Nama.Text = rs("Nama_Peralatan")
Harga.Text = rs("Harga")
Satuan.Text = rs("Satuan")
Jumlah.Text = rs("Jumlah_Tersedia")
Rusak.Text = rs("Rusak")
KelompokPeralatan.Text = rs("KelompokPeralatan")
Rubahbutton(False,
True, True, True, True, True)
Kode.Enabled = False
End Sub
Private Sub Data_Nama_Peratan_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 BtnTambah_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnTambah.Click
Call
Bersih()
Kode.Focus()
End Sub
Private Sub BtnBatal_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnBatal.Click
Call
Bersih()
Kode.Focus()
End Sub
Private Sub BtnClose_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnClose.Click
Me.Close()
End Sub
Private Sub BtnHapus_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 BtnSimpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnSimpan.Click
Call
ProsesDB(0)
End Sub
Private Sub BtnEdit_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnEdit.Click
Call
ProsesDB(1)
End Sub
Private Sub Kode_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
Kode.KeyPress
Dim
tombol As Integer
= Asc(e.KeyChar)
If
tombol = 13 Then
Dim
x As String
If
Kode.Text = "" Then
MsgBox("Isi
Kode Terlebih Dahulu")
Else
sql = "select
* from data_nama where kode_peralatan='" & Kode.Text & "'"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
Call
showDB()
Catch
ex As Exception
x = Kode.Text
Bersih()
Kode.Text = x
Rubahbutton(False, True, False, True, False, False)
BtnSimpan.Text = "Simpan"
End
Try
Nama.Focus()
rs.Close()
End
If
End If
End Sub
End Class
3. Data Supplier
Imports
MySql.Data.MySqlClient
Public Class Data_Supplier
Public db As New
MySql.Data.MySqlClient.MySqlConnection
Public sql As String
Public cmd As MySqlCommand
Public DS As DataSet
Public rs As MySqlDataReader
Sub
openDB()
sql = "server=localhost;uid=root;pwd;database=Inventaris"
Try
db.ConnectionString = sql
db.Open()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
Bersih()
Kd_Supplier.Text = ""
Nm_Perusahaan.Text = ""
Nm_Supplier.Text = ""
Alamat.Text = ""
Jabatan.Text = ""
Telepon.Text = ""
Rubahbutton(True,
False, False, False, False, True)
Kd_Supplier.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, ByVal btn6 As Boolean)
BtnTambah.Enabled = btn1
BtnSimpan.Enabled = btn2
BtnHapus.Enabled = btn3
BtnBatal.Enabled = btn4
BtnEdit.Enabled = btn5
BtnClose.Enabled = btn6
End Sub
Sub
buattable()
LV.Columns.Add("Kd_Supplier",
80, HorizontalAlignment.Center)
LV.Columns.Add("Nama
Perusahaan", 180, HorizontalAlignment.Left)
LV.Columns.Add("Nama
Supplier", 80, HorizontalAlignment.Left)
LV.Columns.Add("Alamat",
100, HorizontalAlignment.Left)
LV.Columns.Add("Jabatan",
100, HorizontalAlignment.Left)
LV.Columns.Add("Telepon",
100, HorizontalAlignment.Left)
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details
End Sub
Sub
isitable()
LV.Items.Clear()
sql = "select*from
supplier2"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
While
rs.Read
Dim
lst As New
ListViewItem
lst.Text = rs("Kd_supllier")
lst.SubItems.Add(rs("Nm_perusahaan"))
lst.SubItems.Add(rs("Nm_supplier"))
lst.SubItems.Add(rs("Alamat"))
lst.SubItems.Add(rs("Jabatan"))
lst.SubItems.Add(rs("Telepon"))
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 supplier2 (Kd_supllier,Nm_perusahaan,Nm_supplier,Alamat,Jabatan,Telepon)
" & _
"values
('" & Kd_Supplier.Text & _
"','"
& Nm_Perusahaan.Text & _
"','"
& Nm_Supplier.Text & _
"','"
& Alamat.Text & _
"','"
& Jabatan.Text & _
"','"
& Telepon.Text & "')"
pesan = "Data Tersimpan"
Case
1
sql = "update
supplier2 set Nm_perusahaan ='" & Nm_Perusahaan.Text & "', " & _
"Nm_supplier='"
& Nm_Supplier.Text & "',"
& _
"Alamat='"
& Alamat.Text & "'," &
_
"Jabatan='"
& Jabatan.Text & "',"
& _
"Telepon='"
& Telepon.Text & "' "
& _
"where
Kd_supllier='" & Kd_Supplier.Text & "'"
pesan = "Data Terupdate"
Case
2
sql = "delete
from supplier2 where Kd_supllier='" & Kd_Supplier.Text & "'"
pesan = "Data Dihapus"
End Select
Try
cmd = New
MySqlCommand(sql, db)
cmd.ExecuteNonQuery()
MsgBox(pesan,
MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Konfirmasi")
Call
Bersih()
Call
isitable()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
showDB()
rs.Read()
Kd_Supplier.Text = rs("Kd_supllier")
Nm_Perusahaan.Text = rs("Nm_perusahaan")
Nm_Supplier.Text = rs("Nm_supplier")
Alamat.Text = rs("Alamat")
Jabatan.Text = rs("Jabatan")
Telepon.Text = rs("Telepon")
Rubahbutton(False,
True, True, True, True, True)
Kd_Supplier.Enabled = False
End Sub
Private Sub Data_Supplier_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 BtnTambah_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnTambah.Click
Call
Bersih()
Kd_Supplier.Focus()
End Sub
Private Sub BtnBatal_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnBatal.Click
Call
Bersih()
Kd_Supplier.Focus()
End Sub
Private Sub BtnClose_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnClose.Click
Me.Close()
End Sub
Private Sub BtnHapus_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 BtnSimpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnSimpan.Click
Call
ProsesDB(0)
End Sub
Private Sub BtnEdit_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnEdit.Click
Call
ProsesDB(1)
End Sub
Private Sub Kd_Supplier_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
Kd_Supplier.KeyPress
Dim
tombol As Integer
= Asc(e.KeyChar)
If
tombol = 13 Then
Dim
x As String
If
Kd_Supplier.Text = "" Then
MsgBox("Isi
Kode Terlebih Dahulu")
Else
sql = "select
* from supplier2 where Kd_supllier='" & Kd_Supplier.Text & "'"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
Call
showDB()
Catch
ex As Exception
x = Kd_Supplier.Text
Bersih()
Kd_Supplier.Text = x
Rubahbutton(False, True, False, True, False, False)
BtnSimpan.Text = "Simpan"
End
Try
Nm_Perusahaan.Focus()
rs.Close()
End If
End If
End Sub
End Class
4. Data
Pemakaian Barang
Imports
MySql.Data.MySqlClient
Public Class Pemakaian
Public db As New
MySql.Data.MySqlClient.MySqlConnection
Public sql As String
Public cmd As MySqlCommand
Public DS As DataSet
Public rs As MySqlDataReader
Sub
openDB()
sql = "server=localhost;uid=root;pwd;database=Inventaris"
Try
db.ConnectionString = sql
db.Open()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
Bersih()
No_Pakai.Text = ""
NamaBagian.Text = ""
NamaPimpinan.Text = ""
Kode.Text = ""
Nama.Text = ""
KelompokPeralatan.Text = ""
Satuan.Text = ""
Jumlah.Text = ""
Rubahbutton(True,
False, False, False, False, True)
No_Pakai.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, ByVal btn6 As Boolean)
BtnSimpan.Enabled = btn1
BtnHapus.Enabled = btn2
BtnBatal.Enabled = btn3
BtnEdit.Enabled = btn4
BtnClose.Enabled = btn5
End Sub
Sub
buattable()
LV.Columns.Add("No_Pakai",
80, HorizontalAlignment.Center)
LV.Columns.Add("Nm_Bagian",
180, HorizontalAlignment.Left)
LV.Columns.Add("Nm_Pimpinan",
80, HorizontalAlignment.Left)
LV.Columns.Add("Kode",
100, HorizontalAlignment.Left)
LV.Columns.Add("NamaBarang",
100, HorizontalAlignment.Left)
LV.Columns.Add("NamaPeralatan",
100, HorizontalAlignment.Left)
LV.Columns.Add("Satuan",
100, HorizontalAlignment.Left)
LV.Columns.Add("Jumlah",
100, HorizontalAlignment.Left)
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details
End Sub
Sub
isitable()
LV.Items.Clear()
sql = "select
* from pemakaian"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
While
rs.Read
Dim
lst As New
ListViewItem
lst.Text = rs("No_Pakai")
lst.SubItems.Add(rs("Nm_Bagian"))
lst.SubItems.Add(rs("Nm_Pimpinan"))
lst.SubItems.Add(rs("Kode"))
lst.SubItems.Add(rs("Nama"))
lst.SubItems.Add(rs("NamaPeralatan"))
lst.SubItems.Add(rs("Satuan"))
lst.SubItems.Add(rs("Jumlah"))
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 pemakaian
(No_Pakai,Nm_Bagian,Nm_Pimpinan,Kode,Nama,NamaPeralatan,Satuan,Jumlah) "
& _
"values
('" & No_Pakai.Text & _
"','"
& NamaBagian.Text & _
"','"
& NamaPimpinan.Text & _
"','"
& Kode.Text & _
"','"
& Nama.Text & _
"','"
& KelompokPeralatan.Text & _
"','"
& Satuan.Text & _
"','"
& Jumlah.Text & "')"
pesan = "Data Tersimpan"
Case
1
sql = "update
pemakaian set Nm_Bagian='" & NamaBagian.Text & "', " & _
"Nm_Pimpinan='"
& NamaPimpinan.Text & "',"
& _
"Kode
='" & Kode.Text & "',"
& _
"Nama
='" & Nama.Text & "',"
& _
"NamaPeralatan
='" & KelompokPeralatan.Text & "',"
& _
"Satuan
='" & Satuan.Text & "',"
& _
"Jumlah
='" & Jumlah.Text & "',"
& _
"where
No_Pakai='" & No_Pakai.Text & "'"
pesan = "Data Terupdate"
Case
2
sql = "delete
from pemakaian where No_Pakai='" & No_Pakai.Text & "'"
pesan = "Data Dihapus"
End Select
Try
cmd = New
MySqlCommand(sql, db)
cmd.ExecuteNonQuery()
MsgBox(pesan,
MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Konfirmasi")
Call
Bersih()
Call
isitable()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
showDB()
rs.Read()
No_Pakai.Text = rs("No_Pakai")
NamaBagian.Text = rs("Nm_Bagian")
NamaPimpinan.Text = rs("Nm_Pimpinan")
Kode.Text = rs("Kode")
Nama.Text = rs("Nama")
KelompokPeralatan.Text = rs("NamaPeralatan")
Satuan.Text = rs("Satuan")
Jumlah.Text = rs("Jumlah")
TotalPemakaian.Text = rs("TotalPemakaian")
Rubahbutton(False,
True, True, True, False, True)
Kode.Enabled = False
End Sub
Private Sub Pemakaian_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 BtnBatal_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnBatal.Click
Call
Bersih()
Kode.Focus()
End Sub
Private Sub BtnClose_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles BtnClose.Click
Me.Close()
End Sub
Private Sub BtnHapus_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 BtnSimpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnSimpan.Click
Call
ProsesDB(0)
End Sub
Private Sub BtnEdit_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnEdit.Click
Call
ProsesDB(1)
End Sub
Private Sub No_Pakai_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
No_Pakai.KeyPress
Dim
tombol As Integer
= Asc(e.KeyChar)
If
tombol = 13 Then
Dim
x As String
If
No_Pakai.Text = "" Then
MsgBox("Isi
No_Pakai Terlebih Dahulu")
Else
sql = "select
* from pemakaian where No_Pakai='" & No_Pakai.Text & "'"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
Call
showDB()
Catch
ex As Exception
x = No_Pakai.Text
Bersih()
No_Pakai.Text = x
Rubahbutton(True, False, True, False, False, False)
BtnSimpan.Text = "Simpan"
End
Try
NamaBagian.Focus()
rs.Close()
End
If
End If
End Sub
End Class
5.Data Pembelian
Barang
Imports
MySql.Data.MySqlClient
Public Class Pembelian
Public db As New
MySql.Data.MySqlClient.MySqlConnection
Public sql As String
Public cmd As MySqlCommand
Public DS As DataSet
Public rs As MySqlDataReader
Sub
openDB()
sql = "server=localhost;uid=root;pwd;database=Inventaris"
Try
db.ConnectionString = sql
db.Open()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
Bersih()
Kd_Supplier.Text = ""
Nm_Perusahaan.Text = ""
Nm_Supplier.Text = ""
Kode.Text = ""
Nama.Text = ""
KelompokPeralatan.Text = ""
Satuan.Text = ""
Jumlah.Text = ""
Harga.Text = ""
Rubahbutton(True,
False, False, False, False, True)
Kd_Supplier.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, ByVal btn6 As Boolean)
BtnSimpan.Enabled = btn1
BtnHapus.Enabled = btn2
BtnBatal.Enabled = btn3
BtnEdit.Enabled = btn4
BtnClose.Enabled = btn5
End Sub
Sub
buattable()
LV.Columns.Add("Kd_Supplier",
80, HorizontalAlignment.Center)
LV.Columns.Add("Nama
Perusahaan", 180, HorizontalAlignment.Left)
LV.Columns.Add("Nama
Supplier", 80, HorizontalAlignment.Left)
LV.Columns.Add("Kode",
100, HorizontalAlignment.Left)
LV.Columns.Add("Nama
Barang", 100, HorizontalAlignment.Left)
LV.Columns.Add("KelompokPeralatan",
100, HorizontalAlignment.Left)
LV.Columns.Add("Satuan",
100, HorizontalAlignment.Left)
LV.Columns.Add("Jumlah",
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 pembelian"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
While
rs.Read
Dim
lst As New
ListViewItem
lst.Text = rs("Kd_Supplier")
lst.SubItems.Add(rs("Nm_Perusahaan"))
lst.SubItems.Add(rs("Nm_Supplier"))
lst.SubItems.Add(rs("Kode"))
lst.SubItems.Add(rs("Nama"))
lst.SubItems.Add(rs("KelompokPeralatan"))
lst.SubItems.Add(rs("Satuan"))
lst.SubItems.Add(rs("Jumlah"))
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 Pembelian
(Kd_Supplier,Nm_Perusahaan,Nm_Supplier,Kode,Nama,KelompokPeralatan,Satuan,Jumlah,Harga)
" & _
"values
('" & Kd_Supplier.Text & _
"','"
& Nm_Perusahaan.Text & _
"','"
& Nm_Supplier.Text & _
"','"
& Kode.Text & _
"','"
& Nama.Text & _
"','"
& KelompokPeralatan.Text & _
"','"
& Satuan.Text & _
"','"
& Jumlah.Text & _
"','"
& Harga.Text & "')"
pesan = "Data Tersimpan"
Case
1
sql = "update
pembelian set Nm_Perusahaan='" & Nm_Perusahaan.Text & "', " & _
"Nm_Supplier='"
& Nm_Supplier.Text & "',"
& _
"Kode
='" & Kode.Text & "',"
& _
"Nama
='" & Nama.Text & "',"
& _
"
KelompokPeralatan='" & KelompokPeralatan.Text & "'," & _
"
Satuan='" & Satuan.Text & "',"
& _
"
Jumlah='" & Jumlah.Text & "',"
& _
"
Harga='" & Harga.Text & "',"
& _
"where
Kd_Supplier='" & Kd_Supplier.Text & "'"
pesan = "Data Terupdate"
Case
2
sql = "delete
from pembelian where Kd_Supplier='" & Kd_Supplier.Text & "'"
pesan = "Data Dihapus"
End Select
Try
cmd = New
MySqlCommand(sql, db)
cmd.ExecuteNonQuery()
MsgBox(pesan,
MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Konfirmasi")
Call
Bersih()
Call
isitable()
Catch
ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Sub
showDB()
rs.Read()
Kd_Supplier.Text = rs("Kd_Supplier")
Nm_Perusahaan.Text = rs("Nm_Perusahaan")
Nm_Supplier.Text = rs("Nm_Supplier ")
Kode.Text = rs("Kode")
Nama.Text = rs("Nama")
KelompokPeralatan.Text = rs("KelompokPeralatan")
Satuan.Text = rs("Satuan")
Jumlah.Text = rs("Jumlah")
Harga.Text = rs("Harga")
Rubahbutton(False,
True, True, True, True, True)
Kd_Supplier.Enabled = False
End Sub
Private Sub Pembelian_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 BtnBatal_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnBatal.Click
Call
Bersih()
Kd_Supplier.Focus()
End Sub
Private Sub BtnClose_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnClose.Click
Me.Close()
End Sub
Private Sub BtnHapus_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 BtnSimpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnSimpan.Click
Call
ProsesDB(0)
End Sub
Private Sub BtnEdit_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BtnEdit.Click
Call
ProsesDB(1)
End Sub
Private Sub Kd_Supplier_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
Kd_Supplier.KeyPress
Dim
tombol As Integer
= Asc(e.KeyChar)
If
tombol = 13 Then
Dim
x As String
If
Kd_Supplier.Text = "" Then
MsgBox("isi
Kd_Supplier terlebih dahulu")
Else
sql = "select
* from pembelian where Kd_Supplier='" & Kd_Supplier.Text & "'"
cmd = New
MySqlCommand(sql, db)
rs = cmd.ExecuteReader
Try
Call
showDB()
Catch
ex As Exception
x = Kd_Supplier.Text
Bersih()
Kd_Supplier.Text = x
Rubahbutton(True, False, True, False, False, False)
BtnSimpan.Text = "Simpan"
End
Try
Nm_Perusahaan.Focus()
rs.Close()
End
If
End If
End Sub
End Class
6. Laporan
7. Database