Dasar 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 (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.
    

Selesai Juga Dech Tutorialnya....
Terimakasih Atas Kunjungannya....
Semoga Ilmu Yang Sedikit Ini Bermanfaat....
Jangan Lupa Like Post Ini Ya.... Terimakasih....

Print this page

Posted in: Visual Basic 6.0