Belajar Visual Basic Dasar Bagian 11

Belajar Visual Basic Dasar Bagian 11 : Command Button dan Program Sederhana

1. Buatlah sebuah form baru.
2. Masukan objek-objek berikut ini :

NAME	CAPTION	TOOL
Label1	Kode Barang	Label
Label2	Nama Barang	Label
Label3	Harga Barang	Label
TxtKode	-	TextBox
TxtNama	-	TextBox
TxtHarga	-	TextBox
CmdKosong	Kosong	CommandButton
CmdSimpan	Simpan	CommandButton
CmdHapus	Hapus	CommandButton
CmdGanti	Ganti	CommandButton
CmdUbah	Ubah	CommandButton
CmdKeluar	Keluar	CommandButton
Data1	-	Data
Dbgrid1	-	DBGrid

3. PERHATIAN : Untuk database gunakanlah database yang ada pada Tutorial Belajar Visual Basic Dasar Bagian 1 (DBBarang / Table_Barang).

4. Adapun Listing Program beserta penjelasannya adalah sebagai berikut :

Private Sub CMDKOSONG_Click()
TXTKODE.Text = ""
TXTNAMA.Text = ""
TXTHARGA.Text = ""
End Sub
KETERANGAN : maksudnya TXTKODE, TXTNAMA, dan TXTHARGA tidak ada isinya (kosong).
 

Private Sub CMDSIMPAN_Click()
Data1.Recordset.AddNew
Data1.Recordset!Kode = TXTKODE.Text
Data1.Recordset!NAMA = TXTNAMA.Text
Data1.Recordset!HARGA = TXTHARGA.Text
Data1.Recordset.Update
Data1.Refresh
End Sub

KETERANGAN :
- Rumus utama dari tombol simpan adalah ADDNEW lalu isi field-fieldnya kemudian UPDATE.
- Data1.Recordset!Kode = TXTKODE.Text maksudnya isi dari field Kode yang ada di database adalah isi dari TXTKODE yang ada di form.

Private Sub HAPUS_Click()
Data1.Recordset.Delete
Data1.Refresh
End Sub
KETERANGAN : Data akan langsung dihapus dengan rumus DELETE.

Private Sub GANTI_Click()
TXTKODE.Text = Data1.Recordset!Kode
TXTNAMA.Text = Data1.Recordset!NAMA
TXTHARGA.Text = Data1.Recordset!HARGA
End Sub
KETERANGAN :
- Rumus diatas digunakan untuk menampilkan isi data yang ada di database menjadi terlihat di form.
- TXTKODE.Text = Data1.Recordset!Kode maksudnya isi dari TXTKODE yang ada di form adalah isi field Kode yang ada di database.
 
Private Sub UBAH_Click()
Data1.Recordset.Edit
Data1.Recordset!Kode = TXTKODE.Text
Data1.Recordset!NAMA = TXTNAMA.Text
Data1.Recordset!HARGA = TXTHARGA.Text
Data1.Recordset.Update
Data1.Refresh
End Sub
KETERANGAN :
- Rumus utama dari tombol ubah adalah EDIT lalu isi field-fieldnya kemudian UPDATE.
- Data1.Recordset!Kode = TXTKODE.Text maksudnya isi dari field Kode yang ada di database adalah isi dari TXTKODE yang ada di form.

Private Sub KELUAR_Click()
Unload Me
End Sub
KETERANGAN : UNLOAD ME adalah rumus untuk keluar dari form.

 hasil syntax yang kita buat