Jumat, 04 November 2011

Latihan 27 Apkom 4 D4 A

Silahkan kumpul disini
Diposting oleh di

35 komentar:

  1. Hachiko_dede18 November 2011 pukul 17.56

    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. Dwitya Saadah Suaib19 November 2011 pukul 01.46

    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. Uwais Pemuda Langit19 November 2011 pukul 08.35

    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. Fadillah Sagena Daude19 November 2011 pukul 23.53

    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. Fadillah Sagena Daude19 November 2011 pukul 23.55

    Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  6. Unknown20 November 2011 pukul 00.08

    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. sae' itu indah20 November 2011 pukul 01.26

    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. ayu wandika putri utami20 November 2011 pukul 04.19

    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. Ukky Ancha20 November 2011 pukul 04.43

    Tugas Ahmad Syukri ardiansya(46109040)

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

    BalasHapus
  10. WAHDANIAH20 November 2011 pukul 06.17

    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. ARUL BLOG20 November 2011 pukul 16.24

    tugasku dari 27-34


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

    BalasHapus
  12. Unknown12 Oktober 2012 pukul 18.50

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

    BalasHapus
  13. ildayani12 Oktober 2012 pukul 20.12

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

    BalasHapus
  14. Unknown13 Oktober 2012 pukul 01.03

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

    BalasHapus
  15. Unknown13 Oktober 2012 pukul 06.10

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

    BalasHapus
  16. Unknown13 Oktober 2012 pukul 06.21

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

    BalasHapus
  17. Unknown13 Oktober 2012 pukul 07.47

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

    BalasHapus
  18. Unknown13 Oktober 2012 pukul 10.42

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

    BalasHapus
  19. Unknown13 Oktober 2012 pukul 17.17

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

    BalasHapus
  20. Unknown13 Oktober 2012 pukul 19.42

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

    BalasHapus
  21. Unknown13 Oktober 2012 pukul 20.32

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

    BalasHapus
  22. Unknown13 Oktober 2012 pukul 21.18

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

    BalasHapus
  23. Unknown13 Oktober 2012 pukul 22.06

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

    BalasHapus
  24. Unknown13 Oktober 2012 pukul 22.27

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

    BalasHapus
  25. Dunia Ilmu13 Oktober 2012 pukul 22.52

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

    BalasHapus
  26. Unknown14 Oktober 2012 pukul 01.18

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

    BalasHapus
  27. Feiby Frycilia14 Oktober 2012 pukul 01.18

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

    BalasHapus
  28. Unknown14 Oktober 2012 pukul 04.15

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

    BalasHapus
  29. Unknown14 Oktober 2012 pukul 06.16

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

    BalasHapus
  30. Unknown14 Oktober 2012 pukul 07.45

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

    BalasHapus
  31. Unknown14 Oktober 2012 pukul 08.41

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

    BalasHapus
  32. Unknown14 Oktober 2012 pukul 08.41

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

    BalasHapus
  33. Unknown14 Oktober 2012 pukul 09.04

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

    BalasHapus
  34. Unknown14 Oktober 2012 pukul 10.21

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

    BalasHapus
  35. Unknown14 Oktober 2012 pukul 11.14

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

    BalasHapus

Langganan: Posting Komentar (Atom)