Koding Msflexgrid vb 6
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.....
Tags
Materi kuliah GICI
Social Icons