VB 6.0 Download, tool & tutorial

Mem- password database (MS Access) dengan coding visual Basic 6.0 (4)

noreply@blogger.com (Nur Suhadi) — Fri, 26 Feb 2010 02:01:00 +0000

Form DelPassword

Biar nyambung baca dulu artikel saya sebelumnya untuk membuat Form Menu, Form New Password. dan Form edit Password. Sekarang kita membuat Form Delete Password, Tambahkan sebuah Form (Namai dengan : FrmDelPassword), tambahkan beberapa component sebagai berikut :

2 buah CommandButton
sebuah TextBox
sebuah Frame
sebuah Label

Set properties-nya sebagai berikut :

command1, name : Command1, caption : Create Password, enabled = false

command2, name : Command2, caption : Cancel

Text1, name : Text1, Text : , PasswordChar : *

Label1, name : Label1, caption : Old Password

Susun sedemikian rupa hingga tampilannya akan nampak seperti ini :

Form Delete Password

Sekarang diteruskan untuk mengisi jendela coding

Private Sub Command1_Click()
On Error GoTo 1
    Dim db As Database
    Dim fs As Object

    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CopyFile FrmMenu.Text1.Text, FrmMenu.Text2.Text

    Set db = OpenDatabase(FrmMenu.Text2.Text, True, False, ";pwd=" + Text3.Text)
    db.newPassword Text1.Text, ""
    db.Close
    MsgBox "Password has been deleted!", vbInformation, ".: Password deleted success"
    Unload Me
1:
If Not Err.Number = 0 Then
    MsgBox Err.Number, vbInformation, ".: Password Changed failed"
    Exit Sub
End If
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Text1_Change()
On Error GoTo 1
    Command1.Enabled = True
    Dim db As Database
    Set db = OpenDatabase(FrmMenu.Text1.Text, True, False, ";pwd=" + Text1.Text)

1:
If Not Err.Number = 0 Then
    Command1.Enabled = False
End If

End Sub

NOTE :
Aplikasi ini dirancang untuk mem-password, dengan terlebih dahulu mengcopy database asli ke path yang lain, untuk menghindari hal-hal yang tidak diinginkan.

--- Selesai ---

Mem- password database (MS Access) dengan coding visual Basic 6.0 (3)

noreply@blogger.com (Nur Suhadi) — Fri, 26 Feb 2010 02:00:00 +0000

Form EditPassword

Biar nyambung baca dulu artikel saya sebelumnya untuk membuat Form Menu dan Form New Password. Sekarang kita membuat Form Edit Password, Tambahkan sebuah Form (Namai dengan : FrmEditPassword), tambahkan beberapa component sebagai berikut :

2 buah CommandButton
3 buah TextBox
1 buah Frame
dan beberapa buah Label

Set properties-nya sebagai berikut :

command1, name : Command1, caption : Create Password, enabled = false

command2, name : Command2, caption : Cancel

Frame1, name : Frame1, caption : New Password

Text1, name : Text1, Text : , PasswordChar : *

Text2, name : Text2, Text : , PasswordChar : *

Text3, name : Text3, Text : , PasswordChar : *

Label1, name : Label1, caption : Enter a Password

Label2, name : Label2, caption : Type Password Again

Label3, name : Label3, caption : Old Password

Susun sedemikian rupa hingga tampilannya akan nampak seperti ini :

Form Edit Password

Sekarang diteruskan untuk mengisi jendela coding

Private Sub Command1_Click()
On Error GoTo 1
    If Text1.Text = "" Or Text2.Text = "" Then Exit Sub
    Dim fs As Object
    Dim db As Database

    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CopyFile FrmMenu.Text1.Text, FrmMenu.Text2.Text

    Set db = OpenDatabase(FrmMenu.Text2, True, False, ";pwd=" + Text3.Text)
    db.newPassword Text3.Text, Text1.Text

' text3 -- password lama

' text1 --- password baru
    db.Close
    MsgBox "Password has been changed!", vbInformation, ".: Password changed success"

    Unload Me
1:
If Not Err.Number = 0 Then
    MsgBox Err.Number, vbInformation, ".: Password Changed failed"
    Exit Sub
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Text1_LostFocus()
Text2.Text = ""
End Sub

Private Sub Text2_Change()
On Error Resume Next

    Command1.Enabled = False
    If Not Text2.Text = "" Then
        If Text2.Text = Text1.Text Then Command1.Enabled = True
    Else
        Command1.Enabled = False
    End If

End Sub

Private Sub Text3_Change()
On Error GoTo 1
    Frame1.Enabled = True
    Dim db As Database
    Set db = OpenDatabase(FrmMenu.Text1.Text, True, False, ";pwd=" + Text3.Text)
    Text1.SetFocus
1:
If Not Err.Number = 0 Then
    Frame1.Enabled = False
End If

End Sub

NOTE :
Aplikasi ini dirancang untuk mem-password, dengan terlebih dahulu mengcopy database asli ke path yang lain, untuk menghindari hal-hal yang tidak diinginkan.

Langkah selanjutnya membuat Form DelPassword

Mem- password database (MS Access) dengan coding visual Basic 6.0 (2)

noreply@blogger.com (Nur Suhadi) — Fri, 26 Feb 2010 02:00:00 +0000

Form NewPassword

Biar nyambung baca dulu artikel saya sebelumnya untuk membuat Form Menu nya

Sekarang kita membuat Form New Password, Tambahkan sebuah Form (Namai dengan : FrmNewPassword), tambahkan beberapa component sebagai berikut :

2 buah CommandButton
2 buah TextBox
dan beberapa buah Label

Set properties-nya sebagai berikut :

command1, name : Command1, caption : Create Password, enabled = false

command2, name : Command2, caption : Cancel

Text1, name : Text1, Text : , PasswordChar : *

Text2, name : Text2, Text : , PasswordChar : *

Label1, name : Label1, caption : Enter a Password

Label2, name : Label2, caption : Type Password Again

Susun sedemikian rupa hingga tampilannya akan nampak seperti ini :

Form New Password

Sekarang diteruskan untuk mengisi jendela coding

Private Sub Command1_Click()
    If Text1.Text = "" Or Text2.Text = "" Then Exit Sub
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CopyFile FrmMenu.Text1.Text, FrmMenu.Text2.Text

    Call newPassword(FrmMenu.Text2.Text, Text1.Text)
    MsgBox "Password has been created!", vbInformation, ".: Password created success"

    Unload Me
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Text1_LostFocus()
Text2.Text = ""
End Sub

Private Sub Text2_Change()
On Error Resume Next

    Command1.Enabled = False
    If Not Text2.Text = "" Then
        If Text2.Text = Text1.Text Then Command1.Enabled = True
    Else
        Command1.Enabled = False
    End If

End Sub

Sub newPassword(dbf As String, NewPwd As String)
On Error GoTo 1

    Dim db As Database
    Set db = OpenDatabase(dbf, True)
    db.newPassword "", NewPwd
    db.Close
    Exit Sub
1:
    If Not Err.Number = 0 Then
        MsgBox Err.Description, vbInformation, ".: New Password Created failed"
        Exit Sub
    End If
End Sub

