Jumat, 18 November 2011

Latihan 40 APKOM 4 D3C

Diposting oleh di

36 komentar:

  1. Younha Sangga26 November 2011 pukul 17.55

    Public Class Latihan_40a_36109058
    Dim yunha 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 yunhi()
    'Membersihkan detailtransaksi lalu mastertransaksi'
    dt1.Rows.Clear()
    dt.Rows.Clear()

    Dim B1 As New OleDb.OleDbDataAdapter
    B1 = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", yunha)
    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", yunha)
    B1.Fill(dt1)

    B1.Dispose()
    End Sub

    Private Sub Latihan_40a_36109058_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    yunhi()

    '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'
    DataGridView1.DataSource = Bsource1
    DataGridView2.DataSource = Bsource2
    End Sub

    BalasHapus
  2. Younha Sangga26 November 2011 pukul 17.56

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
    Dim z As New OleDb.OleDbCommand
    z = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS='" & DataGridView1.CurrentRow.Cells("NOTRANS").Value & "'", yunha)
    yunha.Open()
    z.ExecuteNonQuery()
    yunha.Close()

    z = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & DataGridView1.CurrentRow.Cells("NOTRANS").Value & "'", yunha)
    yunha.Open()
    z.ExecuteNonQuery()
    yunha.Close()

    z.Dispose()

    yunhi ()
    End Sub

    Private Sub edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit.Click
    If Latihan_40b_36109058.Visible = False Then
    Latihan_40b_36109058.Show()
    Else
    Latihan_40b_36109058.Activate()
    End If

    Latihan_40b_36109058.StatusStrip1.Text = DataGridView1.CurrentRow.Cells("NOTRANS").Value
    Latihan_40b_36109058.a058.Text = DataGridView1.CurrentRow.Cells("NOTRANS").Value
    Latihan_40b_36109058.b058.Text = DataGridView1.CurrentRow.Cells("JENISTRANSAKSI").Value

    Latihan_40b_36109058.dandy()
    Latihan_40b_36109058.TOTALJUMLAH()
    End Sub

    Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
    If Latihan_40b_36109058.Visible = False Then
    Latihan_40b_36109058.Show()
    Else
    Latihan_40b_36109058.Activate()
    End If

    Latihan_40b_36109058.StatusStrip1.Text = "-"
    Latihan_40b_36109058.a058.Text = ""
    Latihan_40b_36109058.b058.Text = ""

    Latihan_40b_36109058.dandy()
    Latihan_40b_36109058.TOTALJUMLAH()

    End Sub
    End Class

    BalasHapus
  3. Younha Sangga26 November 2011 pukul 18.03

    Public Class Latihan_40b_36109058
    Dim yunha As New OleDb.OleDbConnection("Provider=microsoft.ACE.OLEDB.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb")
    Dim DATA As New DataTable
    Public Sub dandy()
    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= '" & a058.Text & "'", yunha)
    DATA.Rows.Clear()
    X.Fill(DATA)
    End Sub

    Private Sub Latihan_40b_36109058_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

    DataGridView1.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
    c058.Text = TOT
    End Sub
    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
    If DataGridView1.Columns(e.ColumnIndex).Name = "KODEBARANG" Then
    'Cari nama barang'
    DataGridView1.CurrentRow.Cells("NAMABARANG").Value = ""
    DataGridView1.CurrentRow.Cells("UNIT").Value = 0
    DataGridView1.CurrentRow.Cells("HARGA").Value = 0
    DataGridView1.CurrentRow.Cells("JUMLAH").Value = 0

    Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
    Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", DataGridView1.CurrentRow.Cells("KODEBARANG").Value, 1, yunha)
    'Menampilkan nama barang jika isi kolom kodebarang ditemukan oleh proses diatas'
    If Pencari.JumlanBaris > 0 Then
    DataGridView1.CurrentRow.Cells("NAMABARANG").Value = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
    Else
    DataGridView1.CurrentRow.Cells("KODEBARANG").Value = ""
    If latihan_383940058.ShowDialog = Windows.Forms.DialogResult.OK Then
    DataGridView1.CurrentRow.Cells("KODEBARANG").Value = latihan_383940058.DataGridView1.CurrentRow.Cells("KODEBARANG").Value
    DataGridView1.CurrentRow.Cells("NAMABARANG").Value = latihan_383940058.DataGridView1.CurrentRow.Cells("NAMABARANG").Value
    End If
    End If

    ElseIf DataGridView1.Columns(e.ColumnIndex).Name = "UNIT" Or DataGridView1.Columns(e.ColumnIndex).Name = "HARGA" Then
    'Hitung kolom jumlah'
    DataGridView1.CurrentRow.Cells("JUMLAH").Value = DataGridView1.CurrentRow.Cells("UNIT").Value * DataGridView1.CurrentRow.Cells("HARGA").Value
    End If

    TOTALJUMLAH()
    End Sub

    BalasHapus
  4. Younha Sangga26 November 2011 pukul 18.06

    Private Sub simpan_tambah()
    If a058.Text.Length = 0 Then
    MsgBox("Maaf, Nomor transaksi harus diisi dulu")
    Exit Sub
    End If

    If b058.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 <> a058.Text Then
    Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
    pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", a058.Text, 1, yunha)
    If pencari.JumlanBaris > 0 Then
    MsgBox("Nomor transaksi sudah ada")
    Exit Sub
    End If
    End If

    Dim z As New OleDb.OleDbCommand
    z = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI(NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & a058.Text & "', #" & DateTimePicker1.Value.Month & "/" & DateTimePicker1.Value.Day & "/" & DateTimePicker1.Value.Year & "#, '" & b058.Text & "')", yunha)
    'Membuka koneksi'
    yunha.Open()
    'Eksekusi prose penyimpanan'
    z.ExecuteNonQuery()
    'Menutup koneksi'
    yunha.Close()

    'Memeriksa isi jumlah baris dalam object tabel'
    For Each X As DataRow In DATA.Rows
    'Mengatur perintah simpan'
    z = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & a058.Text & "', '" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", yunha)
    yunha.Open()
    z.ExecuteNonQuery()
    yunha.Close()
    z.Dispose()
    Next

    StatusStrip1.Text = "-"
    a058.Text = ""
    b058.Text = ""

    DATA.Rows.Clear()

    TOTALJUMLAH()
    'Prosedur mengambil data dari Latihan40A017'
    Latihan_40a_36109058.yunhi()

    End Sub

    BalasHapus
  5. Younha Sangga26 November 2011 pukul 18.07

    Private Sub simpan_edit()
    If a058.Text.Length = 0 Then
    MsgBox("Maaf, Nomor transaksi harus diisi dulu")
    Exit Sub
    End If

    If b058.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 <> a058.Text Then
    Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
    pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", a058.Text, 1, yunha)
    If pencari.JumlanBaris > 0 Then
    MsgBox("Nomor transaksi sudah ada")
    Exit Sub
    End If
    End If

    Dim z As New OleDb.OleDbCommand
    z = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS= '" & a058.Text & "'", yunha)
    yunha.Open()
    z.ExecuteNonQuery()
    yunha.Close()

    z = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & a058.Text & "', #" & DateTimePicker1.Value.Month & "/" & DateTimePicker1.Value.Day & "/" & DateTimePicker1.Value.Year & "#, '" & b058.Text & "')", yunha)
    yunha.Open()
    z.ExecuteNonQuery()
    yunha.Close()

    z = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS= '" & a058.Text & "'", yunha)
    yunha.Open()
    z.ExecuteNonQuery()
    yunha.Close()

    'Memeriksa isi jumlah baris dalam object tabel'
    For Each XX As DataRow In DATA.Rows
    'Mengatur perintah simpan'
    z = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & a058.Text & "', '" & XX("KODEBARANG") & "', " & XX("UNIT") & ", " & XX("HARGA") & ")", yunha)
    yunha.Open()
    z.ExecuteNonQuery()
    yunha.Close()
    z.Dispose()
    Next

    StatusStrip1.Text = "-"
    a058.Text = ""
    b058.Text = ""

    DATA.Rows.Clear()

    TOTALJUMLAH()
    Latihan_40a_36109058.yunhi()
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
    If StatusStrip1.Text = "-" Then
    simpan_tambah()
    Else
    simpan_edit()
    End If
    End Sub
    End Class

    BalasHapus
  6. Anonim27 November 2011 pukul 01.19

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  7. kartikalady_croft29 November 2011 pukul 02.22

    http://kartika139.blogspot.com/2011/11/latihan-40.html

    BalasHapus
  8. kartikalady_croft29 November 2011 pukul 02.23

    http://kartika139.blogspot.com/2011/11/latihan-40b.html

    BalasHapus
  9. firman nur1 Desember 2011 pukul 19.05

    Muhammad Nur


    Public Class Latihan040A077

    Dim n 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", n)
    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", n)
    B1.Fill(dt1)

    B1.Dispose()

    End Sub

    Private Sub Latihan40A017_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'
    DGV40A1.DataSource = Bsource1
    DGV40A2.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='" & DGV40A1.CurrentRow.Cells("NOTRANS").Value & "'", n)
    n.Open()
    CM.ExecuteNonQuery()
    n.Close()

    CM = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & DGV40A1.CurrentRow.Cells("NOTRANS").Value & "'", n)
    n.Open()
    CM.ExecuteNonQuery()
    n.Close()

    CM.Dispose()

    ina()

    End Sub

    BalasHapus
  10. firman nur1 Desember 2011 pukul 19.06

    Private Sub Edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit.Click
    If Latihan040B077.Visible = False Then
    Latihan040B077.Show()
    Else
    Latihan040B077.Activate()
    End If

    Latihan040B077.NO1.Text = DGV40A1.CurrentRow.Cells("NOTRANS").Value
    Latihan040B077.NOTRANS077.Text = DGV40A1.CurrentRow.Cells("NOTRANS").Value
    Latihan040B077.JT077.Text = DGV40A1.CurrentRow.Cells("JENISTRANSAKSI").Value

    Latihan040B077.NURLINA()
    Latihan040B077.TOTALJUMLAH()
    End Sub

    Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click
    If Latihan040B077.Visible = False Then
    Latihan040B077.Show()
    Else
    Latihan040B077.Activate()
    End If

    Latihan040B077.NO1.Text = "-"
    Latihan040B077.NOTRANS077.Text = ""
    Latihan040B077.JT077.Text = ""

    Latihan040B077.NURLINA()
    Latihan040B077.TOTALJUMLAH()

    End Sub
    End Class

    BalasHapus
  11. KrisnaSaman1 Desember 2011 pukul 19.06

    http://krisnasaman-teddybear.blogspot.com/2011/12/latihan40a.html

    BalasHapus
  12. firman nur1 Desember 2011 pukul 19.09

    Muhammad Nur


    Public Class Latihan040B077

    Dim n 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= '" & NOTRANS077.Text & "'", n)
    DATA.Rows.Clear()
    X.Fill(DATA)
    End Sub

    Private Sub Latihan040B077_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

    DGV40B.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
    TOTAL077.Text = TOT

    End Sub

    Private Sub DGV40B_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV40B.CellEndEdit
    If DGV40B.Columns(e.ColumnIndex).Name = "KODEBARANG" Then
    'Cari nama barang'
    DGV40B.CurrentRow.Cells("NAMABARANG").Value = ""
    DGV40B.CurrentRow.Cells("UNIT").Value = 0
    DGV40B.CurrentRow.Cells("HARGA").Value = 0
    DGV40B.CurrentRow.Cells("JUMLAH").Value = 0

    Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
    Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", DGV40B.CurrentRow.Cells("KODEBARANG").Value, 1, n)
    'Menampilkan nama barang jika isi kolom kodebarang ditemukan oleh proses diatas'
    If Pencari.JumlanBaris > 0 Then
    DGV40B.CurrentRow.Cells("NAMABARANG").Value = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
    Else
    DGV40B.CurrentRow.Cells("KODEBARANG").Value = ""
    If Latihan0383940077.ShowDialog = Windows.Forms.DialogResult.OK Then
    DGV40B.CurrentRow.Cells("KODEBARANG").Value = Latihan0383940077.DGV38.CurrentRow.Cells("KODEBARANG").Value
    DGV40B.CurrentRow.Cells("NAMABARANG").Value = Latihan0383940077.DGV38.CurrentRow.Cells("NAMABARANG").Value
    End If
    End If

    ElseIf DGV40B.Columns(e.ColumnIndex).Name = "UNIT" Or DGV40B.Columns(e.ColumnIndex).Name = "HARGA" Then
    'Hitung kolom jumlah'
    DGV40B.CurrentRow.Cells("JUMLAH").Value = DGV40B.CurrentRow.Cells("UNIT").Value * DGV40B.CurrentRow.Cells("HARGA").Value
    End If

    TOTALJUMLAH()
    End Sub

    BalasHapus
  13. firman nur1 Desember 2011 pukul 19.10

    Private Sub Simpan_tambah()
    If NOTRANS077.Text.Length = 0 Then
    MsgBox("Maaf, Nomor transaksi harus diisi dulu")
    Exit Sub
    End If

    If JT077.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 <> NOTRANS077.Text Then
    Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
    pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NOTRANS077.Text, 1, n)
    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 ('" & NOTRANS077.Text & "', #" & DateTimePicker.Value.Month & "/" & DateTimePicker.Value.Day & "/" & DateTimePicker.Value.Year & "#, '" & JT077.Text & "')", n)
    'Membuka koneksi'
    n.Open()
    'Eksekusi prose penyimpanan'
    CM.ExecuteNonQuery()
    'Menutup koneksi'
    n.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 ('" & NOTRANS077.Text & "', '" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", n)
    n.Open()
    CM.ExecuteNonQuery()
    n.Close()
    CM.Dispose()
    Next

    NO1.Text = "-"
    NOTRANS077.Text = ""
    JT077.Text = ""

    DATA.Rows.Clear()

    TOTALJUMLAH()
    'Prosedur mengambil data dari Latihan40A017'
    Latihan040A077.ina()
    End Sub

    BalasHapus
  14. KrisnaSaman1 Desember 2011 pukul 19.10

    http://krisnasaman-teddybear.blogspot.com/2011/12/latihan40b.html

    BalasHapus
  15. firman nur1 Desember 2011 pukul 19.10

    Private Sub Simpan_edit()
    If NOTRANS077.Text.Length = 0 Then
    MsgBox("Maaf, Nomor transaksi harus diisi dulu")
    Exit Sub
    End If

    If JT077.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 <> NOTRANS077.Text Then
    Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
    pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NOTRANS077.Text, 1, n)
    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= '" & NOTRANS077.Text & "'", n)
    n.Open()
    CM.ExecuteNonQuery()
    n.Close()

    CM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NOTRANS077.Text & "', #" & DateTimePicker.Value.Month & "/" & DateTimePicker.Value.Day & "/" & DateTimePicker.Value.Year & "#, '" & JT077.Text & "')", n)
    n.Open()
    CM.ExecuteNonQuery()
    n.Close()

    CM = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS= '" & NOTRANS077.Text & "'", n)
    n.Open()
    CM.ExecuteNonQuery()
    n.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 ('" & NOTRANS077.Text & "', '" & XX("KODEBARANG") & "', " & XX("UNIT") & ", " & XX("HARGA") & ")", n)
    n.Open()
    CM.ExecuteNonQuery()
    n.Close()
    CM.Dispose()
    Next

    NO1.Text = "-"
    NOTRANS077.Text = ""
    JT077.Text = ""

    DATA.Rows.Clear()

    TOTALJUMLAH()
    Latihan040A077.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

    BalasHapus
  16. asni1 Desember 2011 pukul 19.33

    http://winnymatarru.blogspot.com/2011/12/latihan-40a.html

    BalasHapus
  17. asni1 Desember 2011 pukul 19.34

    http://winnymatarru.blogspot.com/2011/12/latihan-40b.html

    BalasHapus
  18. Valenndut1 Desember 2011 pukul 21.17

    http://valenndut.blogspot.com/2011/12/latihan-40a.html

    BalasHapus
  19. Valenndut1 Desember 2011 pukul 21.19

    http://valenndut.blogspot.com/2011/12/latihan-40b.html

    BalasHapus
  20. evianty_3vhy31 Desember 2011 pukul 21.23

    http://elayuck.blogspot.com/2011/12/latihan-40a.html

    BalasHapus
  21. evianty_3vhy31 Desember 2011 pukul 21.25

    http://elayuck.blogspot.com/2011/12/latihan-40b.html

    BalasHapus
  22. 4nHyTomb1 Desember 2011 pukul 23.26

    http://urimoktaviana.blogspot.com/2011/12/latihan-40a.html

    BalasHapus
  23. 4nHyTomb1 Desember 2011 pukul 23.28

    http://urimoktaviana.blogspot.com/2011/12/latihan-40b.html

    BalasHapus
  24. Pute_Zone2 Desember 2011 pukul 00.58

    http://pute991.blogspot.com/2011/12/latihan-40a.html

    BalasHapus
  25. Pute_Zone2 Desember 2011 pukul 00.59

    http://pute991.blogspot.com/2011/12/latihan-40b.html

    BalasHapus
  26. sarshe2 Desember 2011 pukul 02.41

    http://sarshe-sarshe.blogspot.com/2011/12/latihan-040a36109060.html

    BalasHapus
  27. sarshe2 Desember 2011 pukul 02.43

    http://sarshe-sarshe.blogspot.com/2011/12/latihan-040b36109060.html

    BalasHapus
  28. aditya.Deriel2 Desember 2011 pukul 06.26

    http://derielrangers.blogspot.com/2011/12/form-40a.html

    BalasHapus
  29. aditya.Deriel2 Desember 2011 pukul 06.30

    http://derielrangers.blogspot.com/2011/12/form-40b.html

    BalasHapus
  30. Anonim2 Desember 2011 pukul 07.31

    (36109057)
    fatma sari
    Latihan 40a
    http://fatmacmr.blogspot.com/2011/12/latihan-40a.html

    latihan 40b
    http://fatmacmr.blogspot.com/2011/12/latihan-40b.html

    BalasHapus
  31. lilis mulyani3 Desember 2011 pukul 18.40

    http://meylin-meylanierlangga.blogspot.com/2011/12/latihan-40a.html

    BalasHapus
  32. lilis mulyani4 Desember 2011 pukul 20.45

    http://meylin-meylanierlangga.blogspot.com/2011/12/latihan-40b.html

    BalasHapus
  33. catherine parubak6 Desember 2011 pukul 03.48

    http://parubakcatherine.blogspot.com/2011/12/latihan-40a.html

    BalasHapus
  34. catherine parubak6 Desember 2011 pukul 04.03

    http://parubakcatherine.blogspot.com/2011/12/latihan-40b.html

    BalasHapus
  35. A. A. Gede Dalem P. Putra15 Desember 2011 pukul 19.57

    40a
    http://hantualis.blogspot.com/2011/12/form-40a-apkom-4.html

    dan

    40b
    http://hantualis.blogspot.com/2011/12/form-40b-apkom-4.html

    BalasHapus
  36. (L).Gunawan.Mustari29 Desember 2011 pukul 23.25

    http://gunawanmustari.blogspot.com/2011/12/latihan-40.html

    BalasHapus

Langganan: Posting Komentar (Atom)