Pages

Monday, 7 April 2014

Membaca Dan Menampilkan Data Dari File Excel di VB 6

Jika kita ingin menampilkan data dari file excel ke MsFlexgrid di Visual basic 6 bagaimanakah caranya..? Untuk itu kali ini saya akan berbagi source code untuk membaca dan menampilkan data dari file excel ke dalam grid di vb 6.
Buat sebuah form lalu tambahkan komponen MsFlexgrid,CommandButton,TextBox,CommonDialog dan desain lah seperti gambar berikut ini


Jangan lupa tambahkan referensi Microsoft ActiveX Data Objects 2.xx library seperti gambar ini

Lalu kita buat dulu fungsi untuk membuka file ini (excel-red) pada sebuah modul, koding nya seperti berikut

Lalu pada tombol Open File ketikan koding berikut ini


Jika sudah semua lalu run dan hasilnya seperti gambar berikut ini.


Jika mengininkan coding lengkapnya silahkan download source codenya. semoga bermanfaat






Keyword: Membaca Dan Menampilkan Data Dari File Excel di VB 6,membaca file excel di vb 6, menampilkan file excel di vb 6,membaca data dari file excel di vb 6, menampilkan data file excel di vb 6, membaca file excel dan menampilkan datanya di vb 6, Menampilkan file excel di grid,menampilkan data file excel di grid

Thursday, 27 March 2014

Memberi Warna Selang Seling (Background) Pada List View

Pada postingan sebelumnya pernah membahas tentang cara menampilkan data pada list view. Untuk kali ini saya akan memposting cara memberi background selang seling pada list view supaya tampilannya lebih menarik dan tidak membosankan seperti gambar berikut ini.


Siapkan sebuah form lalu tambahkan list view ke dalam form kemudian tambahkan sebuah modul yang nanti digunakan untuk mengetik code untuk koneksi dan mengatur setingan list view serta background list view.

Ketikan koding seperti berikut dalam modul yang berguna mengatur dalam pemberian background

koding untuk koneksi dan pengaturan list view tidak saya tampilkan silahkan nanti download source codenya. Jika sudah pangggil kode di atas pada form load setelah koding menampilkan data seperti berikut ini

Selesai kemudian jalankan, untuk koding lengkapnya silahkan download source codenya





Keyword : list view,trik list view,menampilkan data pada list view, background pada list view,warna selang seling pada list view,menampilkan data pada list view di vb 6, list view di vb 6, menampilkan data pada list view di visual basic 6

Monday, 24 March 2014

Download Data Dynamic Active Report 2 Professional SP4

 Untuk menampilkan data Laporan atau Report pada setiap proses yang akan di cetak dibutuhkan komponen tambahan pada visual basic, dalam software visual basic itu sendiri sudah memiliki komponen tersebut yaitu Data Report yang telah tersidia pada pemograman visual basic. Ada juga komponen dari luar yang dapat di install untuk membuat Data Laporan seperti Crystal Report dan Acive Report yang masing-masing memliki kemudahan dalam membuat laporan.
 

Untuk penggunaan crystal report cukup memakan memori hard disk yang besar sekitar 650 Mb yang dapat  membuat komputer kita semakin lamban sedangkan Active Report memakan memori yang kecil sekitar 7 Mb, bagaimana perbandingan yang cukup besar bukan padahal digunakan untuk fungsi yang sama. untuk penggunaan active report juga sangat sederhana dan lengkap tidak kalah dengan crystal report.
 
 
 
 
 
 
Tags : komponen visual basic, download ActiveReport, ActiveReport download, free download ActiveReport, ActiveReport full version, cara menggunakan ActiveReport, ActiveReport adalah, ActiveReport for .net, crack ActiveReport, ActiveReport ocx, ocx ActiveReport, ActiveReport ocx complete full, complete ActiveReport ocx download, CR to AR, Access to AR, Convert Crystal Report to ActiveReport, Convert Ms.Access to ActiveReport, Download Crystal Report Converter 

Friday, 7 March 2014

Membuat menu samping dengan komponen vbAccelerator VB6 Explorer Bar

Pada postingan ini saya membahas pembuatan menu alternatif selain menggunakan tool standar vb (menu editor), kali ini kita akan menggunakan komponen vbAccelerator VB6 Explorer Bar.
vbAccelerator VB6 Explorer Bar adalah salah satu komponen keren dan gratis yang tersedia di situs www.vbaccelerator.com.
Kita akan membuat menu dengan tampilan seperti berikut :
 
Untuk memudahkan kita memahami penggunaan komponen vbAccelerator Explorer Bar, minimal ada 2 istilah yang harus kita ketahui :
  1. Bar Menu, gampangnya kita sebut saja menu induk
  2. Item Menu tentu saja ini menu anaknya
