Dasar 17. DBcombo, DTpicker, SStab

 1. Buat sebuah form baru.
2. Untuk database gunakanlah database yang ada pada Tutorial (DBBarang / Table_Barang).
3. Masukan objek-objek dibawah ini :

NAME	CAPTION	TOOL
DBCombo1	-	DBCombo
DTPicker1	-	DTPicker
SSTab1	-	SSTab
Data1	-	Data
TxtKode	Kode	TextBox
TxtNama	Nama	TextBox
TxtHarga	Harga	TextBox
Label1	Kode Barang	Label
Label2	Nama Barang	Label
Label3	Harga Barang	Label

4. PERHATIAN :
Untuk memunculkan DBcombo, DTpicker, SStab caranya dengan mengklik kanan pada ToolBox lalu pilih COMPONENTS. Pada Tab CONTROLS beri tanda check list pada :
- Untuk DBcombo : Microsoft Data Bound List Control.
- Untuk DTpicker : Microsoft Windows Common Control -2 6.0 (SP 6).
- Untuk SStab : Microsoft Tabbed Dialog Control.

5. Pada properties SStab, gantilah TABS dan TABS PER ROW nya masing masing menjadi 2.
6. Letakan DTpicker pada Tab kedua (TAB 1) sedangkan seluruh objek yang lain diletakkan pada Tab pertama (TAB 0).

7. Listing Program (untuk DBCOMBO1 saja) :

Private Sub DBCombo1_Click(Area As Integer)
Data1.Recordset.FindFirst "Kode=’" & DBCombo1.Text & "’"
TXTKODE.Text = Data1.Recordset!Kode
TXTNAMA.Text = Data1.Recordset!NAMA
TXTHARGA.Text = Data1.Recordset!HARGA
End Sub
    

KETERANGAN :
- Ketika DBcombo di klik maka akan terjadi pencarian data yang field Kode database nya sama dengan yang dipilih di DBcombo.
- Setelah itu maka data yang berhubungan dengan kode yang dipilih akan ditampilkan pada TextBox TextBox yang ada.
- TXTKODE.Text = Data1.Recordset!Kode maksudnya isi data dari TXTKODE adalah isi dari field Kode yang ada di database.

8. Anda bisa berpindah dari Tab yang pertama ke Tab yang kedua hanya dengan meng klik Tab tersebut.
9. Ketika DTpicker di Klik maka akan muncul kalendar dan anda tinggal memilih tanggal yang anda inginkan.

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