NOTE :
Aplikasi ini dirancang untuk mem-password, dengan terlebih dahulu mengcopy database asli ke path yang lain, untuk menghindari hal-hal yang tidak diinginkan.

Langkah selanjutnya membuat Form EditPassword

Mem- password database (MS Access) dengan coding visual Basic 6.0 (1)

noreply@blogger.com (Nur Suhadi) — Fri, 26 Feb 2010 01:59:00 +0000

Tempo hari ada pengunjung menanyakan bagaimana memberi password dengan Vis-Data, saya bilangnya "..pending dulu ya!" padahal saya ga bisa, saya tanyakan di mbah google pun jawabnya malah nggak karuan, yang nyari kurang pinter kali ya.. ^_^. Mungkin ada fasilitasnya, hanya saja saya belum tahu, mungkin ada teman-teman yang tahu mohon di share ya.

Apa boleh buat, pakai coding saja ya. Yuph kita akan membuat aplikasi sendiri untuk me-manage Database kita.

Buat project baru (standart-EXE), Kemudian tambahkan references (Menu : Project-References ...) Microsoft DAO 3.51 Object Library, dan tambahkan component (Menu : Project-components ..) Microsoft Common Dialog Control 6.0 (SP3)

Form Menu

Tambahkan sebuah Form (Namai dengan : FrmMenu), tambahkan beberapa component sebagai berikut :

6 buah CommandButton
2 buah TextBox
1 buah CommonDialog
dan beberapa Label

Set properties-nya sebagai berikut :

command1, name : Command1, caption : New Password, enabled = false

command2, name : Command2, caption : Edit Password, enabled = false

command3, name : Command3, caption : Delete Password, enabled = false

command4, name : Command4, caption : Browse ...

command5, name : Command5, caption : Browse ...

command6, name : Command6, caption : Exit

Text1, name : Text1, Text : , Locked = True

Text2, name : Text2, Text : , Locked = True

Label1, name : Label1, caption : Password :

Label2, name : Label2, caption : NO

Label3, name : Label3, caption : Source File

Label4, name : Label4, caption : Destination File

Susun sedemikian rupa hingga tampilannya akan nampak seperti ini :

Form Menu

Sudah rapi ? nah sekarang kita mulai codingnya :

Private Sub Command1_Click()
FrmNewPassword.Show 1
End Sub

Private Sub Command2_Click()
FrmEditPassword.Show 1
End Sub

Private Sub Command3_Click()
    FrmDelPassword.Show 1
End Sub

Private Sub Command4_Click()
    CommonDialog1.InitDir = App.Path + "\Data\"
    CommonDialog1.Filter = "Access Database|*.mdb"
    CommonDialog1.ShowOpen
    Text1.Text = CommonDialog1.FileName
    cek CommonDialog1.FileName

End Sub

Private Sub Command5_Click()
    CommonDialog1.InitDir = App.Path + "\"
    CommonDialog1.Filter = "Access Database|*.mdb"
    CommonDialog1.ShowSave
    Text2.Text = CommonDialog1.FileName
End Sub

Sub cek(fdb As String)

Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False

On Error GoTo 1
    Dim db As DAO.Database
    Set db = OpenDatabase(fdb)
    Command1.Enabled = True
    Label2.Caption = "NO"
1:
If Not Err.Number = o Then
    Command2.Enabled = True
    Command3.Enabled = True
    Label2.Caption = "YES"
End If
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Form_Load()
Text2.Text = App.Path + "\" + Format(Now, "YYmmDD") + ".mdb"
End Sub

Langkah selanjutnya membuat Form NewPassword

Install OCX Crystal Report Control (2)

noreply@blogger.com (Nur Suhadi) — Sat, 20 Feb 2010 01:11:00 +0000

Beberapa waktu yang lalu ada pengunjung site ini yang bertanya mengapa OCX register-nya nggak bisa digunakan ada pesan "Class Not Registred Looking For Object with CLSID ... dst"??? Mohon maaf saya tidak bisa menjawabnya karena memang bukan ahli masalah software/windows.

Kali ini saya mencoba memberikan eksperimen saya yang kedua, fungsinya sama seperti hasil eksperimen saya yang pertama, yaitu me-register komponen/OCX crystl32.ocx agar bisa dijalankan (menampilkan report) tanpa harus menginstall Crystal Report

Versi Crystal Report yang saya gunakan adalah versi 8.5

File Setup nya dapat Anda Download disini :

