Dim ARR(5) As String ARR(0) = TxtKd_Brg.Text ARR(1) = TxtNm_Brg.Text ARR(2) = TxtSatuan.Text ARR(3) = TxtQty.Text ARR(4) = TxtH_Satuan.Text ARR(5) = TxtTotal.Text ' memyimpan data ke dalam listview Dim ListItem As ListViewItem ListItem = New ListViewItem ListItem = LvKasir.Items.Add(ARR(0)) ListItem.SubItems.Add(ARR(1)) ListItem.SubItems.Add(ARR(2)) ListItem.SubItems.Add(ARR(3)) ListItem.SubItems.Add(ARR(4)) ListItem.SubItems.Add(ARR(5)) sedangkan untuk menghapus nya menggunakan Kode berikut : Dim BARIS As Integer = 0 LvKasir.Items(BARIS).Remove() Wlwpn sedikit semoga bermanfaat terimakasih .......................................... Cara Menambah Kolom Pada LIstView Dalam sebuah program adakalanya kita akan menggunakan ListView unt menampilkan data2 sebelum disimpan kedatabase, misal nya pada aplikasi kasir, dll Berikut kode untuk menambah kolom2 pada listView Private Sub BuatList() LvKasir.GridLines = True LvKasir.View = View.Details LvKasir.Columns.Add("KODE", 80) LvKasir.Columns.Add("NAMA BARANG", 200) LvKasir.Columns.Add("SATUAN", 110) LvKasir.Columns.Add("QTY", 70) LvKasir.Columns.Add("HARGA", 140) LvKasir.Columns.Add("TOTAL", 140) End Sub terimakasih, semoga bermanfaat .......................................... Jika Anda ingin menghitung total pembayaran dari subtotal pembelian yang dilakukan oleh pelanggan dengan menjumlahkan salah satu kolom dari Listview. Misalkan kolom yang akan dihitung totalnya berada di kolom ke-4 (kolom paling kiri berindex nol), maka syntax-nya sebagai berikut: Dim total as integer For i As Integer = 0 To Listview1.Items.Count - 1 total = total + listview1.Items(i).SubItems(3).Text Next 'Tampilkan hasil dari Total Bayar TxtTotal.text = total Keterangan: i adalah posisi baris pada listview Listview1.Items.Count untuk menghitung jumlah baris data pada listview Subitems (3) merujuk pada kolom ke-4 dari listview (index kolom = posisi kolom - 1) .............................................. 5. Menggunakan Col, Row, dan Text untuk menulis pada cell di Grid grdData.FixedRows = 1 grdData.FixedCols = 1 grdData.Rows = 1 grdData.Row = 0 grdData.Col = 0 grdData.Text = "No" grdData.Col = 1 grdData.Text = "NRP" grdData.Col = 2 grdData.Text = "Nama" grdData.Col = 3 grdData.Text = "Tgl Lahir" 6. Menambah baris menggunakan AddItem grdData.AddItem "1" + vbTab + "00112233" + vbTab + _ "Evi" + vbTab + "12/02/2006" 7. Menggunakan TextArray untuk menulis pada cell di Grid grdData.Rows = grdData.Rows + 1 30 baris = (grdData.Rows - 1) * 4 grdData.TextArray(0 + baris) = "2" grdData.TextArray(1 + baris) = "00112244" grdData.TextArray(2 + baris) = "Eva" grdData.TextArray(3 + baris) = "02/12/1980" 8. Menggunakan TextMatrix untuk menulis pada cell di Grid grdData.Rows = grdData.Rows + 1 baris = grdData.Rows - 1 grdData.TextMatrix(baris, 0) = "3" grdData.TextMatrix(baris, 1) = "00112255" grdData.TextMatrix(baris, 2) = "Evo" grdData.TextMatrix(baris, 3) = "03/09/1978" 9. Menghapus data menggunakan RemoveItem Untuk menghapus data pada posisi baris aktif gunakan perintah berikut : grdData.RemoveItem grdData.row Latihan 1. Buat program untuk menambah data pada MsFlexGrid, dengan tampilan program sebagai berikut : ............................................ Berikutnya ke form VB dan tempatkan komponen MSFlexGrid, lalu klik Form 2 Kali VB akan alangsung membentuk fungsi Form_Load. nah pada prosedure form load inilah kita akan membuat kode untuk menghubungkan flexgrid ke Database. KEtikkan perintah code berikut : dim cn as new adodb.recordset dim rs as new adodb.recordset. dtbase = App?Path & "\DBBarang.mdb" ocn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dtbase & ";Persist Security Info=False" set cn = new adodb.connection cn.open "dtbase = App.Path & "\Barang.mdb" ocn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dtbase & ";Persist Security Info=False --> code sebelumnya adalah deklrasai database dan koneksi --> berikut untuk memanggil database dari flexgrid with MSFlexGrid1 .cols = 4 --> set jumlah kolom .width = 1200 --> set lebar .rows = 0 --> yang ini di set 0 .textmatrix(0,1) = "NO" --> membuat kolom nomor .textmatrix(0,2) = "Barang" --> membuat kolom nama barang .textmatrix(0,3) = "stok" .textmatrix(0,4)="harga" i=0 --> variabel i untuk counter set rs = new adodb.recordset rs.open "select * from tbbarang",cn,3,3 --> mengambil data barang if not rs.EOF then do while not rs.EOF --> ulang sampai data akhir .textmatrix (i,1)=i+1 --> membuat nomor urut .textmatrix (i,2)=rs!barang --> mengisi kolom barang dg data nama barang .textmatrix (i,3) = rs!stok .textmatrix (i,4) = rs!harga rs.movenext --> pindah ke record tabel berikut i=i+1 --> tambah counter nomor urut loop end if >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Nah Kalo Sudah Jadi Formnya, Tiggal Ketik kodingnya aja Dibawah ini.. Copas aja Saya Maafkan kog Public dbconn As New ADODB.Connection Public strconn As String Sub koneksi() strconn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=boncell;Data Source=MELOND-PC\MELOND" dbconn.CursorLocation = adUseClient If dbconn.State = adStateClosed Then dbconn.Open strconn If dbconn.State = adStateClosed Then MsgBox "Koneksi Database Gagal!", vbCritical + vbOKOnly, "Error" End If End If End Sub Private Sub cmd_login_Click() If txt_login.Text = "admin1001" Then form4.Show Else MsgBox "Hayoo Salah Masukkan Password.!!", vbCritical + vbOKOnly, "Salah" txt_login.Text = "" txt_login.SetFocus End If End Sub Private Sub flex_Click() End Sub Private Sub Form_Load() Dim tampil As ADODB.Recordset 'Menentukan lebar kolom [(0)berarti posisi kolom] flex.ColWidth(0) = 400 flex.ColWidth(1) = 800 flex.ColWidth(2) = 2000 flex.ColWidth(3) = 1000 flex.ColWidth(4) = 1800 flex.ColWidth(5) = 1200 'Membuat Text Judul Pada Kolom [(0, 1) 0 bersrti posisi karakter 0 spasi dan 1 posisi kolom) flex.TextMatrix(0, 0) = "No" flex.TextMatrix(0, 1) = "Kode" flex.TextMatrix(0, 2) = "Tipe" flex.TextMatrix(0, 3) = "Kondisi" flex.TextMatrix(0, 4) = "Kelengkapan" flex.TextMatrix(0, 5) = "Harga" 'Mengatur rata dari data dari kiri berdasarkan jumlah spasi flex.ColAlignment(1) = 0 flex.ColAlignment(5) = 0 'memanggil koneksi Call koneksi 'query untuk menampilkan semua data dari tabel Set tampil = dbconn.Execute("select*from hp") 'Data akan tampil apabila kondisi dengan jika tidak end of file If Not tampil.EOF Then 'n=baris data n = 0 tampil.MoveFirst 'Melakukan perulangan untuk menampilkan data dengan kondisi jika tidak end of file While Not tampil.EOF n = n + 1 flex.Rows = n + 1 flex.TextMatrix(n, 0) = n flex.TextMatrix(n, 1) = tampil(0) flex.TextMatrix(n, 2) = tampil(1) flex.TextMatrix(n, 3) = tampil(2) flex.TextMatrix(n, 4) = tampil(3) flex.TextMatrix(n, 5) = tampil(4) tampil.MoveNext Wend End If End Sub Private Sub Text1_Change() On Error GoTo salah Dim cari As ADODB.Recordset Call koneksi 'menampilkan semua data dari hp dimana tipe mengandung karakter di posisi sembarang pada text 1 If Combo1.Text = "Tipe" Then Set cari = dbconn.Execute("select*from hp where Tipe like '%" & Text1.Text & "%'") 'menampilkan semua data dari hp dimana kondisi mengandung karakter di posisi sembarang pada text 1 ElseIf Combo1.Text = "Kondisi" Then Set cari = dbconn.Execute("select*from hp where Kondisi like '" & Text1.Text & "%'") End If 'Data akan tampil apabila cari dengan kondisi jika tidak end of file If Not cari.EOF Then 'posisi baris data awal=0 n = 0 cari.MoveFirst 'Melakukan perulangan untuk menampilkan data dengan kondisi jika tidak end of file While Not cari.EOF n = n + 1 flex.Rows = n + 1 flex.TextMatrix(n, 0) = n flex.TextMatrix(n, 1) = cari(0) flex.TextMatrix(n, 2) = cari(1) flex.TextMatrix(n, 3) = cari(2) flex.TextMatrix(n, 4) = cari(3) flex.TextMatrix(n, 5) = cari(4) cari.MoveNext Wend Else 'jika tidak ditemukan data n = 0 'menghapus semua data dengan menyisahkan 2 baris untuk nama kolom dan satunya kosong flex.Clear flex.Rows = 2 flex.TextMatrix(0, 0) = "No" flex.TextMatrix(0, 1) = "Kode" flex.TextMatrix(0, 2) = "Tipe" flex.TextMatrix(0, 3) = "Kondisi" flex.TextMatrix(0, 4) = "Kelengkapan" flex.TextMatrix(0, 5) = "harga" End If Exit Sub salah: MsgBox "Pilih Kategori", vbInformation + vbOKOnly, "Informasi" End Sub SELAMAT MENCOBA.....

Top News

Viewer

Berita Nasional

Loading...

Info Teknologi

Loading...

Recent Posts