FORM 27
Public Class Form27
Dim wiwi As New ByIskandar.CariKeDataBaseByIskandar
Dim rahma As New OleDb.OleDbCommand
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
If kb002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If nb002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(hj002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(jb002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
wiwi.AturPencarianDataBase("Barang", "KodeBarang", kb002.Text, 1, kammi)
If wiwi.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
rahma = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb002.Text & "','" & nb002.Text & "'," & Val(hj002.Text) & "," & Val(jb002.Text) & ")", kammi)
kammi.Open()
rahma.ExecuteNonQuery()
kammi.Close()
rahma.Dispose()
kb002.Text = ""
nb002.Text = ""
hj002.Text = ""
jb002.Text = ""
End Sub
End Class
--------------------
FORM 28A
Public Class Form28A
Dim wiwi As New DataTable
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub rahma()
Dim vb As New OleDb.OleDbDataAdapter
vb = New OleDb.OleDbDataAdapter("select * from barang", kammi)
wiwi.Rows.Clear()
vb.Fill(wiwi)
vb.Dispose()
End Sub
Private Sub form28A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
rahma()
dgv36109002.DataSource = wiwi
End Sub
Private Sub btninput002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninput002.Click
If Form28B.Visible = False Then
Form28B.Show()
Else
Form28B.Activate()
End If
End Sub
Private Sub btntutup002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup002.Click
Close()
End Sub
End Class
----------------------------------
FORM 28B
Public Class Form28B
Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
Dim wiwi As New OleDb.OleDbCommand
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
If kb002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If nb002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(hj002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(jb002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
rahma.AturPencarianDataBase("Barang", "KodeBarang", kb002.Text, 1, kammi)
If rahma.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
wiwi = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb002.Text & "','" & nb002.Text & "'," & Val(hj002.Text) & "," & Val(jb002.Text) & ")", kammi)
kammi.Open()
wiwi.ExecuteNonQuery()
kammi.Close()
wiwi.Dispose()
kb002.Text = ""
nb002.Text = ""
hj002.Text = ""
jb002.Text = ""
Form28A.rahma()
End Sub
End Class
---------------------------------------------
FORM 29
Public Class Form29
Dim wiwi As New OleDb.OleDbCommand
Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
If txtb002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If txtc002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(txtd002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(txte002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If txta002.Text <> txtb002.Text Then
rahma.AturPencarianDataBase("Barang", "KodeBarang", txtb002.Text, 1, kammi)
If rahma.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
End If
wiwi = New OleDb.OleDbCommand("update barang set kodebarang = '" & txtb002.Text & "', namabarang = '" & txtc002.Text & "', hargajual = " & Val(txtd002.Text) & ", jumlahbarang = " & Val(txte002.Text) & " where kodebarang = '" & txta002.Text & "'", kammi)
kammi.Open()
wiwi.ExecuteNonQuery()
kammi.Close()
wiwi.Dispose()
txta002.Text = ""
txtb002.Text = ""
txtc002.Text = ""
txtd002.Text = ""
txte002.Text = ""
End Sub
End Class
--------------------------------
FORM 30A
Public Class Form30A
Dim mus As New DataTable
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub wiwi()
Dim vb As New OleDb.OleDbDataAdapter
vb = New OleDb.OleDbDataAdapter("select * from barang", kammi)
mus.Rows.Clear()
vb.Fill(mus)
vb.Dispose()
End Sub
Private Sub form30A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
wiwi()
dgv36109002.DataSource = mus
End Sub
Private Sub btnexit002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit002.Click
If Form30B.Visible = False Then
Form30B.Show()
Else
Form30B.Activate()
End If
Form30B.txta002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
Form30B.txtb002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
Form30B.txtc002.Text = dgv36109002.CurrentRow.Cells("namabarang").Value
Form30B.txtd002.Text = dgv36109002.CurrentRow.Cells("hargajual").Value
Form30B.txte002.Text = dgv36109002.CurrentRow.Cells("jumlahbarang").Value
Form30B.Show()
End Sub
End Class
-----------------------------
FORM 30B
Public Class Form30B
Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
Dim wiwi As New OleDb.OleDbCommand
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
If txtb002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If txtc002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(txtd002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(txte002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If txta002.Text <> txtb002.Text Then
rahma.AturPencarianDataBase("Barang", "KodeBarang", txtb002.Text, 1, kammi)
If rahma.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
End If
wiwi = New OleDb.OleDbCommand("update barang set kodebarang = '" & txtb002.Text & "', namabarang = '" & txtc002.Text & "', hargajual = " & Val(txtd002.Text) & ", jumlahbarang = " & Val(txte002.Text) & " where kodebarang = '" & txta002.Text & "'", kammi)
kammi.Open()
wiwi.ExecuteNonQuery()
kammi.Close()
wiwi.Dispose()
txta002.Text = ""
txtb002.Text = ""
txtc002.Text = ""
txtd002.Text = ""
txte002.Text = ""
Form30A.wiwi()
End Sub
End Class
----------------------------------
FORM 31A
Public Class Form31A
Dim mus As New DataTable
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub wiwi()
Dim vb As New OleDb.OleDbDataAdapter
vb = New OleDb.OleDbDataAdapter("select * from barang", kammi)
mus.Rows.Clear()
vb.Fill(mus)
vb.Dispose()
End Sub
Private Sub form31A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
wiwi()
dgv36109002.DataSource = mus
End Sub
Private Sub btnedit002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit002.Click
If Form31B.Visible = False Then
Form31B.Show()
Else
Form31B.Activate()
End If
Form31B.txta002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
Form31B.txtb002.Text = dgv36109002.CurrentRow.Cells("namabarang").Value
Form31B.txtc002.Text = dgv36109002.CurrentRow.Cells("hargajual").Value
Form31B.txtd002.Text = dgv36109002.CurrentRow.Cells("jumlahbarang").Value
Form31B.txte002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
Form31B.Show()
End Sub
End Class
----------------------------
FORM 31B
Public Class Form31B
Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
Dim wiwi As New OleDb.OleDbCommand
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
If txta002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If txtb002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(txtc002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(txtd002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If txta002.Text <> txte002.Text Then
rahma.AturPencarianDataBase("Barang", "KodeBarang", txta002.Text, 1, kammi)
If rahma.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
End If
wiwi = New OleDb.OleDbCommand("update barang set kodebarang = '" & txta002.Text & "', namabarang = '" & txtb002.Text & "', hargajual = " & Val(txtc002.Text) & ", jumlahbarang = " & Val(txtd002.Text) & " where kodebarang = '" & txte002.Text & "'", kammi)
kammi.Open()
wiwi.ExecuteNonQuery()
kammi.Close()
wiwi.Dispose()
txta002.Text = ""
txtb002.Text = ""
txtc002.Text = ""
txtd002.Text = ""
txte002.Text = "-"
Form31A.wiwi()
End Sub
End Class
------------------------------------
FORM32A
Public Class Form32A
Dim mus As New DataTable
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub rahma()
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from barang", kammi)
mus.Rows.Clear()
a.Fill(mus)
a.Dispose()
End Sub
Private Sub form32A2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
rahma()
dgv36109002.DataSource = mus
End Sub
Private Sub btntambah002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah002.Click
If Form32B.Visible = False Then
Form32B.Show()
Else
Form32B.Activate()
End If
End Sub
Private Sub btnedit002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit002.Click
If Form32C.Visible = False Then
Form32C.Show()
Else
Form32C.Activate()
End If
Form32C.txta002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
Form32C.txtb002.Text = dgv36109002.CurrentRow.Cells("namabarang").Value
Form32C.txtc002.Text = dgv36109002.CurrentRow.Cells("hargajual").Value
Form32C.txtd002.Text = dgv36109002.CurrentRow.Cells("jumlahbarang").Value
Form32C.txte002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
Form32C.Show()
End Sub
End Class
--------------------------------
FORM 32B
Public Class Form32B
Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
Dim wiwi As New OleDb.OleDbCommand
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
If txta002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If txtb002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(txtc002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(txtd002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
rahma.AturPencarianDataBase("Barang", "KodeBarang", txta002.Text, 1, kammi)
If rahma.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
wiwi = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & txta002.Text & "','" & txtb002.Text & "'," & Val(txtc002.Text) & "," & Val(txtd002.Text) & ")", kammi)
kammi.Open()
wiwi.ExecuteNonQuery()
kammi.Close()
wiwi.Dispose()
txta002.Text = ""
txtb002.Text = ""
txtc002.Text = ""
txtd002.Text = ""
Form32A.rahma()
End Sub
End Class
---------------------------------------
FORM 32C
Public Class Form32C
Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
Dim wiwi As New OleDb.OleDbCommand
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
If txta002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If txtb002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(txtc002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(txtd002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If txta002.Text <> txte002.Text Then
rahma.AturPencarianDataBase("Barang", "KodeBarang", txta002.Text, 1, kammi)
If rahma.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
End If
wiwi = New OleDb.OleDbCommand("update barang set kodebarang = '" & txta002.Text & "', namabarang = '" & txtb002.Text & "', hargajual = " & Val(txtc002.Text) & ", jumlahbarang = " & Val(txtd002.Text) & " where kodebarang = '" & txte002.Text & "'", kammi)
kammi.Open()
wiwi.ExecuteNonQuery()
kammi.Close()
wiwi.Dispose()
txta002.Text = ""
txtb002.Text = ""
txtc002.Text = ""
txtd002.Text = ""
txte002.Text = ""
Form32A.rahma()
End Sub
End Class
-------------------------------------------------
FORM 33A
Public Class Form33A
Dim mus As New DataTable
Dim wiwi As New OleDb.OleDbCommand
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub rahma()
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from barang", kammi)
mus.Rows.Clear()
a.Fill(mus)
a.Dispose()
End Sub
Private Sub form33A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
rahma()
dgv36109002.DataSource = mus
End Sub
Private Sub btntambah002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah002.Click
If Form33B.Visible = False Then
Form33B.Show()
Else
Form33B.Activate()
End If
Form33B.txta002.Text = ""
Form33B.txtb002.Text = ""
Form33B.txtc002.Text = ""
Form33B.txtd002.Text = ""
Form33B.txte002.Text = "-"
End Sub
Private Sub btnedit002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit002.Click
If Form33B.Visible = False Then
Form33B.Show()
Else
Form33B.Activate()
End If
Form33B.txta002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
Form33B.txtb002.Text = dgv36109002.CurrentRow.Cells("namabarang").Value
Form33B.txtc002.Text = dgv36109002.CurrentRow.Cells("hargajual").Value
Form33B.txtd002.Text = dgv36109002.CurrentRow.Cells("jumlahbarang").Value
Form33B.txte002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
Form33B.Show()
End Sub
Private Sub btnhapus002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus002.Click
wiwi = New OleDb.OleDbCommand("delete * from barang where kodebarang = '" & dgv36109002.CurrentRow.Cells("kodebarang").Value & "'", kammi)
kammi.Open()
wiwi.ExecuteNonQuery()
kammi.Close()
wiwi.Dispose()
rahma()
End Sub
End Class
-----------------------------------
FORM 33B
Public Class Form33B
Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
Dim wiwi As New OleDb.OleDbCommand
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub latihan()
If txta002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If txtb002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(txtc002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(txtd002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
End Sub
Private Sub add()
latihan()
rahma.AturPencarianDataBase("Barang", "KodeBarang", txta002.Text, 1, kammi)
If rahma.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
wiwi = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & txta002.Text & "','" & txtb002.Text & "'," & Val(txtc002.Text) & "," & Val(txtd002.Text) & ")", kammi)
kammi.Open()
wiwi.ExecuteNonQuery()
kammi.Close()
wiwi.Dispose()
txta002.Text = ""
txtb002.Text = ""
txtc002.Text = ""
txtd002.Text = ""
Form33A.rahma()
End Sub
Private Sub ubah()
latihan()
If txta002.Text <> txtb002.Text Then
rahma.AturPencarianDataBase("Barang", "KodeBarang", txta002.Text, 1, kammi)
If rahma.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
End If
wiwi = New OleDb.OleDbCommand("update barang set kodebarang = '" & txta002.Text & "', namabarang = '" & txtb002.Text & "', hargajual = " & Val(txtc002.Text) & ", jumlahbarang = " & Val(txtd002.Text) & " where kodebarang = '" & txte002.Text & "'", kammi)
kammi.Open()
wiwi.ExecuteNonQuery()
kammi.Close()
wiwi.Dispose()
txta002.Text = ""
txtb002.Text = ""
txtc002.Text = ""
txtd002.Text = ""
txte002.Text = "-"
Form33A.rahma()
End Sub
Private Sub btnsimpan_click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
If txte002.Text = "-" Then
add()
Else
ubah()
End If
End Sub
End Class
--------------------------------
FORM 34A
Public Class Form34A
Private Sub DaftarBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DaftarBarangToolStripMenuItem.Click
If Form34B.Visible = False Then
Form34B.MdiParent = Me
Form34B.Show()
Else
Form34B.Activate()
End If
End Sub
Private Sub KodeBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBarangToolStripMenuItem.Click
If Form34C.Visible = False Then
Form34C.MdiParent = Me
Form34C.Show()
Else
Form34C.Activate()
End If
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
If Form34B.Visible = False Then
Form34B.MdiParent = Me
Form34B.Show()
Else
Form34B.Activate()
End If
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
If Form34C.Visible = False Then
Form34C.MdiParent = Me
Form34C.Show()
Else
Form34C.Activate()
End If
End Sub
End Class
----------------------------------------------
FORM 34B
Public Class Form34B
Dim mus As New DataTable
Dim wiwi As New OleDb.OleDbCommand
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub rahma()
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from barang", kammi)
mus.Rows.Clear()
a.Fill(mus)
a.Dispose()
End Sub
Private Sub Form34B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
rahma()
dgv36109002.DataSource = mus
End Sub
Private Sub btntambah002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah002.Click
If Form34C.Visible = False Then
Form34C.MdiParent = Me.MdiParent
Form34C.Show()
Else
Form34C.Activate()
End If
Form34C.txta002.Text = ""
Form34C.txtb002.Text = ""
Form34C.txtc002.Text = ""
Form34C.txtd002.Text = ""
Form34C.txte002.Text = "-"
End Sub
Private Sub btnedit002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit002.Click
If Form34C.Visible = False Then
Form34C.MdiParent = Me.MdiParent
Form34C.Show()
Else
Form34C.Activate()
End If
Form34C.txta002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
Form34C.txtb002.Text = dgv36109002.CurrentRow.Cells("namabarang").Value
Form34C.txtc002.Text = dgv36109002.CurrentRow.Cells("hargajual").Value
Form34C.txtd002.Text = dgv36109002.CurrentRow.Cells("jumlahbarang").Value
Form34C.txte002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
Form34C.Show()
End Sub
Private Sub btnhapus002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus002.Click
kammi.Open()
wiwi.ExecuteNonQuery()
kammi.Close()
wiwi.Dispose()
rahma()
End Sub
End Class
--------------------------------------------
FORM34C
Public Class Form34C
Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
Dim wiwi As New OleDb.OleDbCommand
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub latihan()
If txta002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If txtb002.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(txtc002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(txtd002.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
End Sub
Private Sub add()
latihan()
rahma.AturPencarianDataBase("Barang", "KodeBarang", txta002.Text, 1, kammi)
If rahma.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
wiwi = New OleDb.OleDbCommand("insert into barang(kodebarang, namabarang, hargajual, jumlahbarang) values ('" & txta002.Text & "','" & txtb002.Text & "'," & Val(txtc002.Text) & "," & Val(txtd002.Text) & ")", kammi)
kammi.Open()
wiwi.ExecuteNonQuery()
kammi.Close()
wiwi.Dispose()
txta002.Text = ""
txtb002.Text = ""
txtc002.Text = ""
txtd002.Text = ""
Form34B.rahma()
End Sub
Private Sub ubah()
latihan()
If txta002.Text <> txtb002.Text Then
rahma.AturPencarianDataBase("Barang", "KodeBarang", txta002.Text, 1, kammi)
If rahma.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
End If
wiwi = New OleDb.OleDbCommand("update barang set kodebarang = '" & txta002.Text & "', namabarang = '" & txtb002.Text & "', hargajual = " & Val(txtc002.Text) & ", jumlahbarang = " & Val(txtd002.Text) & " where kodebarang = '" & txte002.Text & "'", kammi)
kammi.Open()
wiwi.ExecuteNonQuery()
kammi.Close()
wiwi.Dispose()
txta002.Text = ""
txtb002.Text = ""
txtc002.Text = ""
txtd002.Text = ""
txte002.Text = "-"
Form34B.rahma()
End Sub
Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
If txte002.Text = "-" Then
add()
Else
ubah()
End If
End Sub
End Class
Tidak ada komentar:
Posting Komentar