Jumat, 18 November 2011

Latihan 35 APKOM 4 D4A

Diposting oleh di

36 komentar:

  1. Dwitya Saadah Suaib12 Desember 2011 pukul 03.54

    Public Class LATIHAN035_46109001
    Dim dwitya As New OleDb.OleDbCommand
    Dim saadah As New ByIskandar.CariKeDataBaseByIskandar
    Dim wiwi 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=ngekngek")

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

    If Val(UN46109001.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If

    If Val(HR46109001.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If
    Dim tingting As DataRow
    tingting = wiwi.NewRow
    tingting("KODEBARANG") = Val(KB46109001.Text)
    tingting("UNIT") = Val(UN46109001.Text)
    tingting("HARGA") = Val(HR46109001.Text)

    wiwi.Rows.Add(tingting)
    KB46109001.Text = ""
    UN46109001.Text = ""
    HR46109001.Text = ""


    End Sub

    Private Sub LATIHAN035_46109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ting As New OleDb.OleDbDataAdapter
    ting = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & NT46109001.Text & "'", conect)
    ting.Fill(wiwi)
    ting.Dispose()

    DATA46109001.DataSource = wiwi

    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 rong No Transaksi na..")
    Exit Sub
    End If

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

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

    saadah.AturPencarianDataBase("mastertransaksi", "notrans", NT46109001.Text, 1, conect)
    If saadah.JumlanBaris > 0 Then
    MsgBox("Adami notrans seperti itu")
    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()
    End Sub
    End Class

    BalasHapus
  2. WAHDANIAH1 Januari 2012 pukul 17.00

    Public Class LATIHAN35_46109051

    Dim wahda As New OleDb.OleDbCommand
    Dim niah As New ByIskandar.CariKeDataBaseByIskandar
    Dim ani 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=thepinkers29")

    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 tsb sudah ada")
    Exit Sub
    End If

    If Val(U_46109051.Text) = 0 Then
    MsgBox("Tolong di isi nah !!!")
    Exit Sub
    End If

    If Val(H_46109051.Text) = 0 Then
    MsgBox("Tolong di isi nah !!!")
    Exit Sub
    End If
    Dim tingting As DataRow
    tingting = ani.NewRow
    tingting("KODEBARANG") = Val(KB_46109051.Text)
    tingting("UNIT") = Val(U_46109051.Text)
    tingting("HARGA") = Val(H_46109051.Text)

    ani.Rows.Add(tingting)
    KB_46109051.Text = ""
    U_46109051.Text = ""
    H_46109051.Text = ""


    End Sub

    Private Sub SAVE_46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAVE_46109051.Click
    If NT_46109051.Text.Length = 0 Then
    MsgBox("isi Qi No TransaksiTa'...")
    Exit Sub
    End If

    If JT_46109051.Text.Length = 0 Then
    MsgBox("isi Qi No TransaksiTa'...")
    Exit Sub
    End If

    If ani.Rows.Count = 0 Then
    MsgBox("Maaf...Isi rong itu datatable na..")
    Exit Sub
    End If

    niah.AturPencarianDataBase("mastertransaksi", "notrans", NT_46109051.Text, 1, conect)
    If niah.JumlanBaris > 0 Then
    MsgBox("Adami no.trans seperti itu anu....")
    Exit Sub
    End If

    wahda = 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 & "')", conect)
    conect.Open()
    wahda.ExecuteNonQuery()
    conect.Close()

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

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

    ani.Rows.Clear()
    End Sub
    Private Sub LATIHAN35_46109051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim cantik As New OleDb.OleDbDataAdapter
    cantik = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & NT_46109051.Text & "'", conect)
    cantik.Fill(ani)
    cantik.Dispose()

    DG_46109051.DataSource = ani

    End Sub
    End Class

    BalasHapus
  3. ARUL BLOG2 Januari 2012 pukul 20.51

    Public Class LATIHAN035_46109005
    Dim fahrul As New OleDb.OleDbCommand
    Dim april As New ByIskandar.CariKeDataBaseByIskandar
    Dim arul 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=arul")

    Private Sub TM46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TM46109005.Click
    If KB46109005.Text.Length = 0 Then
    MsgBox("Kode tsb sudah ada")
    Exit Sub
    End If

    If Val(UN46109005.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If

    If Val(HR46109005.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If
    Dim barru As DataRow
    barru = arul.NewRow
    barru("KODEBARANG") = Val(KB46109005.Text)
    barru("UNIT") = Val(UN46109005.Text)
    barru("HARGA") = Val(HR46109005.Text)

    arul.Rows.Add(barru)
    KB46109005.Text = ""
    UN46109005.Text = ""
    HR46109005.Text = ""


    End Sub

    Private Sub LATIHAN035_46109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ngek As New OleDb.OleDbDataAdapter
    ngek = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & NT46109005.Text & "'", conect)
    ngek.Fill(arul)
    ngek.Dispose()

    DATA46109005.DataSource = arul

    End Sub

    Private Sub S46109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109005.Click
    If NT46109005.Text.Length = 0 Then
    MsgBox("isi rong No Transaksi na..")
    Exit Sub
    End If

    If JT46109005.Text.Length = 0 Then
    MsgBox("Isi rong Jenis Transaksi na..")
    Exit Sub
    End If

    If arul.Rows.Count = 0 Then
    MsgBox("Maaf...Isi rong itu datatable na..")
    Exit Sub
    End If

    april.AturPencarianDataBase("mastertransaksi", "notrans", NT46109005.Text, 1, conect)
    If april.JumlanBaris > 0 Then
    MsgBox("Adami notrans seperti itu")
    Exit Sub
    End If

    fahrul = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & NT46109005.Text & "',#" & T46109005.Value.Month & "/" & T46109005.Value.Day & "/" & T46109005.Value.Year & "#,'" & JT46109005.Text & "')", conect)
    conect.Open()
    fahrul.ExecuteNonQuery()
    conect.Close()

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

    NT46109005.Text = ""
    JT46109005.Text = ""

    arul.Rows.Clear()
    End Sub
    End Class

    BalasHapus
  4. Fadillah Daude Sagena3 Januari 2012 pukul 18.05

    Public Class Form35
    Dim FADILLAH As New OleDb.OleDbCommand
    Dim SAGENA As New ByIskandar.CariKeDataBaseByIskandar
    Dim DILA 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=240991")

    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("Kode tsb sudah ada")
    Exit Sub
    End If

    If Val(UNIT_059.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If

    If Val(HARGA_059.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If
    Dim UDHE As DataRow
    UDHE = DILA.NewRow
    UDHE("KODEBARANG") = Val(KODE_059.Text)
    UDHE("UNIT") = Val(UNIT_059.Text)
    UDHE("HARGA") = Val(HARGA_059.Text)

    DILA.Rows.Add(UDHE)
    KODE_059.Text = ""
    UNIT_059.Text = ""
    HARGA_059.Text = ""


    End Sub

    Private Sub FORM35_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim DAUDE As New OleDb.OleDbDataAdapter
    DAUDE = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & DILA1_059.Text & "'", conect)
    DAUDE.Fill(DILA)
    DAUDE.Dispose()

    DATA_059.DataSource = DILA

    End Sub

    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 rong No Transaksi na..")
    Exit Sub
    End If

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

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

    SAGENA.AturPencarianDataBase("mastertransaksi", "notrans", DILA1_059.Text, 1, conect)
    If SAGENA.JumlanBaris > 0 Then
    MsgBox("Adami notrans seperti itu")
    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()
    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
  5. ayu wandika putri utami3 Januari 2012 pukul 19.14

    Public Class LATIHAN035_46109017
    Dim ayu As New OleDb.OleDbCommand
    Dim wandika As New ByIskandar.CariKeDataBaseByIskandar
    Dim putri 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=putri")

    Private Sub TM46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TM46109017.Click
    If KB46109017.Text.Length = 0 Then
    MsgBox("Kode tsb sudah ada")
    Exit Sub
    End If

    If Val(UN46109017.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If

    If Val(HR46109017.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If
    Dim utami As DataRow
    utami = putri.NewRow
    utami("KODEBARANG") = Val(KB46109017.Text)
    utami("UNIT") = Val(UN46109017.Text)
    utami("HARGA") = Val(HR46109017.Text)

    putri.Rows.Add(utami)
    KB46109017.Text = ""
    UN46109017.Text = ""
    HR46109017.Text = ""


    End Sub

    Private Sub LATIHAN035_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim idung As New OleDb.OleDbDataAdapter
    idung = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & NT46109017.Text & "'", conect)
    idung.Fill(putri)
    idung.Dispose()

    DATA46109017.DataSource = putri

    End Sub

    Private Sub S46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109017.Click
    If NT46109017.Text.Length = 0 Then
    MsgBox("isi rong No Transaksi na..")
    Exit Sub
    End If

    If JT46109017.Text.Length = 0 Then
    MsgBox("Isi rong Jenis Transaksi na..")
    Exit Sub
    End If

    If putri.Rows.Count = 0 Then
    MsgBox("Maaf...Isi rong itu datatable na..")
    Exit Sub
    End If

    wandika.AturPencarianDataBase("mastertransaksi", "notrans", NT46109017.Text, 1, conect)
    If wandika.JumlanBaris > 0 Then
    MsgBox("Adami notrans seperti itu")
    Exit Sub
    End If

    ayu = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & NT46109017.Text & "',#" & T46109017.Value.Month & "/" & T46109017.Value.Day & "/" & T46109017.Value.Year & "#,'" & JT46109017.Text & "')", conect)
    conect.Open()
    ayu.ExecuteNonQuery()
    conect.Close()

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

    NT46109017.Text = ""
    JT46109017.Text = ""

    putri.Rows.Clear()
    End Sub
    End Class

    BalasHapus
  6. ainun3 Januari 2012 pukul 19.20

    LATIHAN 35
    Public Class LATIHAN035_46109030
    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=ainun")
    Dim DT As New DataTable
    Dim telusur As New ByIskandar.CariKeDataBaseByIskandar
    Private Sub LATIHAN035_46109030_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ainun As New OleDb.OleDbDataAdapter
    ainun = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB_46109030.Text & "'", CONECT)
    DT.Rows.Clear()
    ainun.Fill(DT)
    dg_46109030.DataSource = DT

    ainun.Dispose()
    End Sub

    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("kode barang belum terisi")
    Exit Sub
    End If

    If Val(UN_46109030.Text) = 0 Then
    MsgBox("UNIT belum terisi")
    Exit Sub
    End If

    Dim nunun As DataRow

    nunun = DT.NewRow
    nunun("KODEBARANG") = KB_46109030.Text
    nunun("UNIT") = UN_46109030.Text
    nunun("HARGA") = HR_46109030.Text

    DT.Rows.Add(nunun)


    KB_46109030.Text = ""
    UN_46109030.Text = ""
    HR_46109030.Text = ""
    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("no.transaksi belum terisi")
    Exit Sub
    End If
    If jt_46109030.Text.Length = 0 Then
    MsgBox("jenis transaksi belum terisi")
    Exit Sub
    End If

    telusur.AturPencarianDataBase("mastertransaksi", "notrans", nt_46109030.Text, 1, CONECT)

    If telusur.JumlanBaris > 0 Then
    MsgBox("NO.TRANS sudah ada")
    Exit Sub
    End If

    If DT.Rows.Count = 0 Then
    MsgBox("data tidak tersedia")
    End If

    Dim nun As New OleDb.OleDbCommand
    nun = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & nt_46109030.Text & "',#" & dtp_46109030.Value.Date & "#," & Val(jt_46109030.Text) & ")", CONECT)
    CONECT.Open()
    nun.ExecuteNonQuery()
    CONECT.Close()

    For Each r As DataRow In DT.Rows

    nun = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & nt_46109030.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

    CONECT.Open()
    nun.ExecuteNonQuery()
    CONECT.Close()
    nun.Dispose()

    Next

    DT.Rows.Clear()

    nt_46109030.Text = ""
    jt_46109030.Text = ""
    End Sub
    End Class

    BalasHapus
  7. 461090344 Januari 2012 pukul 16.51

    Aryandira
    Latihan 35
    Public Class Latihan35_034
    Dim dt As New DataTable
    Dim cm As New OleDb.OleDbCommand
    Dim As New ByIskandar.CariKeDataBaseByIskandar
    Dim satu As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")

    Private Sub Latihan35_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 KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & aa_034.Text & "'", satu)
    a.Fill(dt)
    a.Dispose()

    dgv.DataSource = dt
    End Sub

    Private Sub gg_034_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gg_034.Click
    If dd_034.Text.Length = 0 Then
    MsgBox("Isi rong itu kode barang")
    Exit Sub
    End If

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

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

    Dim dr As DataRow
    dr = dt.NewRow
    dr("KODEBARANG") = dd_034.Text
    dr("UNIT") = ee_034.Text
    dr("HARGA") = ff_034.Text

    dt.Rows.Add(dr)

    dd_034.Text = ""
    ee_034.Text = ""
    ff_034.Text = ""
    End Sub

    Private Sub hh_034_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hh_034.Click
    If aa_034.Text.Length = 0 Then
    MsgBox("isi rong No Transaksi")
    Exit Sub
    End If

    If cc_034.Text.Length = 0 Then
    MsgBox("Isi rong Jenis Transaksi")
    Exit Sub
    End If

    If dt.Rows.Count = 0 Then
    MsgBox("Maaf...Isi rong itu datatable")
    Exit Sub
    End If

    Dira.AturPencarianDataBase("mastertransaksi", "notrans", aa_034.Text, 1, satu)
    If dira.JumlanBaris > 0 Then
    MsgBox("Ada notrans 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()
    End Sub
    End Class

    BalasHapus
  8. Er-murniasih4 Januari 2012 pukul 18.56

    Public Class LATIHAN035_46109056

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=12345")

    Dim DT As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

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

    Dim ASYH As New OleDb.OleDbDataAdapter
    ASYH = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & NOKB_056.Text & "'", CONECT) 'memunculkan semua data dari tabel barang dlm acces
    DT.Rows.Clear()
    ASYH.Fill(DT)
    DG1_056.DataSource = DT

    ASYH.Dispose()

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH.Click

    If NOKB_056.Text.Length = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If

    If Val(UN_056.Text) = 0 Then
    MsgBox("UNIT belum terisi")
    Exit Sub
    End If

    If Val(HR_056.Text) = 0 Then
    MsgBox("HARGA belum terisi")
    Exit Sub
    End If

    Dim muhASYH As DataRow

    muhASYH = DT.NewRow
    muhASYH("KODEBARANG") = NOKB_056.Text
    muhASYH("UNIT") = UN_056.Text
    muhASYH("HARGA") = HR_056.Text

    DT.Rows.Add(muhASYH)

    NOKB_056.Text = ""
    UN_056.Text = ""
    HR_056.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click

    If NOKB_056.Text.Length = 0 Then
    MsgBox("no.transaksi belum terisi")
    Exit Sub
    End If

    If NOKB_056.Text.Length = 0 Then
    MsgBox("jenis transaksi belum terisi")
    Exit Sub
    End If

    cari.AturPencarianDataBase("mastertransaksi", "notrans", NOKB_056.Text, 1, CONECT)

    If cari.JumlanBaris > 0 Then
    MsgBox("NO.TRANS sudah ada")
    Exit Sub
    End If

    If DT.Rows.Count = 0 Then
    MsgBox("data tidak tersedia")
    End If

    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NOKB_056.Text & "',#" & DG1_056.Text & "#," & Val(NOKB_056.Text) & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()

    For Each r As DataRow In DT.Rows

    com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & NOKB_056.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)

    CONECT.Open()
    com.ExecuteNonQuery()
    CONECT.Close()
    com.Dispose()

    Next

    DT.Rows.Clear()

    NOKB_056.Text = ""
    NOKB_056.Text = ""

    End Sub

    End Class

    BalasHapus
  9. Joice Natalina Paginta4 Januari 2012 pukul 23.21

    Public Class LATIHAN035_46109041
    Dim joice As New OleDb.OleDbCommand
    Dim natalina As New ByIskandar.CariKeDataBaseByIskandar
    Dim paginta 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=paginta")

    Private Sub TB_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB_041.Click
    If KB_041.Text.Length = 0 Then
    MsgBox("Kode tsb sudah ada")
    Exit Sub
    End If

    If Val(UN_041.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If

    If Val(H_041.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If
    Dim parinding As DataRow
    parinding = paginta.NewRow
    parinding("KODEBARANG") = Val(KB_041.Text)
    parinding("UNIT") = Val(UN_041.Text)
    parinding("HARGA") = Val(H_041.Text)

    paginta.Rows.Add(parinding)
    KB_041.Text = ""
    UN_041.Text = ""
    H_041.Text = ""


    End Sub

    Private Sub LATIHAN035_46109041_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim seunggi As New OleDb.OleDbDataAdapter
    seunggi = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & NT_041.Text & "'", conect)
    seunggi.Fill(paginta)
    seunggi.Dispose()

    lee_041.DataSource = paginta

    End Sub

    Private Sub S_041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S_041.Click
    If NT_041.Text.Length = 0 Then
    MsgBox("tolong diisi no transaksi")
    Exit Sub
    End If

    If JT_041.Text.Length = 0 Then
    MsgBox("tolong diisi jenis transaksi")
    Exit Sub
    End If

    If paginta.Rows.Count = 0 Then
    MsgBox("tolong diisi datatable")
    Exit Sub
    End If

    natalina.AturPencarianDataBase("mastertransaksi", "notrans", NT_041.Text, 1, conect)
    If natalina.JumlanBaris > 0 Then
    MsgBox("sudah ada")
    Exit Sub
    End If

    joice = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & NT_041.Text & "',#" & T_041.Value.Month & "/" & T_041.Value.Day & "/" & T_041.Value.Year & "#,'" & JT_041.Text & "')", conect)
    conect.Open()
    joice.ExecuteNonQuery()
    conect.Close()

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

    NT_041.Text = ""
    JT_041.Text = ""

    paginta.Rows.Clear()
    End Sub
    End Class

    BalasHapus
  10. Dwi Mustika Chaerunnisa Mulyadi5 Januari 2012 pukul 01.50

    Public Class LATIHAN_035_46109054
    Dim DWI As New DataTable
    Dim MUSTIKA As New OleDb.OleDbCommand
    Dim CHAERUNNISA As New ByIskandar.CariKeDataBaseByIskandar
    Dim MULYADI As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATAMAJEMUK.ACCDB;Jet OLEDB:Database Password=wiwi")

    Private Sub LATIHAN_035_46109054_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim TING As New OleDb.OleDbDataAdapter
    TING = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & ww1_46109054.Text & "'", MULYADI)
    TING.Fill(DWI)
    TING.Dispose()

    dgv_46109054.DataSource = DWI
    End Sub

    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_NYA DULU")
    Exit Sub
    End If

    If Val(WW4_46109054.Text) = 0 Then
    MsgBox("Isi Unit_Nya dulu")
    Exit Sub
    End If

    If Val(WW5_46109054.Text) = 0 Then
    MsgBox("Isi Harga_nya dulu")
    Exit Sub
    End If

    Dim dr As DataRow
    dr = DWI.NewRow
    dr("KODEBARANG") = WW3_46109054.Text
    dr("UNIT") = WW4_46109054.Text
    dr("HARGA") = WW5_46109054.Text

    DWI.Rows.Add(dr)

    WW3_46109054.Text = ""
    WW4_46109054.Text = ""
    WW5_46109054.Text = ""
    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_Nya dulu")
    Exit Sub
    End If

    If WW2_46109054.Text.Length = 0 Then
    MsgBox("Isi Jenis Transaksi_nya dulu")
    Exit Sub
    End If

    If DWI.Rows.Count = 0 Then
    MsgBox("Maaf, Isi datatable_nya dulu")
    Exit Sub
    End If

    CHAERUNNISA.AturPencarianDataBase("mastertransaksi", "notrans", ww1_46109054.Text, 1, MULYADI)
    If CHAERUNNISA.JumlanBaris > 0 Then
    MsgBox("notrans seperti itu 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 & "')", MULYADI)
    MULYADI.Open()
    MUSTIKA.ExecuteNonQuery()
    MULYADI.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") & "')", MULYADI)
    MULYADI.Open()
    MUSTIKA.ExecuteNonQuery()
    MULYADI.Close()
    Next
    MUSTIKA.Dispose()

    ww1_46109054.Text = ""
    WW2_46109054.Text = ""

    DWI.Rows.Clear()
    End Sub
    End Class

    BalasHapus
  11. Unknown5 Januari 2012 pukul 04.33

    Public Class Form35
    Dim ismi As New OleDb.OleDbCommand
    Dim sri As New ByIskandar.CariKeDataBaseByIskandar
    Dim cimi 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=cimi")

    Private Sub tambah_46109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_46109023.Click
    If kode_46109023.Text.Length = 0 Then
    MsgBox("Kode tsb sudah ada")
    Exit Sub
    End If

    If Val(unit_46109023.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If

    If Val(harga_46109023.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If
    Dim cimi2 As DataRow
    cimi2 = cimi.NewRow
    cimi2("KODEBARANG") = Val(kode_46109023.Text)
    cimi2("UNIT") = Val(unit_46109023.Text)
    cimi2("HARGA") = Val(harga_46109023.Text)

    cimi.Rows.Add(cimi2)
    kode_46109023.Text = ""
    unit_46109023.Text = ""
    harga_46109023.Text = ""


    End Sub

    Private Sub Form35_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim cimi3 As New OleDb.OleDbDataAdapter
    cimi3 = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & notrans_46109023.Text & "'", conect)
    cimi3.Fill(cimi)
    cimi3.Dispose()

    data_46109023.DataSource = cimi

    End Sub

    Private Sub simpan_46109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46109023.Click
    If notrans_46109023.Text.Length = 0 Then
    MsgBox("isi rong No Transaksi na..")
    Exit Sub
    End If

    If jenis_46109023.Text.Length = 0 Then
    MsgBox("Isi rong Jenis Transaksi na..")
    Exit Sub
    End If

    If cimi.Rows.Count = 0 Then
    MsgBox("Maaf...Isi rong itu datatable na..")
    Exit Sub
    End If

    sri.AturPencarianDataBase("mastertransaksi", "notrans", notrans_46109023.Text, 1, conect)
    If sri.JumlanBaris > 0 Then
    MsgBox("Adami notrans seperti itu")
    Exit Sub
    End If

    ismi = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & notrans_46109023.Text & "',#" & tgl_46109023.Value.Month & "/" & tgl_46109023.Value.Day & "/" & tgl_46109023.Value.Year & "#,'" & jenis_46109023.Text & "')", conect)
    conect.Open()
    ismi.ExecuteNonQuery()
    conect.Close()

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

    notrans_46109023.Text = ""
    jenis_46109023.Text = ""

    cimi.Rows.Clear()
    End Sub
    End Class

    BalasHapus
  12. Dwi Mustika Chaerunnisa Mulyadi5 Januari 2012 pukul 05.10

    Public Class LATIHAN_035_46109054
    Dim DWI As New DataTable
    Dim MUSTIKA As New OleDb.OleDbCommand
    Dim CHAERUNNISA As New ByIskandar.CariKeDataBaseByIskandar
    Dim MULYADI As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DATAMAJEMUK.ACCDB;Jet OLEDB:Database Password=wiwi")

    Private Sub LATIHAN_035_46109054_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim TING As New OleDb.OleDbDataAdapter
    TING = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & ww1_46109054.Text & "'", MULYADI)
    TING.Fill(DWI)
    TING.Dispose()

    dgv_46109054.DataSource = DWI
    End Sub

    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_NYA DULU")
    Exit Sub
    End If

    If Val(WW4_46109054.Text) = 0 Then
    MsgBox("Isi Unit_Nya dulu")
    Exit Sub
    End If

    If Val(WW5_46109054.Text) = 0 Then
    MsgBox("Isi Harga_nya dulu")
    Exit Sub
    End If

    Dim dr As DataRow
    dr = DWI.NewRow
    dr("KODEBARANG") = WW3_46109054.Text
    dr("UNIT") = WW4_46109054.Text
    dr("HARGA") = WW5_46109054.Text

    DWI.Rows.Add(dr)

    WW3_46109054.Text = ""
    WW4_46109054.Text = ""
    WW5_46109054.Text = ""
    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_Nya dulu")
    Exit Sub
    End If

    If WW2_46109054.Text.Length = 0 Then
    MsgBox("Isi Jenis Transaksi_nya dulu")
    Exit Sub
    End If

    If DWI.Rows.Count = 0 Then
    MsgBox("Maaf, Isi datatable_nya dulu")
    Exit Sub
    End If

    CHAERUNNISA.AturPencarianDataBase("mastertransaksi", "notrans", ww1_46109054.Text, 1, MULYADI)
    If CHAERUNNISA.JumlanBaris > 0 Then
    MsgBox("notrans seperti itu 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 & "')", MULYADI)
    MULYADI.Open()
    MUSTIKA.ExecuteNonQuery()
    MULYADI.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") & "')", MULYADI)
    MULYADI.Open()
    MUSTIKA.ExecuteNonQuery()
    MULYADI.Close()
    Next
    MUSTIKA.Dispose()

    ww1_46109054.Text = ""
    WW2_46109054.Text = ""

    DWI.Rows.Clear()
    End Sub
    End Class

    BalasHapus
  13. Febiana Fransiscus5 Januari 2012 pukul 05.11

    Public Class LATIHAN035_46109027
    Dim febiana As New OleDb.OleDbCommand
    Dim fransiskus As New ByIskandar.CariKeDataBaseByIskandar
    Dim feby 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=ngekngek")

    Private Sub TM_46109027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TM_46109027.Click
    If KB_46109027.Text.Length = 0 Then
    MsgBox("Kode tsb sudah ada")
    Exit Sub
    End If

    If Val(UN_46109027.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If

    If Val(HR_46109027.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If
    Dim tingting As DataRow
    tingting = feby.NewRow
    tingting("KODEBARANG") = Val(KB_46109027.Text)
    tingting("UNIT") = Val(UN_46109027.Text)
    tingting("HARGA") = Val(HR_46109027.Text)

    feby.Rows.Add(tingting)
    KB_46109027.Text = ""
    UN_46109027.Text = ""
    HR_46109027.Text = ""


    End Sub

    Private Sub LATIHAN035_46109027_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ting As New OleDb.OleDbDataAdapter
    ting = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & NT_46109027.Text & "'", conect)
    ting.Fill(feby)
    ting.Dispose()

    D_46109027.DataSource = feby

    End Sub

    Private Sub S46109027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S_46109027.Click
    If NT_46109027.Text.Length = 0 Then
    MsgBox("isi rong No Transaksi na..")
    Exit Sub
    End If

    If JT_46109027.Text.Length = 0 Then
    MsgBox("Isi rong Jenis Transaksi na..")
    Exit Sub
    End If

    If feby.Rows.Count = 0 Then
    MsgBox("Maaf...Isi rong itu datatable na..")
    Exit Sub
    End If

    fransiskus.AturPencarianDataBase("mastertransaksi", "notrans", NT_46109027.Text, 1, conect)
    If fransiskus.JumlanBaris > 0 Then
    MsgBox("Adami notrans seperti itu")
    Exit Sub
    End If

    febiana = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & NT_46109027.Text & "',#" & T_46109027.Value.Month & "/" & T_46109027.Value.Day & "/" & T_46109027.Value.Year & "#,'" & JT_46109027.Text & "')", conect)
    conect.Open()
    febiana.ExecuteNonQuery()
    conect.Close()

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

    NT_46109027.Text = ""
    JT_46109027.Text = ""

    feby.Rows.Clear()
    End Sub
    End Class

    BalasHapus
  14. sae' itu indah5 Januari 2012 pukul 06.21

    Public Class LATIHAN_035_46109053
    Dim INDAH As New OleDb.OleDbCommand
    Dim YANI As New ByIskandar.CariKeDataBaseByIskandar
    Dim DT As New DataTable
    Dim koneksi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\daTAMBAHajemuk.accdb;Jet OLEDB:Database Password=ngekngek")

    Private Sub TAMBAH_053_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_053.Click
    If KB_053.Text.Length = 0 Then
    MsgBox("Kode tsb sudah ada")
    Exit Sub
    End If

    If Val(UNIT_053.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If

    If Val(HRG_053.Text) = 0 Then
    MsgBox("Tolong di isi")
    Exit Sub
    End If
    Dim SAE As DataRow
    SAE = DT.NewRow
    SAE("KODEBARANG") = Val(KB_053.Text)
    SAE("UNIT") = Val(UNIT_053.Text)
    SAE("HARGA") = Val(HRG_053.Text)

    DT.Rows.Add(SAE)
    KB_053.Text = ""
    UNIT_053.Text = ""
    HRG_053.Text = ""


    End Sub

    Private Sub LATIHAN035_053_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim ENONG As New OleDb.OleDbDataAdapter
    ENONG = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & NT_053.Text & "'", koneksi)
    ENONG.Fill(DT)
    ENONG.Dispose()

    DATA_053.DataSource = DT

    End Sub

    Private Sub SIMPAN_053_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_053.Click
    If NT_053.Text.Length = 0 Then
    MsgBox("isi rong No Transaksi na..")
    Exit Sub
    End If

    If JT_053.Text.Length = 0 Then
    MsgBox("Isi rong Jenis Transaksi na..")
    Exit Sub
    End If

    If DT.Rows.Count = 0 Then
    MsgBox("Maaf...Isi rong itu datatable na..")
    Exit Sub
    End If

    YANI.AturPencarianDataBase("mastertransaksi", "notrans", NT_053.Text, 1, koneksi)
    If YANI.JumlanBaris > 0 Then
    MsgBox("Adami notrans seperti itu")
    Exit Sub
    End If

    INDAH = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & NT_053.Text & "',#" & TGL_053.Value.Month & "/" & TGL_053.Value.Day & "/" & TGL_053.Value.Year & "#,'" & JT_053.Text & "')", koneksi)
    koneksi.Open()
    INDAH.ExecuteNonQuery()
    koneksi.Close()

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

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

    DT.Rows.Clear()
    End Sub
    End Class

    BalasHapus
  15. Unknown3 November 2012 pukul 16.10

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

    BalasHapus
  16. Unknown3 November 2012 pukul 19.16

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

    BalasHapus
  17. Dunia Ilmu3 November 2012 pukul 21.46

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

    BalasHapus
  18. Unknown4 November 2012 pukul 00.48

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

    BalasHapus
  19. Unknown4 November 2012 pukul 08.04

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

    BalasHapus
  20. Unknown5 November 2012 pukul 05.46

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

    BalasHapus
  21. Unknown5 November 2012 pukul 09.13

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

    BalasHapus
  22. Unknown8 November 2012 pukul 04.07

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

    BalasHapus
  23. Unknown8 November 2012 pukul 21.45

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

    BalasHapus
  24. Unknown8 November 2012 pukul 22.14

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

    BalasHapus
  25. Unknown9 November 2012 pukul 05.26

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

    BalasHapus
  26. Unknown10 November 2012 pukul 23.55

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

    BalasHapus
  27. ildayani3 Desember 2012 pukul 23.08

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

    BalasHapus
  28. Unknown12 Desember 2012 pukul 08.12

    http://masdarwati.blogspot.com/2012/11/latihan3546110024.html

    BalasHapus
  29. Unknown25 Desember 2012 pukul 01.29

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

    BalasHapus
  30. Unknown1 Januari 2013 pukul 22.03

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

    BalasHapus
  31. Unknown2 Januari 2013 pukul 18.21

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

    BalasHapus
  32. Unknown3 Januari 2013 pukul 02.54

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

    BalasHapus
  33. Unknown5 Januari 2013 pukul 07.07

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

    BalasHapus
  34. Feiby Frycilia18 Januari 2013 pukul 02.59

    http://feibyfrycilia.blogspot.com/2013/01/latihan3546110055.html

    BalasHapus
  35. Unknown27 Januari 2013 pukul 01.22

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

    BalasHapus
  36. Unknown30 Januari 2013 pukul 07.17

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

    BalasHapus

Langganan: Posting Komentar (Atom)