Jumat, 18 November 2011

Latihan 38 APKOM 4 D4A

Diposting oleh di

48 komentar:

  1. Dwitya Saadah Suaib12 Desember 2011 pukul 03.49

    Public Class Latihan038_46109001

    Dim wiwi As New DataTable
    Dim dwitya As New OleDb.OleDbCommand
    Dim saadah 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=ngekngek")
    Private Sub Latihan_38_46109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim dwityasaadahsuaib As New OleDb.OleDbDataAdapter
    dwityasaadahsuaib = 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 ='" & NT46109001.Text & "'", conect)
    wiwi.Rows.Clear()
    dwityasaadahsuaib.Fill(wiwi)
    dwityasaadahsuaib.Dispose()

    Dim dpc(1) As DataColumn
    dpc(0) = wiwi.Columns("kodebarang")
    wiwi.PrimaryKey = dpc

    DATA46109001.DataSource = wiwi
    End Sub

    Private Sub ting()
    Dim ting1 As Integer = 0
    For Each ting2 As DataRow In wiwi.Rows
    ting1 += ting2("JUMLAH")
    Next
    TOT46109001.Text = ting1
    End Sub

    Private Sub UN46109001_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UN46109001.TextChanged, HR46109001.TextChanged
    JM46109001.Text = Val(UN46109001.Text) * Val(HR46109001.Text)
    End Sub

    Private Sub KB46109001_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles KB46109001.TextChanged
    NB46109001.Text = ""
    HR46109001.Text = ""
    UN46109001.Text = ""
    End Sub

    Private Sub KB46109001_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB46109001.Leave
    If KB46109001.Text.Length = 0 Then
    Exit Sub
    End If
    saadah.AturPencarianDataBase("barang", "kodebarang", KB46109001.Text, 1, conect)
    If saadah.JumlanBaris > 0 Then
    KB46109001.Text = saadah.DataTablenya.Rows(0).Item("KODEBARANG")
    NB46109001.Text = saadah.DataTablenya.Rows(0).Item("NAMABARANG")
    Else
    MsgBox("Kode barang seperti itu tidak ada..")
    If Latihan383940_46109001.ShowDialog = Windows.Forms.DialogResult.OK Then
    KB46109001.Text = Latihan383940_46109001.DATA46109001.CurrentRow.Cells("kodebarang").Value
    NB46109001.Text = Latihan383940_46109001.DATA46109001.CurrentRow.Cells("namabarang").Value
    Else
    KB46109001.Text = ""
    End If
    End If
    End Sub

    BalasHapus
  2. Dwitya Saadah Suaib12 Desember 2011 pukul 03.49

    Private Sub TM46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TM46109001.Click
    If KB46109001.Text.Length = 0 Then
    MsgBox("Isi Kode Barang")
    Exit Sub
    End If

    If Val(UN46109001.Text) = 0 Then
    MsgBox("Isi Unit Barang")
    Exit Sub
    End If

    If Val(HR46109001.Text) = 0 Then
    MsgBox("Isi Harga Barang")
    Exit Sub
    End If

    Dim sule As DataRow
    sule = wiwi.Rows.Find(KB46109001.Text)
    If sule Is Nothing Then
    sule = wiwi.NewRow
    sule("KODEBARANG") = KB46109001.Text
    sule("NAMABARANG") = NB46109001.Text
    sule("UNIT") = Val(UN46109001.Text)
    sule("HARGA") = Val(HR46109001.Text)
    sule("JUMLAH") = Val(JM46109001.Text)

    wiwi.Rows.Add(sule)

    KB46109001.Text = ""
    UN46109001.Text = ""
    HR46109001.Text = ""

    Else
    MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
    End If
    ting()
    End Sub

    Private Sub S46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109001.Click
    If NT46109001.Text.Length = 0 Then
    MsgBox("Isi No Transaksi")
    Exit Sub
    End If

    If JT46109001.Text.Length = 0 Then
    MsgBox("isi Jenis Transaksi")
    Exit Sub
    End If

    If wiwi.Rows.Count = 0 Then
    MsgBox("Isi datatable")
    Exit Sub
    End If

    saadah.AturPencarianDataBase("mastertransaksi", "notrans", NT46109001.Text, 1, conect)
    If saadah.JumlanBaris > 0 Then
    MsgBox("No Trans sudah ada")
    Exit Sub
    End If

    dwitya = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NT46109001.Text & "',#" & T46109001.Value.Month & "/" & T46109001.Value.Day & "/" & T46109001.Value.Year & "#,'" & JT46109001.Text & "')", conect)
    conect.Open()
    dwitya.ExecuteNonQuery()
    conect.Close()

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

    NT46109001.Text = ""
    JT46109001.Text = ""

    wiwi.Rows.Clear()
    ting()
    End Sub
    End Class

    BalasHapus
  3. farid ramli13 Desember 2011 pukul 04.10

    Public Class LATIHAN3839

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;jet OLEDB:database password=12")

    Dim DT As New DataTable
    Dim BARIS As DataRow
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar
    Private Sub LATIHAN035012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim nisa As New OleDb.OleDbDataAdapter
    nisa = New OleDb.OleDbDataAdapter("select KODEBARANG, NAMABARANG FROM BARANG ", CONECT)
    DT.Rows.Clear()
    nisa.Fill(DT)
    DataGridView136109041.DataSource = DT

    nisa.Dispose()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136109041.Click
    BARIS = DT.DefaultView(BindingContext(DT).Position).Row
    LATIHAN038041.nb36109041.Text = BARIS("NAMABARANG")
    End Sub
    End Class

    BalasHapus
  4. WAHDANIAH1 Januari 2012 pukul 17.32

    Public Class LATIHAN38_46109051

    Dim WAHDA As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;jet oledb:database Password=thepinkers29")
    Dim NIAH As New DataTable
    Dim ANI As DataRow

    Private Sub LATIHAN38_46109051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim Z As New OleDb.OleDbDataAdapter
    Z = 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_46109051.Text & "'", WAHDA)
    Z.Fill(NIAH)
    Z.Dispose()

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

    DG_46109051.DataSource = NIAH

    End Sub

    Private Sub TOTALJUMLAH()
    Dim TOT As Double = 0
    For Each Z As DataRow In NIAH.Rows
    TOT = TOT + Z("JUMLAH")
    Next
    TOT_46109051.Text = TOT

    End Sub

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

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

    Private Sub TM_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TM_46109051.Click

    If KB_46109051.Text.Length = 0 Then
    MsgBox("Kode barang sudah ada")
    Exit Sub
    End If

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

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

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

    ANI = NIAH.Rows.Find(KB_46109051.Text)

    If ANI Is Nothing Then
    ANI = NIAH.NewRow
    ANI("KODEBARANG") = KB_46109051.Text
    Else
    MsgBox("Maaf kodebarang sudah ada bos !!!")
    Exit Sub
    End If


    ANI = NIAH.NewRow
    ANI("KODEBARANG") = KB_46109051.Text
    ANI("NAMABARANG") = NB_46109051.Text
    ANI("UNIT") = U_46109051.Text
    ANI("HARGA") = H_46109051.Text
    ANI("JUMLAH") = J_46109051.Text

    NIAH.Rows.Add(ANI)

    KB_46109051.Text = ""
    NB_46109051.Text = ""
    U_46109051.Text = ""
    H_46109051.Text = ""

    TOTALJUMLAH()
    End Sub

    BalasHapus
  5. WAHDANIAH1 Januari 2012 pukul 17.34

    Private Sub KB_46109051_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_46109051.TextChanged
    NB_46109051.Text = ""
    U_46109051.Text = ""
    H_46109051.Text = ""
    End Sub

    Private Sub U_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles U_46109051.TextChanged, H_46109051.TextChanged
    J_46109051.Text = Val(U_46109051.Text) * Val(H_46109051.Text)
    End Sub


    Private Sub SAVE_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAVE_46109051.Click

    If NT_46109051.Text.Length = 0 Then
    MsgBox("No. transaksi sudah ada nah !!!")
    Exit Sub
    End If

    If JT_46109051.Text.Length = 0 Then
    MsgBox("Jenis transaksi sudah ada nah !!!")
    Exit Sub
    End If


    If NIAH.Rows.Count = 0 Then
    MsgBox("Jumlah baris tidak terisi gang !!!")
    Exit Sub
    End If


    Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
    pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT_46109051.Text, 1, WAHDA)
    If pencari.JumlanBaris > 0 Then
    MsgBox("data tersebut sudah ada bos !!!")
    Exit Sub
    End If


    Dim MMM As New OleDb.OleDbCommand
    MMM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT_46109051.Text & "', #" & DT_46109051.Value.Month & "/" & DT_46109051.Value.Day & "/" & DT_46109051.Value.Year & "#, '" & JT_46109051.Text & "')", WAHDA)
    WAHDA.Open()
    MMM.ExecuteNonQuery()
    WAHDA.Close()


    For Each Z As DataRow In NIAH.Rows
    MMM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT_46109051.Text & "','" & Z("KODEBARANG") & "'," & Z("UNIT") & ", " & Z("HARGA") & ")", WAHDA)
    WAHDA.Open()
    MMM.ExecuteNonQuery()
    WAHDA.Close()
    MMM.Dispose()
    Next

    NT_46109051.Text = ""
    JT_46109051.Text = ""
    J_46109051.Text = ""

    NIAH.Rows.Clear()

    TOTALJUMLAH()
    End Sub
    End Class

    BalasHapus
  6. Fadillah Daude Sagena3 Januari 2012 pukul 18.28

    Public Class Form38
    Dim DILA As New DataTable
    Dim FADILLAH As New OleDb.OleDbCommand
    Dim SAGENA 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=240991")
    Private Sub Form38_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim FADILLAHSAGENADAUDE As New OleDb.OleDbDataAdapter
    FADILLAHSAGENADAUDE = 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 ='" & DILA1_059.Text & "'", conect)
    DILA.Rows.Clear()
    FADILLAHSAGENADAUDE.Fill(DILA)
    FADILLAHSAGENADAUDE.Dispose()

    Dim IPIN(1) As DataColumn
    IPIN(0) = DILA.Columns("kodebarang")
    DILA.PrimaryKey = IPIN

    DATA_059.DataSource = DILA
    End Sub

    Private Sub UDHE()
    Dim UDHE1 As Integer = 0
    For Each UDHE2 As DataRow In DILA.Rows
    UDHE1 += UDHE2("JUMLAH")
    Next
    TOTAL_059.Text = UDHE1
    End Sub

    Private Sub UNIT_059_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UNIT_059.TextChanged, HARGA_059.TextChanged
    JUMLAH_059.Text = Val(UNIT_059.Text) * Val(HARGA_059.Text)
    End Sub

    Private Sub KODE_059_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles KODE_059.Leave
    If KODE_059.Text.Length = 0 Then
    Exit Sub
    End If
    SAGENA.AturPencarianDataBase("barang", "kodebarang", KODE_059.Text, 1, conect)
    If SAGENA.JumlanBaris > 0 Then
    KODE_059.Text = SAGENA.DataTablenya.Rows(0).Item("KODEBARANG")
    NAMA_059.Text = SAGENA.DataTablenya.Rows(0).Item("NAMABARANG")
    Else
    MsgBox("Kode barang itu tidak ada..")
    Exit Sub
    End If
    End Sub

    Private Sub KODE_059_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KODE_059.TextChanged
    NAMA_059.Text = ""
    UNIT_059.Text = ""
    HARGA_059.Text = ""
    End Sub

    Private Sub TAMBAH_059_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_059.Click
    If KODE_059.Text.Length = 0 Then
    MsgBox("Isi Kode Barang")
    Exit Sub
    End If

    If Val(UNIT_059.Text) = 0 Then
    MsgBox("Isi Unit Barang")
    Exit Sub
    End If

    If Val(HARGA_059.Text) = 0 Then
    MsgBox("Isi Harga Barang")
    Exit Sub
    End If

    Dim UDHE As DataRow
    UDHE = DILA.Rows.Find(KODE_059.Text)
    If UDHE Is Nothing Then
    UDHE = DILA.NewRow
    UDHE("KODEBARANG") = KODE_059.Text
    UDHE("NAMABARANG") = NAMA_059.Text
    UDHE("UNIT") = Val(UNIT_059.Text)
    UDHE("HARGA") = Val(HARGA_059.Text)
    UDHE("JUMLAH") = Val(JUMLAH_059.Text)

    DILA.Rows.Add(UDHE)

    KODE_059.Text = ""
    UNIT_059.Text = ""
    HARGA_059.Text = ""

    Else
    MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
    End If
    End Sub

    BalasHapus
  7. Fadillah Daude Sagena3 Januari 2012 pukul 18.30

    Private Sub SIMPAN_059_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_059.Click
    If DILA1_059.Text.Length = 0 Then
    MsgBox("Isi No Transaksi")
    Exit Sub
    End If

    If DILA2_059.Text.Length = 0 Then
    MsgBox("isi Jenis Transaksi")
    Exit Sub
    End If

    If DILA.Rows.Count = 0 Then
    MsgBox("Isi datatable")
    Exit Sub
    End If

    SAGENA.AturPencarianDataBase("mastertransaksi", "notrans", DILA1_059.Text, 1, conect)
    If SAGENA.JumlanBaris > 0 Then
    MsgBox("No Trans sudah ada")
    Exit Sub
    End If

    FADILLAH = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & DILA1_059.Text & "',#" & TGL_059.Value.Month & "/" & TGL_059.Value.Day & "/" & TGL_059.Value.Year & "#,'" & DILA2_059.Text & "')", conect)
    conect.Open()
    FADILLAH.ExecuteNonQuery()
    conect.Close()

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

    DILA1_059.Text = ""
    DILA2_059.Text = ""

    DILA.Rows.Clear()
    UDHE()
    End Sub

    Private Sub DILA1_059_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DILA1_059.TextChanged

    End Sub
    End Class

    BalasHapus
  8. ainun3 Januari 2012 pukul 19.11

    LATIHAN 38
    Public Class LATIHAN038_46109030

    Dim ai As New DataTable
    Dim nun As New OleDb.OleDbCommand
    Dim ainun 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=ainun")
    Private Sub LATIHAN038_46109030_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ainunasadik As New OleDb.OleDbDataAdapter
    ainunasadik = 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 ='" & nt_46109030.Text & "'", conect)
    ai.Rows.Clear()
    ainunasadik.Fill(ai)
    ainunasadik.Dispose()

    Dim dpc(1) As DataColumn
    dpc(0) = ai.Columns("kodebarang")
    ai.PrimaryKey = dpc

    dg_46109030.DataSource = ai
    End Sub

    Private Sub ari()
    Dim ari1 As Integer = 0
    For Each ari2 As DataRow In ai.Rows
    ari1 += ari2("JUMLAH")
    Next
    Tot_46109030.Text = ari1

    End Sub

    Private Sub un_46109030_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles un_46109030.TextChanged, hr_46109030.TextChanged
    jm_46109030.Text = Val(un_46109030.Text) * Val(hr_46109030.Text)
    End Sub

    Private Sub kb_46109030_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_46109030.TextChanged
    nb_46109030.Text = ""
    un_46109030.Text = ""
    hr_46109030.Text = ""
    End Sub

    Private Sub kb_46109030_leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_46109030.Leave
    If kb_46109030.Text.Length = 0 Then
    Exit Sub
    End If
    ainun.AturPencarianDataBase("barang", "kodebarang", kb_46109030.Text, 1, conect)
    If ainun.JumlanBaris > 0 Then
    kb_46109030.Text = ainun.DataTablenya.Rows(0).Item("KODEBARANG")
    nb_46109030.Text = ainun.DataTablenya.Rows(0).Item("NAMABARANG")
    Else
    MsgBox("Kode barang itu tidak ada..")
    Exit Sub
    End If
    End Sub

    BalasHapus
  9. ainun3 Januari 2012 pukul 19.13

    Private Sub t_46109030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t_46109030.Click
    If kb_46109030.Text.Length = 0 Then
    MsgBox("Isi Kode Barang")
    Exit Sub
    End If

    If Val(un_46109030.Text) = 0 Then
    MsgBox("Isi Unit Barang")
    Exit Sub
    End If

    If Val(hr_46109030.Text) = 0 Then
    MsgBox("Isi Harga Barang")
    Exit Sub
    End If

    Dim sadik As DataRow
    sadik = ai.Rows.Find(kb_46109030.Text)
    If sadik Is Nothing Then
    sadik = ai.NewRow
    sadik("KODEBARANG") = kb_46109030.Text
    sadik("NAMABARANG") = nb_46109030.Text
    sadik("UNIT") = Val(un_46109030.Text)
    sadik("HARGA") = Val(hr_46109030.Text)
    sadik("JUMLAH") = Val(jm_46109030.Text)

    ai.Rows.Add(sadik)

    kb_46109030.Text = ""
    un_46109030.Text = ""
    hr_46109030.Text = ""

    Else
    MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
    End If
    ari()
    End Sub

    Private Sub s_46109030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s_46109030.Click
    If nt_46109030.Text.Length = 0 Then
    MsgBox("Isi No Transaksi")
    Exit Sub
    End If

    If jt_46109030.Text.Length = 0 Then
    MsgBox("isi Jenis Transaksi")
    Exit Sub
    End If

    If ai.Rows.Count = 0 Then
    MsgBox("Isi datatable")
    Exit Sub
    End If

    ainun.AturPencarianDataBase("mastertransaksi", "notrans", nt_46109030.Text, 1, conect)
    If ainun.JumlanBaris > 0 Then
    MsgBox("No Trans sudah ada")
    Exit Sub
    End If

    nun = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & nt_46109030.Text & "',#" & dtp_46109030.Value.Month & "/" & dtp_46109030.Value.Day & "/" & dtp_46109030.Value.Year & "#,'" & jt_46109030.Text & "')", conect)
    conect.Open()
    nun.ExecuteNonQuery()
    conect.Close()

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

    nt_46109030.Text = ""
    jt_46109030.Text = ""

    ai.Rows.Clear()
    ari()
    End Sub
    End Class

    BalasHapus
  10. ayu wandika putri utami3 Januari 2012 pukul 19.25

    http://ayuwandikaputriutami.blogspot.com/2012/01/latihan03846109017.html

    BalasHapus
  11. novi3 Januari 2012 pukul 20.27

    Public Class LATIHAN38_46109021
    Dim KONEKSI As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;jet OLEDB:database password=46109021")
    Dim NOVI As New DataTable
    Dim CARI As New ByIskandar.CariKeDataBaseByIskandar
    Dim SERU As New OleDb.OleDbCommand

    Private Sub LATIHAN38_46109021_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim KUDA As New OleDb.OleDbDataAdapter
    KUDA = 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 ='" & NT_46109021.Text & "'", KONEKSI)
    NOVI.Rows.Clear()
    KUDA.Fill(NOVI)
    KUDA.Dispose()

    Dim DC(1) As DataColumn
    DC(0) = NOVI.Columns("kodebarang")
    NOVI.PrimaryKey = DC

    DGV_46109021.DataSource = NOVI
    End Sub
    Private Sub Z()
    Dim ZA As Integer = 0
    For Each ZB As DataRow In NOVI.Rows
    ZA += ZB("JUMLAH")
    Next
    TOT_46109021.Text = ZA
    End Sub

    Private Sub U_46109021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles U_46109021.TextChanged, H_46109021.TextChanged
    J_46109021.Text = Val(U_46109021.Text) * Val(H_46109021.Text)
    End Sub
    Private Sub KB_46109021_LEAVE(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_46109021.Leave
    If KB_46109021.Text.Length = 0 Then
    Exit Sub
    End If
    CARI.AturPencarianDataBase("barang", "kodebarang", KB_46109021.Text, 1, KONEKSI)
    If CARI.JumlanBaris > 0 Then
    KB_46109021.Text = CARI.DataTablenya.Rows(0).Item("KODEBARANG")
    NB_46109021.Text = CARI.DataTablenya.Rows(0).Item("NAMABARANG")
    Else
    MsgBox("Kode barang itu tidak ada..")
    Exit Sub
    End If
    End Sub
    Private Sub KB_46109021_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_46109021.TextChanged
    NB_46109021.Text = ""
    U_46109021.Text = ""
    H_46109021.Text = ""
    End Sub

    Private Sub TAM_46109021_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAM_46109021.Click
    If KB_46109021.Text.Length = 0 Then
    MsgBox("Isi Kode Barang")
    Exit Sub
    End If

    If Val(U_46109021.Text) = 0 Then
    MsgBox("Isi Unit Barang")
    Exit Sub
    End If

    If Val(H_46109021.Text) = 0 Then
    MsgBox("Isi Harga Barang")
    Exit Sub
    End If

    BalasHapus
  12. novi3 Januari 2012 pukul 20.28

    Dim DR As DataRow
    DR = NOVI.Rows.Find(KB_46109021.Text)
    If DR Is Nothing Then
    DR = NOVI.NewRow
    DR("KODEBARANG") = KB_46109021.Text
    DR("NAMABARANG") = NB_46109021.Text
    DR("UNIT") = Val(U_46109021.Text)
    DR("HARGA") = Val(H_46109021.Text)
    DR("JUMLAH") = Val(J_46109021.Text)

    NOVI.Rows.Add(DR)

    KB_46109021.Text = ""
    U_46109021.Text = ""
    H_46109021.Text = ""

    Else
    MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
    End If
    Z()
    End Sub

    Private Sub SIM_46109021_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIM_46109021.Click
    If NT_46109021.Text.Length = 0 Then
    MsgBox("Isi No Transaksi")
    Exit Sub
    End If

    If JT_46109021.Text.Length = 0 Then
    MsgBox("isi Jenis Transaksi")
    Exit Sub
    End If

    If NOVI.Rows.Count = 0 Then
    MsgBox(" Isi datatable")
    Exit Sub
    End If

    CARI.AturPencarianDataBase("mastertransaksi", "notrans", NT_46109021.Text, 1, KONEKSI)
    If CARI.JumlanBaris > 0 Then
    MsgBox("No Trans sudah ada")
    Exit Sub
    End If

    SERU = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NT_46109021.Text & "',#" & DTP_46109021.Value.Month & "/" & DTP_46109021.Value.Day & "/" & DTP_46109021.Value.Year & "#,'" & JT_46109021.Text & "')", KONEKSI)
    KONEKSI.Open()
    SERU.ExecuteNonQuery()
    KONEKSI.Close()

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

    NT_46109021.Text = ""
    JT_46109021.Text = ""

    NOVI.Rows.Clear()
    Z()

    End Sub
    End Class

    BalasHapus
  13. Unknown5 Januari 2012 pukul 05.23

    http://ismisriwahyuni.blogspot.com/2012/01/public-class-form38-dim-cimi-as-new.html

    BalasHapus
  14. Dwi Mustika Chaerunnisa Mulyadi5 Januari 2012 pukul 05.32

    Public Class LATIHAN038_46109054
    Dim DWI As New DataTable
    Dim MUSTIKA As New OleDb.OleDbCommand
    Dim CHAERUNNISA 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=wiwi")
    Private Sub LATIHAN038_46109054_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim MUSTIKACHAERUNNISAMULYADI As New OleDb.OleDbDataAdapter
    MUSTIKACHAERUNNISAMULYADI = 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 ='" & ww1_46109054.Text & "'", conect)
    DWI.Rows.Clear()
    MUSTIKACHAERUNNISAMULYADI.Fill(DWI)
    MUSTIKACHAERUNNISAMULYADI.Dispose()

    Dim WHI_WHI(1) As DataColumn
    WHI_WHI(0) = DWI.Columns("kodebarang")
    DWI.PrimaryKey = WHI_WHI

    DGV_46109054.DataSource = DWI
    End Sub

    Private Sub WHI_CHA()
    Dim WHI_CHA1 As Integer = 0
    For Each WHI_CHA2 As DataRow In DWI.Rows
    WHI_CHA1 += WHI_CHA2("JUMLAH")
    Next
    ww8_46109054.Text = WHI_CHA1
    End Sub

    Private Sub ww5_46109054_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ww5_46109054.TextChanged, ww6_46109054.TextChanged
    ww7_46109054.Text = Val(ww5_46109054.Text) * Val(ww6_46109054.Text)
    End Sub

    Private Sub ww3_46109054_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ww3_46109054.Leave
    If ww3_46109054.Text.Length = 0 Then
    Exit Sub
    End If
    CHAERUNNISA.AturPencarianDataBase("barang", "kodebarang", ww3_46109054.Text, 1, conect)
    If CHAERUNNISA.JumlanBaris > 0 Then
    ww3_46109054.Text = CHAERUNNISA.DataTablenya.Rows(0).Item("KODEBARANG")
    ww4_46109054.Text = CHAERUNNISA.DataTablenya.Rows(0).Item("NAMABARANG")
    Else
    MsgBox("Kode barang itu tidak ada..")
    Exit Sub
    End If
    End Sub

    Private Sub ww3_46109054_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ww3_46109054.TextChanged
    ww4_46109054.Text = ""
    ww5_46109054.Text = ""
    ww6_46109054.Text = ""
    End Sub

    BalasHapus
  15. Dwi Mustika Chaerunnisa Mulyadi5 Januari 2012 pukul 05.33

    Private Sub Dwi1_46109054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dwi1_46109054.Click
    If ww3_46109054.Text.Length = 0 Then
    MsgBox("Isi Kode Barang")
    Exit Sub
    End If

    If Val(ww5_46109054.Text) = 0 Then
    MsgBox("Isi Unit Barang")
    Exit Sub
    End If

    If Val(ww6_46109054.Text) = 0 Then
    MsgBox("Isi Harga Barang")
    Exit Sub
    End If

    Dim WHI_CHA As DataRow
    WHI_CHA = DWI.Rows.Find(ww3_46109054.Text)
    If WHI_CHA Is Nothing Then
    WHI_CHA = DWI.NewRow
    WHI_CHA("KODEBARANG") = ww3_46109054.Text
    WHI_CHA("NAMABARANG") = ww4_46109054.Text
    WHI_CHA("UNIT") = Val(ww5_46109054.Text)
    WHI_CHA("HARGA") = Val(ww6_46109054.Text)
    WHI_CHA("JUMLAH") = Val(ww7_46109054.Text)

    DWI.Rows.Add(WHI_CHA)

    ww3_46109054.Text = ""
    ww5_46109054.Text = ""
    ww6_46109054.Text = ""

    Else
    MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
    End If
    End Sub

    Private Sub Dwi2_46109054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dwi2_46109054.Click
    If ww1_46109054.Text.Length = 0 Then
    MsgBox("Isi No Transaksi")
    Exit Sub
    End If

    If ww2_46109054.Text.Length = 0 Then
    MsgBox("isi Jenis Transaksi")
    Exit Sub
    End If

    If DWI.Rows.Count = 0 Then
    MsgBox("Isi datatable")
    Exit Sub
    End If

    CHAERUNNISA.AturPencarianDataBase("mastertransaksi", "notrans", ww1_46109054.Text, 1, conect)
    If CHAERUNNISA.JumlanBaris > 0 Then
    MsgBox("No Trans sudah ada")
    Exit Sub
    End If

    MUSTIKA = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & ww1_46109054.Text & "',#" & DTP_46109054.Value.Month & "/" & DTP_46109054.Value.Day & "/" & DTP_46109054.Value.Year & "#,'" & ww2_46109054.Text & "')", conect)
    conect.Open()
    MUSTIKA.ExecuteNonQuery()
    conect.Close()

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

    ww1_46109054.Text = ""
    ww2_46109054.Text = ""

    DWI.Rows.Clear()
    WHI_CHA()
    End Sub

    Private Sub ww1_46109054_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ww1_46109054.TextChanged

    End Sub
    End Class

    BalasHapus
  16. Febiana Fransiscus5 Januari 2012 pukul 05.41

    Public Class LATIHAN038_46109027

    Dim ff As New DataTable
    Dim bhe As New OleDb.OleDbCommand
    Dim bheku As New ByIskandar.CfransKeDataBaseByIskandar
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datamajemuk.accdb;Jet OLEDB:Database Password=bheku")
    Private Sub LATIHAN038_46109027_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim febianafransiskus As New OleDb.OleDbDataAdapter
    febianafransiskus = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detffltransaksi.UNIT, detffltransaksi.HARGA, detffltransaksi.unit*harga as JUMLAH from barang inner join detffltransaksi on barang.kodebarang = detffltransaksi.kodebarang where notrans ='" & nt_46109027.Text & "'", conect)
    ff.Rows.Clear()
    febianafransiskus.Fill(ff)
    febianafransiskus.Dispose()

    Dim dpc(1) As DataColumn
    dpc(0) = ff.Columns("kodebarang")
    ff.PrimaryKey = dpc

    dg_46109027.DataSource = ff
    End Sub

    Private Sub frans()
    Dim frans1 As Integer = 0
    For Each frans2 As DataRow In ff.Rows
    frans1 += frans2("JUMLAH")
    Next
    Tot_46109027.Text = frans1

    End Sub

    Private Sub un_46109027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles un_46109027.TextChanged, hr_46109027.TextChanged
    jm_46109027.Text = Val(un_46109027.Text) * Val(hr_46109027.Text)
    End Sub

    Private Sub kb_46109027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_46109027.TextChanged
    nb_46109027.Text = ""
    un_46109027.Text = ""
    hr_46109027.Text = ""
    End Sub

    Private Sub kb_46109027_leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_46109027.Leave
    If kb_46109027.Text.Length = 0 Then
    Exit Sub
    End If
    bheku.AturPencfransanDataBase("barang", "kodebarang", kb_46109027.Text, 1, conect)
    If bheku.JumlanBfranss > 0 Then
    kb_46109027.Text = bheku.DataTablenya.Rows(0).Item("KODEBARANG")
    nb_46109027.Text = bheku.DataTablenya.Rows(0).Item("NAMABARANG")
    Else
    MsgBox("Kode barang itu tidak ada..")
    Exit Sub
    End If
    End Sub

    Private Sub t_46109027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t_46109027.Click
    If kb_46109027.Text.Length = 0 Then
    MsgBox("Isi Kode Barang")
    Exit Sub
    End If

    If Val(un_46109027.Text) = 0 Then
    MsgBox("Isi Unit Barang")
    Exit Sub
    End If

    If Val(hr_46109027.Text) = 0 Then
    MsgBox("Isi Harga Barang")
    Exit Sub
    End If

    BalasHapus
  17. Febiana Fransiscus5 Januari 2012 pukul 05.43

    Dim fransiskus As DataRow
    fransiskus = ff.Rows.Find(kb_46109027.Text)
    If fransiskus Is Nothing Then
    fransiskus = ff.NewRow
    fransiskus("KODEBARANG") = kb_46109027.Text
    fransiskus("NAMABARANG") = nb_46109027.Text
    fransiskus("UNIT") = Val(un_46109027.Text)
    fransiskus("HARGA") = Val(hr_46109027.Text)
    fransiskus("JUMLAH") = Val(jm_46109027.Text)

    ff.Rows.Add(fransiskus)

    kb_46109027.Text = ""
    un_46109027.Text = ""
    hr_46109027.Text = ""

    Else
    MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lffn...")
    End If
    frans()
    End Sub

    Private Sub s_46109027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s_46109027.Click
    If nt_46109027.Text.Length = 0 Then
    MsgBox("Isi No Transaksi")
    Exit Sub
    End If

    If jt_46109027.Text.Length = 0 Then
    MsgBox("isi Jenis Transaksi")
    Exit Sub
    End If

    If ff.Rows.Count = 0 Then
    MsgBox("Isi datatable")
    Exit Sub
    End If

    bheku.AturPencfransanDataBase("mastertransaksi", "notrans", nt_46109027.Text, 1, conect)
    If bheku.JumlanBfranss > 0 Then
    MsgBox("No Trans sudah ada")
    Exit Sub
    End If

    bhe = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & nt_46109027.Text & "',#" & dtp_46109027.Value.Month & "/" & dtp_46109027.Value.Day & "/" & dtp_46109027.Value.Year & "#,'" & jt_46109027.Text & "')", conect)
    conect.Open()
    bhe.ExecuteNonQuery()
    conect.Close()

    For Each x As DataRow In ff.Rows
    bhe = New OleDb.OleDbCommand("insert into detffltransaksi (notrans, kodebarang, unit, harga) values ('" & nt_46109027.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", conect)
    conect.Open()
    bhe.ExecuteNonQuery()
    conect.Close()
    Next
    bhe.Dispose()

    nt_46109027.Text = ""
    jt_46109027.Text = ""

    ff.Rows.Clear()
    frans()
    End Sub
    End Class

    BalasHapus
  18. Dwi Mustika Chaerunnisa Mulyadi5 Januari 2012 pukul 05.51

    Public Class Latihan383940_46109054
    Dim DWI As New DataTable
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datamajemuk.accdb;Jet OLEDB:Database Password=wiwi")

    Private Sub Latihan383940_46109054_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim wiwi As New OleDb.OleDbDataAdapter
    wiwi = New OleDb.OleDbDataAdapter("SELECT * FROM BARANG", conect)
    DWI.Rows.Clear()
    wiwi.Fill(DWI)
    wiwi.Dispose()

    DGV_46109054.DataSource = DWI

    End Sub
    End Class

    BalasHapus
  19. sae' itu indah5 Januari 2012 pukul 06.34

    Public Class LATIHAN_038_46109053
    Dim SAE As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data sounitrce= " & Application.StartunitpPathrg & "\DATAMAJUMEMUNITK.accdb;jumet oledb:database Password=thrgepinkers29")
    Dim INDAH As New DataTable
    Dim YANI As DataRow

    Private Sub LATIHAN_038_46109053_Load(ByVal sender As System.object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim Z As New OleDb.OleDbDataAdapter
    Z = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNITNIT, DETAILTRANSAKSI.HRGARGA, DETAILTRANSAKSI.UNITNIT*DETAILTRANSAKSI.HRGARGA AS JUMLAH from DETAILTRANSAKSI INNER JUMOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHRGERE NOTRANS= '" & NT_053.Text & "'", SAE)
    Z.Fill(INDAH)
    Z.Dispose()

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

    DATA_053.DataSource = INDAH

    End Sub

    Private Sub TOTALJUMLAH()
    Dim TOT As Double = 0
    For Each Z As DataRow In INDAH.Rows
    TOT = TOT + Z("JUMLAH")
    Next
    TOT_053.Text = TOT

    End Sub

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

    Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
    Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", KB_053.Text, 1, SAE)
    If Pencari.jumlanbaris > 0 Then
    KB_053.Text = Pencari.DataTablenya.Rows(0).Item("KODEBARANG")
    NB_053.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
    Else
    MsgBox("Kode barang tersebut tidak ada")
    If LATIHAN383940_053.showDialog = Windows.Forms.DialogResult.OK Then
    KB_053.Text = LATIHAN383940_053.DATA_053.CunitrrentRow.Cells("KodeBarang").Valunite
    NB_053.Text = LATIHAN383940_053.DATA_053.CunitrrentRow.Cells("NamaBarang").Valunite
    Else
    KB_053.Text = ""
    End If
    End If
    End Sub

    Private Sub KB_053_TextChrganged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_053.TextChrganged
    NB_053.Text = ""
    UNIT_053.Text = ""
    HRG_053.Text = ""
    End Sub

    Private Sub UNIT_TextChrganged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UNIT_053.TextChrganged, HRG_053.TextChrganged
    JUM_053.Text = Val(UNIT_053.Text) * Val(HRG_053.Text)
    End Sub

    BalasHapus
  20. sae' itu indah5 Januari 2012 pukul 06.35

    Private Sub TM_053_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TM_053.Click

    If KB_053.Text.Length = 0 Then
    MsgBox("Kode barang sudah ada")
    Exit Sub
    End If

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

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

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

    YANI = INDAH.Rows.Find(KB_053.Text)

    If YANI Is Nothing Then
    YANI = INDAH.NewRow
    YANI("KODEBARANG") = KB_053.Text
    Else
    MsgBox("Maaf kodebarang sudah ada")
    Exit Sub
    End If


    YANI = INDAH.NewRow
    YANI("KODEBARANG") = KB_053.Text
    YANI("NAMABARANG") = NB_053.Text
    YANI("UNITNIT") = UNIT_053.Text
    YANI("HRGARGA") = HRG_053.Text
    YANI("JUMLAH") = JUM_053.Text

    INDAH.Rows.Add(YANI)

    KB_053.Text = ""
    NB_053.Text = ""
    UNIT_053.Text = ""
    HRG_053.Text = ""

    TOTALJUMLAH()
    End Sub

    Private Sub SAVE_053_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAVE_053.Click

    If NT_053.Text.Length = 0 Then
    MsgBox("No. transaksi sudah ada")
    Exit Sub
    End If

    If JT_053.Text.Length = 0 Then
    MsgBox("Jenis transaksi sudah ada")
    Exit Sub
    End If


    If INDAH.Rows.Count = 0 Then
    MsgBox("Jumlah baris tidak terisi")
    Exit Sub
    End If


    Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
    pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT_053.Text, 1, SAE)
    If pencari.JumlanBaris > 0 Then
    MsgBox("data tersebut sudah ada")
    Exit Sub
    End If


    Dim MMM As New OleDb.OleDbCommand
    MMM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JUMENISTRANSAKSI) VALUNITES ('" & NT_053.Text & "', #" & DT_053.Valunite.Monthrg & "/" & DT_053.Valunite.Day & "/" & DT_053.Valunite.Year & "#, '" & JT_053.Text & "')", SAE)
    SAE.Open()
    MMM.ExecuteNonQuery()
    SAE.Close()


    For Each Z As DataRow In INDAH.Rows
    MMM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNITNIT, HRGARGA) VALUNITES ('" & NT_053.Text & "','" & Z("KODEBARANG") & "'," & Z("UNITNIT") & ", " & Z("HRGARGA") & ")", SAE)
    SAE.Open()
    MMM.ExecuteNonQuery()
    SAE.Close()
    MMM.Dispose()
    Next

    NT_053.Text = ""
    JT_053.Text = ""
    JUM_053.Text = ""

    INDAH.Rows.Clear()

    TOTALJUMLAH()
    End Sub
    End Class

    BalasHapus
  21. 461090345 Januari 2012 pukul 08.48

    ARYANDIRA(46109034)
    Public Class Latihan38_034
    Dim dt As New DataTable
    Dim cm As New OleDb.OleDbCommand
    Dim dira As New ByIskandar.CariKeDataBaseByIskandar
    Dim satu As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

    Private Sub Latihan38_034_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 = '" & aa_034.Text & "'", satu)
    a.Fill(dt)
    a.Dispose()

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

    dgv.DataSource = dt
    End Sub

    Private Sub ira()
    Dim ira1 As Integer = 0For Each ira2 As DataRow In dt.Rows
    ira1 += ira2("JUMLAH")
    Next
    Jj_034.Text = ira1
    End Sub

    Private Sub ff_034_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ff_034.TextChanged, gg_034.TextChanged
    Hh_034.Text = Val(ff_034.Text) * Val(gg_034.Text)
    End Sub

    Private Sub dd_034_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles dd_034.Leave
    If dd_034.Text.Length = 0 Then
    Exit Sub
    End If
    dira.AturPencarianDataBase("barang", "kodebarang", dd_034.Text, 1, satu)
    If dira.JumlanBaris > 0 Then
    Dd_034.Text = dira.DataTablenya.Rows(0).Item("KODEBARANG")
    Ee_034.Text = dira.DataTablenya.Rows(0).Item("NAMABARANG")
    Else
    MsgBox("Kode barang seperti itu tidak ada..")
    If Latihan_38_39_40_034.ShowDialog = Windows.Forms.DialogResult.OK Then
    Dd_034.Text = Latihan_38_39_40_034.dgv.CurrentRow.Cells("kodebarang").Value
    Ee_034.Text = Latihan_38_39_40_034.dgv.CurrentRow.Cells("namabarang").Value
    Else
    Dd_034.Text = ""
    End If
    End If
    End Sub

    Private Sub dd_034_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dd_034.TextChanged
    Ee_034.Text = ""
    Ff_034.Text = ""
    Gg_034.Text = ""
    End Sub
    Private Sub ii_034_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ii_034.Click
    If dd_034.Text.Length = 0 Then
    MsgBox("Isi rong itu Kode Barang ")
    Exit Sub
    End If

    If Val(ff_034.Text) = 0 Then
    MsgBox("Isi rong itu Unit ")
    Exit Sub
    End If

    If Val(gg_034.Text) = 0 Then
    MsgBox("Isi rong itu Harga ")

    BalasHapus
  22. 461090345 Januari 2012 pukul 08.52

    exit sub
    End If

    Dim dr As DataRow
    dr = dt.Rows.Find(dd_034.Text)
    If dr Is Nothing Then
    dr = dt.NewRow
    dr("KODEBARANG") = dd_034.Text
    dr("NAMABARANG") = ee_034.Text
    dr("UNIT") = ff_034.Text
    dr("HARGA") = gg_034.Text
    dr("JUMLAH") = hh_034.Text

    dt.Rows.Add(dr)

    dd_034.Text = ""
    ff_034.Text = ""
    gg_034.Text = ""

    Else
    MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain")
    End If
    ira ()
    End Sub

    Private Sub kk_034_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kk_034.Click
    If aa_034.Text.Length = 0 Then
    MsgBox("Isi rong itu No Transaksi “)
    Exit Sub
    End If

    If cc_034.Text.Length = 0 Then
    MsgBox("Isi rong itu Jenis Transaksi ")
    Exit Sub
    End If
    If dt.Rows.Count = 0 Then
    MsgBox("Isi rong itu datatable")
    Exit Sub
    End If

    dira.AturPencarianDataBase("mastertransaksi", "notrans", aa_034.Text, 1, satu)
    If dira.JumlanBaris > 0 Then
    MsgBox("Adami No Transaksi seperti itu")
    Exit Sub
    End If

    cm = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & aa_034.Text & "',#" & bb_034.Value.Month & "/" & bb_034.Value.Day & "/" & bb_034.Value.Year & "#,'" & cc_034.Text & "')", satu)
    satu.Open()
    cm.ExecuteNonQuery()
    satu.Close()
    For Each x As DataRow In dt.Rows
    cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & aa_034.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", satu)
    satu.Open()
    cm.ExecuteNonQuery()
    satu.Close()
    Next
    cm.Dispose()

    aa_034.Text = ""
    cc_034.Text = ""

    dt.Rows.Clear()
    ira()
    End Sub
    end class

    BalasHapus
  23. ARUL BLOG10 Januari 2012 pukul 22.15

    Public Class LATIHAN38_46109005

    Dim FAHRUL As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;jet oledb:database Password=arul")
    Dim ARUL As New DataTable
    Dim APRIL As DataRow

    Private Sub LATIHAN38_46109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim Z As New OleDb.OleDbDataAdapter
    Z = 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_46109005.Text & "'", FAHRUL)
    Z.Fill(ARUL)
    Z.Dispose()

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

    DG_46109005.DataSource = ARUL

    End Sub

    Private Sub TOTALJUMLAH()
    Dim TOT As Double = 0
    For Each Z As DataRow In ARUL.Rows
    TOT = TOT + Z("JUMLAH")
    Next
    TOT_46109005.Text = TOT

    End Sub

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

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

    Private Sub KB_46109005_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB_46109005.TextChanged
    NB_46109005.Text = ""
    U_46109005.Text = ""
    H_46109005.Text = ""
    End Sub

    Private Sub U_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles U_46109005.TextChanged, H_46109005.TextChanged
    J_46109005.Text = Val(U_46109005.Text) * Val(H_46109005.Text)
    End Sub
    Private Sub TM_46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TM_46109005.Click

    If KB_46109005.Text.Length = 0 Then
    MsgBox("Kode barang sudah ada")
    Exit Sub
    End If

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

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

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

    BalasHapus
  24. ARUL BLOG10 Januari 2012 pukul 22.16

    APRIL = ARUL.Rows.Find(KB_46109005.Text)

    If APRIL Is Nothing Then
    APRIL = ARUL.NewRow
    APRIL("KODEBARANG") = KB_46109005.Text
    Else
    MsgBox("Maaf kodebarang sudah ada")
    Exit Sub
    End If


    APRIL = ARUL.NewRow
    APRIL("KODEBARANG") = KB_46109005.Text
    APRIL("NAMABARANG") = NB_46109005.Text
    APRIL("UNIT") = U_46109005.Text
    APRIL("HARGA") = H_46109005.Text
    APRIL("JUMLAH") = J_46109005.Text

    ARUL.Rows.Add(APRIL)

    KB_46109005.Text = ""
    NB_46109005.Text = ""
    U_46109005.Text = ""
    H_46109005.Text = ""

    TOTALJUMLAH()
    End Sub

    Private Sub SAVE_46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAVE_46109005.Click

    If NT_46109005.Text.Length = 0 Then
    MsgBox("No. transaksi sudah ada")
    Exit Sub
    End If

    If JT_46109005.Text.Length = 0 Then
    MsgBox("Jenis transaksi sudah ada")
    Exit Sub
    End If


    If ARUL.Rows.Count = 0 Then
    MsgBox("Jumlah baris tidak terisi")
    Exit Sub
    End If


    Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
    pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT_46109005.Text, 1, FAHRUL)
    If pencari.JumlanBaris > 0 Then
    MsgBox("data tersebut sudah ada")
    Exit Sub
    End If


    Dim MMM As New OleDb.OleDbCommand
    MMM = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT_46109005.Text & "', #" & DT_46109005.Value.Month & "/" & DT_46109005.Value.Day & "/" & DT_46109005.Value.Year & "#, '" & JT_46109005.Text & "')", FAHRUL)
    FAHRUL.Open()
    MMM.ExecuteNonQuery()
    FAHRUL.Close()


    For Each Z As DataRow In ARUL.Rows
    MMM = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT_46109005.Text & "','" & Z("KODEBARANG") & "'," & Z("UNIT") & ", " & Z("HARGA") & ")", FAHRUL)
    FAHRUL.Open()
    MMM.ExecuteNonQuery()
    FAHRUL.Close()
    MMM.Dispose()
    Next

    NT_46109005.Text = ""
    JT_46109005.Text = ""
    J_46109005.Text = ""

    ARUL.Rows.Clear()

    TOTALJUMLAH()
    End Sub
    End Class

    BalasHapus
  25. novi16 Januari 2012 pukul 06.37

    If Val(U_46109021.Text) = 0 Then
    MsgBox("Isi Unit Barang")
    Exit Sub
    End If

    If Val(H_46109021.Text) = 0 Then
    MsgBox("Isi Harga Barang")
    Exit Sub
    End If

    Dim DR As DataRow
    DR = NOVI.Rows.Find(KB_46109021.Text)
    If DR Is Nothing Then
    DR = NOVI.NewRow
    DR("KODEBARANG") = KB_46109021.Text
    DR("NAMABARANG") = NB_46109021.Text
    DR("UNIT") = Val(U_46109021.Text)
    DR("HARGA") = Val(H_46109021.Text)
    DR("JUMLAH") = Val(J_46109021.Text)

    NOVI.Rows.Add(DR)

    KB_46109021.Text = ""
    U_46109021.Text = ""
    H_46109021.Text = ""

    Else
    MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
    End If
    Z()
    End Sub

    Private Sub SIM_46109021_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIM_46109021.Click
    If NT_46109021.Text.Length = 0 Then
    MsgBox("Isi No Transaksi")
    Exit Sub
    End If

    If JT_46109021.Text.Length = 0 Then
    MsgBox("isi Jenis Transaksi")
    Exit Sub
    End If

    If NOVI.Rows.Count = 0 Then
    MsgBox(" Isi datatable")
    Exit Sub
    End If

    CARI.AturPencarianDataBase("mastertransaksi", "notrans", NT_46109021.Text, 1, KONEKSI)
    If CARI.JumlanBaris > 0 Then
    MsgBox("No Trans sudah ada")
    Exit Sub
    End If

    SERU = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NT_46109021.Text & "',#" & DTP_46109021.Value.Month & "/" & DTP_46109021.Value.Day & "/" & DTP_46109021.Value.Year & "#,'" & JT_46109021.Text & "')", KONEKSI)
    KONEKSI.Open()
    SERU.ExecuteNonQuery()
    KONEKSI.Close()

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

    NT_46109021.Text = ""
    JT_46109021.Text = ""

    NOVI.Rows.Clear()
    Z()

    End Sub
    End Class

    BalasHapus
  26. Unknown3 November 2012 pukul 16.15

    http://cacalisa.blogspot.com/2012/11/latihan3846110038.html

    BalasHapus
  27. Unknown3 November 2012 pukul 19.20

    http://rafidashaleh.blogspot.com/2012/11/latihan3846110041.html

    BalasHapus
  28. Dunia Ilmu3 November 2012 pukul 21.49

    http://mulyawarman039.blogspot.com/2012/11/latihan3846110039.html

    BalasHapus
  29. Unknown4 November 2012 pukul 00.55

    http://wahyunirachman.blogspot.com/2012/11/latihan3846110020.html

    BalasHapus
  30. Unknown4 November 2012 pukul 17.12

    http://srikartikafanty.blogspot.com/2012/11/latihan3846110007.html

    BalasHapus
    Balasan
    1. Unknown5 November 2012 pukul 06.34

      Komentar ini telah dihapus oleh pengarang.

      Hapus
  31. Unknown5 November 2012 pukul 16.08

    http://dianmegariski.blogspot.com/2012/11/latihan3846110023_5.html

    BalasHapus
  32. Unknown5 November 2012 pukul 20.12

    http://bahrizj.blogspot.com/2012/11/latihan3846110001.html

    BalasHapus
  33. Unknown5 November 2012 pukul 20.40

    http://bahrizj.blogspot.com/2012/11/latihan3839940461100001.html

    BalasHapus
  34. Unknown8 November 2012 pukul 04.24

    http://restyaccounting.blogspot.com/2012/11/latihan3846110027.html

    BalasHapus
  35. Unknown8 November 2012 pukul 22.16

    http://idhamsyaam.blogspot.com/2012/11/latihan3846110021.html

    BalasHapus
  36. Unknown8 November 2012 pukul 22.33

    http://alfaega.blogspot.com/2012/11/latihan3846110022.html

    BalasHapus
  37. Unknown9 November 2012 pukul 05.36

    http://sulhihusni.blogspot.com/2012/11/latihan3846110004.html

    BalasHapus
  38. Unknown11 November 2012 pukul 00.01

    http://fitrianihamka.blogspot.com/2012/11/latihan3846110006.html

    BalasHapus
  39. ildayani4 Desember 2012 pukul 04.08

    http://ildayani.blogspot.com/2012/11/latihan3846110002.html

    BalasHapus
  40. Unknown25 Desember 2012 pukul 01.50

    http://hanihasan07.blogspot.com/2012/12/latihan3846110044.html

    BalasHapus
  41. Unknown1 Januari 2013 pukul 23.25

    http://bothbon.blogspot.com/2013/01/latihan3846110043.html

    BalasHapus
  42. Unknown2 Januari 2013 pukul 18.26

    http://muthmil8.blogspot.com/2012/11/latihan3846110037.html

    BalasHapus
  43. Unknown3 Januari 2013 pukul 02.51

    http://amalmaulana92.blogspot.com/2013/01/latihan3846110003.html

    BalasHapus
  44. Unknown5 Januari 2013 pukul 07.13

    http://aardianzah2.blogspot.com/2013/01/latihan-38.html

    BalasHapus
  45. Feiby Frycilia18 Januari 2013 pukul 03.51

    http://feibyfrycilia.blogspot.com/2013/01/latihan3846110055.html
    http://feibyfrycilia.blogspot.com/2013/01/latihan38394046110055.html

    BalasHapus
  46. Unknown27 Januari 2013 pukul 00.52

    http://diyanahdina.blogspot.com/2013/01/latihan38a46110045.html

    http://diyanahdina.blogspot.com/2013/01/latihan-38b46110045.html

    BalasHapus
  47. Unknown30 Januari 2013 pukul 07.11

    http://deodns.blogspot.com/#!/2013/01/latihan3846110040.html
    http://deodns.blogspot.com/#!/2013/01/latihan38394046110040.html

    BalasHapus

Langganan: Posting Komentar (Atom)