Setting MSflexgrid

Setting Msflexgrid

Msflexgrid penggunaannya dengan metode array (pemesanan tempat). Maksudnya adalah tempat yang kita sebut disini adalah cell yang akan menyimpan sementara data yang kita masukan harus kita buatkan terlebih dahulu. Dalam penempatanya atau dalam menentuan posisinya yaitu baris dan kolom. Anda ingat dalam penggunaan cell di Excel, sama dengan msflexgrid disini sama dengan Excel. Berikut cara settingnya :

 

PROSEDUR UNTUK MENAMPILKAN DATA KEDALAM MSFLEXGRID

Private Sub tampil()

DEKLARASI VARIABEL LOCAL

Dim r, ro As Integer

SETTING KOLOM DAN BARIS

brs = 2

MSFlexGrid1.Rows = 2

MSFlexGrid1.Cols = 6

MSFlexGrid1.ColWidth(0) = 500

MSFlexGrid1.RowHeight(0) = 500

MSFlexGrid1.ColWidth(1) = 1100

MSFlexGrid1.ColWidth(2) = 3090

MSFlexGrid1.ColWidth(3) = 2000

MSFlexGrid1.ColWidth(4) = 2000

MSFlexGrid1.ColWidth(5) = 1500

MSFlexGrid1.TextMatrix(0, 0) = "NO"

MSFlexGrid1.TextMatrix(0, 1) = "Kode Barang"

MSFlexGrid1.TextMatrix(0, 2) = "Nama Barang"

MSFlexGrid1.TextMatrix(0, 3) = "Stok"

MSFlexGrid1.TextMatrix(0, 4) = "Harga Satuan"

MSFlexGrid1.TextMatrix(0, 5) = "Total Harga"

End Sub

untuk isi datanya :

Dim baris, kolom, brs As Integer

PROSEDUR UNTUK MENAPILKAN DATA (DIGUNAKAN PADA SAAT TEXT1 BERUBAH)

Private Sub tampil_data()

Dim bs As Integer  DEKLARASI VARIABEL PUBLIC

MENAMPILKAN DATA DARI TABEL DPO BERDASARKAN NOPO

SQL = "select * from DPO where Nopo= '" & Val(Text1) & "'"

Set res = hub.Execute(SQL, , adCmdText)

bs = 1

UNTUK MENGETAHUI JUMLAH BARIS

SQL = "select count (kdbarang) as jum from DPO"

Set ress = hub.Execute(SQL, , adCmdText)

ro = ress!jum

MSFlexGrid1.Rows = ro + 1

----------------------------------------

With res

If Not .EOF Then

.MoveFirst

Do While Not .EOF

MSFlexGrid1.TextMatrix(bs, 0) = bs

MSFlexGrid1.TextMatrix(bs, 1) = !Kdbarang

MENAMPILKAN NAMA BARANG

SQL = "select * from BARANG where Kodebarang='" & Trim(!Kdbarang) & "'"

Set ress = hub.Execute(SQL, , adCmdText)

If Not ress.EOF Then

MSFlexGrid1.TextMatrix(bs, 2) = ress!Namabarang

End If

'------------------------------------------------------------------------------

MENAMPILKAN DATA QTY dan HARGA dan TOTAL HARGA

MSFlexGrid1.TextMatrix(bs, 3) = !qty

MSFlexGrid1.TextMatrix(bs, 4) = !harga

MSFlexGrid1.TextMatrix(bs, 5) = Val(!qty) * Val(!harga)

.MoveNext

bs = bs + 1

Loop

End If

End With

End Sub

Lebih lengkapnya silahkan Download di Berkas Download

Klik disini untuk melanjutkan »»