[http://www.easy-share.com/1909316191/cr85.rar],

ukuran filenya sekitar 5 MB

LOWONGAN KERJA : Jakarta, Tangerang dan Bogor

noreply@blogger.com (Nur Suhadi) — Wed, 17 Feb 2010 09:07:00 +0000

INTERNAL AUDIT / AUDITOR ; ADMIN FINANCE

Pria, usia 21-24 th, teliti, detail & mengerti Akuntansi. Job function Audit Finance, penempatan Jkt / KIP untuk Internal Audit, penempatan Sentul – Bogor untuk Admin Finance.

STAFF ACCOUNTING ; STAFF PAJAK ; STAFF COST ACCOUNTING ; STAFF ACCOUNTING FINANCE

Pria / Wanita, usia max 32 th, pengalaman minimal 2-3 th dibidangnya, Pendikan min D3 Akuntansi/Manajemen, Mengerti dan memahami jurnal, mengerti dan memahami peraturan perpajakan (khusus untuk staff pajak), mengerti computer, menguasai bahasa inggris lebih diutamakan. Penempatan di Jakarta (Shipping Company), penempatan di Tangerang (Manufacturing Company).

TELEMARKETING :

Wanita, Pend min SMU ( pengalaman sbg SPG ) min D2 ( fresh graduated ), usia 20-25 th, menguasai komputer MS office, tekun, teliti, ramah, flexible. Job function Menawarkan workshop publik & maintenance klien, penempatan Jakarta / KIP.

IT STAFF :

Pria, min D3, usia 20-25 th, menguasai komputer, teliti, kreatif. Job function desain, edit video, pagemaker, photoshop, maintenance web penempatan Jakarta / KIP.

BUSINESS SECRETARY :

Female, age range 23-29, experience min 1 year, Computer MS Office, English Active, good communication skill, pleasant, honestly, integrity. Job function Ability to handle multitasking works. Work Location Jakarta / Sudirman nature of business Leasing Company "Central Java Power".

SITE ENGINEER :

Pria, min D3, usia 21-25 th, teknik sipil. Penempatan Bogor - Sentul perush Design, Construction & Maintenance.

SUPERVISOR PRODUKSI :

Pria, usia 25-35 th, S1 all bacground (T. Industri diutamakan), pengalaman 1 th dibidang manufacturing/percetakan, memiliki jiwa leadership, tegas, loyal. Penempatan di Tangerang perush Printing & Packaging "Mitra Surya Eratama Packaging, PT".

SUPERVISOR GA / ASSET MANAGEMENT :

Pria, min S1, usia 22-26 th, menyukai kegiatan GA & Asset management, menguasai komputer, English, leadership skill. Penempatan Jakarta / KIP perush Holding Company.

MANAGEMENT TRAINEE ( MT )

Pria / wanita, Pendidikan Min. S1 dari segala jurusan minimal IPK 3.00, Menguasai dengan baik program office. Suka tantangan, proaktif, suka bekerja keras, suka belajar dan suka memimpin. Bisa bahasa Inggris min. Aktive. Lebih disukai yang memiliki minat enterpreunership.

FINANCE MANAGER : HR MANAGER

Pria, pend S1 Akuntansi, usia 25-30 th, pengalaman 2-3 th dibidangnya. Penempatan di Sentul – bogor ( untuk FM ) Pria/Wanita, pengalaman 2-3 th dibidangnya, usia 25-35 th. Penempatan di Tangerang perush Printing & Packaging "Mitra Surya Eratama Packaging,PT" ( untuk HRM )

Kirim applikasi lengkap dan photo terbaru ke :

PT. Indonesian People Power

Jl. Pulokambing II No 9 Kawasan Industri Pulogadung (Jakarta)

Jl. Semarang Indah Blok C 43 Tawang Mas Semarang 50144 (Semarang)

Email : hajran.jamila@ippkarir.com / mila_hajranjamila@yahoo.com

WEBSITE : http://www.ippkarir.com

Membuat Laporan Bulanan dengan Data Report tanpa Data Environtment

noreply@blogger.com (Nur Suhadi) — Thu, 11 Feb 2010 13:21:00 +0000

Berikut saya berikan Source Code : bagaimana cara menampilkan report dengan data report tanpa menggunakan data environtment

Prinsip kerjanya adalah menghubungkan datareport dengan koneksi database (dalam contoh ini memakai Adodc), kemudian mem-filter data yang ditampilkan dengan merubah recordsource dari Adodc dengan syntax SQL.

Form Report

Data Report

Link Download Source Code : [http://www.easy-share.com/1909264674/datareport.rar]

MS WORD : Menggunakan table sebagai pengganti tab (Halaman Pengesahan)

noreply@blogger.com (Nur Suhadi) — Wed, 10 Feb 2010 12:53:00 +0000

Cara ini mungkin tidak lazim digunakan oleh pengguna yang baru kenal MS Word, atau tidak pernah diajarkan di LPK ataupun kampus. Trik ini biasa dipakai oleh mas-mas atau mbak-mbak penjaga rental dan mungkin juga menyalahi aturan dari pembuat MS Word itu sendiri.. (..^_^ kok malah jadi nglantur)

Sebagai contoh adalah ‘halaman pengesahan’ yang biasa dibuat mahasiswa dalam menyusun Tugas Akhir, pada bagian paling bawah halaman tersebut biasanya terdapat beberapa nama dosen-dosen yang terhormat.

1. Nekat pakai spasi

Banyak yang mencoba menggunakan spasi untuk menyusunnya, ya jadinya maap-maap ‘amburadul’, walaupun telah diusahakan sedemikian rupa agar sesuai posisi yang diharapkan

2. Menggunakan Center Tab

Cara kedua ini jauh lebih baik dari cara pertama dan sudah menggunakan teori dalam memanfaatkan MS Word. cara penggunaan Center tab dan tab yang lain dapat anda baca di sini [http://mugi.or.id/blogs/arhiez/archive/2009/04/06/mengenal-kegunaan-tab-pada-word-2007-bag-1.aspx]

3. Menggunakan bantuan tabel
Langkah-langkahnya adalah sebagai berikut :

Sisipkan sebuah tabel kedalam halaman ms Word (Menu : Table -- Insert -- Table ...), Muncul jendela Insert Table, set sesuai keperluan dan akhiri dengan tombol OK, misalnya seperti : gambar dibawah ini :

Susun kata/kalimat kedalam tabel tersebut dan atur aligment-nya (Left/Right/Center), misalnya sepeti gambar dibawah ini :

Langkah terakhir adalah menghilangkan garis-garis pada tabel alias border-nya, blok tabel tersebut, klik kanan pilih border and shading ..., pada tab Borders pilih None (artinya : tanpa border), akhiri dengan OK, dan selesai
Hasilnya dapat dilihat pada print preview-nya seperti ini :

Cara yang terakhir ini (menggunakan bantuan tabel) dijamin lebih adil (per- kolomnya), mudah dan presisi :D, Selamat mencoba!

Cara Menggunakan DbList dan DBCombo

noreply@blogger.com (Nur Suhadi) — Sat, 06 Feb 2010 01:18:00 +0000

Pada Tulisan sebelumnya saya membahas tentang dataList dan dataCombo, kedua komponen tersebut hanya support dengan Adodc, bagi yang menggunakan koneksi database dengan DATAcontrol dapat menggantinya dengan DBList dan DBCombo

Nah berikut cara penggunaannya :

Komponen yang perlu ditambahkan :

Sebelumnya tambahkan komponen Microsoft Data Bound List Controls 6.0 (OLE DB), caranya lewat menu-- Project-- Component ... atau tekan CTRL + T
Sehingga dalam ToolBox muncul :

Penggunaan DataList dan DataCombo untuk menampilkan data dengan mengatur Properties
Langkah-langkahnya sama dengan setting properties pada dataList dan dataCombo

Penggunaan DataList dan DataCombo untuk menampilkan data dengan "coding"
Jika dirasa setting properties diatas cukup rumit, masukkan code-code dibawah ini ke dalam jendela coding Anda sebagai penggantinya :

Sub Form_Load()
Dim dbcon As String
Data1.DatabaseName = App.Path + "\db1.mdb
Data1.RecordSource="books"
Data1.RecordsetType = 1
Set DbList1.RowSource = Data1
DbList1.ListField = "author"
Set DbCombo1.RowSource = Data1
DbCombo1.ListField = "category"
End Sub

Event pada DbList yang biasa digunakan adalah event Click sedangkan untuk DbCombo adalah event Change.

Demikian dan terimakasih, semoga bermanfaat!

Cara Menggunakan DataList dan DataCombo

noreply@blogger.com (Nur Suhadi) — Thu, 04 Feb 2010 15:15:00 +0000

Combo (Daftar dropdown) dan List tentunya tidak asing lagi bagi pengguna visual basic 6.0 Kedua komponen tersebut biasa digunakan untuk menampilkan suatu daftar tertentu dalam suatu form. Penggunaan kedua komponen ini sangat tepat untuk daftar yang konstan alias tidak berubah-ubah, walaupun dengan coding bisa digunakan untuk menampilkan daftar yang dinamis (caranya dapat anda baca [disini]). Bisa juga digunakan untuk menampilkan isi field dari tabel dalam suatu database.

Akan tetapi ada komponen yang lebih tepat untuk menampilkan data dari suatu database, yaitu dataCombo dan dataList. Dari namanya saja sudah menunjukkan fungsinya, yaitu manampilkan data, tidak jauh beda dengan DataGrid.

Nah berikut cara penggunaannya :

Komponen yang perlu ditambahkan :

Sebelumnya tambahkan komponen Microsoft DataList Control 6.0 (OLE DB), caranya lewat menu-- Project-- Component ... atau tekan CTRL + T
Tambahkan juga komponen ADODC (Microsoft ADO Data Control 6.0 (OLE DB))
Sehingga dalam ToolBox muncul :

Penggunaan DataList dan DataCombo untuk menampilkan data dengan mengatur Properties
Langkah-langkahnya adalah sebagai berikut :

Tambahkan DataList, DataCombo dan Adodc kedalam Form.
Koneksikan Adodc dengan database
Klik pada DataList dan atur propertiesnya :

RowSource = Adodc1
ListField = nama field atau kolom

Demikian pula setting properties untuk datacombo adalah sama .

Sub Form_Load()

Dim dbcon As String
dbcon = "Provider=Microsoft.Jet.OLEDB.4.0;" + _
"Data Source=" + App.Path + "\db1.mdb;" + _
"Persist Security Info=False"

Adodc1.ConnectionString = dbcon
Adodc1.RecordSource = "books"
Adodc1.Refresh

Set DataList1.RowSource = Adodc1
DataList1.ListField = "author"
Set DataCombo1.RowSource = Adodc1
DataCombo1.ListField = "category"
End Sub

Event pada DataList yang biasa digunakan adalah event Click sedangkan untuk DataCombo adalah event Change.

Demikian dan terimakasih, semoga bermanfaat!

HScroll dan VScroll untuk menggeser Object saat runtime

noreply@blogger.com (Nur Suhadi) — Wed, 27 Jan 2010 00:01:00 +0000

HScroll dan VScroll, inilah 2 komponen vb6 yang digunakan untuk menggulung/menggeser object ke posisi tertentu sebesar nilai tertentu. Itulah yang saya mengerti tentang HScroll dan VScroll ini. Bagaimanakah cara menggunakannya ?

Untuk latihan kita membutuhkan 1 buah picturebox, sebuah image, 1 buah VScrool dan 1 buah HScroll. Letakkan pictureBox kedalam Form, diikuti dengan meletakkan image (-bisa diganti object/komponen lain-) didalam pictureBox, jangan lupa set properties imagenya untuk menambahkan gambar kedalam image. Terakhir letakkan HScroll dibawah PictureBox dan VScroll disamping kiri PictureBox. Sehingga nampak seperti gambar dibawah ini.

Untuk Menggulung object ke atas/kebawah masukkan code berikut pada event Change VScroll :

Image1.Top = (VScroll1.Value + 1) * -1

Untuk Menggulung object ke kiri/kanan masukkan code berikut pada event Change HScroll :

Image1.Left = (HScroll1.Value + 1) * -1

Nah sampai disini gambar sudah dapat digeser-geser, kemudian tambahkan code dibawah ini pada event Form_Load :

HScroll1.Max = Image1.Width - Picture1.Width + 60
HScroll1.SmallChange = 100
VScroll1.SmallChange = 100

VScroll1.Max = Image1.Height - Picture1.Width + 60
VScroll1.SmallChange = 100
VScroll1.LargeChange = 100

Sample Project dapat di download disini :
http://www.ziddu.com/download/8338678/vscrolldanhscroll.rar.html

Formula Perhitungan PPh 21 Karyawan 2009

noreply@blogger.com (Nur Suhadi) — Sat, 23 Jan 2010 00:50:00 +0000

Masa Pajak 2009 sudah berakhir, tugas saya untuk menghitung Pajak Penghasilan Karyawan (PPh 21) di tempat saya bekerja pun sudah usai. Kalau banyak yang salah, ya maap ! hehehe ...

Peraturan pajak yang dapat berubah-ubah setiap tahunnya mendorong saya membuat tabel formula perhitungan PPh 21 Karyawan, supaya fleksibel bila suatu saat terjadi perubahan lagi.

Bukan menggunakan Visual Basic 6.0 tapi menggunakan Excel, semoga formula ini dapat bermanfaat untuk yang akan menghitung pajak karyawan di perusahaannya ataupun yang mau menghitung berapa besaran pajak yang seharusnya dia bayar kepada Negara kita tercinta ini.

Cukup mengisi sembilan kolom (9) dari jumlah bulan dalam tahun sampai dengan tunjangan, Anda sudah dapat melihat berapa penghasilan bruto, pengurang penghasilan, PTKP, PKP, dan Pajak yang terutang tentunya.

Kalau ada salahnya, mohon dikoreksi. Terima Kasih. Bagi Anda yang menginginkan dapat diunduh gratis.
Link Download :

JOB VACANCY : Customer Service (CS) dan Secretary

noreply@blogger.com (Nur Suhadi) — Thu, 21 Jan 2010 10:22:00 +0000

Dibutuhkan segera profesional muda untuk bekerja pada perusahaan farmasi ternama di kota Semarang, untuk posisi Customer Service (CS) dan Secretary

Kualifikasi :

Wanita, Single, max 27 th
Lulusan S1 Manajemen/ Komunikasi (CS) dan min D3 Sekretaris (Secretary)
Penampilan menarik
Komunikatif
Bisa mengoperasikan program office (MS Office/Open Offce) dan Internet
Penempatan Kerja di Semarang

Kirim Lamaran lengkap dan CV ke alamat :

PT. Indonesian People Power
Semarang Indah Blok C IV No.3 Semarang 50144
Phone : (024) 7600156

Atau email ke :

recruitment@ippkarir.com

SEGERA !!! Maksimal 7 hari setelah Posting Lowongan ini

Mewarnai background Listview dengan gambar

noreply@blogger.com (Nur Suhadi) — Sat, 16 Jan 2010 14:43:00 +0000

Listview adalah salah satu penampil data yang paling menarik, dibandingkan dengan datagrid, flexgrd atau dbgrid, listview terkesan yang paling elegan, dapat ditampilkan dalam 4 bentuk tampilan diantaranya icon, small icon, List dan Report.

Untuk menambah cantik tampilannya backgroundnya dapat ditambahi dengan gambar, tetapi hanya untuk listview versi 6 (component : windows common controls 6.0 (SP6)).

contoh listview setelah ditambahkan gambar :

contoh listview sebelum ditambahkan gambar :

Caranya sangat mudah, tinggal pilih mau yang pake coding atau yang ngeset propertiesnya, bila cara yang kedua yang dipilih ikuti langkah-langkah sebagai berikut :

Siapkan gambar-nya misalnya seperti ini

Tambahkan sebuah listview, atur propertiesnya sebagai berikut :

TextBackground	:	0 - lvwTransparet
Font	:	Arial - 8
GridLines	:	True
Picture	:	Cari gambar sesuai keinginan ...
PictureAligment	:	5 - lvwTile
View	:	3 - lvwReport

Setelah itu klik kanan listview dan pilih properties, pilih tab Column Headers, tambahkan beberapa kolom pada listview (misalnya 3) dengan cara klik tombol Insert Column, bila perlu isi juga kotak-kotak isian dibawahnya.

Selesai sudah, tinggal di run (F5), apabila kurang pas antar barisnya bisa disesuaikan dengan mengubah besar-kecilnya gamabar atau mengubah ukuran font-nya.

Bila Anda tidak suka cara diatas pake code-code dibawah ini saja untuk menggantinya :

Private Sub Form_Load()
    'set tampilan listview
    Dim fnt As New StdFont
    fnt.Name = "Arial"
    fnt.Size = 8
    With ListView1
        .View = lvwReport

        .ColumnHeaders.Add , , Label1.Caption, 1000
        .ColumnHeaders.Add , , Label2.Caption, 1000, 1 ' nilai 1=rata kanan
        .ColumnHeaders.Add , , Label3.Caption, 1000, 2 ' nilai 2=rata tengah

        .GridLines = True ' tambahan grid, untuk versi 6 lebih lengkap propertiesnya, bisa dicoba sendiri
        .MultiSelect = True
        .Picture = LoadPicture(App.Path + "\test2.jpg")
        .PictureAlignment = lvwTile
    End With
End Sub

Link Download Sample Project :

http://www.ziddu.com/download/8189739/picture_listview.rar.html

Revisi Data Edit Grid Versi 1

noreply@blogger.com (Nur Suhadi) — Fri, 08 Jan 2010 23:40:00 +0000

Saya dapat Info mengenai link Data Edit Grid 1 yang ternyata tidak terdapat file dimaksudkan didalamnya, nah Link ini berisi Source Code Data Edit Grid Versi 1 yang sudah saya revisi dengan beberapa penambahan code dan component.

Silakan unduh, Gratis!
Link Downloadnya :
1. http://www.ziddu.com/download/8074976/Data_Edit_Grid_V_1_1.rar.html
2. http://www.easy-share.com/1908950106/Data_Edit_Grid_V_1_1.rar

10 Top Source Code Download until 01-01-10

noreply@blogger.com (Nur Suhadi) — Tue, 05 Jan 2010 14:26:00 +0000

Top Download :

Berikut 10 Source Code terbanyak (sebenarnya nggak banyak-banyak amat, :D ) yang telah didownload pengunjung vbjadul.com per 1 Januari 2010 :

1.	SHOWTABLE.rar	126
2.	driver-cr85.zip	77
3.	connectadodb.zip	67
4.	Subtotal.zip	63
5.	combodanlist.zip	51
6.	nourut.zip	45
7.	PackageProjectVB.zip	44
8.	listview.zip	39
9.	ListOfKeyascii.zip	38
10.	caricepat.zip	38

Untuk link yang lain dapat Anda lihat di halaman utama (Home) pada tab Free Source Code

Menampilkan tabel dalam suatu database beserta isinya.(2)

noreply@blogger.com (Nur Suhadi) — Mon, 04 Jan 2010 14:59:00 +0000

Pernah download atau membaca artikel saya tentang cara menampilakan semua tabel dari sebuah database MS Access beserta semua isinya? Jika belum silakan download di Link ini atau simak penjelasannya di halaman ini.

Nah berikut adalah pengembangan dari source code sebelumnya, saya tambahkan didalamnya source code menu untuk membuka file MS Access yang lain, sehingga akan nampak lebih dinamis.

Saya tambahkan juga code untuk menambahkan path database yang dibuka ke dalam list menu dengan bantuan sebuah database.

Link Download :

httpwww.ziddu.comdownload8014333SHOWTABLE2.rar.html

Trik Mewarnai Field Negatif pada Crystal Report 8.5

noreply@blogger.com (Nur Suhadi) — Fri, 01 Jan 2010 15:39:00 +0000

Suatu report dikatakan handal apabila menarik dan informatif. Banyak opsi yang bisa digunakan untuk membuat report menjadi lebih informatif, termasuk format tulisan, tebal-tipis, tegak-miring, merah-hitam dan sebagainya. Dalam Crystal Report belum saya dapati fasilitas khusus untuk membedakan warna antara nilai positif dan negatif, mungkin Anda tahu ? kalau iya mohon di share ke saya ya ... ^_^

Tulisan saya kali ini merupakan trik untuk dapat membedakan warna antara yang bernilai positif dengan yang negatif.

Langkah-langkahnya adalah sebagai berikut :

(1) Buat sebuah Report baru, minimal memililki tampilan seperti ini :

Dari preview report diatas nampak 2 field yaitu kota dan hasil, nah yang akan kita coba "operasi" adalah field 'hasil'

(2) Tambahkan lagi field 'hasil' (Insert >> Field Object) dan letakkan disebelah kanan dari field 'hasil' yang pertama, copy-paste juga dapat dilakukan pada langkah ini. sehingga akan nampak preview seperti ini :

(3) Klik kanan pada record field 'hasil' (a), pilih format field ...
(4) Akan muncul jendela Format Editor, klik tab common, checklist pilihan suppress dan klik tombol bergambar pensil disebelah kanannya.
(5) Akan muncul jendela Formula Editor : Object Visibility, isi text formula dengan formula sebagai berikut :

{table1.hasil}<0

(6) Tutup jendela tersebut, jawab yes apabila ada konfirmasi untuk menyimpan formula
(7) Akhiri dengan tombol OK

Langkah ke 3-7 adalah untuk menyembunyikan record-record pada field 'hasil' (a) yang nilainya kurang dari 0 alias negatif

(8) Demikian pula format field 'hasil' (b) seperti langkah-langkah 3-6 dengan menuliskan formula pada text formula sebagai berikut :

{table1.hasil}>=0

(9) Formula tersebut digunakan untuk menyembunyikan record-record pada field 'hasil' (b) yang nilainya lebih dari atau sama dengan 0 alias positif

(10) Selanjutnya mewarnai field 'hasil' (b) yang bernilai negatif, klik kanan pada record field 'hasil' (b)

(11) Akan muncul jendela Format Editor, klik tab Font, warnai sesuai yang Anda inginkan misalnya dengan warna merah. Akhiri dengan klik tombol OK

(12) Langkah terakhir adalah : Drag/seret field 'hasil' (b), sehingga posisinya sama dengan field 'hasil' (a)

Demikian Langkah-langkah untuk mewarnai field bernilai negatif, sehingga hasil akhirnya adalah sebagai berikut :

Selesai ! Semoga bermanfaat dan Selamat mencoba

Link Sample Report :
http://www.ziddu.com/download/7977455/cr_field_negatif.rar.html

-000-

Treeview on Visual Basic 6.0

noreply@blogger.com (Nur Suhadi) — Sat, 26 Dec 2009 08:51:00 +0000

Buat Project baru, tambahkan sebuah Form, tambahkan component berikut : Microsoft Windows Common Control 6.0, Tambahkan sebuah TreeView dan sebuah ImageList.

Klik kanan pada ImageList dan pilih properties kemudian tambahkan beberapa gambar (-berformat : *.bmp,*.dib,*.ico,*.cur,*.gif,*.jpg -)

Copy-Paste Code dibawah ini ke dalam jendela coding Anda :

Private Sub Form_Load()
Dim Node As Node
With TreeView1
.ImageList = ImageList1
.Nodes.Clear

Set Node = .Nodes.Add(, , "Data", "Data", 3)
Node.Tag = "IA"
Node.Expanded = True

'add tabel

Set Node = .Nodes.Add("Data", tvwChild, "Table", "Tables", 1)
Node.Tag = "TBA"
Node.Expanded = True

'add tables anak

Set Node = .Nodes.Add("Table", tvwChild, "Table1", "Tabel1", 4)
Node.Tag = "TBA1"
Set Node = .Nodes.Add("Table", tvwChild, "Table2", "Tabel2", 4)
Node.Tag = "TBA1"

'add views

Set Node = .Nodes.Add("Data", tvwChild, "View", "Query", 2)
Node.Tag = "VWA"

'add views anak

Set Node = .Nodes.Add("View", tvwChild, "view1", "Query1", 4)
Node.Tag = "VWA1"
Set Node = .Nodes.Add("View", tvwChild, "view2", "Query2", 4)
Node.Tag = "VWA1"

End With

End Sub

Run (F5) program sehingga akan muncul tampilan :

Basic penulisan coding Node.Add Treeview :
Dim Node As Node
TreeView1.ImageList = ImageList1

Menghubungkan Treeview dengan Image List, dapat dilakukan juga dengan set pada properties Treeview-nya.

TreeView1.Nodes.Clear

Membersihkan Treeview sebelum di-load ulang.

Penggunaan Fungsi Node.Add
Function Add([Relative], [Relationship], [Key], [Text], [Image], [SelectedImage]) As Node

Add Node Parent
Set Node = TreeView.Nodes.Add( , , [Key], [Text], [Image])
Contoh : Set Node = TreeView1 . Nodes.Add( , , "Data", "Data", 3)

Add Node Child
Set Node = TreeView.Nodes.Add ( [Relative], [Relationship], [Key], [Text], [Image])
Contoh : Set Node = TreeView1 .Nodes.Add("Data", tvwChild, "Table", "Tables", 1)

Hubungan percabangan TreeView

[Relative] : merupakan nilai dari [Key] dari parent (cabang diatasnya)
[Key] : Harus berbeda untuk setiap item (unique)
ext] : boleh sama untuk item yang satu dengan item yang lain, hanya merupakan text yang akan ditampilkan saat program di Run
[Image] : bisa berupa key dari item-item gambar pada Imagelist atau index-nya

Contoh :

Demikian cara menampilkan listview dalam Vb 6.0, untuk event-event dari TreeView itu sendiri akan dibahas pada artikel-artikel selanjutnya. Insya Alloh. Selamat Mencoba !

Link Download Sample Project :
http://www.ziddu.com/download/7897924/treeview.rar.html

Form 'Bajakan' dengan image dan label

noreply@blogger.com (Nur Suhadi) — Wed, 23 Dec 2009 12:39:00 +0000

Waktu mau muter mp3 dengan Media Player ada kotak dialog seperti pada gambar sebelah kanan. Terus terlintas bisa nggak ya Form yang terlihat manis itu ditiru (-biasa orang kita kan sukanya yang bajakan he3...-), ternyata berhasil saya menjiplaknya dan tidak membutuhkan keahlian atau harus mahir coding ko', Penasaran ?? baca sampai selesai ya!

Hanya membutuhkan sedikit pengalaman menggunakan Paint. Atau dengan software graphic semacam corel atau photosop pasti hasilnya lebih bagus.

Langkah pertama adalah memilih form/aplikasi yang akan di "bajak" kemudian tekan Alt dan Print Screen bersamaan, buka paint, klik kanan - paste atau CTRL + V, Ubah sedemikian rupa dengan menghilangkan garis-gari tepinya. sehingga akan nampak perubahan seperti ini :

Gambar tersebut akan dipakai sebagai gambar "latar" form,

Lakukan hal yang sama untuk mendapatkan dua buah gambar dibawah ini yang akan digunakan sebagai tab/menu/command.

gambar tab1

gambar tab2

Nah, sudah kita peroleh gambar-gambar yang dibutuhkan, selanjutnya buka project baru, tambahkan sebuah form, drag sebuah image dalam form tersebut, selanjutnya pada propertiesnya : picture masukkan gambar pertama, sehingga akan muncul pada form sebagai berikut ;

Sesuaikan properties image tersebut : Left = 0 dan Top = 0, atau seret image tersebut sampai ke sudut form, sesuaikan besar formnya.

Tambahkan dua buah image lagi dan ganti propertiesnya : picture dengan dua buah gambar tersisa. Atur posisinya sedemikian rupa seperti terlihat pada gambar dibawah ini :

Pastikan dua buah image tersebut mempunyai posisi yang sama baik left-nya maupun top-nya. Selanjutnya tambahkan dua buah label dan posisikan diatas dua buah image seperti gambar dibawah ini

Atur properties kedua label tersebut : aligment = 2-center; BackStyle : 0-Transparent, Nah sampai disini design sudah selesai, sekarang tiba waktunya untu sedikit coding. CO-PAS code dibawah ini ke dalam jendela code :

Private Sub Label1_Click()
Image2.ZOrder 0
Label1.ZOrder 0
Label2.ZOrder 0
End Sub

Private Sub Label2_Click()
Image3.ZOrder 0
Label1.ZOrder 0
Label2.ZOrder 0
End Sub

Code diatas hanya untuk menempatkan object tertentu di paling atas diantara object-object yang lain, untuk lebih jelasnya tentang Zorder dapat dibaca disini

Nah hasil akhirnya adalah seperti ini :

Bagaimana ? mau coba? atau download saja source code-nya pada link dibawah ini :
http://www.ziddu.com/download/7856025/formkece.rar.html

Semoga bermanfaat.

Code Simpan, Cari, Edit dan hapus data pada Visual Basic 6.0

noreply@blogger.com (Nur Suhadi) — Wed, 16 Dec 2009 15:50:00 +0000

Berikut adalah comtoh penulisan code vb6 untuk simpan, cari, ubah dan hapus data dengan menggunakan Data Control, ADODC, dan ADODB. (codenya basic/pemula)

Code-code dibawah ini hanya sebatas code-code dasar untuk simpan, cari, ubah dan hapus, tidak disertakan code-code validasi, penanganan error ataupun code untuk koneksinya.

1. DATA CONTROL

Yang perlu diperhatian adalah bahwa Data Control membutuhkan index untuk pencarian yang selanjutnya untuk melakukan edit dan hapus data

#Simpan Data :

Data1.Recordset.AddNew
Data1.Recordset!namakolom1 = Text1.Text
Data1.Recordset!namakolom2 = Text2.Text
Data1.Recordset.Update
Data1.Recordset.Refresh

#Pencarian Data :

Data1.Recordset.Index = "KodeIdx"
Data1.Recordset.Seek "=", Textcari.Text
If Not Data1.Recordset.NoMatch Then
     Text1.Text = Data1.Recordset!namakolom1
     Text2.Text = Data1.Recordset!namakolom2
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if

#Edit Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Edit
Data1.Recordset!namakolom1=Text1.Text
Data1.Recordset!namakolom2=Text2.Text
Data1.Recordset.Update
Data1.Recordset.Refresh

#Hapus Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Data1.Recordset.Delete
Data1.Recordset.Refresh

2. ADODC

#Simpan Data :
Adodc1.Recordset.AddNew
Adodc1.Recordset!namakolom1 = Text1.Text
Adodc1.Recordset!namakolom2 = Text2.Text
Adodc1.Recordset.Update
Adodc1.Recordset.Refresh

#Pencarian Data :

Adodc1.Recordset.Find "namakolom1='" + Text1.Text + "'", , adSearchForward, 1
If Not Adodc1.Recordset.EOF Then
     Text1.Text = Adodc1.Recordset!namakolom1
     Text2.Text = Adodc1.Recordset!namakolom2
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if

#Edit Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.

Adodc1.Recordset!namakolom1=Text1.Text
Adodc1.Recordset!namakolom2=Text2.Text
Adodc1.Recordset.Update
Adodc1.Recordset.Refresh

#Hapus Data :

Kode ini sebaiknya dijalankan setelah kode pencarian dijalankan terlebih dahulu.
Adodc1.Recordset.Delete
Adodc1.Recordset.Refresh

3. ADODB
Sebelum melangkah lebih jauh sebaiknya Anda membaca terlebih dahulu bagaimana koneksi database dengan menggunakan ADODB disini

#Simpan Data :
ado.Execute "INSERT INTO [nama tabel] VALUES ('" + Text1.Text + "','" + Text2.Text + "')"

#Pencarian Data
Set Rs = New Adodb.Recordset

Rs.Open "SELECT * FROM [nama table1] WHERE [nama kolom1]='" + TextCari.Text + "'", ado

If Not rs.EOF Then

     Text1.Text = rs("namakolom1")
     Text2.Text = rs("namakolom2")
Else
     MsgBox "Maaf, Data Tidak Ditemukan!"
End if

#Edit Data

ado.Execute "UPDATE [nama tabel] Set [namakolom1]='" + Text1.Text + _
"',[namakolom2]='" + Text2.Text + _
"' WHERE [nama kolom1]='" + TextCari.Text + "'"

Code diatas tidak memerlukan lagi kode pencarian seperti code edit untuk DATA dan Adodc

#Hapus Data
ado.Execute "DELETE * FROM [nama tabel] WHERE [nama kolom1]='" + TextCari.Text + "'"

Code diatas tidak memerlukan lagi kode pencarian seperti code hapus untuk DATA dan Adodc

Demikian, semoga bermanfaat.

Panggil Aplikasi (*.exe) Pendukung dengan code VB 6.0

noreply@blogger.com (Nur Suhadi) — Tue, 15 Dec 2009 10:11:00 +0000

Beberapa waktu yang lalu saya mendapat e-mail berisi pertanyaan yang intinya adalah bagaimana cara memanggil Aplikasi lain dari aplikasi utama.

Misalnya kita memiliki tiga buah aplikasi :

Aplikasi Penjualan (d:\jual-beli\penjualan\penjualan.exe)
Aplikasi Pembelian (d:\jual-beli\pembelian\pembelian.exe)
Aplikasi Stok (d:\jual-beli\stok\stok.exe)

Ketiga aplikasi tersebuat akan saya panggil dari Aplikasi Utama.

Langkah pertama tentunya menyiapkan aplikasi-apliakasi yang akan di panggil, apabila belum dijadikan file executable, harus dijadikan file executable terlebih daulu, caranya dapat disimak disini

Buka Aplikasi utama kita (bila perlu buat project baru) tambahkan sebuah form dan sebuah module. Tambahkan 3 buah command dan copy-paste code dibawah ini :

Private Sub Command1_Click()
Dim result As Long
result = ShellExecute(Me.hwnd, "open", "d:\jual-beli\penjualan\penjualan.exe", "", "", SW_HIDE)
If result <= 32 Then
errhandling
End If
End Sub

Private Sub Command2_Click()
Dim result As Long
result = ShellExecute(Me.hwnd, "open", "d:\jual-beli\pembelian\pembelian.exe", "", "", SW_HIDE)
If result <= 32 Then
errhandling
End If
End Sub

Private Sub Command3_Click()
Dim result As Long
result = ShellExecute(Me.hwnd, "open", "d:\jual-beli\stok\stok.exe", "", "", SW_HIDE)
If result <= 32 Then
errhandling
End If
End Sub

---

Sebelumnya COPAS code windows API dibawah ini dalam module yang sudah kita tambahkan dalam project.

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_HIDE = 0
Public Const SW_MAXIMIZE = 3
Public Const SW_MINIMIZE = 6
Public Const SW_RESTORE = 9
Public Const SW_SHOW = 5
Public Const SW_SHOWDEFAULT = 10
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOWNORMAL = 1

Public Const ERROR_FILE_NOT_FOUND = 2&
Public Const ERROR_PATH_NOT_FOUND = 3&
Public Const ERROR_BAD_FORMAT = 11&
Public Const SE_ERR_ACCESSDENIED = 5
Public Const SE_ERR_ASSOCINCOMPLETE = 27
Public Const SE_ERR_DDEBUSY = 30
Public Const SE_ERR_DDEFAIL = 29
Public Const SE_ERR_DDETIMEOUT = 28
Public Const SE_ERR_DLLNOTFOUND = 32
Public Const SE_ERR_NOASSOC = 31
Public Const SE_ERR_OOM = 8
Public Const SE_ERR_SHARE = 26

Public Const STYLE_NORMAL = 11

Juga code dibawah ini dalam module yang sama.

Public Sub errhandling()
        Select Case result
            Case 0
                MsgBox "Out of memory or resources", vbOKOnly Or vbExclamation, "Error"
            Case ERROR_FILE_NOT_FOUND
                MsgBox "File not found", vbOKOnly Or vbExclamation, "Error"
            Case ERROR_PATH_NOT_FOUND
                MsgBox "Path not found", vbOKOnly Or vbExclamation, "Error"
            Case ERROR_BAD_FORMAT
                MsgBox "Invalid .EXE file", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_ACCESSDENIED      ' access denied
                MsgBox "File access denied", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_ASSOCINCOMPLETE
                MsgBox "Invalid file name association", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_DDEBUSY
                MsgBox "DDE busy", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_DDEFAIL
                MsgBox "DDE transaction failed", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_DDETIMEOUT
                MsgBox "DDE timeout", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_DLLNOTFOUND
                MsgBox "DLL not found", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_NOASSOC
                MsgBox "No associated application", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_OOM                  ' out of memory
                MsgBox "Out of memory", vbOKOnly Or vbExclamation, "Error"
            Case SE_ERR_SHARE
                MsgBox "Sharing violation", vbOKOnly Or vbExclamation, "Error"
            Case Else
                MsgBox "Unknown error " & result, vbOKOnly Or vbExclamation, "Error"
        End Select
End Sub

Demikian. Semoga bermanfaat.

Buku Tamu

noreply@blogger.com (Nur Suhadi) — Sun, 06 Dec 2009 14:23:00 +0000

Assalamu'alaikum ...

Ahlan Wa Sahlan, Selamat Datang sobat semua di vbjadul.com. Terima kasih atas kunjungannya ke situs ini, semoga memberikan manfaat untuk sobat semua. Kami menyadari masih banyak kekurangan dan kesalahan, karena kami-pun masih belajar dan terus ingin belajar.

Bagi yang ingin memberikan kritik, saran, masukan, mungkin request code, atau cuma sekedar mau kenalan boleh menggunakan kotak komentar dibawah, kami mohon sobat mencantumkan link dari web/blog/email.

Bila sobat mempunyai artikel atau source code atau yang lain dan ingin di publish via situs ini bisa anda kirimkan via email ke : caknur84@yahoo.com

Terima kasih.

Package Project Visual Basic 6.0 (2)

noreply@blogger.com (Nur Suhadi) — Wed, 02 Dec 2009 15:17:00 +0000

Kali ini saya akan menuliskan pengalaman saya membuat package Project VB6, yaitu bagaimana cara mem-package project VB 6 yang didalamnya menggunakan Crystal Report Control sebagai salah satu componentnya.

Untuk Project yang tidak menggunakan component Crystal Report Control Anda dapat menggunakan tutorial yang sudah saya tulis sebelumnya.

Apabila Anda mencoba menggunakan tutorial tersebut untuk mem-package project yang ada Crystal Report Control-nya maka kemungkinan besar akan tidak berhasil, bahkan saya sudah mencoba dan tidak pernah berhasil, akan terjadi beberapa kemungkinan diantaranya adalah sebagai berikut :

Proses Package selesai tetapi tidak terdapat hasilnya, hasilnya hanya berupa folder-folder kosong saja

Package tidak selesai karena terjadi beberapa kesalahan, yang ditandai dengan beberapa pesan error berikut :

Nah sudah tahu masalahnya kan? Sekarang kita mulai langkah-langkahnya untuk mengatasi masalah tersebut. Sangat simple dan mudah, yuph kita hanya perlu membuat sebuah Project kosong.

Yaitu sebuah project tanpa form, module, design, class dll. Dalam Project tersebut kita tambahkan component dan reference sama seperti project dimana file exe telah kita buat kecuali component “virus” yang bikin package selalu gagal yaitu Crystal Report Control.

Atau project asli di save as dengan nama yang lain, kemudian kita remove semua form, module dll. Temasuk kita hilangkan component Crystal Report Control dari project kita.

Jangan lupa disimpan ya. Usahakan nama project palsu (baik nama file vbp dan project name –nya) sama dengan nama file exe nya untuk mempermudah dalam proses packagenya nanti (misal : nama file projectnya pembelian.vbp, project nam-nya = pembelian dan nama file exenya pembelian.exe.

Nah sampai disini sudah cukup untuk mengatasi masalah “virus” Crystal Report Control-nya. Untuk proses selanjutnya dapat Anda menggunakan artikel saya sebelumnya sebagai pedoman. INGAT! Yang digunakan adalah Project yang palsu (project kosong) ya!

Yang perlu diperhatikan adalah jangan sampai menambahkah component Crystal Report Control saat proses package.

Kalau teliti dan hati-hati Insya Alloh berhasil. Akan tetapi ada masalah lain, dengan langkah-langkah diatas berarti component Crystal Report Control tidak terinstall, padahal component tersebut dibutuhkan oleh file exe untuk bisa berjalan dengan “normal”. Anda dapat menginstallnya dengan file msi yang saya buat bisa diunduh gratis dilink ini :
http://vbjadul.blogspot.com/2009/05/install-ocx-crystal-report-control.html

Demikian semoga bermanfaat

Data Edit Grid Versi 1

noreply@blogger.com (Nur Suhadi) — Sun, 29 Nov 2009 02:55:00 +0000

Data Edit Grid apa itu?component vb 6.0 yang baru ya?. Bukan itu hanya sekedar nama saja. soalnya saya bingung untuk judul postingan saya kali ini. Data Edit Grid bisa diartikan sebagai DataGrid yang dapat diedit, sebaiknya Anda membaca artikel saya sebelumnya yang berjudul "Edit text dan formula (operasi bilangan) pada Datagrid" code-code dalam artikel tersebut akan digunakan dalam pembahasan kali ini.

Source code-nya saya kasih gratis. Dapat diterapkan untuk yang sedang mengembangkan software untuk aplikasi retail.

Yang dibutuhkan dalam pembuatan data edit grid ini antara lain adalah :

2 buah dataGrid
2 buah Adodc
1 buah Picture (untuk menampung datagrid Master dan command)
1 buah command (bila diperlukan)

2 buah datagrid dan 2 buah adodc diperlukan untuk : sebuah untuk datagrid utama (datagrid transaksi/datagrid yang bisa diedit) sedangkan satunya digunakan sebagai datagrid master untuk mengambil nilai tertentu ke dalam datagrid utama.

Prinsip kerjanya adalah memasukkan nilai konstan tertentu dari sebuah record/baris/row dalam datagrid master ke dalam sebuah baris/row datagrid utama. (Misalnya kode barang, nama barang dan harga barang.)

Setelah itu memasukkan nilai secara manual nilai tertentu yang perlu ditambahkan ke dalam datagrid utama. (misalnya : kuantitas barang yang dibeli/dijual)
Penasaran? Berikut adalah beberapa baris code untuk data edit grid tersebut :

Koneksi database dengan ADODC :

Sub Connectdb()

Adodc1.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb"
Adodc1.RecordSource = "masterbarang"
Adodc1.Refresh

Adodc2.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb"
Adodc2.RecordSource = "bantujual"
Adodc2.Refresh

End Sub

Mengisi DataGrid Utama

Sub isigrid(jmlrecord As Integer)
Do Until Adodc2.Recordset.EOF 'Mengosongkan datagrid utama
    Adodc2.Recordset.Delete
    Adodc2.Recordset.MoveNext
Loop

Adodc1.Refresh
    For i = 1 To jmlrecord                 'Mengisi dataGrid Utama sejumlah jmlrecord
        With Adodc2
            .Recordset.AddNew
            .Recordset(0) = i
            .Recordset(1) = ""
            .Recordset(2) = 0
            .Recordset(3) = 0
            .Recordset(3) = 0
            .Recordset.Update
            .Refresh
        End With
    Next
End Sub

Setting DataGrid Utama

Sub setgrid()
    With DataGrid1
        .Columns(1).Button = True 'menampilkan button untuk memanggil dataGrid master
        .Columns(0).Locked = True
        .Columns(3).Locked = True
        .Columns(4).Locked = True

        .Columns(2).Alignment = dbgRight
        .Columns(3).Alignment = dbgRight
        .Columns(4).Alignment = dbgRight

        .Refresh
    End With
End Sub

Panggil ketiga code diatas pada form_load dengan code ini :

Private Sub Form_Load()
Connectdb
isigrid 50
setgrid
End Sub

Memanggil DataGrid Master

Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
On Error Resume Next
Picture1.Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row) + DataGrid1.RowHeight
Picture1.Left = DataGrid1.Columns(0).Left + DataGrid1.Columns(0).Width
Picture1.Visible = True
End Sub

Memindah nilai dari datagrid master kedalam datagrid Utama

Private Sub DataGrid2_DblClick()
    DataGrid1.Columns(1).Text = Adodc1.Recordset("kode")
    DataGrid1.Columns(2).Text = 0
    DataGrid1.Columns(3).Text = Adodc1.Recordset("harga")
    Adodc2.Recordset.Update
End Sub

Menutup Datagrid Master

Private Sub Command1_Click()
DataGrid1.Col = 2
Picture1.Visible = False
End Sub

Edit Datagrid Utama

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    Picture1.Visible = False
End Sub

Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As Integer)
    Select Case ColIndex
        Case 2
        DataGrid1.Columns(4).Text = DataGrid1.Columns(2) * DataGrid1.Columns(3)
        Adodc2.Recordset.Update
        Adodc2.Recordset.MoveNext
        DataGrid1.Col = 1
End Select



End Sub

Link Download Source Code Data Edit grid versi 1 :
http://www.ziddu.com/download/7538951/281109.rar.html

Note : link diatas tidak memuat file dimaksud, akan saya revisi di versi berikutnya, Mohon maaf atas ketidak nyamanan ini. terima kasih (-08 Januari 2010-)