diskripsi & prosedur latihan 29

17.04 |

DISKRIPSI LATIHAN 29

Latihan_29_36110030

A. Object-object dalam Latihan_29_36110030 :

1. Object Label

Terdapat enam label (yang bertuliskan kode barang sebanyak dua buah label, nama barang, harga jual, jumlah barang, dan kode barang yang akan diganti datanya).

2. Object Textbox

Terdapat lima textbox yang semuanya merupakan status input. Status input digunakan untuk memasukkan nilai: kode barang yang akan diganti datanya, kode barang baru, nama barang, harga jual, dan jumlah barang yang akan disimpan ke dalam form BARANG di Ms Access.

3. Object Button

Terdapat satu object button (Simpan). Button Simpan digunakan untuk menyimpan data barang baru yang telah diinput pada textbox ke dalam form BARANG di Ms Access.

B. Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Prosedur Penyelesaian Latihan_29_36110030.

C. Even

SIMPAN_36110030_Click

PROSEDUR PENYELESAIAN LATIHAN 29

1.KLIK STAR KEMUDIAN PILIH MICROSOFT VISUAL STUDIO 2008

2.KEMUDIAN KLIK NEW PROJECT PADA FILE

3.KEMUDIAN KLIK ADD UNTUK MENAMBAHKAN PROJECT

4. KEMUDIAN BUATLAH FORM SEPERTI DIBAWAH INI :

5.KEMUDIAN MASUKAN RUMUS :

Public Class LATIHAN_29_36110030
    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source= E:\semester 5\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\databarang.accdb;jet oledb:database password=hma")
    Dim yhuya As New DataTable
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar
    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36110030.Click
        If Kode2_36110030.Text.Length = 0 Then
            MsgBox("kode barang belum terisi")
            Exit Sub
        End If

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

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

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

        If Kode1_36110030.Text <> Kode2_36110030.Text Then
            cari.AturPencarianDataBase("Barang", "KodeBarang", Kode2_36110030.Text, 1, conect)
            If cari.JumlanBaris > 0 Then
                MsgBox("Kode Barang yang Baru Sudah Ada!")
                Exit Sub
            End If
        End If

        Dim com As New OleDb.OleDbCommand
        com = New OleDb.OleDbCommand("UPDATE BARANG SET kodebarang = '" & Kode2_36110030.Text & "', namabarang = '" & Nama_36110030.Text & "', hargajual = " & Val(Harga_36110030.Text) & ", jumlahbarang = " & Val(Jumlah_36110030.Text) & " where kodebarang ='" & Kode1_36110030.Text & "'", conect)

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

        Kode1_36110030.Text = ""
        Kode2_36110030.Text = ""
        Nama_36110030.Text = ""
        Harga_36110030.Text = ""
        Jumlah_36110030.Text = ""

    End Sub
End Class

6. KEMUDIAN UJI PROGRAM

7. JIKA SUDAH BERHASIL Save program anda

8. selesai