Adapun contoh prosedur/fungsi untuk menambahkan Bar Menu dan Item Menu:


Private Function setBarMenu(ByVal explorerBar As Object, ByVal menuName As String, _
                            ByVal menuCaption As String, ByVal iconIndex As Long) As Object
    Dim cBar As Object
    Set cBar = explorerBar.Bars.Add(, menuName, menuCaption)
    cBar.IsSpecial = True
    cBar.iconIndex = iconIndex
    cBar.TitleForeColor = WARNA_BIRU_TUA
    cBar.TitleForeColorOver = WARNA_BIRU_TUA
    cBar.TitleBackColorLight = WARNA_BIRU
    cBar.TitleBackColorDark = RGB(234, 241, 253)
    cBar.BackColor = WARNA_ABU_ABU
    Set setBarMenu = cBar
End Function
Private Sub setItemMenu(ByVal cBar As Object, ByVal menuName As String, ByVal menuCaption As String, ByVal iconIndex As Long)
    Dim cItem   As Object
    Set cItem = cBar.Items.Add(, menuName, menuCaption)
    With cItem
        .iconIndex = iconIndex
        .TextColor = WARNA_BIRU_TUA
        .TextColorOver = WARNA_PUTIH
    End With
End Sub
Sebelum kita akan mengetikan kode lengkap untuk membuat menu dengan komponen vbAccelerator Explorer Bar, tambahkan terlebih dahulu komponen/referensi berikut ke dalam project Anda :
  1. vbAccelerator Explorer Bar (Menu Project -> Component)
  2. vbAccelerator Image List (Menu Project -> Component), komponen ini untuk menambahkan icon di menu bar/item
  3. vbAccelerator VB6 Subclassing and Timer Assistant (Menu Project -> References) pembahasan tentang komponen ini bisa di lihat di sini
kemudian drag komponen vbAccelerator Explorer Bar dan vbAccelerator Image List ke form


Contoh penggunaan prosedur/fungsi setBarMenu dan setItemMenu :























































Private Sub addMenu(ByVal explorerBar As Object, ByVal barIcons As Object, ByVal itmIcons As Object)
    Dim rsMenuInduk As ADODB.Recordset
    Dim rsMenuAnak  As ADODB.Recordset
    Dim cBar        As Object
    Dim i           As Long
    Dim x           As Long
    Dim rowCount(1) As Long
    With explorerBar
        .UseExplorerStyle = False
        .Redraw = False
        .BackColorStart = WARNA_BIRU
        .BackColorEnd = WARNA_BIRU
        .ImageList = itmIcons.hIml
        .BarTitleImageList = barIcons.hIml
        'menampilkan menu induk
        strSql = "SELECT id, menu_name, menu_caption " & _
                 "FROM menu_induk " & _
                 "ORDER BY id"
        Set rsMenuInduk = openRecordset(strSql)
        If Not rsMenuInduk.EOF Then
            rowCount(0) = getRecordCount(rsMenuInduk)
            For i = 1 To rowCount(0)
                Set cBar = setBarMenu(explorerBar, rsMenuInduk("menu_name").Value, rsMenuInduk("menu_caption").Value, 0)
                'menampilkan menu anak
                strSql = "SELECT menu_name, menu_caption " & _
                         "FROM menu_anak " & _
                         "WHERE menu_induk_id = " & rsMenuInduk("id").Value & " " & _
                         "ORDER BY id"
                Set rsMenuAnak = openRecordset(strSql)
                If Not rsMenuAnak.EOF Then
                    rowCount(1) = getRecordCount(rsMenuAnak)
                    For x = 1 To rowCount(1)
                        Call setItemMenu(cBar, rsMenuAnak("menu_name").Value, rsMenuAnak("menu_caption").Value, 0)
                        rsMenuAnak.MoveNext
                    Next x
                End If
                Call closeRecordset(rsMenuAnak)
                rsMenuInduk.MoveNext
            Next i
        End If
        Call closeRecordset(rsMenuInduk)
        Set cBar = setBarMenu(explorerBar, "mnuKeluar", "Keluar", 1)
        Call setItemMenu(cBar, "mnuKeluarDrProgram", "Keluar dari Program", 0)
        .Redraw = True
    End With
End Sub


Dan terakhir source code untuk menghandle menu yang di klik :












Private Sub vbalExplorerBarCtl1_ItemClick(itm As vbalExplorerBarLib6.cExplorerBarItem)
    Select Case itm.Key
        Case "mnuBarang": 'TODO : tampilkan frmBarang disini
        Case "mnuCustomer"
        Case "mnuSupplier"
        Case "mnuPembelian"
        Case "mnuReturPembelian"
        Case "mnuPenjualan"
        Case "mnuBiayaOperasional"
        Case "mnuGajiKaryawan"
        Case "mnuLapPembelian"
        Case "mnuLapJthTempo"
        Case "mnuLapPenjualan"
    End Select
