Latihan_29_46110041

Latihan_29_46110041

A.  - Deskripsi

Pada latihan ini terdapat 4 object, yaitu :

1.    Object GroupBox

Pada Latihan ini terdapat 2 groupbox, yaitu groupbox 1 terdapat 2 object label dan 1 object textbox, sedangkan groupbox 2 terdapat 4 object label dan 4 juga object textbox

2.    Object Label

Pada latihan ini terdapat 6 object label yang berisi teks “, Kode barang (terdapat 2 label), Nama barang, Harga jual, Jumlah barang, dan (Kode Barang Yang Akan Diganti datanya).”

3.    Object Textbox

Pada latihan ini terdapat 5 textbox yang berstatus input.

4.    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

·   Perintah mengambil data

If T46110041.Text <> Ta46110041.Text Then

Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", Ta46110041.Text, 1, Jembatan)

If PENCARI.JumlanBaris > 0 Then

MsgBox("The data has been exist please insert new data")

-    Event

  Click
 - Property

      Default

B.  Prosedur Latihan_29_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 29

9. Isi textbox yang akan diinput

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