diskripsi & prosedur latihan 32 C

17.08 |

DISKRIPSI LATIHAN 32 C

Deskripsi form Latihan_32b_36110030\

Dalam form Latihan_32b_36110030 hanya terdapat empat object yaitu Label, Textbox, Button dan Toolstrip.

Dalam form Latihan_31b_36110030 hanya terdapat empat object yaitu Label, Textbox, Button dan Toolstrip.

Object Label :
Dalam form ini terdapat enam buah object label yang bertuliskan “kode barang yang akan diganti namanya”,, “nama barang”, “harga jual”, “ jumlah barang” dan 2 yang bertuliskan “kode barang”.

Object Textbox :
Dalam form ini terdapat lima buah object textbox yang semuanya berstatus input.

Object Button :
Dalam form ini terdapat sebuah object button yang bertuliskan “save”. Button ini berfungsi untuk menyimpan data yang telah di edit di latihan ini ke dalam database.

Object Toolstrip :

Script Unique :
Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya.

Even :
Button click

PROSEDUR PENYELESAIAN LATIHAN 32 C

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_32C_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")
    Private Sub SIMPAN_36110030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36110030.Click
        If Val(Kode_36110030.Text) = 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
        Dim com As New OleDb.OleDbCommand
        com = New OleDb.OleDbCommand("UPDATE BARANG SET kodebarang = '" & Kode_36110030.Text & "', namabarang = '" & Nama_36110030.Text & "', hargajual = " & Val(Harga_36110030.Text) & ", jumlahbarang = " & Val(Jumlah_36110030.Text) & " where kodebarang ='" & KBL_36110030.Text & "'", conect)

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

        Kode_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