Public Class Form35_36109013
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=25")
Dim DT As New DataTable
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Dim com As New OleDb.OleDbCommand
Private Sub Form35_36109013_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim nisa As New OleDb.OleDbDataAdapter
nisa = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & kb36109013.Text & "'", CONECT)
DT.Rows.Clear()
nisa.Fill(DT)
dgv36109013.DataSource = DT
nisa.Dispose()
End Sub
Private Sub tambah36109013_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah36109013.Click
If kb36109013.Text.Length = 0 Then
MsgBox("kode barang belum terisi")
Exit Sub
End If
If Val(unit36109013.Text) = 0 Then
MsgBox("UNIT belum terisi")
Exit Sub
End If
If Val(harga36109013.Text) = 0 Then
MsgBox("HARGA belum terisi")
Exit Sub
End If
Dim drzany As DataRow
drzany = DT.NewRow
drzany("KODEBARANG") = kb36109013.Text
drzany("UNIT") = unit36109013.Text
drzany("HARGA") = harga36109013.Text
DT.Rows.Add(drzany)
kb36109013.Text = ""
unit36109013.Text = ""
harga36109013.Text = ""
End Sub
Private Sub simpan36109013_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109013.Click
If no36109013.Text.Length = 0 Then
MsgBox("no.transaksi belum terisi")
Exit Sub
End If
If jt36109013.Text.Length = 0 Then
MsgBox("jenis transaksi belum terisi")
Exit Sub
End If
cari.AturPencarianDataBase("mastertransaksi", "notrans", no36109013.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & no36109013.Text & "',#" & tgl36109013.Value.Day & "/" & tgl36109013.Value.Month & "/" & tgl36109013.Value.Year & "#, '" & jt36109013.Text & "')", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each r As DataRow In DT.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & no36109013.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
Next
com.Dispose()
no36109013.Text = ""
jt36109013.Text = ""
DT.Rows.Clear()
End Sub
End Class
Public Class Form36_36109013
Dim dt As New DataTable
Dim cm As New OleDb.OleDbCommand
Dim fany As New ByIskandar.CariKeDataBaseByIskandar
Dim fa As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")
Private Sub Form36_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 = '" & no36109013.Text & "'", fa)
a.Fill(dt)
a.Dispose()
dgv36109013.DataSource = dt
Dim dc(1) As DataColumn
dc(0) = dt.Columns("kodebarang")
dt.PrimaryKey = dc
End Sub
Private Sub tambah36109013_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah36109013.Click
If kb36109013.Text.Length = 0 Then
MsgBox("Isi rong itu Kode Barang na..")
Exit Sub
End If
If Val(unit36109013.Text) = 0 Then
MsgBox("Isi rong itu Unit na..")
Exit Sub
End If
If Val(harga36109013.Text) = 0 Then
MsgBox("Isi rong itu Harga na..")
Exit Sub
End If
Dim dr As DataRow
dr = dt.Rows.Find(kb36109013.Text)
If dr Is Nothing Then
dr = dt.NewRow
dr("KODEBARANG") = kb36109013.Text
dr("UNIT") = unit36109013.Text
dr("HARGA") = harga36109013.Text
dt.Rows.Add(dr)
kb36109013.Text = ""
unit36109013.Text = ""
harga36109013.Text = ""
Else
MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain")
End If
End Sub
Private Sub simpan36109013_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109013.Click
If no36109013.Text.Length = 0 Then
MsgBox("Isi rong No Transaksi na..")
Exit Sub
End If
If jt36109013.Text.Length = 0 Then
MsgBox("Isi rong Jenis Transaksi na..")
Exit Sub
End If
If dt.Rows.Count = 0 Then
MsgBox("Maaf...Isi rong itu datatable na..")
Exit Sub
End If
fany.AturPencarianDataBase("mastertransaksi", "notrans", no36109013.Text, 1, fa)
If fany.JumlanBaris > 0 Then
MsgBox("Adami notrans seperti itu")
Exit Sub
End If
cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & no36109013.Text & "',#" & tgl36109013.Value.Month & "/" & tgl36109013.Value.Day & "/" & tgl36109013.Value.Year & "#,'" & jt36109013.Text & "')", fa)
fa.Open()
cm.ExecuteNonQuery()
fa.Close()
For Each x As DataRow In dt.Rows
cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & no36109013.Text & "', '" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", fa)
fa.Open()
cm.ExecuteNonQuery()
fa.Close()
Next
cm.Dispose()
no36109013.Text = ""
jt36109013.Text = ""
dt.Rows.Clear()
End Sub
End Class
