FORM31-A
Public Class Form31_A
Dim poltek As New DataTable
Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub faisal()
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from barang", ak)
poltek.Rows.Clear()
a.Fill(poltek)
a.Dispose()
End Sub
Private Sub Form31_A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
faisal()
dgv36109016.DataSource = poltek
End Sub
Private Sub edit36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit36109016.Click
If Form31_B.Visible = False Then
Form31_B.Show()
Else
Form31_B.Activate()
End If
Form31_B.kode36109016.Text = dgv36109016.CurrentRow.Cells("kodebarang").Value
Form31_B.nama36109016.Text = dgv36109016.CurrentRow.Cells("namabarang").Value
Form31_B.harga36109016.Text = dgv36109016.CurrentRow.Cells("hargajual").Value
Form31_B.jumlah36109016.Text = dgv36109016.CurrentRow.Cells("jumlahbarang").Value
Form31_B.KB36109016.Text = dgv36109016.CurrentRow.Cells("kodebarang").Value
Form31_B.Show()
End Sub
End Class
FORM31-B
Public Class Form31_B
Dim uthi As New ByIskandar.CariKeDataBaseByIskandar
Dim poltek As New OleDb.OleDbCommand
Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub simpan36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109016.Click
If kode36109016.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If nama36109016.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(harga36109016.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(jumlah36109016.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
uthi.AturPencarianDataBase("Barang", "KodeBarang", kode36109016.Text, 1, ak)
If uthi.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
poltek = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kode36109016.Text & "','" & nama36109016.Text & "'," & Val(harga36109016.Text) & "," & Val(jumlah36109016.Text) & ")", ak)
ak.Open()
poltek.ExecuteNonQuery()
ak.Close()
poltek.Dispose()
kode36109016.Text = ""
nama36109016.Text = ""
harga36109016.Text = ""
jumlah36109016.Text = ""
End Sub
End Class
FORM32-A
Public Class Form32_A
Dim poltek As New DataTable
Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub uthi()
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from barang", ak)
poltek.Rows.Clear()
a.Fill(poltek)
a.Dispose()
End Sub
Private Sub Form32_A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
uthi()
dgv36109016.DataSource = poltek
End Sub
Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah36109016.Click
If Form32_B.Visible = False Then
Form32_B.Show()
Else
Form32_B.Activate()
End If
End Sub
Private Sub edit36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit36109016.Click
If Form32_C.Visible = False Then
Form32_C.Show()
Else
Form32_C.Activate()
End If
Form32_C.kode36109016.Text = dgv36109016.CurrentRow.Cells("kodebarang").Value
Form32_C.nama36109016.Text = dgv36109016.CurrentRow.Cells("namabarang").Value
Form32_C.harga36109016.Text = dgv36109016.CurrentRow.Cells("hargajual").Value
Form32_C.jumlah36109016.Text = dgv36109016.CurrentRow.Cells("jumlahbarang").Value
Form32_C.KB36109016.Text = dgv36109016.CurrentRow.Cells("kodebarang").Value
Form32_C.Show()
End Sub
End Class
FORM32-B
Public Class Form32_B
Dim uthi As New ByIskandar.CariKeDataBaseByIskandar
Dim poltek As New OleDb.OleDbCommand
Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub simpan36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109016.Click
If kode36109016.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If nama36109016.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(harga36109016.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(jumlah36109016.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
uthi.AturPencarianDataBase("Barang", "KodeBarang", kode36109016.Text, 1, ak)
If uthi.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
poltek = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kode36109016.Text & "','" & nama36109016.Text & "'," & Val(harga36109016.Text) & "," & Val(jumlah36109016.Text) & ")", ak)
ak.Open()
poltek.ExecuteNonQuery()
ak.Close()
poltek.Dispose()
kode36109016.Text = ""
nama36109016.Text = ""
harga36109016.Text = ""
jumlah36109016.Text = ""
Form32_A.uthi()
End Sub
End Class
FORM32-C
Public Class Form32_C
Dim uthi As New ByIskandar.CariKeDataBaseByIskandar
Dim poltek As New OleDb.OleDbCommand
Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub simpan36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109016.Click
If kode36109016.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If nama36109016.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(harga36109016.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(jumlah36109016.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If kode36109016.Text <> KB36109016.Text Then
uthi.AturPencarianDataBase("Barang", "KodeBarang", kode36109016.Text, 1, ak)
If uthi.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
End If
poltek = New OleDb.OleDbCommand("update barang set kodebarang = '" & kode36109016.Text & "', namabarang = '" & nama36109016.Text & "', hargajual = " & Val(harga36109016.Text) & ", jumlahbarang = " & Val(jumlah36109016.Text) & " where kodebarang = '" & KB36109016.Text & "'", ak)
ak.Open()
poltek.ExecuteNonQuery()
ak.Close()
poltek.Dispose()
kode36109016.Text = ""
nama36109016.Text = ""
harga36109016.Text = ""
jumlah36109016.Text = ""
KB36109016.Text = ""
Form32_A.uthi()
End Sub
End Class
FORM33-A
Public Class Form33_A
Dim poltek As New DataTable
Dim has As New OleDb.OleDbCommand
Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub uthi()
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from barang", ak)
poltek.Rows.Clear()
a.Fill(poltek)
a.Dispose()
End Sub
Private Sub Form33_A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
uthi()
dgv36109016.DataSource = poltek
End Sub
Private Sub hapus36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus36109016.Click
has = New OleDb.OleDbCommand("delete * from barang where kodebarang = '" & dgv36109016.CurrentRow.Cells("kodebarang").Value & "'", ak)
ak.Open()
has.ExecuteNonQuery()
ak.Close()
has.Dispose()
uthi()
End Sub
Private Sub tambah36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah36109016.Click
If Form33_B.Visible = False Then
Form33_B.Show()
Else
Form33_B.Activate()
End If
Form33_B.kode36109016.Text = ""
Form33_B.nama36109016.Text = ""
Form33_B.harga36109016.Text = ""
Form33_B.jumlah36109016.Text = ""
Form33_B.KB36109016.Text = "-"
End Sub
Private Sub edit36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit36109016.Click
If Form33_B.Visible = False Then
Form33_B.Show()
Else
Form33_B.Activate()
End If
Form33_B.kode36109016.Text = dgv36109016.CurrentRow.Cells("kodebarang").Value
Form33_B.nama36109016.Text = dgv36109016.CurrentRow.Cells("namabarang").Value
Form33_B.harga36109016.Text = dgv36109016.CurrentRow.Cells("hargajual").Value
Form33_B.jumlah36109016.Text = dgv36109016.CurrentRow.Cells("jumlahbarang").Value
Form33_B.KB36109016.Text = dgv36109016.CurrentRow.Cells("kodebarang").Value
Form33_B.Show()
End Sub
End Class
FORM33-B
Public Class Form33_B
Dim uthi As New ByIskandar.CariKeDataBaseByIskandar
Dim poltek As New OleDb.OleDbCommand
Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub indonesia()
If kode36109016.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If nama36109016.Text.Length = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(harga36109016.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
If Val(jumlah36109016.Text) = 0 Then
MsgBox("Isi rong itu yang kosong")
Exit Sub
End If
End Sub
Private Sub tambah()
indonesia()
uthi.AturPencarianDataBase("Barang", "KodeBarang", kode36109016.Text, 1, ak)
If uthi.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
poltek = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kode36109016.Text & "','" & nama36109016.Text & "'," & Val(harga36109016.Text) & "," & Val(jumlah36109016.Text) & ")", ak)
ak.Open()
poltek.ExecuteNonQuery()
ak.Close()
poltek.Dispose()
kode36109016.Text = ""
nama36109016.Text = ""
harga36109016.Text = ""
jumlah36109016.Text = ""
Form33_A.uthi()
End Sub
Private Sub edit()
indonesia()
If kode36109016.Text <> KB36109016.Text Then
uthi.AturPencarianDataBase("Barang", "KodeBarang", kode36109016.Text, 1, ak)
If uthi.JumlanBaris > 0 Then
MsgBox("Adami kode barang seperti itu")
Exit Sub
End If
End If
poltek = New OleDb.OleDbCommand("update barang set kodebarang = '" & kode36109016.Text & "', namabarang = '" & nama36109016.Text & "', hargajual = " & Val(harga36109016.Text) & ", jumlahbarang = " & Val(jumlah36109016.Text) & " where kodebarang = '" & KB36109016.Text & "'", ak)
ak.Open()
poltek.ExecuteNonQuery()
ak.Close()
poltek.Dispose()
kode36109016.Text = ""
nama36109016.Text = ""
harga36109016.Text = ""
jumlah36109016.Text = ""
KB36109016.Text = "-"
Form33_A.uthi()
End Sub
Private Sub simpan36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109016.Click
If KB36109016.Text = "-" Then
tambah()
Else
edit()
End If
End Sub
End Class
FORM34-A
Public Class Form34_A
Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click
If Form34_B.Visible = False Then
Form34_B.MdiParent = Me
Form34_B.Show()
Else
Form34_B.Activate()
End If
End Sub
Private Sub INPUTBARANGToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click
If Form34_C.Visible = False Then
Form34_C.MdiParent = Me
Form34_C.Show()
Else
Form34_C.Activate()
End If
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
If Form34_B.Visible = False Then
Form34_B.MdiParent = Me
Form34_B.Show()
Else
Form34_B.Activate()
End If
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
If Form34_C.Visible = False Then
Form34_C.MdiParent = Me
Form34_C.Show()
Else
Form34_C.Activate()
End If
End Sub
End Class
FORM34-B
Public Class Form34_B
Dim has As New DataTable
Dim poltek As New OleDb.OleDbCommand
Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub uthi()
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from barang", ak)
has.Rows.Clear()
a.Fill(has)
a.Dispose()
End Sub
Private Sub hapus36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus36109016.Click
Dim edir As String = "delete * from barang where kodebarang = '" & dgv36109016.CurrentRow.Cells("kodebarang").Value & "'"
poltek = New OleDb.OleDbCommand(edir, ak)
ak.Open()
poltek.ExecuteNonQuery()
ak.Close()
poltek.Dispose()
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select * from barang", ak)
has.Rows.Clear()
adapter.Fill(has)
adapter.Dispose()
dgv36109016.DataSource = has
End Sub
Private Sub tambah36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah36109016.Click
If Form34_C.Visible = False Then
Form34_C.Show()
Else
Form34_C.Activate()
End If
End Sub
Private Sub edit36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit36109016.Click
If Form34_C.Visible = False Then
Form34_C.Show()
Else
Form34_C.Activate()
End If
Form34_C.kode36109016.Text = dgv36109016.CurrentRow.Cells("kodebarang").Value
Form34_C.nama36109016.Text = dgv36109016.CurrentRow.Cells("namabarang").Value
Form34_C.harga36109016.Text = dgv36109016.CurrentRow.Cells("hargajual").Value
Form34_C.jumlah36109016.Text = dgv36109016.CurrentRow.Cells("jumlahbarang").Value
Form34_C.KB36109016.Text = dgv36109016.CurrentRow.Cells("kodebarang").Value
Form34_C.Show()
End Sub
Private Sub Form34_B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select * from barang", ak)
has.Rows.Clear()
adapter.Fill(has)
adapter.Dispose()
dgv36109016.DataSource = has
End Sub
End Class
FORM34-C
Public Class Form34_C
Dim uthi As New ByIskandar.CariKeDataBaseByIskandar
Dim cm As New OleDb.OleDbCommand
Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub simpan36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109016.Click
If KB36109016.Text = "" Then
uthi.AturPencarianDataBase("Barang", "KodeBarang", kode36109016.Text, 1, ak)
If uthi.JumlanBaris > 0 Then
MsgBox("kode barang telah ada")
kode36109016.Text = ""
Exit Sub
ElseIf kode36109016.Text.Length = 0 Then
MsgBox("kode barang harus tercantum")
Exit Sub
ElseIf nama36109016.Text.Length = 0 Then
MsgBox("nama barang harus tercantum")
Exit Sub
ElseIf harga36109016.Text.Length = 0 Then
MsgBox("harga jual harus tercantum")
Exit Sub
ElseIf jumlah36109016.Text.Length = 0 Then
MsgBox("jumlah barang harus tercantum")
Exit Sub
End If
Dim soe As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kode36109016.Text & "','" & nama36109016.Text & "'," & Val(harga36109016.Text) & "," & Val(jumlah36109016.Text) & ")"
cm = New OleDb.OleDbCommand(soe, ak)
ak.Open()
cm.ExecuteNonQuery()
ak.Close()
cm.Dispose()
kode36109016.Text = "-"
nama36109016.Text = ""
harga36109016.Text = ""
jumlah36109016.Text = ""
Else
If KB36109016.Text <> kode36109016.Text Then
uthi.AturPencarianDataBase("Barang", "KodeBarang", kode36109016.Text, 1, ak)
If uthi.JumlanBaris > 0 Then
MsgBox("kode barang tidak dapat diupdate")
Exit Sub
End If
End If
If kode36109016.Text.Length = 0 Then
MsgBox("kode barang harus tercantum")
Exit Sub
ElseIf nama36109016.Text.Length = 0 Then
MsgBox("nama barang harus tercantum")
Exit Sub
ElseIf harga36109016.Text.Length = 0 Then
MsgBox("harga jual harus tercantum")
Exit Sub
ElseIf jumlah36109016.Text.Length = 0 Then
MsgBox("jumlah barang harus tercantum")
Exit Sub
End If
Dim edir As String = "update barang set kodebarang = '" & kode36109016.Text & "', namabarang = '" & nama36109016.Text & "', hargajual = " & Val(harga36109016.Text) & ", jumlahbarang = " & Val(jumlah36109016.Text) & " where kodebarang = '" & KB36109016.Text & "'"
cm = New OleDb.OleDbCommand(edir, ak)
ak.Open()
cm.ExecuteNonQuery()
ak.Close()
cm.Dispose()
KB36109016.Text = "-"
kode36109016.Text = ""
nama36109016.Text = ""
harga36109016.Text = ""
jumlah36109016.Text = ""
End If
End Sub
End Class
FORM35
Public Class Form35
Dim poltek As New DataTable
Dim has As New OleDb.OleDbCommand
Dim uthi As New ByIskandar.CariKeDataBaseByIskandar
Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")
Private Sub Form35_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & no36109016.Text & "'", ak)
a.Fill(poltek)
a.Dispose()
dgv36109016.DataSource = poltek
End Sub
Private Sub tambah36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah36109016.Click
If kode36109016.Text.Length = 0 Then
MsgBox("Isi rong itu Kode Barang na..")
Exit Sub
End If
If Val(unit36109016.Text) = 0 Then
MsgBox("Isi rong itu Unit na..")
Exit Sub
End If
If Val(harga36109016.Text) = 0 Then
MsgBox("Isi rong itu Harga na..")
Exit Sub
End If
Dim dr As DataRow
dr = poltek.NewRow
dr("KODEBARANG") = kode36109016.Text
dr("UNIT") = unit36109016.Text
dr("HARGA") = harga36109016.Text
poltek.Rows.Add(dr)
kode36109016.Text = ""
unit36109016.Text = ""
harga36109016.Text = ""
End Sub
Private Sub simpan36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109016.Click
If no36109016.Text.Length = 0 Then
MsgBox("isi rong No Transaksi na..")
Exit Sub
End If
If jenis36109016.Text.Length = 0 Then
MsgBox("Isi rong Jenis Transaksi na..")
Exit Sub
End If
If poltek.Rows.Count = 0 Then
MsgBox("Maaf...Isi rong itu datatable na..")
Exit Sub
End If
uthi.AturPencarianDataBase("mastertransaksi", "notrans", no36109016.Text, 1, ak)
If uthi.JumlanBaris > 0 Then
MsgBox("Adami notrans seperti itu")
Exit Sub
End If
has = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & no36109016.Text & "',#" & tanggal36109016.Value.Month & "/" & tanggal36109016.Value.Day & "/" & tanggal36109016.Value.Year & "#,'" & jenis36109016.Text & "')", ak)
ak.Open()
has.ExecuteNonQuery()
ak.Close()
For Each x As DataRow In poltek.Rows
has = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & no36109016.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", ak)
ak.Open()
has.ExecuteNonQuery()
ak.Close()
Next
has.Dispose()
no36109016.Text = ""
jenis36109016.Text = ""
poltek.Rows.Clear()
End Sub
End Class
0 komentar:
Posting Komentar