Kamis, 20 April 2017

Project Menggunakan ListView Pada Visual Basic 6.0 Tanpa Database !!!

Listview merupakan salah satu componen selain dbgrid yang berfungsi sebagai menampilkan data yang telah di inputkan oleh user sesuai dengan intruksi yang di berikan.  Kemudian di tambah beberapa instruksi lainnya agar user dapat menyimpan, menghapus serta mengedit data yang telah mereka input ke database. Tetapi tutorial kali ini membahas tentang menyimpan data hanya sebatas penyimpanan pada RAM saja, maksud nya setelah aplikasi ditutup kemudian di buka lagi data yang sebelum nya telah di input akan hilang. jika ingin membuat aplikasi menggunakan database bisa membaca Project Vb 6 Menggunakan MS. Access Dan Listview.
Project Menggunakan ListView Pada Visual Basic 6.0 Tanpa Database !!!

Ada Dua Macam Model ListView :

1.       Microsoft Windows Common Controls 5.0
2.       Microsoft Windows Common Controls 6.0

Perbedaannya :
ada banyak  perbedaan diantar kedua versi, tetapi hal yang paling mendasar yaitu pada versi 5.0 tidak bisa menggunakan grid, Item tidak bisa di pilih atau di seleksi. sedangkan di versi 6.0 Listview menggunakan grid seperti di microsoft excel dan Item bisa di seleksi atau di pilih secara keseluruhan maupun single.

Listview biasanya tidak ada pada toolbox settingan bawaan, jadi harus di tambah dahulu, caranya :


Project Menggunakan ListView Pada Visual Basic 6.0 Tanpa Database !!!

-          Klik kanan pada kolom toolbox >> Components >> Control >> Centang Pada Microsoft Windows Common Controls versi 5.0 atau 6.0 >> Apply >> Ok.

Ikuti Settingan Berikut, Bagi Yang Sudah Paham Lewati Langkah Ini :

Component Property Change
Form1 Name FrmLstView
Caption FORM KARYAWAN
Label1 Name LblNik
Caption NIK
Label2 Name LblNama
Caption NAMA
Label3 Name LblGaji
Caption Gaji
Combo1 Name CmbNik
Text Pilih
Text1 Name Txtnama
Caption Kosongkan
Text2 Name txtGaji
Caption Kosongkan
Command1 Name CmdHapus
Caption &Hapus
Command2 Name CmdSimpan
Caption &Simpan
Command3 Name CmdPil
Caption &Hapus Pilihan
Command4 Name CmdBersih
Caption &Bersihkan
Listview Name Biarkan Saja

Dim lst As ListItem
Private Sub cmbnik_Click()
Select Case cmbnik
    Case "K1011": txtnama.Text = "Diki"
    Case "K2012": txtnama.Text = "Wahyudi"
    Case "K2021": txtnama.Text = "Romi"
    Case "K1022": txtnama.Text = "Ardian"
    End Select
End Sub

Private Sub cmdbersih_Click()
ListView1.ListItems.Clear
End Sub

Private Sub CmdHapus_Click()
cmbnik.Text = "-- Pilih --"
    txtnama.Text = ""
    txtgaji.Text = ""
    cmbnik.SetFocus
End Sub

Private Sub cmdpil_Click()
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End Sub

Private Sub cmdsimpan_Click()
Set lst = ListView1.ListItems.Add(, , cmbnik.Text)
    lst.SubItems(1) = txtnama.Text
    lst.SubItems(2) = "Rp." & txtgaji.Text
End Sub

Private Sub Form_Activate()
CmdHapus_Click
End Sub

Private Sub Form_Load()
    cmbnik.AddItem "K1011"
    cmbnik.AddItem "K2012"
    cmbnik.AddItem "K2021"
    cmbnik.AddItem "K1022"
    ListView1.ColumnHeaders.Add , , "NIK", 1000
    ListView1.ColumnHeaders.Add , , "Nama", 2000
    ListView1.ColumnHeaders.Add , , "Gaji", 2100
    ListView1.GridLines = True
    ListView1.FullRowSelect = True
    ListView1.View = lvwReport

End Sub

Penjelasan :
  1. Pada Cmbnik kita menggunakan Case, dimana fungsi nya sama dengan if, hanya lebih mudah dan simple.
  2. Kemudian Form load yaitu menampilkan item yang akan di tambilkan pada saat form di load.Colomn Headers Dengan Caption NIK dan lebar kolom header nya 1000, garis line dan select nya di aktifkan dengan perintah true. sebagai contoh  lihat gambar  di atas.
  3. Pada CmdSimpan akan menampilkan hasil inputan berdasarkan NIK di kolom listview.
  4. Setelah Form ditutup semua hasil inputan akan hilang di  karenakan ini  hanya sementara tanpa menggunakan database.

Related Posts

Project Menggunakan ListView Pada Visual Basic 6.0 Tanpa Database !!!
4/ 5
Oleh
Show comments
Hide comments

۝ Peraturan dalam berkomentar :

☛ UpsS,. Budayakan berkomentar sesudah membaca artikel sob.
☛ Dilarang Menghina, Promosi (Iklan), Menyelipkan Link Aktiv, dsb.
☛ Dilarang berkomentar berbau Porno, Spam, Sara, Politic, Profokasi.
☛ Berkomentarlah yang Sopan,Bijak, dan Sesuai Artikel (Dilarang OOT)
☛ Saya sangat berterima kasih atas semua yang mau berkomentar diblog saya.
☛ Saya PASTI akan berkunjung balik ke blog Sobat yang sudah mau berkomentar di sini.