Jumat, 18 November 2011

Latihan 38 APKOM 4 D3C

31 komentar:

  1. Muhammad Nur


    Public Class Latihan038077
    Dim n 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 Latihan038077_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= '" & NOTRANS077.Text & "'", n)
    X.Fill(dt)
    X.Dispose()

    Dim dataPrimary(1) As DataColumn
    dataPrimary(0) = dt.Columns("KODEBARANG")
    dt.PrimaryKey = dataPrimary

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

    End Sub

    Private Sub KB_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB077.Leave
    If KB077.Text.Length = 0 Then
    Exit Sub
    End If

    Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
    Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", KB077.Text, 1, n)
    If Pencari.JumlanBaris > 0 Then
    KB077.Text = Pencari.DataTablenya.Rows(0).Item("KODEBARANG")
    NB077.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
    Else
    MsgBox("Kode barang tersebut tidak ada")
    If Latihan0383940077.ShowDialog = Windows.Forms.DialogResult.OK Then
    KB077.Text = Latihan0383940077.DGV38.CurrentRow.Cells("KodeBarang").Value
    NB077.Text = Latihan0383940077.DGV38.CurrentRow.Cells("NamaBarang").Value
    Else
    KB077.Text = ""
    End If
    End If
    End Sub

    Private Sub KB_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB077.TextChanged
    NB077.Text = ""
    UNIT077.Text = ""
    HB077.Text = ""
    End Sub

    Private Sub UNIT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UNIT077.TextChanged, HB077.TextChanged
    JUM077.Text = Val(UNIT077.Text) * Val(HB077.Text)
    End Sub

    BalasHapus
  2. Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click
    'a'
    If KB077.Text.Length = 0 Then
    MsgBox("Kode barang sudah ada")
    Exit Sub
    End If

    If NB077.Text.Length = 0 Then
    MsgBox("Nama barang sudah ada")
    End If

    If Val(UNIT077.Text) = 0 Then
    MsgBox("Masukkan unit barang")
    Exit Sub
    End If

    If Val(HB077.Text) = 0 Then
    MsgBox("Masukkan harga barang barang")
    Exit Sub
    End If

    'b'
    dr = dt.Rows.Find(KB077.Text)

    If dr Is Nothing Then
    dr = dt.NewRow
    dr("KODEBARANG") = KB077.Text
    Else
    MsgBox("Maaf kodebarang sudah ada")
    Exit Sub
    End If

    'c'
    dr = dt.NewRow
    dr("KODEBARANG") = KB077.Text
    dr("NAMABARANG") = NB077.Text
    dr("UNIT") = UNIT077.Text
    dr("HARGA") = HB077.Text
    dr("JUMLAH") = JUM077.Text

    dt.Rows.Add(dr)

    'd'
    KB077.Text = ""
    NB077.Text = ""
    UNIT077.Text = ""
    HB077.Text = ""

    'e'
    TOTALJUMLAH()
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
    'a'
    If NOTRANS077.Text.Length = 0 Then
    MsgBox("No. transaksi sudah ada")
    Exit Sub
    End If

    If JT077.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", NOTRANS077.Text, 1, n)
    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 ('" & NOTRANS077.Text & "', #" & DateTimePicker.Value.Month & "/" & DateTimePicker.Value.Day & "/" & DateTimePicker.Value.Year & "#, '" & JT077.Text & "')", n)
    n.Open()
    CM.ExecuteNonQuery()
    n.Close()

    'e'
    For Each X As DataRow In dt.Rows
    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

    'f'
    NOTRANS077.Text = ""
    JT077.Text = ""
    JUM077.Text = ""

    'g'
    dt.Rows.Clear()

    'h'
    TOTALJUMLAH()
    End Sub
    End Class

    BalasHapus
  3. Public Class latihan_38_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 dr As DataRow

    Private Sub latihan_38_36109058_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= '" & a058.Text & "'", yunha)
    X.Fill(dt)
    X.Dispose()

    Dim dataPrimary(1) As DataColumn
    dataPrimary(0) = dt.Columns("KODEBARANG")
    dt.PrimaryKey = dataPrimary

    DataGridView1.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 c058_leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c058.Leave
    If c058.Text.Length = 0 Then
    Exit Sub
    End If

    Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
    Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", c058.Text, 1, yunha)
    If Pencari.JumlanBaris > 0 Then
    c058.Text = Pencari.DataTablenya.Rows(0).Item("KODEBARANG")
    d058.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
    Else
    MsgBox("Kode barang tersebut tidak ada")
    If latihan 383940058.ShowDialog = Windows.Forms.DialogResult.OK Then
    c058.Text = latihan 383940058.DataGridView1.CurrentRow.Cells("KodeBarang").Value
    d058.Text = latihan383940058.DataGridView1.CurrentRow.Cells("NamaBarang").Value
    Else
    c058.Text = ""
    End If
    End If
    End Sub

    Private Sub c058_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c058.TextChanged
    d058.Text = ""
    ee058.Text = ""
    f058.Text = ""
    End Sub

    Private Sub ee058_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ee058.TextChanged
    g058.Text = Val(ee058.Text) * Val(f058.Text)
    End Sub

    BalasHapus
  4. Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
    'a'
    If c058.Text.Length = 0 Then
    MsgBox("Kode barang sudah ada")
    Exit Sub
    End If

    If d058.Text.Length = 0 Then
    MsgBox("Nama barang sudah ada")
    End If

    If Val(ee058.Text) = 0 Then
    MsgBox("Masukkan unit barang")
    Exit Sub
    End If

    If Val(f058.Text) = 0 Then
    MsgBox("Masukkan harga barang barang")
    Exit Sub
    End If

    'b'
    dr = dt.Rows.Find(c058.Text)

    If dr Is Nothing Then
    dr = dt.NewRow
    dr("KODEBARANG") = c058.Text
    Else
    MsgBox("Maaf kodebarang sudah ada")
    Exit Sub
    End If

    'c'
    dr = dt.NewRow
    dr("KODEBARANG") = c058.Text
    dr("NAMABARANG") = d058.Text
    dr("UNIT") = ee058.Text
    dr("HARGA") = f058.Text
    dr("JUMLAH") = g058.Text

    dt.Rows.Add(dr)

    'd'
    c058.Text = ""
    d058.Text = ""
    ee058.Text = ""
    f058.Text = ""

    'e'
    TOTALJUMLAH()
    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
    'a'
    If a058.Text.Length = 0 Then
    MsgBox("No. transaksi sudah ada")
    Exit Sub
    End If

    If b058.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", a058.Text, 1, yunha)
    If pencari.JumlanBaris > 0 Then
    MsgBox("data tersebut sudah ada")
    Exit Sub
    End If

    'd'
    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)
    yunha.Open()
    z.ExecuteNonQuery()
    yunha.Close()

    'e'
    For Each X As DataRow In dt.Rows
    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

    'f'
    a058.Text = ""
    b058.Text = ""
    g058.Text = ""

    'g'
    dt.Rows.Clear()

    'h'
    TOTALJUMLAH()
    End Sub
    End Class

    BalasHapus
  5. Public Class Latihan_38_09081
    Dim dt As New DataTable
    Dim OLC As New OleDb.OleDbCommand
    Dim yusri As New ByIskandar.CariKeDataBaseByIskandar
    Dim ian As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

    Private Sub Latihan_38_09081_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim a As New OleDb.OleDbDataAdapter
    a = New OleDb.OleDbDataAdapter("select 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 = '" & notr081.Text & "'", ian)
    a.Fill(dt)
    a.Dispose()

    Dim dc(1) As DataColumn
    dc(0) = dt.Columns("Kodebarang")
    dt.PrimaryKey = dc

    dgv081.DataSource = dt
    End Sub

    Private Sub yusrian()
    Dim yusrian1 As Integer = 0
    For Each yusrian2 As DataRow In dt.Rows
    yusrian1 += yusrian2("JUMLAH")
    Next
    tot081.Text = yusrian1
    End Sub

    Private Sub unt081_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unt081.TextChanged, hrg081.TextChanged
    jmlh081.Text = Val(unt081.Text) * Val(hrg081.Text)
    End Sub

    Private Sub kodbar081_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles kodbar081.Leave
    If kodbar081.Text.Length = 0 Then
    Exit Sub
    End If
    yusri.AturPencarianDataBase("barang", "kodebarang", kodbar081.Text, 1, ian)
    If yusri.JumlanBaris > 0 Then
    kodbar081.Text = yusri.DataTablenya.Rows(0).Item("KODEBARANG")
    nabar081.Text = yusri.DataTablenya.Rows(0).Item("NAMABARANG")
    Else
    MsgBox("Maaf kode barang tersebut tidak ada")
    If Latihan_38_39_40_09081.ShowDialog = Windows.Forms.DialogResult.OK Then
    kodbar081.Text = Latihan_38_39_40_09081.dgv081.CurrentRow.Cells("kodebarang").Value
    nabar081.Text = Latihan_38_39_40_09081.dgv081.CurrentRow.Cells("namabarang").Value
    Else
    kodbar081.Text = ""
    End If
    End If
    End Sub

    Private Sub kodbar081_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodbar081.TextChanged
    nabar081.Text = ""
    unt081.Text = ""
    hrg081.Text = ""
    End Sub

    BalasHapus
  6. Private Sub tmbh081_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmbh081.Click
    If kodbar081.Text.Length = 0 Then
    MsgBox("Mohon kolom Kode Barang diisi")
    Exit Sub
    End If

    If Val(unt081.Text) = 0 Then
    MsgBox("Mohon Kolon unitnya diisi")
    Exit Sub
    End If

    If Val(hrg081.Text) = 0 Then
    MsgBox("Mohon Kolom Harga barang diisi")
    Exit Sub
    End If

    Dim dr As DataRow
    dr = dt.Rows.Find(kodbar081.Text)
    If dr Is Nothing Then
    dr = dt.NewRow
    dr("KODEBARANG") = kodbar081.Text
    dr("NAMABARANG") = nabar081.Text
    dr("UNIT") = unt081.Text
    dr("HARGA") = hrg081.Text
    dr("JUMLAH") = jmlh081.Text

    dt.Rows.Add(dr)

    kodbar081.Text = ""
    unt081.Text = ""
    hrg081.Text = ""

    Else
    MsgBox("Kode barang tersebut sudah ada, mohon diganti ")
    End If
    yusrian()
    End Sub

    Private Sub save081_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save081.Click
    If notr081.Text.Length = 0 Then
    MsgBox("Mohon Kolom No transaksi diisi")
    Exit Sub
    End If

    If jetr081.Text.Length = 0 Then
    MsgBox("Mohon Kolom Jenis Transaksi diisi")
    Exit Sub
    End If

    If dt.Rows.Count = 0 Then
    MsgBox("Mohon datatabelnya diisi.")
    Exit Sub
    End If

    yusri.AturPencarianDataBase("mastertransaksi", "notrans", notr081.Text, 1, ian)
    If yusri.JumlanBaris > 0 Then
    MsgBox("Maaf No.transaksi tersebut sudah ada")
    Exit Sub
    End If

    OLC = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & notr081.Text & "',#" & tgl081.Value.Month & "/" & tgl081.Value.Day & "/" & tgl081.Value.Year & "#,'" & jetr081.Text & "')", ian)
    ian.Open()
    OLC.ExecuteNonQuery()
    ian.Close()

    For Each x As DataRow In dt.Rows
    OLC = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & notr081.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", ian)
    ian.Open()
    OLC.ExecuteNonQuery()
    ian.Close()
    Next
    OLC.Dispose()

    notr081.Text = ""
    jetr081.Text = ""

    dt.Rows.Clear()
    yusrian()
    End Sub
    End Class

    BalasHapus
  7. Public Class Latihan_38_39_40_09081
    Dim dt As New DataTable
    Dim ian As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

    Private Sub Latihan_38_39_40_09081_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim a As New OleDb.OleDbDataAdapter
    a = New OleDb.OleDbDataAdapter("SELECT * FROM BARANG", ian)
    dt.Rows.Clear()
    a.Fill(dt)
    a.Dispose()

    dgv081.DataSource = dt
    End Sub
    End Class

    BalasHapus
  8. http://kartika139.blogspot.com/2011/11/latihan-38.html

    BalasHapus
  9. http://kartika139.blogspot.com/2011/11/latihan-38b.html

    BalasHapus
  10. http://krisnasaman-teddybear.blogspot.com/2011/12/latihan38.html

    BalasHapus
  11. http://krisnasaman-teddybear.blogspot.com/2011/12/latihan383940.html

    BalasHapus
  12. http://winnymatarru.blogspot.com/2011/12/latihan-38a_01.html

    BalasHapus
  13. http://winnymatarru.blogspot.com/2011/12/latihan-383940.html

    BalasHapus
  14. http://younhasiwon.blogspot.com/2011/12/latihan-383940058.html

    BalasHapus
  15. http://meylin-meylanierlangga.blogspot.com/2011/12/latihan-38.html

    BalasHapus
  16. http://meylin-meylanierlangga.blogspot.com/2011/12/latihan-3839-dan-40.html

    BalasHapus
  17. http://elayuck.blogspot.com/2011/12/latihan-38.html

    BalasHapus
  18. http://valenndut.blogspot.com/2011/12/latihan-38.html

    BalasHapus
  19. http://valenndut.blogspot.com/2011/12/latihan-383940.html

    BalasHapus
  20. http://elayuck.blogspot.com/2011/12/latihan-383940.html

    BalasHapus
  21. http://sarshe-sarshe.blogspot.com/2011/12/latihan03836109060.html

    BalasHapus
  22. http://sarshe-sarshe.blogspot.com/2011/12/latihan038394036109060.html

    BalasHapus
  23. http://urimoktaviana.blogspot.com/2011/12/latihan-38.html

    BalasHapus
  24. http://urimoktaviana.blogspot.com/2011/12/latihan-383940.html

    BalasHapus
  25. http://derielrangers.blogspot.com/2011/12/form-38.html

    BalasHapus
  26. http://pute991.blogspot.com/2011/12/latihan-38.html

    BalasHapus
  27. (36109057)
    fatma sari
    http://fatmacmr.blogspot.com/2011/12/latihan-38.html

    BalasHapus
  28. http://parubakcatherine.blogspot.com/2011/12/latihan-38.html

    BalasHapus
  29. http://parubakcatherine.blogspot.com/2011/12/latihan-383940.html

    BalasHapus
  30. http://hantualis.blogspot.com/2011/12/form-38-apkom-4.html

    dan

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

    BalasHapus
  31. http://gunawanmustari.blogspot.com/2011/12/latihan-38.html

    dan

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

    BalasHapus