Public Class LATIHAN040B_46109017
Dim ayu As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=putri")
Dim DATA As New DataTable
Public Sub MANIS()
Dim X As New OleDb.OleDbDataAdapter
X = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH from DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '" & NT_46109017.Text & "'", ayu)
DATA.Rows.Clear()
X.Fill(DATA)
End Sub
Private Sub Latihan040B_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dataPrimary(1) As DataColumn
dataPrimary(0) = DATA.Columns("NOTRANS")
DATA.PrimaryKey = dataPrimary
DG_46109017.DataSource = DATA
TOTALJUMLAH()
End Sub
Public Sub TOTALJUMLAH()
Dim TOT As Double = 0
For Each x As DataRow In DATA.Rows
TOT = TOT + x("JUMLAH")
Next
TOT_46109017.Text = TOT
End Sub
Private Sub dg_46109017_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DG_46109017.CellContentClick
If DG_46109017.Columns(e.ColumnIndex).Name = "KODEBARANG" Then
DG_46109017.CurrentRow.Cells("NAMABARANG").Value = ""
DG_46109017.CurrentRow.Cells("UNIT").Value = 0
DG_46109017.CurrentRow.Cells("HARGA").Value = 0
DG_46109017.CurrentRow.Cells("JUMLAH").Value = 0
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", DG_46109017.CurrentRow.Cells("KODEBARANG").Value, 1, ayu)
If Pencari.JumlanBaris > 0 Then
DG_46109017.CurrentRow.Cells("NAMABARANG").Value = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
Else
DG_46109017.CurrentRow.Cells("KODEBARANG").Value = ""
If Latihan383940_46109017.ShowDialog = Windows.Forms.DialogResult.OK Then
DG_46109017.CurrentRow.Cells("KODEBARANG").Value = Latihan383940_46109017.DATA46109017.CurrentRow.Cells("KODEBARANG").Value
DG_46109017.CurrentRow.Cells("NAMABARANG").Value = Latihan383940_46109017.DATA46109017.CurrentRow.Cells("NAMABARANG").Value
End If
End If
ElseIf DG_46109017.Columns(e.ColumnIndex).Name = "UNIT" Or DG_46109017.Columns(e.ColumnIndex).Name = "HARGA" Then
DG_46109017.CurrentRow.Cells("JUMLAH").Value = DG_46109017.CurrentRow.Cells("UNIT").Value * DG_46109017.CurrentRow.Cells("HARGA").Value
End If
TOTALJUMLAH()
End Sub
Private Sub Button1_Button2()
If NT_46109017.Text.Length = 0 Then
MsgBox("Maaf, Nomor transaksi harus diisi dulu")
Exit Sub
End If
If JT_46109017.Text.Length = 0 Then
MsgBox("Maaf, Jenis transaksi harus diisi dulu")
Exit Sub
End If
If DATA.Rows.Count() = 0 Then
MsgBox("Maaf, Proses tidak dapat dilanjutkan")
Exit Sub
End If
If StatusStrip1.Text <> NT_46109017.Text Then
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT_46109017.Text, 1, ayu)
If pencari.JumlanBaris > 0 Then
MsgBox("Nomor transaksi sudah ada")
Exit Sub
End If
End If
Dim T As New OleDb.OleDbCommand
T = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI(NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT_46109017.Text & "', #" & DT_46109017.Value.Month & "/" & DT_46109017.Value.Day & "/" & DT_46109017.Value.Year & "#, '" & JT_46109017.Text & "')", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
For Each X As DataRow In DATA.Rows
T = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT_46109017.Text & "', '" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T.Dispose()
Next
StatusStrip1.Text = "-"
NT_46109017.Text = ""
JT_46109017.Text = ""
DATA.Rows.Clear()
TOTALJUMLAH()
LATIHAN040A_46109017.ayuaa()
End Sub
Private Sub edit_46109017()
If NT_46109017.Text.Length = 0 Then
MsgBox("Maaf, Nomor transaksi harus diisi dulu nah !!!")
Exit Sub
End If
If JT_46109017.Text.Length = 0 Then
MsgBox("Maaf, Jenis transaksi harus diisi dulu nah !!!")
Exit Sub
End If
If DATA.Rows.Count() = 0 Then
MsgBox("Maaf, Proses tidak dapat dilanjutkan gang....")
Exit Sub
End If
If StatusStrip1.Text <> NT_46109017.Text Then
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT_46109017.Text, 1, ayu)
If pencari.JumlanBaris > 0 Then
MsgBox("Nomor transaksi sudah ada")
Exit Sub
End If
End If
Dim T As New OleDb.OleDbCommand
T = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS= '" & NT_46109017.Text & "'", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT_46109017.Text & "', #" & DT_46109017.Value.Month & "/" & DT_46109017.Value.Day & "/" & DT_46109017.Value.Year & "#, '" & JT_46109017.Text & "')", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS= '" & NT_46109017.Text & "'", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
For Each XX As DataRow In DATA.Rows
T = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT_46109017.Text & "', '" & XX("KODEBARANG") & "', " & XX("UNIT") & ", " & XX("HARGA") & ")", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T.Dispose()
Next
StatusStrip1.Text = "-"
NT_46109017.Text = ""
JT_46109017.Text = ""
DATA.Rows.Clear()
TOTALJUMLAH()
LATIHAN040A_46109017.ayuaa()
End Sub
Private Sub save_46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAVE_46109017.Click
If StatusStrip1.Text = "-" Then
Button1_Button2()
Else
edit_46109017()
End If
End Sub
End Class
Selasa, 03 Januari 2012
LATIHAN040A_46109017
Public Class LATIHAN040A_46109017
Dim ayu As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=putri")
Dim wandika As New DataTable
Dim wandika1 As New DataTable
Dim dset As New DataSet
Dim MMM1 As New BindingSource
Dim MMM2 As New BindingSource
Public Sub ayuaa()
wandika1.Rows.Clear()
wandika.Rows.Clear()
Dim B1 As New OleDb.OleDbDataAdapter
B1 = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", ayu)
B1.Fill(wandika)
B1 = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG", ayu)
B1.Fill(wandika1)
B1.Dispose()
End Sub
Private Sub LATIHAN040A_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ayuaa()
dset.Tables.Add(wandika)
dset.Tables.Add(wandika1)
wandika.TableName = "T01"
wandika1.TableName = "T02"
dset.Relations.Add(New DataRelation("X", dset.Tables("T01").Columns("NOTRANS"), dset.Tables("T02").Columns("NOTRANS")))
MMM1.DataSource = dset
MMM1.DataMember = "T01"
MMM2.DataSource = MMM1
MMM2.DataMember = "X"
DG1_46109017.DataSource = MMM1
DG2_46109017.DataSource = MMM2
End Sub
Private Sub EDIT_46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46109017.Click
If LATIHAN040B_46109017.Visible = False Then
LATIHAN040B_46109017.Show()
Else
LATIHAN040B_46109017.Activate()
End If
LATIHAN040B_46109017.StatusStrip1.Text = DG1_46109017.CurrentRow.Cells("NOTRANS").Value
LATIHAN040B_46109017.NT_46109017.Text = DG1_46109017.CurrentRow.Cells("NOTRANS").Value
LATIHAN040B_46109017.JT_46109017.Text = DG1_46109017.CurrentRow.Cells("JENISTRANSAKSI").Value
LATIHAN040B_46109017.MANIS()
LATIHAN040B_46109017.TOTALJUMLAH()
End Sub
Private Sub TAMBAH_46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46109017.Click
If LATIHAN040B_46109017.Visible = False Then
LATIHAN040B_46109017.Show()
Else
LATIHAN040B_46109017.Activate()
End If
LATIHAN040B_46109017.StatusStrip1.Text = "-"
LATIHAN040B_46109017.NT_46109017.Text = ""
LATIHAN040B_46109017.JT_46109017.Text = ""
LATIHAN040B_46109017.MANIS()
LATIHAN040B_46109017.TOTALJUMLAH()
End Sub
Private Sub HAPUS_46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_46109017.Click
Dim T As New OleDb.OleDbCommand
T = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS='" & DG1_46109017.CurrentRow.Cells("NOTRANS").Value & "'", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & DG1_46109017.CurrentRow.Cells("NOTRANS").Value & "'", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T.Dispose()
ayuaa()
End Sub
End Class
Dim ayu As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=putri")
Dim wandika As New DataTable
Dim wandika1 As New DataTable
Dim dset As New DataSet
Dim MMM1 As New BindingSource
Dim MMM2 As New BindingSource
Public Sub ayuaa()
wandika1.Rows.Clear()
wandika.Rows.Clear()
Dim B1 As New OleDb.OleDbDataAdapter
B1 = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", ayu)
B1.Fill(wandika)
B1 = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG", ayu)
B1.Fill(wandika1)
B1.Dispose()
End Sub
Private Sub LATIHAN040A_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ayuaa()
dset.Tables.Add(wandika)
dset.Tables.Add(wandika1)
wandika.TableName = "T01"
wandika1.TableName = "T02"
dset.Relations.Add(New DataRelation("X", dset.Tables("T01").Columns("NOTRANS"), dset.Tables("T02").Columns("NOTRANS")))
MMM1.DataSource = dset
MMM1.DataMember = "T01"
MMM2.DataSource = MMM1
MMM2.DataMember = "X"
DG1_46109017.DataSource = MMM1
DG2_46109017.DataSource = MMM2
End Sub
Private Sub EDIT_46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46109017.Click
If LATIHAN040B_46109017.Visible = False Then
LATIHAN040B_46109017.Show()
Else
LATIHAN040B_46109017.Activate()
End If
LATIHAN040B_46109017.StatusStrip1.Text = DG1_46109017.CurrentRow.Cells("NOTRANS").Value
LATIHAN040B_46109017.NT_46109017.Text = DG1_46109017.CurrentRow.Cells("NOTRANS").Value
LATIHAN040B_46109017.JT_46109017.Text = DG1_46109017.CurrentRow.Cells("JENISTRANSAKSI").Value
LATIHAN040B_46109017.MANIS()
LATIHAN040B_46109017.TOTALJUMLAH()
End Sub
Private Sub TAMBAH_46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46109017.Click
If LATIHAN040B_46109017.Visible = False Then
LATIHAN040B_46109017.Show()
Else
LATIHAN040B_46109017.Activate()
End If
LATIHAN040B_46109017.StatusStrip1.Text = "-"
LATIHAN040B_46109017.NT_46109017.Text = ""
LATIHAN040B_46109017.JT_46109017.Text = ""
LATIHAN040B_46109017.MANIS()
LATIHAN040B_46109017.TOTALJUMLAH()
End Sub
Private Sub HAPUS_46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_46109017.Click
Dim T As New OleDb.OleDbCommand
T = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS='" & DG1_46109017.CurrentRow.Cells("NOTRANS").Value & "'", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & DG1_46109017.CurrentRow.Cells("NOTRANS").Value & "'", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T.Dispose()
ayuaa()
End Sub
End Class
LATIHAN039_46109017
Public Class LATIHAN039_46109017
Dim ayu As New DataTable
Dim wandika As New OleDb.OleDbCommand
Dim utami As New ByIskandar.CariKeDataBaseByIskandar
Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datamajemuk.accdb;Jet OLEDB:Database Password=putri")
Private Sub Latihan_039_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim idung As New OleDb.OleDbDataAdapter
idung = New OleDb.OleDbDataAdapter("SELECT BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*HARGA AS JUMLAH FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG WHERE NOTRANS = '" & NT46109017.Text & "'", conect)
idung.Fill(ayu)
idung.Dispose()
Dim dpc(1) As DataColumn
dpc(0) = ayu.Columns("kodebarang")
ayu.PrimaryKey = dpc
DATA46109017.DataSource = ayu
End Sub
Private Sub DATA46109017_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DATA46109017.CellEndEdit
If DATA46109017.Columns(e.ColumnIndex).Name = "KODEBARANG" Then
DATA46109017.CurrentRow.Cells("NAMABARANG").Value = ""
DATA46109017.CurrentRow.Cells("UNIT").Value = 0
DATA46109017.CurrentRow.Cells("HARGA").Value = 0
DATA46109017.CurrentRow.Cells("JUMLAH").Value = 0
utami.AturPencarianDataBase("barang", "kodebarang", DATA46109017.CurrentRow.Cells("KODEBARANG").Value, 1, conect)
If utami.JumlanBaris > 0 Then
DATA46109017.CurrentRow.Cells("NAMABARANG").Value = utami.DataTablenya.Rows(0).Item("NAMABARANG")
Else
DATA46109017.CurrentRow.Cells("NAMABARANG").Value = ""
If Latihan383940_46109017.ShowDialog = Windows.Forms.DialogResult.OK Then
DATA46109017.CurrentRow.Cells("KODEBARANG").Value = Latihan383940_46109017.DATA46109017.CurrentRow.Cells("KODEBARANG").Value
DATA46109017.CurrentRow.Cells("NAMABARANG").Value = Latihan383940_46109017.DATA46109017.CurrentRow.Cells("NAMABARANG").Value
End If
End If
ElseIf DATA46109017.Columns(e.ColumnIndex).Name = "UNIT" Or DATA46109017.Columns(e.ColumnIndex).Name = "HARGA" Then
DATA46109017.CurrentRow.Cells("JUMLAH").Value = DATA46109017.CurrentRow.Cells("UNIT").Value * DATA46109017.CurrentRow.Cells("HARGA").Value
mama()
End If
End Sub
Private Sub mama()
Dim mama1 As Integer = 0
For Each mama2 As DataRow In ayu.Rows
mama1 += mama2("JUMLAH")
Next
TOT46109017.Text = mama1
End Sub
Private Sub S46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109017.Click
If NT46109017.Text.Length = 0 Then
MsgBox("Isi No Transaksinya")
Exit Sub
End If
If JT46109017.Text.Length = 0 Then
MsgBox("Isi Jenis Transaksinya")
Exit Sub
End If
If ayu.Rows.Count = 0 Then
MsgBox("Isi datatable")
Exit Sub
End If
utami.AturPencarianDataBase("mastertransaksi", "notrans", NT46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
MsgBox("notrans sudah ada")
Exit Sub
End If
wandika = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NT46109017.Text & "',#" & T46109017.Value.Month & "/" & T46109017.Value.Day & "/" & T46109017.Value.Year & "#,'" & JT46109017.Text & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
For Each x As DataRow In ayu.Rows
wandika = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & NT46109017.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
Next
wandika.Dispose()
NT46109017.Text = ""
JT46109017.Text = ""
TOT46109017.Text = ""
ayu.Rows.Clear()
mama()
End Sub
End Class
Dim ayu As New DataTable
Dim wandika As New OleDb.OleDbCommand
Dim utami As New ByIskandar.CariKeDataBaseByIskandar
Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datamajemuk.accdb;Jet OLEDB:Database Password=putri")
Private Sub Latihan_039_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim idung As New OleDb.OleDbDataAdapter
idung = New OleDb.OleDbDataAdapter("SELECT BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*HARGA AS JUMLAH FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG WHERE NOTRANS = '" & NT46109017.Text & "'", conect)
idung.Fill(ayu)
idung.Dispose()
Dim dpc(1) As DataColumn
dpc(0) = ayu.Columns("kodebarang")
ayu.PrimaryKey = dpc
DATA46109017.DataSource = ayu
End Sub
Private Sub DATA46109017_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DATA46109017.CellEndEdit
If DATA46109017.Columns(e.ColumnIndex).Name = "KODEBARANG" Then
DATA46109017.CurrentRow.Cells("NAMABARANG").Value = ""
DATA46109017.CurrentRow.Cells("UNIT").Value = 0
DATA46109017.CurrentRow.Cells("HARGA").Value = 0
DATA46109017.CurrentRow.Cells("JUMLAH").Value = 0
utami.AturPencarianDataBase("barang", "kodebarang", DATA46109017.CurrentRow.Cells("KODEBARANG").Value, 1, conect)
If utami.JumlanBaris > 0 Then
DATA46109017.CurrentRow.Cells("NAMABARANG").Value = utami.DataTablenya.Rows(0).Item("NAMABARANG")
Else
DATA46109017.CurrentRow.Cells("NAMABARANG").Value = ""
If Latihan383940_46109017.ShowDialog = Windows.Forms.DialogResult.OK Then
DATA46109017.CurrentRow.Cells("KODEBARANG").Value = Latihan383940_46109017.DATA46109017.CurrentRow.Cells("KODEBARANG").Value
DATA46109017.CurrentRow.Cells("NAMABARANG").Value = Latihan383940_46109017.DATA46109017.CurrentRow.Cells("NAMABARANG").Value
End If
End If
ElseIf DATA46109017.Columns(e.ColumnIndex).Name = "UNIT" Or DATA46109017.Columns(e.ColumnIndex).Name = "HARGA" Then
DATA46109017.CurrentRow.Cells("JUMLAH").Value = DATA46109017.CurrentRow.Cells("UNIT").Value * DATA46109017.CurrentRow.Cells("HARGA").Value
mama()
End If
End Sub
Private Sub mama()
Dim mama1 As Integer = 0
For Each mama2 As DataRow In ayu.Rows
mama1 += mama2("JUMLAH")
Next
TOT46109017.Text = mama1
End Sub
Private Sub S46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109017.Click
If NT46109017.Text.Length = 0 Then
MsgBox("Isi No Transaksinya")
Exit Sub
End If
If JT46109017.Text.Length = 0 Then
MsgBox("Isi Jenis Transaksinya")
Exit Sub
End If
If ayu.Rows.Count = 0 Then
MsgBox("Isi datatable")
Exit Sub
End If
utami.AturPencarianDataBase("mastertransaksi", "notrans", NT46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
MsgBox("notrans sudah ada")
Exit Sub
End If
wandika = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NT46109017.Text & "',#" & T46109017.Value.Month & "/" & T46109017.Value.Day & "/" & T46109017.Value.Year & "#,'" & JT46109017.Text & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
For Each x As DataRow In ayu.Rows
wandika = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & NT46109017.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
Next
wandika.Dispose()
NT46109017.Text = ""
JT46109017.Text = ""
TOT46109017.Text = ""
ayu.Rows.Clear()
mama()
End Sub
End Class
Latihan038_46109017
Public Class Latihan038_46109017
Dim ayu As New DataTable
Dim wandika As New OleDb.OleDbCommand
Dim utami As New ByIskandar.CariKeDataBaseByIskandar
Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datamajemuk.accdb;Jet OLEDB:Database Password=putri")
Private Sub Latihan_38_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim idung As New OleDb.OleDbDataAdapter
idung = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans ='" & NT46109017.Text & "'", conect)
ayu.Rows.Clear()
idung.Fill(ayu)
idung.Dispose()
Dim dpc(1) As DataColumn
dpc(0) = ayu.Columns("kodebarang")
ayu.PrimaryKey = dpc
DATA46109017.DataSource = ayu
End Sub
Private Sub mama()
Dim mama1 As Integer = 0
For Each mama2 As DataRow In ayu.Rows
mama1 += mama2("JUMLAH")
Next
TOT46109017.Text = mama1
End Sub
Private Sub UN46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UN46109017.TextChanged, HR46109017.TextChanged
JM46109017.Text = Val(UN46109017.Text) * Val(HR46109017.Text)
End Sub
Private Sub KB46109017_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB46109017.Leave
If KB46109017.Text.Length = 0 Then
Exit Sub
End If
utami.AturPencarianDataBase("barang", "kodebarang", KB46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
KB46109017.Text = utami.DataTablenya.Rows(0).Item("KODEBARANG")
NB46109017.Text = utami.DataTablenya.Rows(0).Item("NAMABARANG")
Else
MsgBox("Kode barang itu tidak ada..")
Exit Sub
End If
End Sub
Private Sub KB46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB46109017.TextChanged
NB46109017.Text = ""
UN46109017.Text = ""
HR46109017.Text = ""
End Sub
Private Sub TM46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TM46109017.Click
If KB46109017.Text.Length = 0 Then
MsgBox("Isi Kode Barang")
Exit Sub
End If
If Val(UN46109017.Text) = 0 Then
MsgBox("Isi Unit Barang")
Exit Sub
End If
If Val(HR46109017.Text) = 0 Then
MsgBox("Isi Harga Barang")
Exit Sub
End If
Dim snsd As DataRow
snsd = ayu.Rows.Find(KB46109017.Text)
If snsd Is Nothing Then
snsd = ayu.NewRow
snsd("KODEBARANG") = KB46109017.Text
snsd("NAMABARANG") = NB46109017.Text
snsd("UNIT") = Val(UN46109017.Text)
snsd("HARGA") = Val(HR46109017.Text)
snsd("JUMLAH") = Val(JM46109017.Text)
ayu.Rows.Add(snsd)
KB46109017.Text = ""
UN46109017.Text = ""
HR46109017.Text = ""
Else
MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
End If
mama()
End Sub
Private Sub S46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109017.Click
If NT46109017.Text.Length = 0 Then
MsgBox("Isi No Transaksi")
Exit Sub
End If
If JT46109017.Text.Length = 0 Then
MsgBox("isi Jenis Transaksi")
Exit Sub
End If
If ayu.Rows.Count = 0 Then
MsgBox("Isi datatable")
Exit Sub
End If
utami.AturPencarianDataBase("mastertransaksi", "notrans", NT46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
MsgBox("No Trans sudah ada")
Exit Sub
End If
wandika = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NT46109017.Text & "',#" & T46109017.Value.Month & "/" & T46109017.Value.Day & "/" & T46109017.Value.Year & "#,'" & JT46109017.Text & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
For Each x As DataRow In ayu.Rows
wandika = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & NT46109017.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
Next
wandika.Dispose()
NT46109017.Text = ""
JT46109017.Text = ""
ayu.Rows.Clear()
mama()
End Sub
End Class
Dim ayu As New DataTable
Dim wandika As New OleDb.OleDbCommand
Dim utami As New ByIskandar.CariKeDataBaseByIskandar
Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datamajemuk.accdb;Jet OLEDB:Database Password=putri")
Private Sub Latihan_38_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim idung As New OleDb.OleDbDataAdapter
idung = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans ='" & NT46109017.Text & "'", conect)
ayu.Rows.Clear()
idung.Fill(ayu)
idung.Dispose()
Dim dpc(1) As DataColumn
dpc(0) = ayu.Columns("kodebarang")
ayu.PrimaryKey = dpc
DATA46109017.DataSource = ayu
End Sub
Private Sub mama()
Dim mama1 As Integer = 0
For Each mama2 As DataRow In ayu.Rows
mama1 += mama2("JUMLAH")
Next
TOT46109017.Text = mama1
End Sub
Private Sub UN46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UN46109017.TextChanged, HR46109017.TextChanged
JM46109017.Text = Val(UN46109017.Text) * Val(HR46109017.Text)
End Sub
Private Sub KB46109017_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB46109017.Leave
If KB46109017.Text.Length = 0 Then
Exit Sub
End If
utami.AturPencarianDataBase("barang", "kodebarang", KB46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
KB46109017.Text = utami.DataTablenya.Rows(0).Item("KODEBARANG")
NB46109017.Text = utami.DataTablenya.Rows(0).Item("NAMABARANG")
Else
MsgBox("Kode barang itu tidak ada..")
Exit Sub
End If
End Sub
Private Sub KB46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB46109017.TextChanged
NB46109017.Text = ""
UN46109017.Text = ""
HR46109017.Text = ""
End Sub
Private Sub TM46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TM46109017.Click
If KB46109017.Text.Length = 0 Then
MsgBox("Isi Kode Barang")
Exit Sub
End If
If Val(UN46109017.Text) = 0 Then
MsgBox("Isi Unit Barang")
Exit Sub
End If
If Val(HR46109017.Text) = 0 Then
MsgBox("Isi Harga Barang")
Exit Sub
End If
Dim snsd As DataRow
snsd = ayu.Rows.Find(KB46109017.Text)
If snsd Is Nothing Then
snsd = ayu.NewRow
snsd("KODEBARANG") = KB46109017.Text
snsd("NAMABARANG") = NB46109017.Text
snsd("UNIT") = Val(UN46109017.Text)
snsd("HARGA") = Val(HR46109017.Text)
snsd("JUMLAH") = Val(JM46109017.Text)
ayu.Rows.Add(snsd)
KB46109017.Text = ""
UN46109017.Text = ""
HR46109017.Text = ""
Else
MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
End If
mama()
End Sub
Private Sub S46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109017.Click
If NT46109017.Text.Length = 0 Then
MsgBox("Isi No Transaksi")
Exit Sub
End If
If JT46109017.Text.Length = 0 Then
MsgBox("isi Jenis Transaksi")
Exit Sub
End If
If ayu.Rows.Count = 0 Then
MsgBox("Isi datatable")
Exit Sub
End If
utami.AturPencarianDataBase("mastertransaksi", "notrans", NT46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
MsgBox("No Trans sudah ada")
Exit Sub
End If
wandika = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NT46109017.Text & "',#" & T46109017.Value.Month & "/" & T46109017.Value.Day & "/" & T46109017.Value.Year & "#,'" & JT46109017.Text & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
For Each x As DataRow In ayu.Rows
wandika = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & NT46109017.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
Next
wandika.Dispose()
NT46109017.Text = ""
JT46109017.Text = ""
ayu.Rows.Clear()
mama()
End Sub
End Class
Latihan37_46109017
Public Class Latihan37_46109017
Dim ayu As New DataTable
Dim wandika As New OleDb.OleDbCommand
Dim utami As New ByIskandar.CariKeDataBaseByIskandar
Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datamajemuk.accdb;Jet OLEDB:Database Password=putri")
Private Sub Latihan_37_017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim idung As New OleDb.OleDbDataAdapter
idung = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans ='" & NT46109017.Text & "'", conect)
ayu.Rows.Clear()
idung.Fill(ayu)
idung.Dispose()
Dim dpc(1) As DataColumn
dpc(0) = ayu.Columns("kodebarang")
ayu.PrimaryKey = dpc
DATA46109017.DataSource = ayu
End Sub
Private Sub ardin()
Dim ardin1 As Integer = 0
For Each ardin2 As DataRow In ayu.Rows
ardin1 += ardin2("JUMLAH")
Next
TOT46109017.Text = ardin1
End Sub
Private Sub UN46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UN46109017.TextChanged, HR46109017.TextChanged
JM46109017.Text = Val(UN46109017.Text) * Val(HR46109017.Text)
End Sub
Private Sub KB46109017_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB46109017.Leave
If KB46109017.Text.Length = 0 Then
Exit Sub
End If
utami.AturPencarianDataBase("barang", "kodebarang", KB46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
KB46109017.Text = utami.DataTablenya.Rows(0).Item("KODEBARANG")
NB46109017.Text = utami.DataTablenya.Rows(0).Item("NAMABARANG")
Else
MsgBox("Kode barang itu tidak ada..")
Exit Sub
End If
End Sub
Private Sub KB46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB46109017.TextChanged
NB46109017.Text = ""
UN46109017.Text = ""
HR46109017.Text = ""
End Sub
Private Sub TM46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TM46109017.Click
If KB46109017.Text.Length = 0 Then
MsgBox("Isi Kode Barang")
Exit Sub
End If
If Val(UN46109017.Text) = 0 Then
MsgBox("Isi Unit Barang")
Exit Sub
End If
If Val(HR46109017.Text) = 0 Then
MsgBox("Isi Harga Barang")
Exit Sub
End If
Dim mama As DataRow
mama = ayu.Rows.Find(KB46109017.Text)
If mama Is Nothing Then
mama = ayu.NewRow
mama("KODEBARANG") = KB46109017.Text
mama("NAMABARANG") = NB46109017.Text
mama("UNIT") = Val(UN46109017.Text)
mama("HARGA") = Val(HR46109017.Text)
mama("JUMLAH") = Val(JM46109017.Text)
ayu.Rows.Add(mama)
KB46109017.Text = ""
UN46109017.Text = ""
HR46109017.Text = ""
Else
MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
End If
ardin()
End Sub
Private Sub S46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109017.Click
If NT46109017.Text.Length = 0 Then
MsgBox("Isi No Transaksi")
Exit Sub
End If
If JT46109017.Text.Length = 0 Then
MsgBox("isi Jenis Transaksi")
Exit Sub
End If
If ayu.Rows.Count = 0 Then
MsgBox("Isi datatable")
Exit Sub
End If
utami.AturPencarianDataBase("mastertransaksi", "notrans", NT46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
MsgBox("No Trans sudah ada")
Exit Sub
End If
wandika = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NT46109017.Text & "',#" & T46109017.Value.Month & "/" & T46109017.Value.Day & "/" & T46109017.Value.Year & "#,'" & JT46109017.Text & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
For Each x As DataRow In ayu.Rows
wandika = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & NT46109017.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
Next
wandika.Dispose()
NT46109017.Text = ""
JT46109017.Text = ""
ayu.Rows.Clear()
ardin()
End Sub
Private Sub NT46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NT46109017.TextChanged
End Sub
End Class
Dim ayu As New DataTable
Dim wandika As New OleDb.OleDbCommand
Dim utami As New ByIskandar.CariKeDataBaseByIskandar
Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datamajemuk.accdb;Jet OLEDB:Database Password=putri")
Private Sub Latihan_37_017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim idung As New OleDb.OleDbDataAdapter
idung = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans ='" & NT46109017.Text & "'", conect)
ayu.Rows.Clear()
idung.Fill(ayu)
idung.Dispose()
Dim dpc(1) As DataColumn
dpc(0) = ayu.Columns("kodebarang")
ayu.PrimaryKey = dpc
DATA46109017.DataSource = ayu
End Sub
Private Sub ardin()
Dim ardin1 As Integer = 0
For Each ardin2 As DataRow In ayu.Rows
ardin1 += ardin2("JUMLAH")
Next
TOT46109017.Text = ardin1
End Sub
Private Sub UN46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UN46109017.TextChanged, HR46109017.TextChanged
JM46109017.Text = Val(UN46109017.Text) * Val(HR46109017.Text)
End Sub
Private Sub KB46109017_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB46109017.Leave
If KB46109017.Text.Length = 0 Then
Exit Sub
End If
utami.AturPencarianDataBase("barang", "kodebarang", KB46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
KB46109017.Text = utami.DataTablenya.Rows(0).Item("KODEBARANG")
NB46109017.Text = utami.DataTablenya.Rows(0).Item("NAMABARANG")
Else
MsgBox("Kode barang itu tidak ada..")
Exit Sub
End If
End Sub
Private Sub KB46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB46109017.TextChanged
NB46109017.Text = ""
UN46109017.Text = ""
HR46109017.Text = ""
End Sub
Private Sub TM46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TM46109017.Click
If KB46109017.Text.Length = 0 Then
MsgBox("Isi Kode Barang")
Exit Sub
End If
If Val(UN46109017.Text) = 0 Then
MsgBox("Isi Unit Barang")
Exit Sub
End If
If Val(HR46109017.Text) = 0 Then
MsgBox("Isi Harga Barang")
Exit Sub
End If
Dim mama As DataRow
mama = ayu.Rows.Find(KB46109017.Text)
If mama Is Nothing Then
mama = ayu.NewRow
mama("KODEBARANG") = KB46109017.Text
mama("NAMABARANG") = NB46109017.Text
mama("UNIT") = Val(UN46109017.Text)
mama("HARGA") = Val(HR46109017.Text)
mama("JUMLAH") = Val(JM46109017.Text)
ayu.Rows.Add(mama)
KB46109017.Text = ""
UN46109017.Text = ""
HR46109017.Text = ""
Else
MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
End If
ardin()
End Sub
Private Sub S46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109017.Click
If NT46109017.Text.Length = 0 Then
MsgBox("Isi No Transaksi")
Exit Sub
End If
If JT46109017.Text.Length = 0 Then
MsgBox("isi Jenis Transaksi")
Exit Sub
End If
If ayu.Rows.Count = 0 Then
MsgBox("Isi datatable")
Exit Sub
End If
utami.AturPencarianDataBase("mastertransaksi", "notrans", NT46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
MsgBox("No Trans sudah ada")
Exit Sub
End If
wandika = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NT46109017.Text & "',#" & T46109017.Value.Month & "/" & T46109017.Value.Day & "/" & T46109017.Value.Year & "#,'" & JT46109017.Text & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
For Each x As DataRow In ayu.Rows
wandika = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & NT46109017.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
Next
wandika.Dispose()
NT46109017.Text = ""
JT46109017.Text = ""
ayu.Rows.Clear()
ardin()
End Sub
Private Sub NT46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NT46109017.TextChanged
End Sub
End Class
Langganan:
Postingan (Atom)