Public Class Latihan040B36109060
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim DATA As New DataTable
Public Sub NURLINA()
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.Text & "'", A)
DATA.Rows.Clear()
X.Fill(DATA)
End Sub
Private Sub Latihan040B36109060_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
DGV060.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
TOTAL.Text = TOT
End Sub
Private Sub DGV060_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
If DGV060.Columns(e.ColumnIndex).Name = "KODEBARANG" Then
'Cari nama barang'
DGV060.CurrentRow.Cells("NAMABARANG").Value = ""
DGV060.CurrentRow.Cells("UNIT").Value = 0
DGV060.CurrentRow.Cells("HARGA").Value = 0
DGV060.CurrentRow.Cells("JUMLAH").Value = 0
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", DGV060.CurrentRow.Cells("KODEBARANG").Value, 1, A)
'Menampilkan nama barang jika isi kolom kodebarang ditemukan oleh proses diatas'
If Pencari.JumlanBaris > 0 Then
DGV060.CurrentRow.Cells("NAMABARANG").Value = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
Else
DGV060.CurrentRow.Cells("KODEBARANG").Value = ""
If Latihan038394036109060.ShowDialog = Windows.Forms.DialogResult.OK Then
DGV060.CurrentRow.Cells("KODEBARANG").Value = Latihan038394036109060.sarce.CurrentRow.Cells("KODEBARANG").Value
DGV060.CurrentRow.Cells("NAMABARANG").Value = Latihan038394036109060.sarce.CurrentRow.Cells("NAMABARANG").Value
End If
End If
ElseIf DGV060.Columns(e.ColumnIndex).Name = "UNIT" Or DGV060.Columns(e.ColumnIndex).Name = "HARGA" Then
'Hitung kolom jumlah'
DGV060.CurrentRow.Cells("JUMLAH").Value = DGV060.CurrentRow.Cells("UNIT").Value * DGV060.CurrentRow.Cells("HARGA").Value
End If
TOTALJUMLAH()
End Sub
Private Sub simpan_Tambah()
If NT.Text.Length = 0 Then
MsgBox("Maaf, Nomor transaksi harus diisi dulu")
Exit Sub
End If
If jt.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 NO1.Text <> NT.Text Then
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT.Text, 1, A)
If pencari.JumlanBaris > 0 Then
MsgBox("Nomor transaksi sudah ada")
Exit Sub
End If
End If
Dim CM As New OleDb.OleDbCommand
CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI(NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jt.Text & "')", A)
'Membuka koneksi'
A.Open()
'Eksekusi prose penyimpanan'
CM.ExecuteNonQuery()
'Menutup koneksi'
A.Close()
'Memeriksa isi jumlah baris dalam object tabel'
For Each X As DataRow In DATA.Rows
'Mengatur perintah simpan'
CM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT.Text & "', '" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM.Dispose()
Next
NO1.Text = "-"
NT.Text = ""
jt.Text = ""
DATA.Rows.Clear()
TOTALJUMLAH()
'Prosedur mengambil data dari Latihan040'
Latihan040A36109060.ina()
End Sub
Public Sub simpan_edit()
If NT.Text.Length = 0 Then
MsgBox("Maaf, Nomor transaksi harus diisi dulu")
Exit Sub
End If
If jt.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 NO1.Text <> NT.Text Then
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT.Text, 1, A)
If pencari.JumlanBaris > 0 Then
MsgBox("Nomor transaksi sudah ada")
Exit Sub
End If
End If
Dim CM As New OleDb.OleDbCommand
CM = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS= '" & NT.Text & "'", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jt.Text & "')", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS= '" & NT.Text & "'", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
'Memeriksa isi jumlah baris dalam object tabel'
For Each XX As DataRow In DATA.Rows
'Mengatur perintah simpan'
CM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT.Text & "', '" & XX("KODEBARANG") & "', " & XX("UNIT") & ", " & XX("HARGA") & ")", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM.Dispose()
Next
NO1.Text = "-"
NT.Text = ""
jt.Text = ""
DATA.Rows.Clear()
TOTALJUMLAH()
Latihan040A36109060.ina()
End Sub
Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
If NO1.Text = "-" Then
simpan_Tambah()
Else
simpan_edit()
End If
End Sub
End Class
Jumat, 02 Desember 2011
LATIHAN 040A36109060
Public Class Latihan040A36109060
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim dt As New DataTable
Dim dt1 As New DataTable
Dim dset As New DataSet 'Deklarasi dataset'
Dim Bsource1 As New BindingSource 'Deklarasi bindingsource'
Dim Bsource2 As New BindingSource
Public Sub ina()
'Membersihkan detailtransaksi lalu mastertransaksi'
dt1.Rows.Clear()
dt.Rows.Clear()
Dim B1 As New OleDb.OleDbDataAdapter
B1 = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", A)
B1.Fill(dt)
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", A)
B1.Fill(dt1)
B1.Dispose()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ina()
'Memasukkan datatabel dalam dataset'
dset.Tables.Add(dt)
dset.Tables.Add(dt1)
'Mengganti nama datatabel dalam dataset'
dt.TableName = "T01"
dt1.TableName = "T02"
'Menambahkan relasi dalam dataset'
dset.Relations.Add(New DataRelation("X", dset.Tables("T01").Columns("NOTRANS"), dset.Tables("T02").Columns("NOTRANS")))
'Datasource dan membersource'
Bsource1.DataSource = dset
Bsource1.DataMember = "T01"
Bsource2.DataSource = Bsource1
Bsource2.DataMember = "X"
'Memasukkan datatabel dari bindingsource ke dalam DVG'
DGV1.DataSource = Bsource1
DGV2.DataSource = Bsource2
End Sub
Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
Dim CM As New OleDb.OleDbCommand
CM = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS='" & DGV1.CurrentRow.Cells("NOTRANS").Value & "'", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & DGV1.CurrentRow.Cells("NOTRANS").Value & "'", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM.Dispose()
ina()
End Sub
Private Sub EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT.Click
If Latihan040B36109060.Visible = False Then
Latihan040B36109060.Show()
Else
Latihan040B36109060.Activate()
End If
Latihan040B36109060.NO1.Text = DGV1.CurrentRow.Cells("NOTRANS").Value
Latihan040B36109060.NT.Text = DGV1.CurrentRow.Cells("NOTRANS").Value
Latihan040B36109060.jt.Text = DGV1.CurrentRow.Cells("JENISTRANSAKSI").Value
Latihan040B36109060.NURLINA()
Latihan040B36109060.TOTALJUMLAH()
End Sub
Private Sub TAMBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH.Click
If Latihan040B36109060.Visible = False Then
Latihan040B36109060.Show()
Else
Latihan040B36109060.Activate()
End If
Latihan040B36109060.NO1.Text = "-"
Latihan040B36109060.NT.Text = ""
Latihan040B36109060.jt.Text = ""
Latihan040B36109060.NURLINA()
Latihan040B36109060.TOTALJUMLAH()
End Sub
End Class
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim dt As New DataTable
Dim dt1 As New DataTable
Dim dset As New DataSet 'Deklarasi dataset'
Dim Bsource1 As New BindingSource 'Deklarasi bindingsource'
Dim Bsource2 As New BindingSource
Public Sub ina()
'Membersihkan detailtransaksi lalu mastertransaksi'
dt1.Rows.Clear()
dt.Rows.Clear()
Dim B1 As New OleDb.OleDbDataAdapter
B1 = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", A)
B1.Fill(dt)
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", A)
B1.Fill(dt1)
B1.Dispose()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ina()
'Memasukkan datatabel dalam dataset'
dset.Tables.Add(dt)
dset.Tables.Add(dt1)
'Mengganti nama datatabel dalam dataset'
dt.TableName = "T01"
dt1.TableName = "T02"
'Menambahkan relasi dalam dataset'
dset.Relations.Add(New DataRelation("X", dset.Tables("T01").Columns("NOTRANS"), dset.Tables("T02").Columns("NOTRANS")))
'Datasource dan membersource'
Bsource1.DataSource = dset
Bsource1.DataMember = "T01"
Bsource2.DataSource = Bsource1
Bsource2.DataMember = "X"
'Memasukkan datatabel dari bindingsource ke dalam DVG'
DGV1.DataSource = Bsource1
DGV2.DataSource = Bsource2
End Sub
Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
Dim CM As New OleDb.OleDbCommand
CM = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS='" & DGV1.CurrentRow.Cells("NOTRANS").Value & "'", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & DGV1.CurrentRow.Cells("NOTRANS").Value & "'", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM.Dispose()
ina()
End Sub
Private Sub EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT.Click
If Latihan040B36109060.Visible = False Then
Latihan040B36109060.Show()
Else
Latihan040B36109060.Activate()
End If
Latihan040B36109060.NO1.Text = DGV1.CurrentRow.Cells("NOTRANS").Value
Latihan040B36109060.NT.Text = DGV1.CurrentRow.Cells("NOTRANS").Value
Latihan040B36109060.jt.Text = DGV1.CurrentRow.Cells("JENISTRANSAKSI").Value
Latihan040B36109060.NURLINA()
Latihan040B36109060.TOTALJUMLAH()
End Sub
Private Sub TAMBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH.Click
If Latihan040B36109060.Visible = False Then
Latihan040B36109060.Show()
Else
Latihan040B36109060.Activate()
End If
Latihan040B36109060.NO1.Text = "-"
Latihan040B36109060.NT.Text = ""
Latihan040B36109060.jt.Text = ""
Latihan040B36109060.NURLINA()
Latihan040B36109060.TOTALJUMLAH()
End Sub
End Class
LATIHAN 03936109060
Public Class latihan03936109060
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim dt As New DataTable
Private Sub latihan03936109060_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
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.Text & "'", A)
X.Fill(dt)
X.Dispose()
Dim dataPrimary(1) As DataColumn
dataPrimary(0) = dt.Columns("KODEBARANG")
dt.PrimaryKey = dataPrimary
DGV060.DataSource = dt
End Sub
Private Sub TOTALJUMLAH()
Dim TOT As Double = 0
For Each x As DataRow In dt.Rows
TOT = TOT + x("JUMLAH")
Next
TOTAL.Text = TOT
End Sub
Private Sub DGV060_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV060.CellContentClick
If DGV060.Columns(e.ColumnIndex).Name = "KODEBARANG" Then
'Cari nama barang'
DGV060.CurrentRow.Cells("NAMABARANG").Value = ""
DGV060.CurrentRow.Cells("UNIT").Value = 0
DGV060.CurrentRow.Cells("HARGA").Value = 0
DGV060.CurrentRow.Cells("JUMLAH").Value = 0
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", DGV060.CurrentRow.Cells("KODEBARANG").Value, 1, A)
'Menampilkan nama barang jika isi kolom kodebarang ditemukan oleh proses diatas'
If Pencari.JumlanBaris > 0 Then
DGV060.CurrentRow.Cells("NAMABARANG").Value = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
Else
DGV060.CurrentRow.Cells("KODEBARANG").Value = ""
If Latihan038394036109060.ShowDialog = Windows.Forms.DialogResult.OK Then
DGV060.CurrentRow.Cells("KODEBARANG").Value = Latihan038394036109060.sarce.CurrentRow.Cells("KODEBARANG").Value
DGV060.CurrentRow.Cells("NAMABARANG").Value = Latihan038394036109060.sarce.CurrentRow.Cells("NAMABARANG").Value
End If
End If
ElseIf DGV060.Columns(e.ColumnIndex).Name = "UNIT" Or DGV060.Columns(e.ColumnIndex).Name = "HARGA" Then
DGV060.CurrentRow.Cells("JUMLAH").Value = DGV060.CurrentRow.Cells("UNIT").Value * DGV060.CurrentRow.Cells("HARGA").Value
TOTALJUMLAH()
End If
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
If NT.Text.Length = 0 Then
MsgBox("No. transaksi sudah ada")
Exit Sub
End If
If jt.Text.Length = 0 Then
MsgBox("Jenis transaksi sudah ada")
Exit Sub
End If
If dt.Rows.Count = 0 Then
MsgBox("Jumlah baris tidak terisi")
Exit Sub
End If
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT.Text, 1, A)
If pencari.JumlanBaris > 0 Then
MsgBox("data tersebut sudah ada")
Exit Sub
End If
Dim CM As New OleDb.OleDbCommand
CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jt.Text & "')", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
For Each X As DataRow In dt.Rows
CM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT.Text & "','" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM.Dispose()
Next
NT.Text = ""
jt.Text = ""
dt.Rows.Clear()
End Sub
End Class
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim dt As New DataTable
Private Sub latihan03936109060_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
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.Text & "'", A)
X.Fill(dt)
X.Dispose()
Dim dataPrimary(1) As DataColumn
dataPrimary(0) = dt.Columns("KODEBARANG")
dt.PrimaryKey = dataPrimary
DGV060.DataSource = dt
End Sub
Private Sub TOTALJUMLAH()
Dim TOT As Double = 0
For Each x As DataRow In dt.Rows
TOT = TOT + x("JUMLAH")
Next
TOTAL.Text = TOT
End Sub
Private Sub DGV060_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV060.CellContentClick
If DGV060.Columns(e.ColumnIndex).Name = "KODEBARANG" Then
'Cari nama barang'
DGV060.CurrentRow.Cells("NAMABARANG").Value = ""
DGV060.CurrentRow.Cells("UNIT").Value = 0
DGV060.CurrentRow.Cells("HARGA").Value = 0
DGV060.CurrentRow.Cells("JUMLAH").Value = 0
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", DGV060.CurrentRow.Cells("KODEBARANG").Value, 1, A)
'Menampilkan nama barang jika isi kolom kodebarang ditemukan oleh proses diatas'
If Pencari.JumlanBaris > 0 Then
DGV060.CurrentRow.Cells("NAMABARANG").Value = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
Else
DGV060.CurrentRow.Cells("KODEBARANG").Value = ""
If Latihan038394036109060.ShowDialog = Windows.Forms.DialogResult.OK Then
DGV060.CurrentRow.Cells("KODEBARANG").Value = Latihan038394036109060.sarce.CurrentRow.Cells("KODEBARANG").Value
DGV060.CurrentRow.Cells("NAMABARANG").Value = Latihan038394036109060.sarce.CurrentRow.Cells("NAMABARANG").Value
End If
End If
ElseIf DGV060.Columns(e.ColumnIndex).Name = "UNIT" Or DGV060.Columns(e.ColumnIndex).Name = "HARGA" Then
DGV060.CurrentRow.Cells("JUMLAH").Value = DGV060.CurrentRow.Cells("UNIT").Value * DGV060.CurrentRow.Cells("HARGA").Value
TOTALJUMLAH()
End If
End Sub
Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
If NT.Text.Length = 0 Then
MsgBox("No. transaksi sudah ada")
Exit Sub
End If
If jt.Text.Length = 0 Then
MsgBox("Jenis transaksi sudah ada")
Exit Sub
End If
If dt.Rows.Count = 0 Then
MsgBox("Jumlah baris tidak terisi")
Exit Sub
End If
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT.Text, 1, A)
If pencari.JumlanBaris > 0 Then
MsgBox("data tersebut sudah ada")
Exit Sub
End If
Dim CM As New OleDb.OleDbCommand
CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jt.Text & "')", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
For Each X As DataRow In dt.Rows
CM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT.Text & "','" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM.Dispose()
Next
NT.Text = ""
jt.Text = ""
dt.Rows.Clear()
End Sub
End Class
Kamis, 01 Desember 2011
LATIHAN0383940_36109060
Public Class Latihan038394036109060
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim dt As New DataTable
Public Sub sarshe()
Dim X As New OleDb.OleDbDataAdapter
X = New OleDb.OleDbDataAdapter("Select * From BARANG", A)
dt.Rows.Clear()
X.Fill(dt)
X.Dispose()
End Sub
Private Sub Latihan038394036109060_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sarshe()
sarce.DataSource = dt
End Sub
End Class
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim dt As New DataTable
Public Sub sarshe()
Dim X As New OleDb.OleDbDataAdapter
X = New OleDb.OleDbDataAdapter("Select * From BARANG", A)
dt.Rows.Clear()
X.Fill(dt)
X.Dispose()
End Sub
Private Sub Latihan038394036109060_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sarshe()
sarce.DataSource = dt
End Sub
End Class
LATIHAN03836109060
Public Class Latihan03836109060
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim dt As New DataTable
Dim dr As DataRow
Private Sub Latihan03836109060_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
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.Text & "'", A)
X.Fill(dt)
X.Dispose()
Dim dataPrimary(1) As DataColumn
dataPrimary(0) = dt.Columns("KODEBARANG")
dt.PrimaryKey = dataPrimary
DGV060.DataSource = dt
End Sub
Private Sub TOTALJUMLAH()
Dim TOT As Double = 0
For Each x As DataRow In dt.Rows
TOT = TOT + x("JUMLAH")
Next
total.Text = TOT
End Sub
Private Sub kb060_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles kb060.Leave
If kb060.Text.Length = 0 Then
Exit Sub
End If
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", kb060.Text, 1, A)
If Pencari.JumlanBaris > 0 Then
kb060.Text = Pencari.DataTablenya.Rows(0).Item("KODEBARANG")
nama060.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
Else
MsgBox("Kode barang tersebut tidak ada")
If Latihan038394036109060.ShowDialog = Windows.Forms.DialogResult.OK Then
kb060.Text = Latihan038394036109060.sarce.CurrentRow.Cells("KodeBarang").Value
nama060.Text = Latihan038394036109060.sarce.CurrentRow.Cells("NamaBarang").Value
Else
kb060.Text = ""
End If
End If
End Sub
Private Sub Kb060_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb060.TextChanged
nama060.Text = ""
unit060.Text = ""
barang.Text = ""
End Sub
Private Sub UNIT060_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unit060.TextChanged, barang.TextChanged
jumlah.Text = Val(unit060.Text) * Val(barang.Text)
End Sub
Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
'a'
If kb060.Text.Length = 0 Then
MsgBox("Kode barang sudah ada")
Exit Sub
End If
If nama060.Text.Length = 0 Then
MsgBox("Nama barang sudah ada")
End If
If Val(unit060.Text) = 0 Then
MsgBox("Masukkan unit barang")
Exit Sub
End If
If Val(barang.Text) = 0 Then
MsgBox("Masukkan harga barang barang")
Exit Sub
End If
'b'
dr = dt.Rows.Find(kb060.Text)
If dr Is Nothing Then
dr = dt.NewRow
dr("KODEBARANG") = kb060.Text
Else
MsgBox("Maaf kodebarang sudah ada")
Exit Sub
End If
'c'
dr = dt.NewRow
dr("KODEBARANG") = kb060.Text
dr("NAMABARANG") = nama060.Text
dr("UNIT") = unit060.Text
dr("HARGA") = barang.Text
dr("JUMLAH") = jumlah.Text
dt.Rows.Add(dr)
'd'
kb060.Text = ""
nama060.Text = ""
unit060.Text = ""
barang.Text = ""
'e'
TOTALJUMLAH()
End Sub
Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
'a'
If NT.Text.Length = 0 Then
MsgBox("No. transaksi sudah ada")
Exit Sub
End If
If jt.Text.Length = 0 Then
MsgBox("Jenis transaksi sudah ada")
Exit Sub
End If
'b'
If dt.Rows.Count = 0 Then
MsgBox("Jumlah baris tidak terisi")
Exit Sub
End If
'c'
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT.Text, 1, A)
If pencari.JumlanBaris > 0 Then
MsgBox("data tersebut sudah ada")
Exit Sub
End If
'd'
Dim CM As New OleDb.OleDbCommand
CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jt.Text & "')", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
'e'
For Each X As DataRow In dt.Rows
CM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT.Text & "','" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM.Dispose()
Next
'f'
NT.Text = ""
jt.Text = ""
jumlah.Text = ""
'g'
dt.Rows.Clear()
'h'
TOTALJUMLAH()
End Sub
End Class
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim dt As New DataTable
Dim dr As DataRow
Private Sub Latihan03836109060_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
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.Text & "'", A)
X.Fill(dt)
X.Dispose()
Dim dataPrimary(1) As DataColumn
dataPrimary(0) = dt.Columns("KODEBARANG")
dt.PrimaryKey = dataPrimary
DGV060.DataSource = dt
End Sub
Private Sub TOTALJUMLAH()
Dim TOT As Double = 0
For Each x As DataRow In dt.Rows
TOT = TOT + x("JUMLAH")
Next
total.Text = TOT
End Sub
Private Sub kb060_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles kb060.Leave
If kb060.Text.Length = 0 Then
Exit Sub
End If
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", kb060.Text, 1, A)
If Pencari.JumlanBaris > 0 Then
kb060.Text = Pencari.DataTablenya.Rows(0).Item("KODEBARANG")
nama060.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
Else
MsgBox("Kode barang tersebut tidak ada")
If Latihan038394036109060.ShowDialog = Windows.Forms.DialogResult.OK Then
kb060.Text = Latihan038394036109060.sarce.CurrentRow.Cells("KodeBarang").Value
nama060.Text = Latihan038394036109060.sarce.CurrentRow.Cells("NamaBarang").Value
Else
kb060.Text = ""
End If
End If
End Sub
Private Sub Kb060_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb060.TextChanged
nama060.Text = ""
unit060.Text = ""
barang.Text = ""
End Sub
Private Sub UNIT060_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unit060.TextChanged, barang.TextChanged
jumlah.Text = Val(unit060.Text) * Val(barang.Text)
End Sub
Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
'a'
If kb060.Text.Length = 0 Then
MsgBox("Kode barang sudah ada")
Exit Sub
End If
If nama060.Text.Length = 0 Then
MsgBox("Nama barang sudah ada")
End If
If Val(unit060.Text) = 0 Then
MsgBox("Masukkan unit barang")
Exit Sub
End If
If Val(barang.Text) = 0 Then
MsgBox("Masukkan harga barang barang")
Exit Sub
End If
'b'
dr = dt.Rows.Find(kb060.Text)
If dr Is Nothing Then
dr = dt.NewRow
dr("KODEBARANG") = kb060.Text
Else
MsgBox("Maaf kodebarang sudah ada")
Exit Sub
End If
'c'
dr = dt.NewRow
dr("KODEBARANG") = kb060.Text
dr("NAMABARANG") = nama060.Text
dr("UNIT") = unit060.Text
dr("HARGA") = barang.Text
dr("JUMLAH") = jumlah.Text
dt.Rows.Add(dr)
'd'
kb060.Text = ""
nama060.Text = ""
unit060.Text = ""
barang.Text = ""
'e'
TOTALJUMLAH()
End Sub
Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
'a'
If NT.Text.Length = 0 Then
MsgBox("No. transaksi sudah ada")
Exit Sub
End If
If jt.Text.Length = 0 Then
MsgBox("Jenis transaksi sudah ada")
Exit Sub
End If
'b'
If dt.Rows.Count = 0 Then
MsgBox("Jumlah baris tidak terisi")
Exit Sub
End If
'c'
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT.Text, 1, A)
If pencari.JumlanBaris > 0 Then
MsgBox("data tersebut sudah ada")
Exit Sub
End If
'd'
Dim CM As New OleDb.OleDbCommand
CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jt.Text & "')", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
'e'
For Each X As DataRow In dt.Rows
CM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT.Text & "','" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM.Dispose()
Next
'f'
NT.Text = ""
jt.Text = ""
jumlah.Text = ""
'g'
dt.Rows.Clear()
'h'
TOTALJUMLAH()
End Sub
End Class
LATIHAN03736109060
Public Class LATIHAN03736109060
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim dt As New DataTable
Dim dr As DataRow
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
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.Text & "'", A)
X.Fill(dt)
X.Dispose()
Dim dataPrimary(1) As DataColumn
dataPrimary(0) = dt.Columns("KODEBARANG")
dt.PrimaryKey = dataPrimary
DGV060.DataSource = dt
End Sub
Private Sub TOTALJUMLAH()
Dim TOT As Double = 0
For Each x As DataRow In dt.Rows
TOT = TOT + x("JUMLAH")
Next
total.Text = TOT
End Sub
Private Sub kb060_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles kb060.Leave
If kb060.Text.Length = 0 Then
Exit Sub
End If
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", kb060.Text, 1, A)
If Pencari.JumlanBaris > 0 Then
kb060.Text = Pencari.DataTablenya.Rows(0).Item("KODEBARANG")
nama060.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
Else
MsgBox("Kode barang tersebut tidak ada")
Exit Sub
End If
End Sub
Private Sub Kb060_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb060.TextChanged
nama060.Text = ""
unit060.Text = ""
barang.Text = ""
End Sub
Private Sub unit060_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unit060.TextChanged, barang.TextChanged
jumlah.Text = Val(unit060.Text) * Val(barang.Text)
End Sub
Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
'a'
If kb060.Text.Length = 0 Then
MsgBox("Kode barang sudah ada")
Exit Sub
End If
If nama060.Text.Length = 0 Then
MsgBox("Nama barang sudah ada")
End If
If Val(unit060.Text) = 0 Then
MsgBox("Masukkan unit barang")
Exit Sub
End If
If Val(barang.Text) = 0 Then
MsgBox("Masukkan harga barang barang")
Exit Sub
End If
'b'
dr = dt.Rows.Find(kb060.Text)
If dr Is Nothing Then
dr = dt.NewRow
dr("KODEBARANG") = kb060.Text
Else
MsgBox("Maaf kodebarang sudah ada")
Exit Sub
End If
'c'
dr = dt.NewRow
dr("KODEBARANG") = kb060.Text
dr("NAMABARANG") = nama060.Text
dr("UNIT") = unit060.Text
dr("HARGA") = barang.Text
dr("JUMLAH") = jumlah.Text
dt.Rows.Add(dr)
'd'
kb060.Text = ""
nama060.Text = ""
unit060.Text = ""
barang.Text = ""
'e'
TOTALJUMLAH()
End Sub
Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
'a'
If NT.Text.Length = 0 Then
MsgBox("No. transaksi sudah ada")
Exit Sub
End If
If jt.Text.Length = 0 Then
MsgBox("Jenis transaksi sudah ada")
Exit Sub
End If
'b'
If dt.Rows.Count = 0 Then
MsgBox("Jumlah baris tidak terisi")
Exit Sub
End If
'c'
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT.Text, 1, A)
If pencari.JumlanBaris > 0 Then
MsgBox("data tersebut sudah ada")
Exit Sub
End If
'd'
Dim CM As New OleDb.OleDbCommand
CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jt.Text & "')", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
'e'
For Each X As DataRow In dt.Rows
CM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT.Text & "','" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM.Dispose()
Next
'f'
NT.Text = ""
jt.Text = ""
jumlah.Text = ""
'g'
dt.Rows.Clear()
'h'
TOTALJUMLAH()
End Sub
End Class
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim dt As New DataTable
Dim dr As DataRow
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
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.Text & "'", A)
X.Fill(dt)
X.Dispose()
Dim dataPrimary(1) As DataColumn
dataPrimary(0) = dt.Columns("KODEBARANG")
dt.PrimaryKey = dataPrimary
DGV060.DataSource = dt
End Sub
Private Sub TOTALJUMLAH()
Dim TOT As Double = 0
For Each x As DataRow In dt.Rows
TOT = TOT + x("JUMLAH")
Next
total.Text = TOT
End Sub
Private Sub kb060_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles kb060.Leave
If kb060.Text.Length = 0 Then
Exit Sub
End If
Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", kb060.Text, 1, A)
If Pencari.JumlanBaris > 0 Then
kb060.Text = Pencari.DataTablenya.Rows(0).Item("KODEBARANG")
nama060.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
Else
MsgBox("Kode barang tersebut tidak ada")
Exit Sub
End If
End Sub
Private Sub Kb060_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb060.TextChanged
nama060.Text = ""
unit060.Text = ""
barang.Text = ""
End Sub
Private Sub unit060_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unit060.TextChanged, barang.TextChanged
jumlah.Text = Val(unit060.Text) * Val(barang.Text)
End Sub
Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
'a'
If kb060.Text.Length = 0 Then
MsgBox("Kode barang sudah ada")
Exit Sub
End If
If nama060.Text.Length = 0 Then
MsgBox("Nama barang sudah ada")
End If
If Val(unit060.Text) = 0 Then
MsgBox("Masukkan unit barang")
Exit Sub
End If
If Val(barang.Text) = 0 Then
MsgBox("Masukkan harga barang barang")
Exit Sub
End If
'b'
dr = dt.Rows.Find(kb060.Text)
If dr Is Nothing Then
dr = dt.NewRow
dr("KODEBARANG") = kb060.Text
Else
MsgBox("Maaf kodebarang sudah ada")
Exit Sub
End If
'c'
dr = dt.NewRow
dr("KODEBARANG") = kb060.Text
dr("NAMABARANG") = nama060.Text
dr("UNIT") = unit060.Text
dr("HARGA") = barang.Text
dr("JUMLAH") = jumlah.Text
dt.Rows.Add(dr)
'd'
kb060.Text = ""
nama060.Text = ""
unit060.Text = ""
barang.Text = ""
'e'
TOTALJUMLAH()
End Sub
Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
'a'
If NT.Text.Length = 0 Then
MsgBox("No. transaksi sudah ada")
Exit Sub
End If
If jt.Text.Length = 0 Then
MsgBox("Jenis transaksi sudah ada")
Exit Sub
End If
'b'
If dt.Rows.Count = 0 Then
MsgBox("Jumlah baris tidak terisi")
Exit Sub
End If
'c'
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT.Text, 1, A)
If pencari.JumlanBaris > 0 Then
MsgBox("data tersebut sudah ada")
Exit Sub
End If
'd'
Dim CM As New OleDb.OleDbCommand
CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jt.Text & "')", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
'e'
For Each X As DataRow In dt.Rows
CM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT.Text & "','" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM.Dispose()
Next
'f'
NT.Text = ""
jt.Text = ""
jumlah.Text = ""
'g'
dt.Rows.Clear()
'h'
TOTALJUMLAH()
End Sub
End Class
LATIHAN03636109060
Public Class LATIHAN03636109060
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim dt As New DataTable
Dim dr As DataRow
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim y As New OleDb.OleDbDataAdapter
y = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI WHERE NOTRANS= '" & NT.Text & "'", A)
y.Fill(dt)
y.Dispose()
Dim dataPrimary(1) As DataColumn
dataPrimary(0) = dt.Columns("KODEBARANG")
dt.PrimaryKey = dataPrimary
DGV060.DataSource = dt
End Sub
Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
'a'
If kb060.Text.Length = 0 Then
MsgBox("Kode barang sudah ada")
Exit Sub
End If
If Val(unit060.Text) = 0 Then
MsgBox("Masukkan Harga barang")
Exit Sub
End If
If Val(barang060.Text) = 0 Then
MsgBox("Masukkan jumlah barang")
Exit Sub
End If
'b'
dr = dt.Rows.Find(kb060.Text)
If dr Is Nothing Then
dr = dt.NewRow
dr("KODEBARANG") = kb060.Text
Else
MsgBox("Maaf kode barang sudah ada")
Exit Sub
End If
'c'
dr = dt.NewRow
dr("KODEBARANG") = kb060.Text
dr("UNIT") = unit060.Text
dr("HARGA") = barang060.Text
dt.Rows.Add(dr)
'd'
kb060.Text = ""
unit060.Text = ""
barang060.Text = ""
End Sub
Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
'a'
If NT.Text.Length = 0 Then
MsgBox("No. transaksi sudah ada")
Exit Sub
End If
If jt.Text.Length = 0 Then
MsgBox("Jenis transaksi sudah ada")
Exit Sub
End If
'b'
If dt.Rows.Count = 0 Then
MsgBox("Jumlah baris tidak terisi")
Exit Sub
End If
'c'
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT.Text, 1, A)
If pencari.JumlanBaris > 0 Then
MsgBox("data tersebut sudah ada")
Exit Sub
End If
'd'
Dim CM As New OleDb.OleDbCommand
CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jt.Text & "')", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
'e'
For Each X As DataRow In dt.Rows
CM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT.Text & "','" & X("KODEBARANG") & "', " & X("UNIT") & ", " & X("HARGA") & ")", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM.Dispose()
Next
'f'
NT.Text = ""
jt.Text = ""
'g'
dt.Rows.Clear()
End Sub
End Class
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim dt As New DataTable
Dim dr As DataRow
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim y As New OleDb.OleDbDataAdapter
y = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI WHERE NOTRANS= '" & NT.Text & "'", A)
y.Fill(dt)
y.Dispose()
Dim dataPrimary(1) As DataColumn
dataPrimary(0) = dt.Columns("KODEBARANG")
dt.PrimaryKey = dataPrimary
DGV060.DataSource = dt
End Sub
Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
'a'
If kb060.Text.Length = 0 Then
MsgBox("Kode barang sudah ada")
Exit Sub
End If
If Val(unit060.Text) = 0 Then
MsgBox("Masukkan Harga barang")
Exit Sub
End If
If Val(barang060.Text) = 0 Then
MsgBox("Masukkan jumlah barang")
Exit Sub
End If
'b'
dr = dt.Rows.Find(kb060.Text)
If dr Is Nothing Then
dr = dt.NewRow
dr("KODEBARANG") = kb060.Text
Else
MsgBox("Maaf kode barang sudah ada")
Exit Sub
End If
'c'
dr = dt.NewRow
dr("KODEBARANG") = kb060.Text
dr("UNIT") = unit060.Text
dr("HARGA") = barang060.Text
dt.Rows.Add(dr)
'd'
kb060.Text = ""
unit060.Text = ""
barang060.Text = ""
End Sub
Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
'a'
If NT.Text.Length = 0 Then
MsgBox("No. transaksi sudah ada")
Exit Sub
End If
If jt.Text.Length = 0 Then
MsgBox("Jenis transaksi sudah ada")
Exit Sub
End If
'b'
If dt.Rows.Count = 0 Then
MsgBox("Jumlah baris tidak terisi")
Exit Sub
End If
'c'
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT.Text, 1, A)
If pencari.JumlanBaris > 0 Then
MsgBox("data tersebut sudah ada")
Exit Sub
End If
'd'
Dim CM As New OleDb.OleDbCommand
CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jt.Text & "')", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
'e'
For Each X As DataRow In dt.Rows
CM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT.Text & "','" & X("KODEBARANG") & "', " & X("UNIT") & ", " & X("HARGA") & ")", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM.Dispose()
Next
'f'
NT.Text = ""
jt.Text = ""
'g'
dt.Rows.Clear()
End Sub
End Class
LATIHAN3536109060
Public Class LATIHAN3536109060
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim dt As New DataTable
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim X As New OleDb.OleDbDataAdapter
X = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI WHERE NOTRANS= '" & NT.Text & "'", A)
X.Fill(dt)
X.Dispose()
DGV060.DataSource = dt
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
'a'
If kb060.Text.Length = 0 Then
MsgBox("Kode barang sudah ada")
Exit Sub
End If
If Val(unit060.Text) = 0 Then
MsgBox("Masukkan Harga barang")
Exit Sub
End If
If Val(barang060.Text) = 0 Then
MsgBox("Masukkan jumlah barang")
Exit Sub
End If
'b'
Dim dr As DataRow
dr = dt.NewRow
dr("KODEBARANG") = kb060.Text
dr("UNIT") = unit060.Text
dr("HARGA") = barang060.Text
dt.Rows.Add(dr)
'c'
kb060.Text = ""
unit060.Text = ""
barang060.Text = ""
End Sub
Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
'a'
If NT.Text.Length = 0 Then
MsgBox("No. transaksi sudah ada")
Exit Sub
End If
If jt.Text.Length = 0 Then
MsgBox("Jenis transaksi sudah ada")
Exit Sub
End If
'b'
If dt.Rows.Count = 0 Then
MsgBox("Jumlah baris tidak terisi")
Exit Sub
End If
'c'
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT.Text, 1, A)
If pencari.JumlanBaris > 0 Then
MsgBox("data tersebut sudah ada")
Exit Sub
End If
'd'
Dim CM As New OleDb.OleDbCommand
CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jt.Text & "')", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
'e'
For Each X As DataRow In dt.Rows
CM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT.Text & "','" & X("KODEBARANG") & "', " & X("UNIT") & ", " & X("HARGA") & ")", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM.Dispose()
Next
'f'
NT.Text = ""
jt.Text = ""
'g'
dt.Rows.Clear()
End Sub
End Class
Dim A As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim dt As New DataTable
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim X As New OleDb.OleDbDataAdapter
X = New OleDb.OleDbDataAdapter("Select KODEBARANG, UNIT, HARGA from DETAILTRANSAKSI WHERE NOTRANS= '" & NT.Text & "'", A)
X.Fill(dt)
X.Dispose()
DGV060.DataSource = dt
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
'a'
If kb060.Text.Length = 0 Then
MsgBox("Kode barang sudah ada")
Exit Sub
End If
If Val(unit060.Text) = 0 Then
MsgBox("Masukkan Harga barang")
Exit Sub
End If
If Val(barang060.Text) = 0 Then
MsgBox("Masukkan jumlah barang")
Exit Sub
End If
'b'
Dim dr As DataRow
dr = dt.NewRow
dr("KODEBARANG") = kb060.Text
dr("UNIT") = unit060.Text
dr("HARGA") = barang060.Text
dt.Rows.Add(dr)
'c'
kb060.Text = ""
unit060.Text = ""
barang060.Text = ""
End Sub
Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
'a'
If NT.Text.Length = 0 Then
MsgBox("No. transaksi sudah ada")
Exit Sub
End If
If jt.Text.Length = 0 Then
MsgBox("Jenis transaksi sudah ada")
Exit Sub
End If
'b'
If dt.Rows.Count = 0 Then
MsgBox("Jumlah baris tidak terisi")
Exit Sub
End If
'c'
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT.Text, 1, A)
If pencari.JumlanBaris > 0 Then
MsgBox("data tersebut sudah ada")
Exit Sub
End If
'd'
Dim CM As New OleDb.OleDbCommand
CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT.Text & "', #" & tgl.Value.Month & "/" & tgl.Value.Day & "/" & tgl.Value.Year & "#, '" & jt.Text & "')", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
'e'
For Each X As DataRow In dt.Rows
CM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT.Text & "','" & X("KODEBARANG") & "', " & X("UNIT") & ", " & X("HARGA") & ")", A)
A.Open()
CM.ExecuteNonQuery()
A.Close()
CM.Dispose()
Next
'f'
NT.Text = ""
jt.Text = ""
'g'
dt.Rows.Clear()
End Sub
End Class
Langganan:
Postingan (Atom)