End Sub

Contoh source code langkap bisa didownload disini.
Selamat mencoba :)

Sumber : http://coding4ever.wordpress.com


Tag :  Membuat menu samping dengan komponen vbAccelerator VB6 Explorer Bar, membuat menu samping di vb 6, membuat menu samping, vbAccelerator VB6 Explorer Bar, mempercantik tampilan vb, mempercantik tampilan form di vb, trik membuat menu samping, membuat menu di vb 6, skin for vb

Monday, 3 March 2014

XPcontrols.ocx - Memperindah Tampilan vb 6


Pada postingan kali ini saya akan berbagi ilmu tentang cara mempercantik/memperindah tampilan visual basic 6.0. Pasti anda semua, para pengguna vb 6 akan merasa bosan dengan tampilan yang ada. Disini anda bisa mengubah tampilan standar/default menjadi tampilan yang lebih menarik, dan sedap dipandang mata dengan menggunakan xpcontrols.ocx.Oke, tak perlu berlama-lama. Langsung saja download di link berikut :
 

- Kemudian copy xpcontrols.ocx ke C:\windows\system32

- Kemudian buka command prompt melalui start > run >ketik “cmd” > enter

- Ketik “cd\” (untuk masuk ke direktori c)

- Ketik “regsvr32 xpcontrols.ocx” seperti pada gambar :
- Kemudian tekan enter, akan muncul messagebox, yang menandakan proses telah sukses :
- Sekarang buka vb 6, pilih standard.exe, lalu buka komponen dengan menggunakan Ctrl+T, lalu klik/centang pada XP Style ActiveX Pack.

- Klik OK, akan muncul menu-menu baru, seperti XPFrame, XPTextBox, XPList, XPCheck, XPOption, XPButton, XPCombo, dan ProgBarXP.

- Dan didapatkan hasil form seperti berikut :


 Sekian semoga dapat bermanfaat.


Tag : XPcontrols.ocx, komponen XPcontrols.ocx, mempercantik form dengan XPcontrols.ocx, mempercantik tampilan dengan XPcontrols.ocx, xpbutton, control XPcontrols.ocx, ocx

Sunday, 23 February 2014

Membuat Judul (Header) Pada Crystal Report

Pada postingan kali ini saya akan membahas judul atau header pada crystal report. Mungkin judul postingan ini kurang pas,tapi saya bingung mau ngasih judul apa pada postingan ini, itu semua tidaklah penting mari kita lanjutkan.
Judul (header) pada laporan yang dibuat dengan crystal report pada tutorial ini sangat berguna misal kita ingin menampilkan periode sebuah laporan. Contoh Laporan Periode 12-01-2014 s.d 19-01-2014 ,Laporan Per Periode 12-01-2014 dan lain-lain.

Tutorial ini sebenarnya juga dapat digunakan untuk keperluan lain.


Jika tertarik silahkan download tutorial dan source codenya semoga dapat bermanfaat.


Tag : Judul laporan,crystal report, Membuat Judul (Header) Pada Crystal Report di vb, trik crystal report, laporan per periode, tutorial membuat membuat judul laporan pada crysal report

Monday, 17 February 2014

Komponen OCX OsenXPSuite 2006 Enterprise Edition

OsenXP Suite adalah seperangkat OCX lengkap yang customize dan memiliki fitur fitur yang dapat memudahkan programmer dalam membuat sebuah aplikasi dengan waktu yang relatif cepat. Tersedia berbagai macam template dan komponen yang mudah digunakan cukup dengan mengirimkna parameter parameternya saja. Didalamnya terdapat banyak sample yang memudahkan kita untuk mempelajarinya.



Perlu anda ketahui OsenXP Suite ini tidak gratis (trial 30 hari), Tapi disini saya share KEY nya yang dapat membuat OsenXP Suite ini menjadi full version, tapi ingat ini hanya untuk bahan PEMBELAJARAN (for education only and not for commercial), jika anda membuat aplikasi menggunakan komponen ini dan menjualnya maka anda harus membeli lisensi yang asli.




Tag :
OsenXP Suite 2006 download, download OsenXP Suite 2007, free download OsenXP Suite 2008, OsenXP Suite 2010 free download, OsenXP Suite 2011 full version download, download OsenXP Suite 2012 full version, OsenXP Suite 2006 full version free download, free download OsenXP Suite 2007 full version, serial number OsenXP Suite 2008, keygen OsenXP Suite 2009, key OsenXP Suite 2010, OsenXP Suite 2010 crack, gratis download OsenXP Suite 2012