Latihan_28B_46110041

Latihan_28B_46110041

A.  - Deskripsi

Pada latihan ini terdapat 3 object, yaitu :

1.    Object Label

Pada latihan ini terdapat 5 object label yang berisi teks “Penginputan barang, Kode barang, Nama barang, Harga jual, dan Jumlah barang.”

2.    Object Textbox

Pada latihan ini terdapat 4 textbox yang berstatus input.

3.    Object Button

Pada latihan ini terdapat 1 object Button, yaitu Button yang berisi teks “SIMPAN” berfungsi untuk menyimpan data setelah menginput data yang diinginkan di dalam textbox.

-    Script Uniqe

·   Memeriksa data

 If T1.Text.Length = 0 Then

    MsgBox("Plase Insert Your Text")

 Exit Sub

 End If

·   Perintah mengambil data

           Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

    PENCARI.AturPencarianDataBase("BARANG","KODEBARANG", T1.Text,1,Jalan)

·   Mendeklarasikan object command

              Dim Cm As New OleDb.OleDbCommand

  Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG,  NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & Ta46110041.Text & "','" & Tb46110041.Text & "', " & Val(Tc46110041.Text) & "," &  Val(Td46110041.Text) & ")", connect)

      connect.Open()

        Cm.ExecuteNonQuery()

        connect.Close()

        Cm.Dispose()

·   menutup form

  Me.Close()

- Event

    Click

- Property

      Default

B.  Prosedur Latihan_28B_46110041

 1. Buka project yang telah dipilih.

 2. Pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

 3. Setelah add new item terbuka, pilih windows form, lalu ketik nama form   yang telah ditentukan dan add.

 4. Kemudian isi form sesuai yang telah diinginkan/diperintahkan

 5. Setelah selesai membuat form, selanjutnya klik kanan, pilih View  Code

 6. View Code akan muncul, lalu buatlah rumus sesuai permintaan soal

 7. Selanjutnya kita menjalankan rumus yang telah dibuat dengan mengklik Start  Debug

 8. Setelah itu akan muncul Navigator, pilih Latihan 28B

9. Isi textbox yang akan diinput

10.Pilih Button yang berisi teks “Simpan”, maka secara otomatis data yang diinput akan tersimpan pada Latihan 28A_46110041 dan textbox akan kembali kosong.