Jumat, 18 November 2011

Latihan 35 APKOM 4 D3A

Diposting oleh di

17 komentar:

  1. Rusnaningsi Ruslan24 November 2011 pukul 00.35

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  2. Rusnaningsi Ruslan24 November 2011 pukul 00.42

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

    Private Sub Form35_36109010_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.Text & "'", mickey)
    a.Fill(dt)
    a.Dispose()

    dgv.DataSource = dt
    End Sub

    Private Sub gg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gg.Click
    If dd.Text.Length = 0 Then
    MsgBox("Isi rong itu Kode Barang na..")
    Exit Sub
    End If

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

    If Val(ff.Text) = 0 Then
    MsgBox("Isi rong itu Harga na..")
    Exit Sub
    End If

    Dim dr As DataRow
    dr = dt.NewRow
    dr("KODEBARANG") = dd.Text
    dr("UNIT") = ee.Text
    dr("HARGA") = ff.Text

    dt.Rows.Add(dr)

    dd.Text = ""
    ee.Text = ""
    ff.Text = ""
    End Sub

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

    If cc.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

    rusna.AturPencarianDataBase("mastertransaksi", "notrans", aa.Text, 1, mickey)
    If rusna.JumlanBaris > 0 Then
    MsgBox("Adami notrans seperti itu")
    Exit Sub
    End If

    cm = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & aa.Text & "',#" & bb.Value.Month & "/" & bb.Value.Day & "/" & bb.Value.Year & "#,'" & cc.Text & "')", mickey)
    mickey.Open()
    cm.ExecuteNonQuery()
    mickey.Close()

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

    aa.Text = ""
    cc.Text = ""

    dt.Rows.Clear()
    End Sub
    End Class

    BalasHapus
  3. Alwiyah Patham1 Desember 2011 pukul 07.45

    ALWIYAH
    3A-D3 / 36109009

    http://alwiyah-chucha.blogspot.com/2011/12/latihanform35.html

    Terima Kasih Pak

    BalasHapus
  4. soedarmanto1 Desember 2011 pukul 16.00

    Public NotInheritable Class form35_36109003
    Dim arman As New ByIskandar.CariKeDataBaseByIskandar
    Dim anto As New DataTable
    Dim soe As New OleDb.OleDbCommand
    Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataMajemuk.accdb'")

    Private Sub form35_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim r As New OleDb.OleDbDataAdapter
    r = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & nt_36109003.Text & "'", ndut)
    r.Fill(anto)
    r.Dispose()

    dgv_36109003.DataSource = anto
    End Sub

    Private Sub tambah_36109003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36109003.Click
    If kb_36109003.Text.Length = 0 Then
    MsgBox("kode barang tidak terisi")
    ElseIf Val(unit_36109003.Text) = 0 Then
    MsgBox("unit tidak terisi")
    ElseIf Val(harga_36109003.Text) = 0 Then
    MsgBox("harga barang tidak terisi")
    Exit Sub
    End If

    Dim dt As DataRow
    dt = anto.NewRow
    dt("KODEBARANG") = kb_36109003.Text
    dt("UNIT") = unit_36109003.Text
    dt("HARGA") = harga_36109003.Text

    anto.Rows.Add(dt)

    kb_36109003.Text = ""
    unit_36109003.Text = ""
    harga_36109003.Text = ""
    End Sub

    Private Sub simpan_36109003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109003.Click
    If nt_36109003.Text.Length = 0 Then
    MsgBox("nomor transaksi harus terisi")
    ElseIf jt_36109003.Text.Length = 0 Then
    MsgBox("Isi rong Jenis Transaksi na..")
    ElseIf anto.Rows.Count = 0 Then
    MsgBox("data table tidak boleh kosong")
    Exit Sub
    End If

    arman.AturPencarianDataBase("mastertransaksi", "notrans", nt_36109003.Text, 1, ndut)
    If arman.JumlanBaris > 0 Then
    MsgBox("nomor transaksi telah ada")
    Exit Sub
    End If

    soe = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & nt_36109003.Text & "',#" & tgl_36109003.Value.Month & "/" & tgl_36109003.Value.Day & "/" & tgl_36109003.Value.Year & "#,'" & jt_36109003.Text & "')", ndut)
    ndut.Open()
    soe.ExecuteNonQuery()
    ndut.Close()

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

    nt_36109003.Text = ""
    jt_36109003.Text = ""

    anto.Rows.Clear()
    End Sub
    End Class

    BalasHapus
  5. _IsMy_2 Desember 2011 pukul 07.49

    Ismi Febriani Asyikin
    3a d3
    361 09 005

    http://ismifebriani.blogspot.com/2011/12/apkom-4-latihan-35.html

    BalasHapus
  6. Kim Hyo Byung3 Desember 2011 pukul 21.05

    amelia indahsari
    361 09 023

    http://heiamee.blogspot.com/2011/12/form-35.html

    BalasHapus
  7. Rusnaningsi Ruslan8 Desember 2011 pukul 01.11

    RUSNANINGSI R
    36109010

    http://rusnaningsi.blogspot.com/2011/12/latihan-35-36-apkom-4.html

    BalasHapus
  8. Sofia9 Desember 2011 pukul 17.40

    http://vievhy.blogspot.com/2011/12/form-35-37.html

    BalasHapus
  9. ridhacayoo14 Desember 2011 pukul 06.20

    ridhayanti saleh
    36109015

    http://ridhacayoo-ridhaahmad.blogspot.com/2011/12/tugas-35-baru.html

    BalasHapus
  10. Hastuti14 Desember 2011 pukul 16.44

    HASTUTI
    36109016


    FORM35
    Public Class Form35
    Dim poltek As New DataTable
    Dim has As New OleDb.OleDbCommand
    Dim uthi As New ByIskandar.CariKeDataBaseByIskandar
    Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")

    Private Sub Form35_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 = '" & no36109016.Text & "'", ak)
    a.Fill(poltek)
    a.Dispose()

    dgv36109016.DataSource = poltek
    End Sub

    Private Sub tambah36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah36109016.Click
    If kode36109016.Text.Length = 0 Then
    MsgBox("Isi rong itu Kode Barang na..")
    Exit Sub
    End If

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

    If Val(harga36109016.Text) = 0 Then
    MsgBox("Isi rong itu Harga na..")
    Exit Sub
    End If

    Dim dr As DataRow
    dr = poltek.NewRow
    dr("KODEBARANG") = kode36109016.Text
    dr("UNIT") = unit36109016.Text
    dr("HARGA") = harga36109016.Text

    poltek.Rows.Add(dr)

    kode36109016.Text = ""
    unit36109016.Text = ""
    harga36109016.Text = ""
    End Sub

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

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

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

    uthi.AturPencarianDataBase("mastertransaksi", "notrans", no36109016.Text, 1, ak)
    If uthi.JumlanBaris > 0 Then
    MsgBox("Adami notrans seperti itu")
    Exit Sub
    End If

    has = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & no36109016.Text & "',#" & tanggal36109016.Value.Month & "/" & tanggal36109016.Value.Day & "/" & tanggal36109016.Value.Year & "#,'" & jenis36109016.Text & "')", ak)
    ak.Open()
    has.ExecuteNonQuery()
    ak.Close()

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

    no36109016.Text = ""
    jenis36109016.Text = ""

    poltek.Rows.Clear()
    End Sub
    End Class

    BalasHapus
  11. WahyuniStronggg14 Desember 2011 pukul 21.59

    ANDI WAHYUNI
    361 09 019
    http://wahyunistrongggg.blogspot.com/2011/12/latihan-35-37.html

    BalasHapus
  12. Febrianty Surya Ningtyas28 Desember 2011 pukul 16.40

    http://febriantysuryaningtyas.blogspot.com/2011/12/latihan-35.html

    BalasHapus
  13. wiwi arrahma31 Desember 2011 pukul 07.24

    http://azzuraarrahma.blogspot.com/2011/12/jawaban-form-35-sampe-form-40b.html

    makasih, Pak.

    BalasHapus
  14. ApReaL_ApRiLio5 Januari 2012 pukul 15.39

    Public Class Form35_36109001
    Dim dt As New DataTable
    Dim rr As New OleDb.OleDbCommand
    Dim apreal As New ByIskandar.CariKeDataBaseByIskandar
    Dim imps As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.AJT_36109001DB")

    Private Sub Form35_36109001_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 = '" & notrans_36109001.Text & "'", imps)
    a.Fill(dt)
    a.Dispose()

    dgv_36109001.DataSource = dt
    End Sub

    Private Sub Btn_36109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_36109001.Click
    If KB_36109001.Text.Length = 0 Then
    MsgBox("Isi itu Kode Barang na..")
    Exit Sub
    End If

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

    If Val(HR_36109001.Text) = 0 Then
    MsgBox("Isi itu Harga na..")
    Exit Sub
    End If

    Dim dr As DataRow
    dr = dt.NewRow
    dr("KODEBARANG") = KB_36109001.Text
    dr("UNIT") = UN_36109001.Text
    dr("HARGA") = HR_36109001.Text

    dt.Rows.Add(dr)

    KB_36109001.Text = ""
    UN_36109001.Text = ""
    HR_36109001.Text = ""
    End Sub

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

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

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

    apreal.AturPencarianDataBase("mastertransaksi", "notrans", notrans_36109001.Text, 1, imps)
    If apreal.JumlanBaris > 0 Then
    MsgBox("Adami notrans seperti itu")
    Exit Sub
    End If

    rr = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanBtn_36109001altransaksi, jenistransaksi) values ('" & notrans_36109001.Text & "',#" & dtp_36109001.Value.Month & "/" & dtp_36109001.Value.Day & "/" & dtp_36109001.Value.Year & "#,'" & jt_36109001.Text & "')", imps)
    imps.Open()
    rr.ExecuteNonQuery()
    imps.Close()

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

    notrans_36109001.Text = ""
    jt_36109001.Text = ""

    dt.Rows.Clear()
    End Sub
    End Class

    BalasHapus
  15. Anonim6 Januari 2012 pukul 02.41

    iwan
    361 09 026
    3A-D3

    http://iwandinejad.blogspot.com/#!/2012/01/latihan-35.html

    BalasHapus
  16. Harun8 Januari 2012 pukul 23.52

    Muhammad Harun Hamid
    361 09 006

    Public Class Form35_36109006
    Dim dt As New DataTable
    Dim cm_36109006 As New OleDb.OleDbCommand
    Dim harun As New ByIskandar.CariKeDataBaseByIskandar
    Dim hma As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")

    Private Sub Latihan35_36109006_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_36109006.Text & "'", hma)
    a.Fill(dt)
    a.Dispose()

    dgv_36109006.DataSource = dt
    End Sub

    Private Sub gg_36109006Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gg_36109006.Click
    If dd_36109006.Text.Length = 0 Then
    MsgBox("Isi rong itu Kode Barang na..")
    Exit Sub
    End If

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

    If Val(ff_36109006.Text) = 0 Then
    MsgBox("Isi rong itu Harga na..")
    Exit Sub
    End If

    Dim dr As DataRow
    dr = dt.NewRow
    dr("KODEBARANG") = dd_36109006.Text
    dr("UNIT") = ee_36109006.Text
    dr("HARGA") = ff_36109006.Text

    dt.Rows.Add(dr)

    dd_36109006.Text = ""
    ee_36109006.Text = ""
    ff_36109006.Text = ""
    End Sub

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

    If cc_36109006.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

    harun.AturPencarianDataBase("mastertransaksi", "notrans", aa_36109006.Text, 1, hma)
    If harun.JumlanBaris > 0 Then
    MsgBox("Adami notrans seperti itu")
    Exit Sub
    End If

    cm_36109006 = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & aa_36109006.Text & "',#" & bb_36109006.Value.Month & "/" & bb_36109006.Value.Day & "/" & bb_36109006.Value.Year & "#,'" & cc_36109006.Text & "')", hma)
    hma.Open()
    cm_36109006.ExecuteNonQuery()
    hma.Close()

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

    aa_36109006.Text = ""
    cc_36109006.Text = ""

    dt.Rows.Clear()
    End Sub

    End Class

    BalasHapus
  17. Harun10 Januari 2012 pukul 23.43

    Muhammad Harun Hamid
    361 09 006

    Public Class Form35_36109006
    Dim dt As New DataTable
    Dim cm_36109006 As New OleDb.OleDbCommand
    Dim harun As New ByIskandar.CariKeDataBaseByIskandar
    Dim hma As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")

    Private Sub Latihan35_36109006_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_36109006.Text & "'", hma)
    a.Fill(dt)
    a.Dispose()

    dgv_36109006.DataSource = dt
    End Sub

    Private Sub gg_36109006Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gg_36109006.Click
    If dd_36109006.Text.Length = 0 Then
    MsgBox("Isi rong itu Kode Barang na..")
    Exit Sub
    End If

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

    If Val(ff_36109006.Text) = 0 Then
    MsgBox("Isi rong itu Harga na..")
    Exit Sub
    End If

    Dim dr As DataRow
    dr = dt.NewRow
    dr("KODEBARANG") = dd_36109006.Text
    dr("UNIT") = ee_36109006.Text
    dr("HARGA") = ff_36109006.Text

    dt.Rows.Add(dr)

    dd_36109006.Text = ""
    ee_36109006.Text = ""
    ff_36109006.Text = ""
    End Sub

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

    If cc_36109006.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

    harun.AturPencarianDataBase("mastertransaksi", "notrans", aa_36109006.Text, 1, hma)
    If harun.JumlanBaris > 0 Then
    MsgBox("Adami notrans seperti itu")
    Exit Sub
    End If

    cm_36109006 = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & aa_36109006.Text & "',#" & bb_36109006.Value.Month & "/" & bb_36109006.Value.Day & "/" & bb_36109006.Value.Year & "#,'" & cc_36109006.Text & "')", hma)
    hma.Open()
    cm_36109006.ExecuteNonQuery()
    hma.Close()

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

    aa_36109006.Text = ""
    cc_36109006.Text = ""

    dt.Rows.Clear()
    End Sub

    End Class

    BalasHapus

Langganan: Posting Komentar (Atom)