Jumat, 04 November 2011

Latihan 27 Apkom 4 D4 A

Silahkan kumpul disini

35 komentar:

  1. dewi sartika
    461 09 045
    3A.D4

    Public Class LATIHAN027_46109045
    Dim conect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb")

    Private Sub SIMPAN_045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_045.Click
    Dim DEDE As New OleDb.OleDbCommand
    DEDE = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & KD_045.Text & "','" & NB_045.Text & "', '" & Val(HJ_045.Text) & "', '" & Val(JB_045.Text) & "')", conect)


    conect.Open()
    DEDE.ExecuteNonQuery()
    conect.Close()
    KD_045.Text = " "
    NB_045.Text = " "
    HJ_045.Text = " "
    JB_045.Text = " "
    End Sub
    Private Sub LATIHAN027_46109045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    End Class

    BalasHapus
  2. Public Class Latihan27_46109001
    Dim conect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb")

    Private Sub S46109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109001.Click
    Dim tingting As New OleDb.OleDbCommand
    tingting = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kb46109001.Text & "','" & NB46109001.Text & "', '" & Val(HJ46109001.Text) & "', '" & Val(JB46109001.Text) & "')", conect)


    conect.Open()
    tingting.ExecuteNonQuery()
    conect.Close()
    kb46109001.Text = " "
    NB46109001.Text = " "
    HJ46109001.Text = " "
    JB46109001.Text = " "
    End Sub
    End Class

    BalasHapus
  3. Public Class LATIHAN027_46109008
    Dim jembatan As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=46109008")
    Private Sub Simpan_46109008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46109008.Click
    If Val(KB_46109008.Text) = 0 Then
    MsgBox("maaf kode barang belum terisi")
    Exit Sub
    End If
    If NB_46109008.Text.Length = 0 Then
    MsgBox("maaf nama barang belum terisi")
    Exit Sub
    End If
    If Val(HJ_46109008.Text) = 0 Then
    MsgBox("maaf harga jual belum diisi")
    Exit Sub
    End If
    If Val(JB_46109008.Text) = 0 Then
    MsgBox("maaf jumlah barang belum diisi")
    Exit Sub
    End If
    Dim shoell As New OleDb.OleDbCommand
    shoell = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & KB_46109008.Text & "','" & NB_46109008.Text & "'," & Val(HJ_46109008.Text) & "," & Val(JB_46109008.Text) & ")", jembatan)
    jembatan.Open()
    shoell.ExecuteNonQuery()
    jembatan.Close()
    shoell.Dispose()
    KB_46109008.Text = ""
    NB_46109008.Text = " "
    HJ_46109008.Text = " "
    JB_46109008.Text = " "
    End Sub
    End Class

    BalasHapus
  4. Public Class Form27
    Dim FADILLAH As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=DILA")

    Private Sub DILA1_46109059_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DILA1_46109059.Click
    If DILA1_46109059.Text.Length = 0 Then
    MsgBox("Isi yang kosong")
    Exit Sub
    End If

    If DILA2_46109059.Text.Length = 0 Then
    MsgBox("Isi yang kosong")
    Exit Sub
    End If

    If Val(DILA3_46109059.Text) = 0 Then
    MsgBox("Isi yang kosong")
    Exit Sub
    End If

    If Val(DILA4_46109059.Text) = 0 Then
    MsgBox("Isi yang kosong")
    Exit Sub
    End If

    Dim SAGENA As New OleDb.OleDbCommand
    SAGENA = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & DILA1_46109059.Text & "','" & DILA2_46109059.Text & "'," & Val(DILA3_46109059.Text) & "," & Val(DILA4_46109059.Text) & ")", FADILLAH)

    FADILLAH.Open()
    SAGENA.ExecuteNonQuery()
    FADILLAH.Close()
    SAGENA.Dispose()

    DILA1_46109059.Text = ""
    DILA2_46109059.Text = ""
    DILA3_46109059.Text = ""
    DILA4_46109059.Text = ""
    End Sub
    End Class

    BalasHapus
  5. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  6. Public Class Latihan27_46109023
    Dim conect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb")

    Private Sub S46109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109023.Click
    Dim cimi As New OleDb.OleDbCommand
    cimi= New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kb46109023.Text & "','" & NB46109023.Text & "', '" & Val(HJ46109023.Text) & "', '" & Val(JB46109023.Text) & "')", conect)


    conect.Open()
    cimi.ExecuteNonQuery()
    conect.Close()
    kb46109023.Text = " "
    NB46109023.Text = " "
    HJ46109023.Text = " "
    JB46109023.Text = " "
    End Sub
    End Class
    Public Class Latihan27_46109023
    Dim conect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb")

    Private Sub S46109023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109023.Click
    Dim cimi As New OleDb.OleDbCommand
    cimi = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kb46109023.Text & "','" & NB46109023.Text & "', '" & Val(HJ46109023.Text) & "', '" & Val(JB46109023.Text) & "')", conect)


    conect.Open()
    cimi.ExecuteNonQuery()
    conect.Close()
    kb46109023.Text = " "
    NB46109023.Text = " "
    HJ46109023.Text = " "
    JB46109023.Text = " "
    End Sub
    End Class

    BalasHapus
  7. Public Class LATIHAN_027_46109053
    Dim INDAH As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=SAE")

    Private Sub Saenong1_46109053_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Saenong1_46109053.Click
    If SAE1_46109053.Text.Length = 0 Then
    MsgBox("Isi rong itu yang kosong")
    Exit Sub
    End If

    If SAE2_46109053.Text.Length = 0 Then
    MsgBox("Isi rong itu yang kosong")
    Exit Sub
    End If

    If Val(SAE3_46109053.Text) = 0 Then
    MsgBox("Isi rong itu yang kosong")
    Exit Sub
    End If

    If Val(SAE4_46109053.Text) = 0 Then
    MsgBox("Isi rong itu yang kosong")
    Exit Sub
    End If

    Dim yani As New OleDb.OleDbCommand
    yani = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & SAE1_46109053.Text & "','" & SAE2_46109053.Text & "'," & Val(SAE3_46109053.Text) & "," & Val(SAE4_46109053.Text) & ")", INDAH)

    INDAH.Open()
    yani.ExecuteNonQuery()
    INDAH.Close()
    yani.Dispose()

    SAE1_46109053.Text = ""
    SAE2_46109053.Text = ""
    SAE3_46109053.Text = ""
    SAE4_46109053.Text = ""
    End Sub
    End Class

    BalasHapus
  8. Public Class LATIHAN02746109017

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

    Private Sub Button146109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button146109017.Click
    Dim ayu As New OleDb.OleDbDataAdapter("select count(*) as coba from barang where kodebarang ='" & t146109017.Text & "'", CONECT)
    browse.Rows.Clear()
    ayu.Fill(browse)
    If browse.Rows(0).Item("coba") > 0 Then
    MsgBox("kode barang sudah ada")
    Else
    wandika()
    End If
    Data()

    t146109017.Text = ""
    t246109017.Text = ""
    t346109017.Text = ""
    t446109017.Text = ""

    End Sub

    Public Sub wandika()

    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t146109017.Text & "','" & t246109017.Text & "'," & Val(t346109017.Text) & "," & Val(t446109017.Text) & ")", CONECT)

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

    End Sub

    Public Sub data()
    If Val(t146109017.Text) = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If
    If t246109017.Text.Length = 0 Then
    MsgBox("nama barang belum terisi")
    Exit Sub
    End If

    If Val(t346109017.Text) = 0 Then
    MsgBox("harga jual belum diisi")
    Exit Sub
    End If

    If Val(t446109017.Text) = 0 Then
    MsgBox("jumlah barang belum diisi")
    Exit Sub
    End If
    End Sub
    End Class

    BalasHapus
  9. Tugas Ahmad Syukri ardiansya(46109040)

    http://tugas46109040.blogspot.com/2011/11/latihan-27apkom.html

    BalasHapus
  10. WAHDANIAH
    46109051

    Public Class LATIHAN27_46109051


    Public Class LATIHAN27_46109051

    Dim WAHDA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=WAHDANIAH")

    Private Sub save_46109051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save_46109051.Click
    If t1_46109051.Text.Length = 0 Then
    MsgBox("Isi dulu sayang yang kosong")
    Exit Sub
    End If

    If t2_46109051.Text.Length = 0 Then
    MsgBox("Isi dulu sayang yang kosong")
    Exit Sub
    End If

    If Val(t3_46109051.Text) = 0 Then
    MsgBox("Isi dulu sayang yang kosong")
    Exit Sub
    End If

    If Val(t4_46109051.Text) = 0 Then
    MsgBox("Isi dulu sayang yang kosong")
    Exit Sub
    End If

    Dim Niah As New OleDb.OleDbCommand
    Niah = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t1_46109051.Text & "','" & t2_46109051.Text & "'," & Val(t3_46109051.Text) & "," & Val(t4_46109051.Text) & ")", WAHDA)

    wahda.Open()
    Niah.ExecuteNonQuery()
    WAHDA.Close()
    Niah.Dispose()

    t1_46109051.Text = ""
    t2_46109051.Text = ""
    t3_46109051.Text = ""
    t4_46109051.Text = ""

    End Sub

    End Class

    BalasHapus
  11. tugasku dari 27-34


    http://arularva.blogspot.com/2011/11/tugas-27-34-muh-fahrul-46109005_20.html

    BalasHapus
  12. http://wahyunirachman.blogspot.com/2012/10/latihan2746110020.html

    BalasHapus
  13. http://ildayani.blogspot.com/2012/10/latihan2746110002.html

    BalasHapus
  14. http://dianmegariski.blogspot.com/2012/10/lattihan27.html

    BalasHapus
  15. http://diyanahdina.blogspot.com/2012/10/latihan2746110045.html

    BalasHapus
  16. http://srikartikafanty.blogspot.com/2012/10/latihan2746110007.html

    BalasHapus
  17. http://alfaega.blogspot.com/2012/10/latihan2746110022.html

    BalasHapus
  18. http://hanihasan07.blogspot.com/2012/10/latihan2746110044.html

    BalasHapus
  19. http://idhamsyaam.blogspot.com/2012/10/latihan2746110021.html

    BalasHapus
  20. http://sulhihusni.blogspot.com/2012/10/latihan2746110004.html

    BalasHapus
  21. http://restyaccounting.blogspot.com/2012/10/latihan2746110027.html

    BalasHapus
  22. http://bothbon.blogspot.com/2012/10/latihan2746110043.html

    BalasHapus
  23. http://amalmaulana92.blogspot.com/2012/10/latihan2746110003.html

    BalasHapus
  24. http://bothbon.blogspot.com/2012/10/latihan28a46110043.html

    BalasHapus
  25. http://mulyawarman039.blogspot.com/2012/10/latihan2746110039.html

    BalasHapus
  26. http://bahrizj.blogspot.com/2012/10/latihan2746110001.html

    BalasHapus
  27. http://feibyfrycilia.blogspot.com/2012/10/latihan2746110055.html

    BalasHapus
  28. http://fitrianihamka.blogspot.com/2012/10/latihan2746110006.html

    BalasHapus
  29. http://muthmil8.blogspot.com/2012/10/latihan2746110037.html

    BalasHapus
  30. http://aardianzah2.blogspot.com/2012/10/latihan-27.html

    BalasHapus
  31. http://rafidashaleh.blogspot.com/2012/10/latihan2746110041.html

    BalasHapus
  32. http://masdarwati.blogspot.com/2012/10/latihan2746110024.html

    BalasHapus
  33. http://cacalisa.blogspot.com/2012/10/latihan2746110038.html

    BalasHapus
  34. http://deodns.blogspot.com/2012/10/latihan2746110040.html

    BalasHapus
  35. http://yuliaasrida427.blogspot.com/2012/10/latihan2746110009.html

    BalasHapus