Public Class LATIHAN034A_46109040
Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click
If Latihan034B_46109040.Visible = False Then
Latihan034B_46109040.MdiParent = Me.MdiParent
Latihan034B_46109040.Show()
Else
Latihan034B_46109040.Activate()
End If
End Sub
Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click
If Latihan034C_46109040.Visible = False Then
Latihan034C_46109040.MdiParent = Me.MdiParent
Latihan034C_46109040.Show()
Else
Latihan034C_46109040.Activate()
End If
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripLabel1_46109040.Click
If LATIHAN034B_46109040.Visible = False Then
LATIHAN034B_46109040.MdiParent = Me.MdiParent
LATIHAN034B_46109040.Show()
Else
LATIHAN034B_46109040.Activate()
End If
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripLabel2_46109040.Click
If LATIHAN034C_46109040.Visible = False Then
LATIHAN034C_46109040.MdiParent = Me.MdiParent
LATIHAN034C_46109040.Show()
Else
LATIHAN034C_46109040.Activate()
End If
End Sub
End Class
Public Class LATIHAN034B_46109040
Dim Hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=46109040")
Dim dtab As New DataTable
Public Sub ambildata()
Dim Adp As New OleDb.OleDbDataAdapter
Adp = New OleDb.OleDbDataAdapter("select * from barang", Hubung)
dtab.Rows.Clear()
Adp.Fill(dtab)
Adp.Dispose()
End Sub
Private Sub latihan034B_46109040_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
ambildata()
VIEW_46109040.DataSource = dtab
End Sub
Private Sub Button1_46109040_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1_46109040.Click
If LATIHAN034C_46109040.Visible = False Then
LATIHAN034C_46109040.Show()
Else
LATIHAN034C_46109040.Activate()
End If
LATIHAN034C_46109040.KB.Text = VIEW_46109040.CurrentRow.Cells("KODEBARANG").Value
LATIHAN034C_46109040.KB_46109040.Text = VIEW_46109040.CurrentRow.Cells("KODEBARANG").Value
LATIHAN034C_46109040.NB_46109040.Text = VIEW_46109040.CurrentRow.Cells("NAMABARANG").Value
LATIHAN034C_46109040.HJ_46109040.Text = VIEW_46109040.CurrentRow.Cells("HARGAJUAL").Value
LATIHAN034C_46109040.JB_46109040.Text = VIEW_46109040.CurrentRow.Cells("JUMLAHBARANG").Value()
End Sub
Private Sub Button2_46109040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2_46109040.Click
If LATIHAN034C_46109040.Visible = False Then
LATIHAN034C_46109040.Show()
Else
LATIHAN034C_46109040.Activate()
End If
End Sub
End Class
Public Class LATIHAN034C_46109040
Dim Hubung As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=46109040")
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub TAMBAH()
If KB_46109040.Text.Length = 0 Then
MsgBox("Kode barang belum diisi")
Exit Sub
End If
If NB_46109040.Text.Length = 0 Then
MsgBox("Nama barang belum diisi")
Exit Sub
End If
If Val(HJ_46109040.Text) = 0 Then
MsgBox("Harga jual belum diisi")
Exit Sub
End If
If Val(JB_46109040.Text) = 0 Then
MsgBox("Jumlah barang belum diisi")
Exit Sub
End If
cari.AturPencarianDataBase("barang", "kode barang", KB_46109040.Text, 1, Hubung)
If cari.JumlahBaris > 0 Then
MsgBox("Maaf kode sudah ada")
Exit Sub
End If
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into barang(kodebarang,namabarang,hargajual,jumlahbarang) Values('" & KB_46109040.Text & "','" & NB_46109040.Text & "'," & Val(HJ_46109040.Text) & "," & Val(JB_46109040.Text) & ")", Hubung)
Hubung.Open()
com.ExecuteNonQuery()
Hubung.Close()
com.Dispose()
KB_46109040.Text = ""
NB_46109040.Text = ""
HJ_46109040.Text = ""
JB_46109040.Text = ""
LATIHAN033A_46109040.ambildata()
End Sub
Private Sub EDIT()
If KB_46109040.Text.Length = 0 Then
MsgBox("kode barang belum terisi")
Exit Sub
End If
If NB_46109040.Text.Length = 0 Then
MsgBox("nama barang belum terisi")
Exit Sub
End If
If Val(HJ_46109040.Text) = 0 Then
MsgBox("harga jual belum diisi")
Exit Sub
End If
If Val(JB_46109040.Text) = 0 Then
MsgBox("JUMLAH BELUM TERISI")
Exit Sub
End If
If KB.Text <> KB_46109040.Text Then
cari.AturPencarianDataBase("barang", "kode barang", KB_46109040.Text, 1, Hubung)
If cari.JumlanBaris > 0 Then
MsgBox("kode sudah ada")
Exit Sub
End If
End If
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("update barang set kodebarang ='" & KB_46109040.Text & "',namabarang='" & NB_46109040.Text & "',hargajual=" & Val(HJ_46109040.Text) & ", jumlahbarang=" & Val(JB_46109040.Text) & "where kodebarang='" & KB.Text & "'", Hubung)
Hubung.Open()
com.ExecuteNonQuery()
Hubung.Close()
com.Dispose()
KB_46109040.Text = ""
NB_46109040.Text = ""
