Dasar 13. Command Button Dengan Procedure

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
CmdTambah	Tambah	CommandButton
CmdKosong	Kosong	CommandButton
CmdSimpan	Simpan	CommandButton
CmdUbah	Ubah	CommandButton
CmdHapus	Hapus	CommandButton
CmdKeluar	Keluar	CommandButton
CmdAwal	Awal	CommandButton
CmdBelum	Sebelumnya	CommandButton
CmdLanjut	Selanjutnya	CommandButton
CmdAkhir	Akhir	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 :

Sub BERSIH()
TXTKODE.Text = ""
TXTNAMA.Text = ""
TXTHARGA.Text = ""
End Sub

'KETERANGAN :

'- BERSIH adalah sebuah Procedure yang dibuat sendiri (cara membuat procedure baca pada tutorial bagian 12).

'- Maksudnya TXTKODE, TXTNAMA, dan TXTHARGA tidak ada isinya (kosong).

 

Sub TAMPIL()
TXTKODE.Text = Data1.Recordset!Kode
TXTNAMA.Text = Data1.Recordset!NAMA
TXTHARGA.Text = Data1.Recordset!HARGA
End Sub

'KETERANGAN :

'- TAMPIL juga merupakan Procedure.

'- 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 Form_Activate()
TAMPIL
End Sub

'KETERANGAN :

'- ACTIVATE biasanya menjalankan suatu kode menjadi berjalan pertama kali ketika sebuah program dijalankan.

'- Disini kode yang ada hanya TAMPIL berarti di Activate ini akan dijalankan kode-kode yang ada di dalam procedure TAMPIL.

 

Private Sub CMDTAMBAH_Click()
BERSIH
TXTKODE.SetFocus
End Sub

'KETERANGAN :

'- Disini dijalankan isi dari procedure BERSIH.

'- SET FOCUS digunakan untuk meletakkan posisi Cursor (berarti nanti Cursor akan terletak pada TXTKODE).

 

Private Sub CMDKOSONG_Click()
BERSIH
End Sub

'KETERANGAN :

'- Disini dijalankan isi dari procedure BERSIH.

 

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
TAMPIL
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 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 HAPUS_Click()
Data1.Recordset.Delete
Data1.Refresh
TAMPIL
End Sub

'KETERANGAN :

'- Data akan langsung dihapus dengan rumus DELETE.

'- Disini dijalankan isi dari procedure BERSIH.

 

Private Sub KELUAR_Click()
Unload Me
End Sub

'KETERANGAN : UNLOAD ME adalah rumus untuk keluar dari form.

 

Private Sub CMDAWAL_Click()
Data1.Recordset.MoveFirst
TAMPIL
End Sub

'KETERANGAN :

'- Program akan menampilkan data yang paling awal.

'- Disini dijalankan isi dari procedure TAMPIL.

 

Private Sub CMDBELUM_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveLast
End If
TAMPIL
End Sub

'KETERANGAN :

'- Program akan menampilkan data yang sebelumnya.

'- Disini dijalankan isi dari procedure TAMPIL.

 

Private Sub CMDLANJUT_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
TAMPIL
End Sub

'KETERANGAN :

'- Program akan menampilkan data selanjutnya.

'- Disini dijalankan isi dari procedure TAMPIL.

 

Private Sub CMDAKHIR_Click()
Data1.Recordset.MoveLast
TAMPIL
End Sub

'KETERANGAN :

'- Program akan menampilkan data yang paling akhir.

'- Disini dijalankan isi dari procedure TAMPIL.
    

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