Jumat, 04 November 2011

Latihan 34 Apkom 4 D4 A

Diposting oleh di

49 komentar:

  1. Hachiko_dede18 November 2011 pukul 18.37

    dewi sartika
    461 09 045
    3a.d4


    Public Class form34a_46109045

    Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click
    If form34b_46109045.Visible = False Then
    form34b_46109045.MdiParent = Me
    form34b_46109045.Show()
    Else
    form34b_46109045.Activate()
    End If
    End Sub

    Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click
    If form34c_46109045.Visible = False Then
    form34c_46109045.MdiParent = Me
    form34c_46109045.Show()
    Else
    form34c_46109045.Activate()
    End If
    End Sub

    Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel1.Click
    If form34b_46109045.Visible = False Then
    form34b_46109045.MdiParent = Me
    form34b_46109045.Show()
    Else
    form34b_46109045.Activate()
    End If
    End Sub

    Private Sub ToolStripLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel2.Click
    If form34c_46109045.Visible = False Then
    form34c_46109045.MdiParent = Me
    form34c_46109045.Show()
    Else
    form34c_46109045.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  2. Hachiko_dede18 November 2011 pukul 18.38

    Public NotInheritable Class form34c_46109045
    Dim chiko As New ByIskandar.CariKeDataBaseByIskandar
    Dim dewi As New OleDb.OleDbCommand
    Dim sartika As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If kbl_46109045.Text = "" Then
    chiko.AturPencarianDataBase("Barang", "KodeBarang", kb_46109045.Text, 1, sartika)
    If chiko.JumlanBaris > 0 Then
    MsgBox("kode barang telah ada")
    kb_46109045.Text = ""
    Exit Sub
    ElseIf kb_46109045.Text.Length = 0 Then
    MsgBox("kode barang harus tercantum")
    Exit Sub
    ElseIf nb_46109045.Text.Length = 0 Then
    MsgBox("nama barang harus tercantum")
    Exit Sub
    ElseIf hj_46109045.Text.Length = 0 Then
    MsgBox("harga jual harus tercantum")
    Exit Sub
    ElseIf jb_46109045.Text.Length = 0 Then
    MsgBox("jumlah barang harus tercantum")
    Exit Sub
    End If
    Dim sae As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb_46109045.Text & "','" & nb_46109045.Text & "'," & Val(hj_46109045.Text) & "," & Val(jb_46109045.Text) & ")"
    dewi = New OleDb.OleDbCommand(ikha, sartika)
    sartika.Open()
    dewi.ExecuteNonQuery()
    sartika.Close()
    sartika.Dispose()
    kb_46109045.Text = ""
    nb_46109045.Text = ""
    hj_46109045.Text = ""
    jb_46109045.Text = ""
    Else
    If kbl_46109045.Text <> kb_46109045.Text Then
    chiko.AturPencarianDataBase("Barang", "KodeBarang", kb_46109045.Text, 1, sartika)
    If chiko.JumlanBaris > 0 Then
    MsgBox("kode barang tidak dapat diupdate")
    Exit Sub
    End If
    End If
    If kb_46109045.Text.Length = 0 Then
    MsgBox("kode barang harus tercantum")
    Exit Sub
    ElseIf nb_46109045.Text.Length = 0 Then
    MsgBox("nama barang harus tercantum")
    Exit Sub
    ElseIf hj_46109045.Text.Length = 0 Then
    MsgBox("harga jual harus tercantum")
    Exit Sub
    ElseIf jb_46109045.Text.Length = 0 Then
    MsgBox("jumlah barang harus tercantum")
    Exit Sub
    End If
    Dim ikha As String = "update barang set kodebarang = '" & kb_46109045.Text & "', namabarang = '" & nb_46109045.Text & "', hargajual = " & Val(hj_46109045.Text) & ", jumlahbarang = " & Val(jb_46109045.Text) & " where kodebarang = '" & kbl_46109045.Text & "'"
    dewi = New OleDb.OleDbCommand(ikha, sartika)
    sartika.Open()
    dewi.ExecuteNonQuery()
    sartika.Close()
    dewi.Dispose()
    kbl_46109045.Text = "-"
    kb_46109045.Text = ""
    nb_46109045.Text = ""
    hj_46109045.Text = ""
    jb_46109045.Text = ""
    End If
    End Sub
    End Class

    BalasHapus
  3. Uwais Pemuda Langit19 November 2011 pukul 08.52

    Public Class LATIHAN034A_46109008

    Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click
    If Latihan034B_46109008.Visible = False Then
    Latihan034B_46109008.MdiParent = Me.MdiParent
    Latihan034B_46109008.Show()
    Else
    Latihan034B_46109008.Activate()
    End If
    End Sub


    Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click
    If Latihan034C_46109008.Visible = False Then
    Latihan034C_46109008.MdiParent = Me.MdiParent
    Latihan034C_46109008.Show()

    Else
    Latihan034C_46109008.Activate()
    End If
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripLabel1_46109008.Click
    If LATIHAN034B_46109008.Visible = False Then
    LATIHAN034B_46109008.MdiParent = Me.MdiParent
    LATIHAN034B_46109008.Show()

    Else
    LATIHAN034B_46109008.Activate()
    End If
    End Sub


    Private Sub ToolStripButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripLabel2_46109008.Click
    If LATIHAN034C_46109008.Visible = False Then
    LATIHAN034C_46109008.MdiParent = Me.MdiParent
    LATIHAN034C_46109008.Show()

    Else
    LATIHAN034C_46109008.Activate()
    End If
    End Sub


    End Class

    BalasHapus
  4. Uwais Pemuda Langit19 November 2011 pukul 08.53

    Public Class LATIHAN034B_46109008
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=46109008")
    Dim dtab As New DataTable

    Public Sub ambildata()
    Dim adap As New OleDb.OleDbDataAdapter
    adap = New OleDb.OleDbDataAdapter("select * from barang", conect)
    dtab.Rows.Clear()
    adap.Fill(dtab)
    adap.Dispose()

    End Sub

    Private Sub latihan034B_46109008_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ambildata()
    DGV_46109008.DataSource = dtab
    End Sub

    Private Sub Button1_46109008_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1_46109008.Click
    If LATIHAN034C_46109008.Visible = False Then
    LATIHAN034C_46109008.Show()
    Else
    LATIHAN034C_46109008.Activate()
    End If
    LATIHAN034C_46109008.KB.Text = DGV_46109008.CurrentRow.Cells("KODEBARANG").Value
    LATIHAN034C_46109008.KB_46109008.Text = DGV_46109008.CurrentRow.Cells("KODEBARANG").Value
    LATIHAN034C_46109008.NB_46109008.Text = DGV_46109008.CurrentRow.Cells("NAMABARANG").Value
    LATIHAN034C_46109008.HJ_46109008.Text = DGV_46109008.CurrentRow.Cells("HARGAJUAL").Value
    LATIHAN034C_46109008.JB_46109008.Text = DGV_46109008.CurrentRow.Cells("JUMLAHBARANG").Value()
    End Sub

    Private Sub Button2_46109008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2_46109008.Click
    If LATIHAN034C_46109008.Visible = False Then
    LATIHAN034C_46109008.Show()
    Else
    LATIHAN034C_46109008.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  5. Uwais Pemuda Langit19 November 2011 pukul 08.53

    Public Class LATIHAN034C_46109008

    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=46109008")
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

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

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

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

    If Val(JB_46109008.Text) = 0 Then
    MsgBox("JUMLAH BELUM TERISI")
    Exit Sub
    End If

    cari.AturPencarianDataBase("barang", "kode barang", KB_46109008.Text, 1, conect)

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


    Dim com As New OleDb.OleDbCommand
    com = 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) & ")", conect)

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

    KB_46109008.Text = ""
    NB_46109008.Text = ""
    HJ_46109008.Text = ""
    JB_46109008.Text = ""

    LATIHAN033A_46109008.ambildata()
    End Sub

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

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

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

    If Val(JB_46109008.Text) = 0 Then
    MsgBox("JUMLAH BELUM TERISI")
    Exit Sub
    End If

    If KB.Text <> KB_46109008.Text Then
    cari.AturPencarianDataBase("barang", "kode barang", KB_46109008.Text, 1, conect)

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

    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("update barang set kodebarang ='" & KB_46109008.Text & "',namabarang='" & NB_46109008.Text & "',hargajual=" & Val(HJ_46109008.Text) & ", jumlahbarang=" & Val(JB_46109008.Text) & "where kodebarang='" & KB.Text & "'", conect)

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

    KB_46109008.Text = ""
    NB_46109008.Text = ""
    HJ_46109008.Text = ""
    JB_46109008.Text = ""
    KB.Text = "-"
    LATIHAN033A_46109008.ambildata()

    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1_46109008.Click
    If KB.Text = "-" Then
    TAMBAH()
    Else
    EDIT()
    End If
    End Sub

    End Class

    BalasHapus
  6. semua tentang drianty19 November 2011 pukul 22.55

    Private Sub DEL_46109031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles del_46109031.Click
    YANTI = New OleDb.OleDbCommand("delete * from barang where kodebarang = '" & dgv_46109031.CurrentRow.Cells("kodebarang").Value & "'", KONEKSI)
    KONEKSI.Open()
    YANTI.ExecuteNonQuery()
    KONEKSI.Close()
    YANTI.Dispose()

    INDRIYANTI()
    End Sub

    End Class

    BalasHapus
  7. Fadillah Sagena Daude20 November 2011 pukul 00.06

    Public Class Form34A

    Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click
    If Form34B.Visible = False Then
    Form34B.MdiParent = Me
    Form34B.Show()
    Else
    Form34B.Activate()
    End If
    End Sub

    Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click
    If Form34C.Visible = False Then
    Form34C.MdiParent = Me
    Form34C.Show()
    Else
    Form34C.Activate()
    End If
    End Sub

    Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel1.Click
    If Form34B.Visible = False Then
    Form34B.MdiParent = Me
    Form34B.Show()
    Else
    Form34B.Activate()
    End If
    End Sub

    Private Sub ToolStripLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel2.Click
    If Form34C.Visible = False Then
    Form34C.MdiParent = Me
    Form34C.Show()
    Else
    Form34C.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  8. Fadillah Sagena Daude20 November 2011 pukul 00.13

    Public NotInheritable Class Form34C
    Dim DAUDE As New ByIskandar.CariKeDataBaseByIskandar
    Dim FADILLAH As New OleDb.OleDbCommand
    Dim SAGENA As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If DILA1_46109059.Text = "" Then
    DAUDE.AturPencarianDataBase("Barang", "KodeBarang", DILA2_46109059.Text, 1, SAGENA)
    If DAUDE.Jumlahbaris > 0 Then
    MsgBox("kode barang telah ada")
    DILA2_46109059.Text = ""
    Exit Sub
    ElseIf DILA2_46109059.Text.Length = 0 Then
    MsgBox("kode barang harus tercantum")
    Exit Sub
    ElseIf DILA3_46109059.Text.Length = 0 Then
    MsgBox("nama barang harus tercantum")
    Exit Sub
    ElseIf DILA5_46109059.Text.Length = 0 Then
    MsgBox("harga jual harus tercantum")
    Exit Sub
    ElseIf DILA4_46109059.Text.Length = 0 Then
    MsgBox("jumlah barang harus tercantum")
    Exit Sub
    End If
    Dim DILA As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & DILA2_46109059.Text & "','" & DILA3_46109059.Text & "'," & Val(DILA5_46109059.Text) & "," & Val(DILA4_46109059.Text) & ")"
    FADILLAH = New OleDb.OleDbCommand(DILA, SAGENA)
    SAGENA.Open()
    FADILLAH.ExecuteNonQuery()
    SAGENA.Close()
    FADILLAH.Dispose()
    DILA2_46109059.Text = ""
    DILA3_46109059.Text = ""
    DILA5_46109059.Text = ""
    DILA4_46109059.Text = ""
    Else
    If DILA1_46109059.Text <> DILA2_46109059.Text Then
    DAUDE.AturPencarianDataBase("Barang", "KodeBarang", DILA2_46109059.Text, 1, SAGENA)
    If DAUDE.JumlaDILA3aris > 0 Then
    MsgBox("kode barang tidak dapat diupdate")
    Exit Sub
    End If
    End If
    If DILA2_46109059.Text.Length = 0 Then
    MsgBox("kode barang harus tercantum")
    Exit Sub
    ElseIf DILA3_46109059.Text.Length = 0 Then
    MsgBox("nama barang harus tercantum")
    Exit Sub
    ElseIf DILA5_46109059.Text.Length = 0 Then
    MsgBox("harga jual harus tercantum")
    Exit Sub
    ElseIf DILA4_46109059.Text.Length = 0 Then
    MsgBox("jumlah barang harus tercantum")
    Exit Sub
    End If
    Dim DILA As String = "update barang set kodebarang = '" & DILA2_46109059.Text & "', namabarang = '" & DILA3_46109059.Text & "', hargajual = " & Val(DILA5_46109059.Text) & ", jumlahbarang = " & Val(DILA4_46109059.Text) & " where kodebarang = '" & DILA1_46109059.Text & "'"
    FADILLAH = New OleDb.OleDbCommand(DILA, SAGENA)
    SAGENA.Open()
    FADILLAH.ExecuteNonQuery()
    SAGENA.Close()
    FADILLAH.Dispose()
    DILA1_46109059.Text = "-"
    DILA2_46109059.Text = ""
    DILA3_46109059.Text = ""
    DILA5_46109059.Text = ""
    DILA4_46109059.Text = ""
    End If
    End Sub
    End Class

    BalasHapus
  9. ainun20 November 2011 pukul 01.44

    nur ainun a.sadik
    461 09 030

    LATIHAN 34A

    Public Class LATIHAN034A_46109030


    Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles db_46109030.Click
    If LATIHAN034B_46109030.Visible = False Then
    LATIHAN034B_46109030.MdiParent = Me.MdiParent
    LATIHAN034B_46109030.Show()

    Else
    LATIHAN034B_46109030.Activate()
    End If
    End Sub


    Private Sub ToolStripLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ib_46109030.Click
    If LATIHAN034C_46109030.Visible = False Then
    LATIHAN034C_46109030.MdiParent = Me.MdiParent
    LATIHAN034C_46109030.Show()

    Else
    LATIHAN034C_46109030.Activate()
    End If
    End Sub

    Private Sub ts1_46109030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts1_46109030.Click
    If LATIHAN034B_46109030.Visible = False Then
    LATIHAN034B_46109030.MdiParent = Me.MdiParent
    LATIHAN034B_46109030.Show()

    Else
    LATIHAN034B_46109030.Activate()
    End If
    End Sub

    Private Sub ts2_46109030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ts2_46109030.Click
    If LATIHAN034C_46109030.Visible = False Then
    LATIHAN034C_46109030.MdiParent = Me.MdiParent
    LATIHAN034C_46109030.Show()

    Else
    LATIHAN034C_46109030.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  10. ainun20 November 2011 pukul 01.46

    nur ainun a.sadik
    461 09 030

    LATIHAN 34C

    Public Class LATIHAN034C_46109030
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DATABARANG.accdb;Jet OLEDB:Database Password=015")
    Dim telusur As New ByIskandar.CariKeDataBaseByIskandar

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

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

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

    If Val(jb_46109030.Text) = 0 Then
    MsgBox("JUMLAH BELUM TERISI")
    Exit Sub
    End If

    telusur.AturPencarianDataBase("barang", "kode barang", kb_46109030.Text, 1, conect)

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


    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("insert into barang(kodebarang,namabarang,hargajual,jumlahbarang) Values('" & kb_46109030.Text & "','" & nb_46109030.Text & "'," & Val(hj_46109030.Text) & "," & Val(jb_46109030.Text) & ")", conect)

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

    kb_46109030.Text = ""
    nb_46109030.Text = ""
    hj_46109030.Text = ""
    jb_46109030.Text = ""

    LATIHAN033A_46109030.ainun()
    End Sub

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

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

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

    If Val(jb_46109030.Text) = 0 Then
    MsgBox("JUMLAH BELUM TERISI")
    Exit Sub
    End If

    If KB.Text <> kb_46109030.Text Then
    telusur.AturPencarianDataBase("barang", "kode barang", kb_46109030.Text, 1, conect)

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


    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("update barang set kodebarang ='" & kb_46109030.Text & "',namabarang='" & nb_46109030.Text & "',hargajual=" & Val(hj_46109030.Text) & ", jumlahbarang=" & Val(jb_46109030.Text) & "where kodebarang='" & KB.Text & "'", conect)

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

    kb_46109030.Text = ""
    nb_46109030.Text = ""
    hj_46109030.Text = ""
    jb_46109030.Text = ""
    KB.Text = "-"
    End Sub

    Private Sub s_46109030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s_46109030.Click
    If KB.Text = "-" Then
    tambah()
    Else
    edit()
    End If
    End Sub
    End Class

    BalasHapus
  11. sae' itu indah20 November 2011 pukul 02.04

    Public Class form34a_46109053

    Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click
    If form34b_46109053.Visible = False Then
    form34b_46109053.MdiParent = Me
    form34b_46109053.Show()
    Else
    form34b_46109053.Activate()
    End If
    End Sub

    Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click
    If form34c_46109053.Visible = False Then
    form34c_46109053.MdiParent = Me
    form34c_46109053.Show()
    Else
    form34c_46109053.Activate()
    End If
    End Sub

    Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel1.Click
    If form34b_46109053.Visible = False Then
    form34b_46109053.MdiParent = Me
    form34b_46109053.Show()
    Else
    form34b_46109053.Activate()
    End If
    End Sub

    Private Sub ToolStripLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel2.Click
    If form34c_46109053.Visible = False Then
    form34c_46109053.MdiParent = Me
    form34c_46109053.Show()
    Else
    form34c_46109053.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  12. sae' itu indah20 November 2011 pukul 02.05

    Public NotInheritable Class form34c_46109053
    Dim saenong As New ByIskandar.CariKeDataBaseByIskandar
    Dim indah As New OleDb.OleDbCommand
    Dim yani As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If kbl_46109053.Text = "" Then
    saenong.AturPencarianDataBase("Barang", "KodeBarang", kb_46109053.Text, 1, yani)
    If saenong.JumlanBaris > 0 Then
    MsgBox("kode barang telah ada")
    kb_46109053.Text = ""
    Exit Sub
    ElseIf kb_46109053.Text.Length = 0 Then
    MsgBox("kode barang harus tercantum")
    Exit Sub
    ElseIf nb_46109053.Text.Length = 0 Then
    MsgBox("nama barang harus tercantum")
    Exit Sub
    ElseIf hj_46109053.Text.Length = 0 Then
    MsgBox("harga jual harus tercantum")
    Exit Sub
    ElseIf jb_46109053.Text.Length = 0 Then
    MsgBox("jumlah barang harus tercantum")
    Exit Sub
    End If
    Dim sae As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb_46109053.Text & "','" & nb_46109053.Text & "'," & Val(hj_46109053.Text) & "," & Val(jb_46109053.Text) & ")"
    indah = New OleDb.OleDbCommand(sae, yani)
    yani.Open()
    indah.ExecuteNonQuery()
    yani.Close()
    indah.Dispose()
    kb_46109053.Text = ""
    nb_46109053.Text = ""
    hj_46109053.Text = ""
    jb_46109053.Text = ""
    Else
    If kbl_46109053.Text <> kb_46109053.Text Then
    saenong.AturPencarianDataBase("Barang", "KodeBarang", kb_46109053.Text, 1, yani)
    If saenong.JumlanBaris > 0 Then
    MsgBox("kode barang tidak dapat diupdate")
    Exit Sub
    End If
    End If
    If kb_46109053.Text.Length = 0 Then
    MsgBox("kode barang harus tercantum")
    Exit Sub
    ElseIf nb_46109053.Text.Length = 0 Then
    MsgBox("nama barang harus tercantum")
    Exit Sub
    ElseIf hj_46109053.Text.Length = 0 Then
    MsgBox("harga jual harus tercantum")
    Exit Sub
    ElseIf jb_46109053.Text.Length = 0 Then
    MsgBox("jumlah barang harus tercantum")
    Exit Sub
    End If
    Dim sae As String = "update barang set kodebarang = '" & kb_46109053.Text & "', namabarang = '" & nb_46109053.Text & "', hargajual = " & Val(hj_46109053.Text) & ", jumlahbarang = " & Val(jb_46109053.Text) & " where kodebarang = '" & kbl_46109053.Text & "'"
    indah = New OleDb.OleDbCommand(sae, yani)
    yani.Open()
    indah.ExecuteNonQuery()
    yani.Close()
    indah.Dispose()
    kbl_46109053.Text = "-"
    kb_46109053.Text = ""
    nb_46109053.Text = ""
    hj_46109053.Text = ""
    jb_46109053.Text = ""
    End If
    End Sub
    End Class

    BalasHapus
  13. Unknown20 November 2011 pukul 02.29

    Public Class form34a_46109023

    Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click
    If form34b_46109023.Visible = False Then
    form34b_46109023.MdiParent = Me
    form34b_46109023.Show()
    Else
    form34b_46109023.Activate()
    End If
    End Sub

    Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click
    If form34c_46109023.Visible = False Then
    form34c_46109023.MdiParent = Me
    form34c_46109023.Show()
    Else
    form34c_46109023.Activate()
    End If
    End Sub

    Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel1.Click
    If form34b_46109023.Visible = False Then
    form34b_46109023.MdiParent = Me
    form34b_46109023.Show()
    Else
    form34b_46109023.Activate()
    End If
    End Sub

    Private Sub ToolStripLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel2.Click
    If form34c_46109023.Visible = False Then
    form34c_46109023.MdiParent = Me
    form34c_46109023.Show()
    Else
    form34c_46109023.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  14. Unknown20 November 2011 pukul 02.30

    Public NotInheritable Class form34c_46109023
    Dim cimi As New ByIskandar.CariKeDataBaseByIskandar
    Dim ismi As New OleDb.OleDbCommand
    Dim sri As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If kbl_46109023.Text = "" Then
    cimi.AturPencarianDataBase("Barang", "KodeBarang", kb_46109023.Text, 1, sartika)
    If cimi.JumlanBaris > 0 Then
    MsgBox("kode barang telah ada")
    kb_46109023.Text = ""
    Exit Sub
    ElseIf kb_46109023.Text.Length = 0 Then
    MsgBox("kode barang harus tercantum")
    Exit Sub
    ElseIf nb_46109023.Text.Length = 0 Then
    MsgBox("nama barang harus tercantum")
    Exit Sub
    ElseIf hj_461090235.Text.Length = 0 Then
    MsgBox("harga jual harus tercantum")
    Exit Sub
    ElseIf jb_46109023.Text.Length = 0 Then
    MsgBox("jumlah barang harus tercantum")
    Exit Sub
    End If
    Dim cimii As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb_46109023.Text & "','" & nb_46109023.Text & "'," & Val(hj_46109023.Text) & "," & Val(jb_46109023.Text) & ")"
    ismi = New OleDb.OleDbCommand(cimii, sri)
    sri.Open()
    ismi.ExecuteNonQuery()
    sri.Close()
    sri.Dispose()
    kb_46109023.Text = ""
    nb_46109023.Text = ""
    hj_46109023.Text = ""
    jb_46109023.Text = ""
    Else
    If kbl_46109023.Text <> kb_46109023.Text Then
    cimi.AturPencarianDataBase("Barang", "KodeBarang", kb_46109023.Text, 1, sri)
    If cimi.JumlanBaris > 0 Then
    MsgBox("kode barang tidak dapat diupdate")
    Exit Sub
    End If
    End If
    If kb_46109023.Text.Length = 0 Then
    MsgBox("kode barang harus tercantum")
    Exit Sub
    ElseIf nb_46109023.Text.Length = 0 Then
    MsgBox("nama barang harus tercantum")
    Exit Sub
    ElseIf hj_46109023.Text.Length = 0 Then
    MsgBox("harga jual harus tercantum")
    Exit Sub
    ElseIf jb_46109023.Text.Length = 0 Then
    MsgBox("jumlah barang harus tercantum")
    Exit Sub
    End If
    Dim cimii As String = "update barang set kodebarang = '" & kb_46109023.Text & "', namabarang = '" & nb_46109023.Text & "', hargajual = " & Val(hj_46109023.Text) & ", jumlahbarang = " & Val(jb_46109023.Text) & " where kodebarang = '" & kbl_46109023.Text & "'"
    ismi = New OleDb.OleDbCommand(cimii, sri)
    sri.Open()
    ismi.ExecuteNonQuery()
    sri.Close()
    ismi.Dispose()
    kbl_46109023.Text = "-"
    kb_46109023.Text = ""
    nb_46109023.Text = ""
    hj_46109023.Text = ""
    jb_46109023.Text = ""
    End If
    End Sub
    End Class

    BalasHapus
  15. Ukky Ancha20 November 2011 pukul 04.32

    Tugas Ahmad Syukri Ardiansya(46109040)

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

    BalasHapus
  16. ayu wandika putri utami20 November 2011 pukul 04.33

    Public Class LATIHAN034A46109017
    Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click
    If LATIHAN034B46109017.Visible = False Then
    LATIHAN034B46109017.MdiParent = Me.MdiParent
    LATIHAN034B46109017.Show()

    Else
    LATIHAN034B46109017.Activate() 'jika sdh muncul tp dibelakang
    End If

    End Sub

    Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click
    If LATIHAN034C46109017.Visible = False Then
    LATIHAN034C46109017.MdiParent = Me.MdiParent
    LATIHAN034C46109017.Show()

    Else
    LATIHAN034C46109017.Activate() 'jika sdh muncul tp dibelakang
    End If

    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
    If LATIHAN034B46109017.Visible = False Then
    LATIHAN034B46109017.MdiParent = Me.MdiParent
    LATIHAN034B46109017.Show()

    Else
    LATIHAN034B46109017.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
    If LATIHAN034C46109017.Visible = False Then
    LATIHAN034C46109017.MdiParent = Me.MdiParent
    LATIHAN034C46109017.Show()

    Else
    LATIHAN034C46109017.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub

    End Class

    BalasHapus
  17. ayu wandika putri utami20 November 2011 pukul 04.33

    Public Class LATIHAN034B46109017

    'dekklarasi connection
    Dim CONECT As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=nideria")
    'deklarasi tabel
    Dim ayu As New DataTable

    Public Sub wandika()
    Dim adaptor As New OleDb.OleDbDataAdapter
    adaptor = New OleDb.OleDbDataAdapter("select * from barang", CONECT)
    ayu.Rows.Clear()
    adaptor.Fill(ayu)
    adaptor.Dispose()

    End Sub

    Private Sub LATIHAN034B46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    wandika()
    DataGridView1.DataSource = ayu
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    If LATIHAN034C46109017.Visible = False Then
    LATIHAN034C46109017.Show()
    Else
    LATIHAN034C46109017.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If LATIHAN034C46109017.Visible = False Then
    LATIHAN034C46109017.Show()
    Else
    LATIHAN034C46109017.Activate() 'jika sdh muncul tp dibelakang
    End If
    LATIHAN034C46109017.KB.Text = DataGridView1.CurrentRow.Cells("KODEBARANG").Value
    LATIHAN034C46109017.t146109017.Text = DataGridView1.CurrentRow.Cells("KODEBARANG").Value
    LATIHAN034C46109017.t246109017.Text = DataGridView1.CurrentRow.Cells("NAMABARANG").Value
    LATIHAN034C46109017.t346109017.Text = DataGridView1.CurrentRow.Cells("HARGAJUAL").Value
    LATIHAN034C46109017.t446109017.Text = DataGridView1.CurrentRow.Cells("JUMLAHBARANG").Value

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim putri As New OleDb.OleDbCommand
    putri = New OleDb.OleDbCommand("DELETE * FROM BARANG WHERE KODEBARANG='" & DataGridView1.CurrentRow.Cells("KODEBARANG").Value & "'", conect)
    conect.Open()
    putri.ExecuteNonQuery()
    conect.Close()
    putri.Dispose()

    wandika()
    End Sub

    End Class

    BalasHapus
  18. ayu wandika putri utami20 November 2011 pukul 04.40

    latihan 34C bisa dilihat di :

    http://ayuwandikaputriutami.blogspot.com/2011/11/latihan-34c.html

    BalasHapus
  19. sae' itu indah20 November 2011 pukul 05.13

    nama : febiana fransiskus
    stmbk: 46109027

    Public Class LATIHAN34a_46109027

    Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click
    If LATIHAN34b_46109027.Visible = False Then
    LATIHAN34b_46109027.MdiParent = Me
    LATIHAN34b_46109027.Show()
    Else
    LATIHAN34b_46109027.Activate()
    End If
    End Sub

    Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click
    If LATIHAN34c_46109027.Visible = False Then
    LATIHAN34c_46109027.MdiParent = Me
    LATIHAN34c_46109027.Show()
    Else
    LATIHAN34c_46109027.Activate()
    End If
    End Sub

    Private Sub ToolStripLabel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel1.Click
    If LATIHAN34b_46109027.Visible = False Then
    LATIHAN34b_46109027.MdiParent = Me
    LATIHAN34b_46109027.Show()
    Else
    LATIHAN34b_46109027.Activate()
    End If
    End Sub

    Private Sub ToolStripLabel2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel2.Click
    If LATIHAN34c_46109027.Visible = False Then
    LATIHAN34c_46109027.MdiParent = Me
    LATIHAN34c_46109027.Show()
    Else
    LATIHAN34c_46109027.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  20. sae' itu indah20 November 2011 pukul 05.14

    nama :febiana fransiskus
    stmbk : 46109027

    Public NotInheritable Class LATIHAN34c_46109027
    Dim fransiskus As New ByIskandar.CariKeDataBaseByIskandar
    Dim FEBIANA As New OleDb.OleDbCommand
    Dim ana As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If KBL_46109027.Text = "" Then
    fransiskus.AturPencarianDataBase("Barang", "KodeBarang", KB_46109027.Text, 1, ana)
    If fransiskus.JumlaNBaris > 0 Then
    MsgBox("kode barang telah ada")
    KB_46109027.Text = ""
    Exit Sub
    ElseIf KB_46109027.Text.Length = 0 Then
    MsgBox("kode barang harus tercantum")
    Exit Sub
    ElseIf NB_46109027.Text.Length = 0 Then
    MsgBox("nama barang harus tercantum")
    Exit Sub
    ElseIf HJ_46109027.Text.Length = 0 Then
    MsgBox("harga jual harus tercantum")
    Exit Sub
    ElseIf JB_46109027.Text.Length = 0 Then
    MsgBox("jumlah barang harus tercantum")
    Exit Sub
    End If
    Dim FEBY As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & KB_46109027.Text & "','" & NB_46109027.Text & "'," & Val(HJ_46109027.Text) & "," & Val(JB_46109027.Text) & ")"
    FEBIANA = New OleDb.OleDbCommand(FEBY, ana)
    ana.Open()
    FEBIANA.ExecuteNonQuery()
    ana.Close()
    FEBIANA.Dispose()
    KB_46109027.Text = ""
    NB_46109027.Text = ""
    HJ_46109027.Text = ""
    JB_46109027.Text = ""
    Else
    If KBL_46109027.Text <> KB_46109027.Text Then
    fransiskus.AturPencarianDataBase("Barang", "KodeBarang", KB_46109027.Text, 1, ana)
    If fransiskus.JumlaNBaris > 0 Then
    MsgBox("kode barang tidak dapat diupdate")
    Exit Sub
    End If
    End If
    If KB_46109027.Text.Length = 0 Then
    MsgBox("kode barang harus tercantum")
    Exit Sub
    ElseIf NB_46109027.Text.Length = 0 Then
    MsgBox("nama barang harus tercantum")
    Exit Sub
    ElseIf HJ_46109027.Text.Length = 0 Then
    MsgBox("harga jual harus tercantum")
    Exit Sub
    ElseIf JB_46109027.Text.Length = 0 Then
    MsgBox("jumlah barang harus tercantum")
    Exit Sub
    End If
    Dim FEBY As String = "update barang set kodebarang = '" & KB_46109027.Text & "', namabarang = '" & NB_46109027.Text & "', hargajual = " & Val(HJ_46109027.Text) & ", jumlahbarang = " & Val(JB_46109027.Text) & " where kodebarang = '" & KBL_46109027.Text & "'"
    FEBIANA = New OleDb.OleDbCommand(FEBY, ana)
    ana.Open()
    FEBIANA.ExecuteNonQuery()
    ana.Close()
    FEBIANA.Dispose()
    KBL_46109027.Text = "-"
    KB_46109027.Text = ""
    NB_46109027.Text = ""
    HJ_46109027.Text = ""
    JB_46109027.Text = ""
    End If
    End Sub
    End Class

    BalasHapus
  21. WAHDANIAH20 November 2011 pukul 06.50

    wahdaniah
    46109051


    LATIHAN34A_46109051
    Public Class LATIHAN34A_46109051

    Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DAFTARBARANGToolStripMenuItem.Click
    If LATIHAN34B_46109051.Visible = False Then
    LATIHAN34B_46109051.MdiParent = Me.MdiParent
    LATIHAN34B_46109051.Show()
    Else
    LATIHAN34B_46109051.Activate()
    End If
    End Sub


    Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click
    If LATIHAN34C_46109051.Visible = False Then
    LATIHAN34C_46109051.MdiParent = Me.MdiParent
    LATIHAN34C_46109051.Show()

    Else
    LATIHAN34C_46109051.Activate()
    End If
    End Sub


    Private Sub ToolStripButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
    If LATIHAN34B_46109051.Visible = False Then
    LATIHAN34B_46109051.MdiParent = Me.MdiParent
    LATIHAN34B_46109051.Show()

    Else
    LATIHAN34B_46109051.Activate()
    End If
    End Sub


    Private Sub ToolStripButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
    If LATIHAN34C_46109051.Visible = False Then
    LATIHAN34C_46109051.MdiParent = Me.MdiParent
    LATIHAN34C_46109051.Show()

    Else
    LATIHAN34C_46109051.Activate()
    End If
    End Sub
    End Clas





    LATIHAN34B_46109051
    Public Class LATIHAN34B_46109051
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=WAHDANIAH")
    Dim wahda As New DataTable

    Public Sub ambildata()
    Dim nia As New OleDb.OleDbDataAdapter
    nia = New OleDb.OleDbDataAdapter("select * from barang", conect)
    wahda.Rows.Clear()
    nia.Fill(wahda)
    nia.Dispose()

    End Sub


    Private Sub LATIHAN34B_46109051_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ambildata()
    dg46109051.DataSource = Data
    End Sub


    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
    If LATIHAN34C_46109051.Visible = False Then
    LATIHAN34C_46109051.Show()
    Else
    LATIHAN34C_46109051.Activate()
    End If
    End Sub


    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    If LATIHAN34C_46109051.Visible = False Then
    LATIHAN34C_46109051.Show()
    Else
    LATIHAN34C_46109051.Activate()
    End If
    LATIHAN34C_46109051.KB.Text = dg46109051.CurrentRow.Cells("KODEBARANG").Value
    LATIHAN34C_46109051.TB146109051.Text = dg46109051.CurrentRow.Cells("KODEBARANG").Value
    LATIHAN34C_46109051.TB246109051.Text = dg46109051.CurrentRow.Cells("NAMABARANG").Value
    LATIHAN34C_46109051.TB346109051.Text = dg46109051.CurrentRow.Cells("HARGAJUAL").Value
    LATIHAN34C_46109051.TB446109051.Text = dg46109051.CurrentRow.Cells("JUMLAHBARANG").Value()
    End Sub
    End Class

    BalasHapus
  22. WAHDANIAH20 November 2011 pukul 06.51

    LATIHAN34C_46109051
    Public Class LATIHAN34C_46109051
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=WAHDANIAH")
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub Tambah()
    If TB146109051.Text.Length = 0 Then
    MsgBox("kode barang belum terisi")
    Exit Sub
    End If
    If TB246109051.Text.Length = 0 Then
    MsgBox("nama barang belum terisi")
    Exit Sub
    End If
    If Val(TB346109051.Text) = 0 Then
    MsgBox("harga jual belum diisi")
    Exit Sub
    End If
    If Val(TB446109051.Text) = 0 Then
    MsgBox("JUMLAH BELUM TERISI")
    Exit Sub
    End If

    cari.AturPencarianDataBase("barang", "kode barang", TB146109051.Text, 1, conect)
    If cari.JumlanBaris > 0 Then
    MsgBox("kode sudah ada")
    Exit Sub
    End If

    Dim wahda As New OleDb.OleDbCommand
    wahda = New OleDb.OleDbCommand("insert into barang(kodebarang,namabarang,hargajual,jumlahbarang) Values('" & TB146109051.Text & "','" & TB246109051.Text & "'," & Val(TB346109051.Text) & "," & Val(TB446109051.Text) & ")", conect)
    conect.Open()
    wahda.ExecuteNonQuery()
    conect.Close()
    wahda.Dispose()

    TB146109051.Text = ""
    TB246109051.Text = ""
    TB346109051.Text = ""
    TB446109051.Text = ""

    LATIHAN33A_46109051.ambildata()
    End Sub

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

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

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

    If Val(TB446109051.Text) = 0 Then
    MsgBox("JUMLAH BELUM TERISI")
    Exit Sub
    End If

    If KB.Text <> TB146109051.Text Then
    cari.AturPencarianDataBase("barang", "kode barang", TB146109051.Text, 1, conect)

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

    Dim wahda As New OleDb.OleDbCommand
    wahda = New OleDb.OleDbCommand("update barang set kodebarang ='" & TB146109051.Text & "',namabarang='" & TB246109051.Text & "',hargajual=" & Val(TB346109051.Text) & ", jumlahbarang=" & Val(TB446109051.Text) & "where kodebarang='" & KB.Text & "'", conect)

    conect.Open()
    wahda.ExecuteNonQuery()
    conect.Close()
    wahda.Dispose()

    TB146109051.Text = ""
    TB246109051.Text = ""
    TB346109051.Text = ""
    TB446109051.Text = ""
    KB.Text = "-"
    LATIHAN33A_46109051.ambildata()

    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    If KB.Text = "-" Then
    Tambah()
    Else
    EDIT()
    End If
    End Sub
    End Class

    BalasHapus
  23. Joice Natalina Paginta22 November 2011 pukul 04.34

    Public Class LATIHAN034C_041
    Dim parinding As New ByIskandar.CariKeDataBaseByIskandar
    Dim natalina As New OleDb.OleDbCommand
    Dim joice As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub jui()
    If kb_041.Text.Length = 0 Then
    MsgBox("kode barang harus ada")
    Exit Sub
    End If

    If nb_041.Text.Length = 0 Then
    MsgBox("nama barang harus ada")
    Exit Sub
    End If

    If Val(hj_041.Text) = 0 Then
    MsgBox("harga jual harus ada")
    Exit Sub
    End If

    If Val(jb_041.Text) = 0 Then
    MsgBox("jumlah barang harus ada")
    Exit Sub
    End If

    parinding.AturPencarianDataBase("barang", "kode barang", kb_041.Text, 1, joice)

    If parinding.JumlanBaris > 0 Then
    MsgBox("kode sudah ada")
    Exit Sub
    End If

    Dim paginta As New OleDb.OleDbCommand
    paginta = New OleDb.OleDbCommand("update barang set kodebarang='" & kb_041.Text & "',namabarang='" & nb_041.Text & "',hargajual=" & Val(hj_041.Text) & ",jumlahbarang=" & Val(jb_041.Text) & "where kodebarang='" & KB.Text & "'", joice)


    joice.Open()
    natalina.ExecuteNonQuery()
    joice.Close()
    natalina.Dispose()

    kb_041.Text = ""
    nb_041.Text = ""
    hj_041.Text = ""
    jb_041.Text = ""

    LATIHAN033A_041.jui()
    End Sub
    Private Sub edit()
    If kb_041.Text.Length = 0 Then
    MsgBox("kode barang harus ada")
    Exit Sub
    End If

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

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

    If Val(jb_041.Text) = 0 Then
    MsgBox("jumlah barang belum terisi")
    Exit Sub
    End If

    If kb.text <> nb_041.Text Then
    parinding.AturPencarianDataBase("barang", "kode barang", kb_041.Text, 1, joice)


    If parinding.JumlanBaris > 0 Then
    MsgBox("kode sudah ada")
    Exit Sub
    End If
    End If

    Dim paginta As New OleDb.OleDbCommand
    paginta = New OleDb.OleDbCommand("update barang set kodebarang='" & kb_041.Text & "',namabarang='" & nb_041.Text & "',hargajual=" & Val(hj_041.Text) & ",jumlahbarang=" & Val(jb_041.Text) & "where kodebarang='" & KB.Text & "'", joice)

    joice.Open()
    natalina.ExecuteNonQuery()
    joice.Close()
    natalina.Dispose()

    kb_041.Text = ""
    nb_041.Text = ""
    hj_041.Text = ""
    jb_041.Text = ""
    KB.Text = "_"

    LATIHAN033A_041.jui()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If KB.Text = "_" Then
    jui()
    Else
    edit()
    End If
    End Sub

    BalasHapus
  24. Dwi Mustika Chaerunnisa Mulyadi5 Januari 2012 pukul 05.55

    Public Class LATIHAN034A_054
    Private Sub TSL1_054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSL1_054.Click
    If LATIHAN034B_054.Visible = False Then
    LATIHAN034B_054.MdiParent = Me.MdiParent
    LATIHAN034B_054.Show()

    Else
    LATIHAN034B_054.Activate()
    End If
    End Sub

    Private Sub TSL2_054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSL2_054.Click
    If LATIHAN034C_054.Visible = False Then
    LATIHAN034C_054.MdiParent = Me.MdiParent
    LATIHAN034C_054.Show()

    Else
    LATIHAN034C_054.Activate()
    End If
    End Sub

    Private Sub ToolStripWw1_054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSL2_054.Click
    If LATIHAN034B_054.Visible = False Then
    LATIHAN034B_054.MdiParent = Me.MdiParent
    LATIHAN034B_054.Show()

    Else
    LATIHAN034B_054.Activate()
    End If
    End Sub

    Private Sub ToolStripWw2_054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSL2_054.Click
    If LATIHAN034C_054.Visible = False Then
    LATIHAN034C_054.MdiParent = Me.MdiParent
    LATIHAN034C_054.Show()

    Else
    LATIHAN034C_054.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  25. Dwi Mustika Chaerunnisa Mulyadi5 Januari 2012 pukul 05.56

    Public Class LATIHAN034B_054
    Dim MUSTIKA As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=WIWI")
    Dim cari As New DataTable

    Public Sub DWI()
    Dim WIWI As New OleDb.OleDbDataAdapter
    WIWI = New OleDb.OleDbDataAdapter("select * from barang", MUSTIKA)
    cari.Rows.Clear()
    WIWI.Fill(cari)
    WIWI.Dispose()
    End Sub

    Private Sub LATIHAN034B_054_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    DWI()
    DGV_054.DataSource = cari
    End Sub

    Private Sub Ww2_054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ww2_054.Click
    If LATIHAN034C_054.Visible = False Then
    LATIHAN034C_054.Show()
    Else
    LATIHAN034C_054.Activate()
    End If
    End Sub

    Private Sub Ww1_054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ww1_054.Click
    If LATIHAN034C_054.Visible = False Then
    LATIHAN034C_054.Show()
    Else
    LATIHAN034C_054.Activate()
    End If
    LATIHAN034C_054.KBL_054.Text = DGV_054.CurrentRow.Cells("KODEBARANG").Value
    LATIHAN034C_054.WW1_054.Text = DGV_054.CurrentRow.Cells("KODEBARANG").Value
    LATIHAN034C_054.WW2_054.Text = DGV_054.CurrentRow.Cells("NAMABARANG").Value
    LATIHAN034C_054.WW3_054.Text = DGV_054.CurrentRow.Cells("HARGAJUAL").Value
    LATIHAN034C_054.WW4_054.Text = DGV_054.CurrentRow.Cells("JUMLAHBARANG").Value()
    End Sub

    Private Sub Ww3_054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ww3_054.Click
    Dim CHAERUNNISA As New OleDb.OleDbCommand
    CHAERUNNISA = New OleDb.OleDbCommand("DELETE * FROM BARANG WHERE KODEBARANG='" & DGV_054.CurrentRow.Cells("KODEBARANG").Value & "'", MUSTIKA)
    MUSTIKA.Open()
    CHAERUNNISA.ExecuteNonQuery()
    MUSTIKA.Close()
    CHAERUNNISA.Dispose()
    DWI()
    End Sub
    End Class

    BalasHapus
  26. Dwi Mustika Chaerunnisa Mulyadi5 Januari 2012 pukul 05.57

    Public Class LATIHAN034C_054

    Dim MUSTIKA As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=WIWI")
    Dim CARI As New ByIskandar.CariKeDataBaseByIskandar

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

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

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

    If Val(WW4_054.Text) = 0 Then
    MsgBox("JUMLAH BELUM TERISI")
    Exit Sub
    End If

    CARI.AturPencarianDataBase("barang", "kode barang", WW1_054.Text, 1, MUSTIKA)

    If CARI.JumlanBaris > 0 Then
    MsgBox("kode sudah ada")
    Exit Sub
    End If


    Dim CHAERUNNISA As New OleDb.OleDbCommand
    CHAERUNNISA = New OleDb.OleDbCommand("insert into barang(kodebarang,namabarang,hargajual,jumlahbarang) Values('" & WW1_054.Text & "','" & WW2_054.Text & "'," & Val(WW3_054.Text) & "," & Val(WW4_054.Text) & ")", MUSTIKA)

    MUSTIKA.Open()
    CHAERUNNISA.ExecuteNonQuery()
    MUSTIKA.Close()
    CHAERUNNISA.Dispose()

    WW1_054.Text = ""
    WW2_054.Text = ""
    WW3_054.Text = ""
    WW4_054.Text = ""

    LATIHAN034B_054.DWI()
    End Sub

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

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

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

    If Val(WW4_054.Text) = 0 Then
    MsgBox("JUMLAH BELUM TERISI")
    Exit Sub
    End If

    If KBL_054.Text <> WW1_054.Text Then
    CARI.AturPencarianDataBase("barang", "kode barang", WW1_054.Text, 1, MUSTIKA)

    If CARI.JumlanBaris > 0 Then
    MsgBox("kode sudah ada")
    Exit Sub
    End If
    End If


    Dim com As New OleDb.OleDbCommand
    com = New OleDb.OleDbCommand("update barang set kodebarang ='" & WW1_054.Text & "',namabarang='" & WW2_054.Text & "',hargajual=" & Val(WW3_054.Text) & ", jumlahbarang=" & Val(WW4_054.Text) & "where kodebarang='" & KBL_054.Text & "'", MUSTIKA)

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

    WW1_054.Text = ""
    WW2_054.Text = ""
    WW3_054.Text = ""
    WW4_054.Text = ""
    KBL_054.Text = "-"


    LATIHAN034B_054.DWI()
    End Sub

    Private Sub Dwi1_054_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Dwi1_054.Click
    If KBL_054.Text = "-" Then
    TAMBAH()
    Else
    EDIT()
    End If
    End Sub
    End Class

    BalasHapus
  27. ildayani13 Oktober 2012 pukul 02.48

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

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

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

    BalasHapus
  28. Unknown13 Oktober 2012 pukul 06.54

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

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

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

    BalasHapus
  29. Unknown13 Oktober 2012 pukul 07.07

    http://srikartikafanty.blogspot.com/2012/10/latihan34a46110007.html
    http://srikartikafanty.blogspot.com/2012/10/latihan34b46110007.html
    http://srikartikafanty.blogspot.com/2012/10/latihan34c46110007.html

    BalasHapus
  30. Unknown13 Oktober 2012 pukul 08.05

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

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

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

    BalasHapus
  31. Unknown13 Oktober 2012 pukul 11.00

    http://hanihasan07.blogspot.com/2012/10/latihan34a46110044.html
    http://hanihasan07.blogspot.com/2012/10/latihan34b46110044.html
    http://hanihasan07.blogspot.com/2012/10/latihan34c46110044.html

    BalasHapus
  32. Unknown13 Oktober 2012 pukul 19.12

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

    BalasHapus
  33. Unknown13 Oktober 2012 pukul 19.55

    http://sulhihusni.blogspot.com/2012/10/latihan34a46110004.html
    http://sulhihusni.blogspot.com/2012/10/latihan34b46110004.html
    http://sulhihusni.blogspot.com/2012/10/latihan34c46110004.html

    BalasHapus
  34. Unknown13 Oktober 2012 pukul 20.47

    http://restyaccounting.blogspot.com/2012/10/latihan34a46110027.html
    http://restyaccounting.blogspot.com/2012/10/latihan34b46110027.html
    http://restyaccounting.blogspot.com/2012/10/latihan34c46110027.html

    BalasHapus
  35. Unknown13 Oktober 2012 pukul 22.25

    http://amalmaulana92.blogspot.com/2012/10/latihan34a46110003.html
    http://amalmaulana92.blogspot.com/2012/10/latihan34b46110003.html
    http://amalmaulana92.blogspot.com/2012/10/latihan34c46110003.html

    BalasHapus
  36. Unknown13 Oktober 2012 pukul 22.47

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

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

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

    BalasHapus
  37. Dunia Ilmu13 Oktober 2012 pukul 23.01

    http://mulyawarman039.blogspot.com/2012/10/latihan34a46110039.html
    http://mulyawarman039.blogspot.com/2012/10/latihan34b46110039.html
    http://mulyawarman039.blogspot.com/2012/10/latihan34c46110039.html

    BalasHapus
  38. Unknown14 Oktober 2012 pukul 01.00

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

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

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

    BalasHapus
  39. Unknown14 Oktober 2012 pukul 06.23

    http://fitrianihamka.blogspot.com/2012/10/latihan34a46110006.html
    http://fitrianihamka.blogspot.com/2012/10/latihan34b46110006.html
    http://fitrianihamka.blogspot.com/2012/10/latihan34c46110006.html

    BalasHapus
  40. Unknown14 Oktober 2012 pukul 06.24

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

    BalasHapus
  41. Feiby Frycilia14 Oktober 2012 pukul 06.42

    http://feibyfrycilia.blogspot.com/2012/10/latihan34a46110055.html
    http://feibyfrycilia.blogspot.com/2012/10/latihan34b46110055.html
    http://feibyfrycilia.blogspot.com/2012/10/latihan34c46110055.html

    BalasHapus
  42. Unknown14 Oktober 2012 pukul 08.04

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

    BalasHapus
  43. Unknown14 Oktober 2012 pukul 08.18

    http://aardianzah2.blogspot.com/2012/10/latiha-34a.html
    http://aardianzah2.blogspot.com/2012/10/latihan-34b.html
    http://aardianzah2.blogspot.com/2012/10/latihan-34c.html

    BalasHapus
  44. Unknown14 Oktober 2012 pukul 08.28

    http://rafidashaleh.blogspot.com/2012/10/latihan34a46110041.html
    http://rafidashaleh.blogspot.com/2012/10/latihan34b46110041.html
    http://rafidashaleh.blogspot.com/2012/10/latihan34c46110041.html

    BalasHapus
  45. Unknown14 Oktober 2012 pukul 08.54

    http://cacalisa.blogspot.com/2012/10/latihan34a46110038.html
    http://cacalisa.blogspot.com/2012/10/latihan34b46110038.html
    http://cacalisa.blogspot.com/2012/10/latihan34c46110038_14.html

    BalasHapus
  46. Unknown14 Oktober 2012 pukul 09.12

    http://bothbon.blogspot.com/2012/10/latihan34a46110043.html
    http://bothbon.blogspot.com/2012/10/latihan34b46110043.html
    http://bothbon.blogspot.com/2012/10/latihan34c46110043.html

    BalasHapus
  47. Unknown14 Oktober 2012 pukul 11.35

    http://yuliaasrida427.blogspot.com/2012/10/latihan34a46110009.html
    http://yuliaasrida427.blogspot.com/2012/10/latihan34b46110009.html
    http://yuliaasrida427.blogspot.com/2012/10/latihan34c46110009.html

    BalasHapus
  48. Unknown14 Oktober 2012 pukul 20.54

    http://masdarwati.blogspot.com/2012/10/latihan34a46110024.html
    http://masdarwati.blogspot.com/2012/10/latihan34b46110024.html
    http://masdarwati.blogspot.com/2012/10/latihan34c46110024.html

    BalasHapus
  49. Unknown30 Januari 2013 pukul 07.23

    http://deodns.blogspot.com/#!/2013/01/latihan34a46110040.html
    http://deodns.blogspot.com/#!/2013/01/latihan33b46110040_30.html
    http://deodns.blogspot.com/#!/2013/01/latihan34a46110040_30.html

    BalasHapus

Langganan: Posting Komentar (Atom)