vb - 'jadul'

Lowongan Kerja di Perum Perumnas (BUMN)

noreply@blogger.com (Nur Suhadi) — Sun, 22 Jan 2012 00:31:00 +0000

Kami BUMN terkemuka di Indonesia, yang bergerak di bidang pengembangan properti dan kawasan perumahan, mengundang Anda untuk berkarir sebagai:

STAFF PROFESIONAL

Persyaratan :

A) Diploma 3 (D3) dari Universitas Negeri/Swasta (dengan akreditasi A).

Latar belakang pendidikan dari Jurusan Teknik Sipil, Teknik Informatika, Manajemen, Akuntansi, Perpajakan.
IPK Min 2,8 (Skala 4).
Usia pada 01 Juli 2012 max 23 tahun
Enerjik, berdedikasi, dan pekerja keras.
Mampu berkomunikasi dalam bahasa Inggris baik lisan maupun tulisan.
Bersedia ditempatkan di seluruh wilayah kerja Perum Perumnas.

B) Sarjana (S1) dan Pasca Sarjana (S2) dari Universitas Negeri/Swasta (dengan akreditasi A)

Latar belakang pendidikan dari Jurusan Teknik Sipil, Teknik Arsitektur, Teknik Planologi, Teknik Elektro-Arus Kuat, Teknik Informatika, Manajemen, Akuntansi, Bisnis Administrasi, Marketing, Hukum Perdata/Bisnis.
IPK (skala 4) Min 3,0 (untuk S1 non-Teknik), 2,8 (untuk S1 Teknik) dan 3,2 (untuk S2).
Usia pada 01 Juli 2012 max 25 tahun untuk S1 dan 27 tahun untuk S2.
Enerjik, berdedikasi, dan pekerja keras.
Mampu berkomunikasi dalam bahasa Inggris baik lisan maupun tulisan.
Bersedia ditempatkan di seluruh wilayah kerja Perum Perumnas.

Bila Anda memenuhi syarat silakan isi formulir pendaftaran di sini
Lamaran ditutup pada tanggal : 24 Januari 2012, pukul 17:00 WIB

sumber : http://career.undip.ac.id/component/content/article/38-all/87-kesempatan-berkarier-di-perum-perumnas

Tabel master dan tabel detail (Tanya Code)

noreply@blogger.com (Nur Suhadi) — Wed, 11 Jan 2012 04:36:00 +0000

Anda Bertanya Kami Menjawab, kalau bisa hehehe...

Tanya :

Met siang om....
tolong dong om bantuin aku.
aku mau buat tampilan di form itu ada datagrid1(Tpembelian) dan datagrid2(TPembelian_D) conect ke tabel aku pakai adodc.
nie ket: 

TPembelian(nofaktur,kdbrg,nmbrg,qty) , TPembelian_D(kdbrg,nmbrg,qty) dan udah aku relasikan kdbrg-kdbrg. 

ex : Tpembelian aku input kdbrg=01 nmbrg=makan , kdbrg=02 nmbrg=minum.

yang aku mau saat aku pilih di datagrid1 kdbrg=01 itu yang muncul di datagrid2 munculnya nmbrg=makan aja dst.
gimana ya om koding dan yang perlu di butuhkan? 

dari : gun10***@gmail.com

2 Jan 2012

Jawab :

Maaf mas Gun baru buka email kemarin, mungkin yang dimaksud mas Gun adalah tabel master (tabel barang) dan tabel detail (tabel pembelian), ketika kode barang pada tabel barang diklik maka akan tampil pada tabel pembelian adalah pembelian dengan kode barang itu saja.

Berikut coding yang perlu ditambahkan, sebelumnya tambahkan dua buah adodc dan dua buah datagrid kedalam sebuah form, kemudian tambahkan coding dibawah ini ke jendela codingnya :

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub DataGrid1_Click()
Adodc2.RecordSource = "select * from beli where kodebarang='" + DataGrid1.Columns(0).Text + "'"
Adodc2.Refresh
DataGrid2.Refresh
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + _
                          "Data Source=" + App.Path + "\beli.mdb;Persist Security Info=False"
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + _
                          "Data Source=" + App.Path + "\beli.mdb;Persist Security Info=False"

Adodc1.RecordSource = "barang"
Adodc1.Refresh
DataGrid1.Refresh
End Sub

Penampakan :

contoh source codenya : http://www.ziddu.com/download/18176741/cekbeli.rar.html

Terima kasih.

Grouping Multi Level pada Data Report - Bagian 3

noreply@blogger.com (Nur Suhadi) — Thu, 29 Dec 2011 13:09:00 +0000

Setelah membuat database dan mengkoneksikan dengan data environment sekarang saatnya kita ke tahap terakhir, yaitu mendesain datareportnya.

1. Menambahkan data report ke dalam Project

Pilih menu - project - Add Data Report

2. Mengkoneksikan Data report dengan data environment

Set Properties data report sebagai berikut :

- Datasource : Dataenvironment1 (name data environment)

- Datamember : Command1_Grouping (nama command level tertinggi)

3. Kllik kanan pada data report, pilih Retrive Structure
Hal itu harus dilakukan agar data dari dataEnvironment dapat di desain dan ditampilkan pada dataReport.

Bila muncul pesan "Replace existing ... ", pilih Yes
Sehingga structure pada data Report akan terlihat seperti pada gambar :

4. Susun / masukkan data dari data Environment ke dalam data report, dengan ketentuan seperti terlihat pada gambar

Sudah selesai. Jangan lupa disave ya pekerjaannya, siapa tahu sebentar lagi mati lampu. :)

Langkah terakhir adalah cara menampilkan data reportnya.

Tambahkan sebuah form dan masukkan sebuah command button kemudian tulis code dalan jendela code form tersebut sebagai berikut :

Private Sub Command1_Click()
DataReport1.WindowState = vbMaximized
DataReport1.Show
End Sub

Jangan lupa untuk menambahkan pula code koneksi pada jendela code dataEnvironment sebagai berikut :

Private Sub DataEnvironment_Initialize()
With DataEnvironment1
.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"
End With
End Sub

Desain data reportnya sesuai selera Anda, kurang lebih hasil akhirnya tampak seperti pada gambar berikut :

OK. Demikian, selamat mencoba, saya sertakan juga link download projectnya, dibawah ini :

http://www.ziddu.com/download/18014004/datareportmultilevelgrouping.rar.html

Grouping Multi Level pada Data Report - Bagian 2

noreply@blogger.com (Nur Suhadi) — Thu, 29 Dec 2011 12:25:00 +0000

Setelah kita membuat database sebagai persiapan untuk latihan membuat datareport dengan 2 level group atau lebih, sekarang kita membuat koneksi database tersebut dengan dataenvironment, sebagai penghubung antara datareport dengan database.

Membuat koneksi dengan Data Environment

Pada langkah inilah akan ditentukan berapa level grouping datareport akan kita buat. Sebelumnya pastikan komponen DataEnvironment telah tersemat di dalam project, pilih menu - Project - Component - klik tab Designers contreng pada Data Environment apabila belum dicontreng.

Langkah selanjutnya adalah sebagai berikut :

1. Klik menu, Project, Add Data Environment
2. Buka data environment, pada connection1 klik kanan, pilih Properties …

3. Pilih Provider “Microsoft Jet 4.0 OLE DB Provider”, Next
4. Pilih file databasenya, jika perlu klik Test Connection, klik OK.

5. Klik kanan pada connection1, Add Command
6. Klik kanan pada command1,
Pilih Table pada drop-down database Object, pilih table,
Kemudian pilih object name, isi dengan nama tabel pertama : “kota”, Apply

7. Pilih Tab Grouping,
Contreng pada Group Command Object,
Pilih Field Group dengan klik panah kekanan misalnya field “Propinsi”. (level 1)

9. Klik OK

Sampai disini untuk grouping dengan satu level sudah dapat langsung di terapkan pada data report.

10. Menambahkan child command (level 2)
      Untuk menambahkan level dibawahnya, klik kanan pada command1_ ...
      Pilih Add Child Command, sehingga muncul command2,
      Kemudian klik kanan command2 pilih properties.

11. Langkah selanjutnya akan sama seperti langkah-langkah diatas
      Pilih Table pada drop-down database Object, pilih table,       Kemudian pilih object name, isi dengan nama tabel pertama : “target”, Apply

12. Pilih tab Relation
      contreng Related to a parent command object, kemudian pilih parent field dan child field-nya.
      Tekan tombol Add sehingga akan muncul daftar relasi pada list dibawahnya.

Jangan lupa tekan Apply

13. Lanjutkan pada tab grouping, kali ini gunakan field "kota" sebagai field untuk groupingnya.

14. Tambahkan sub total jika diperlukan, pilih tab Aggregates.
Tambahkan field-field mana yang akan di tampilkan sub totalnya, dengan menekan tombol Add
Kemudian lakukan setting seperlunya.

15. Akhiri dengan menekan tombol "OK", sehingga akan tampil pada data environment tampilan sbb :

Nah persiapan sudah selesai, selanjutnya kita masuk ke design data reportnya.

Lanjutkan Membaca - Bagian 3
Kembali ke - Bagian 1

Grouping Multi Level pada Data Report - Bagian 1

noreply@blogger.com (Nur Suhadi) — Thu, 29 Dec 2011 11:23:00 +0000

Banyak pesan di email dan comment yang menanyakan tentang "bagaimana membuat grouping dengan 2 level atau lebih pada data report visual basic 6.0". Maaf baru bisa membalas dengan posting ini. setelah sekian lama.

Untuk yang satu level grouping data report dapat anda simak tutorialnya disini dan source codenya dapat Anda unduh disini.

Untuk yang dua level akan saya sampaikan dalam beberapa posting, karena akan saya mulai dari awal.

Membuat database

Berikut adalah contoh database yang akan saya gunakan :

1. Tabel master (parent)
nama tabel : kota, dengan field-field sebagai berikut :

- Kota, text (50)

- Propinsi, text (50)

2. Tabel transaksi/detail (child)
nama tabel : target, dengan field-field sebagai berikut :

- Kota, text (50)

- Tanggal, date

- Pembelian, currency

- Penjualan, currency

Kemudian saya isi dengan contoh data seperti gambar dibawah ini :

contoh databasenya silakan download disini (format access 2003)

Lanjutkan Membaca - Bagian ke 2

Koneksi database MySQL online dengan Visual Basic 6.0

noreply@blogger.com (Nur Suhadi) — Mon, 26 Dec 2011 23:44:00 +0000

Melanjutkan posting sebelumnya, berikut cara koneksi database MySQL online dengan Visual Basic 6.0, sebelumnya anda harus mengikuti posting saya sebelumnya tentang Koneksi MySQL - online dengan bantuan DSN - ODBC

1. Menggunakan Adodc.

tambahkan sebuah adodc dan datagrid pada sebuah form, klik kanan pada Adodc untuk mengatur proprties-nya sebagai berikut :
- pada tab General, pilih option 'Use ODBC Data Source Name', kemudian pilih salah satu nama DSN-nya.

- pada tab RecordSource, command type pilih adCmdTable dan cari nama tabel pada kotak dibawahnya.

Selanjutnya hubungkan datagrid dengan adodc, dengan cara set proprties datagrid, pada datasource pilih Adodc1.

2. Menggunakan ADODB
Berikut adalah code-nya :

Dim con As ADODB.Connection

Dim rs As ADODB.Recordset

Private Sub Form_Load()

Set con = New ADODB.Connection

con.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=myodbc2"

con.Open

setdatagrid

End Sub

Sub setdatagrid()

On Error Resume Next

Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient

rs.Open "select * from t_mahasiswa", con

Set DataGrid1.DataSource = rs

DataGrid1.Refresh

End Sub

Sebelumnya tambahkan sebuah datagrid kedalam form. Demikian bila masih bingung Anda bisa download source codenya pada link dibawah ini :

http://www.ziddu.com/download/17968796/dbonline.rar.html

Note : Kalau nyoba source-nya komputer haris terkoneksi internet :)

Koneksi MySQL - online dengan bantuan DSN - ODBC

noreply@blogger.com (Nur Suhadi) — Mon, 26 Dec 2011 09:39:00 +0000

Beberapa waktu yang lalu saya masih penasaran untuk meng-koneksi-kan vb 6.0 dengan database mysql secara online, setelah beberapa kali googling saya mendapatkan jawaban yang memuaskan di link ini [http://slavara0713.blogspot.com/2010/07/cara-koneksi-ke-mysql-database-online.html], setelah saya coba pun berhasil, pokoknya recommended dah ..., tapi kemudian saya bingung, karena selain koneksi dengan vb 6.0 saya juga ingin mengkoneksikan dengan Crystal Report, padahal saya belum pernah bisa koneksi database dengan Crystal report menggunakan code.

Akhirnya saya mencoba cara manual menggunakan DSN - ODBC. Berikut ini adalah langkah-langkahnya :

- Install connector mysql 3.51

- Jika belum punya, download di link ini : [http://dev.mysql.com/downloads/connector/odbc/3.51.html]

- Buat koneksi ODBC dengan langkah-langkah sebagai berikut :

1. Start >> contorl panel

2. ganti view by yang semula 'category', menjadi 'small icon'

3. Pilih Administrative Tools

4. Pilih Data Source (ODBC)

5. Pilih tab System DSN, dan kemudian klik Add ...

6. Pilih MySQL ODBC 3.51 Driver, dan klik Finish

7. Pilih tab connect option, dan isi port dengan '3306'

atau angka yang lain sesuai dengan port server MySQLnya

8. Pilih tab Login, gambar dibawah ini adalah contoh pengisian pada tab tersebut,

9. klik test untuk memastikan koneksi telah tersambung, akhiri dengan tombol Ok. Selesai.

*) Sebagai contoh silakan kunjungi link ini : [http://www.freemysql.net/client/], gunakan user : latihsql dan password : 123456, untuk masuk

Setelah berhasil masuk, klik pada link nama host/server seperti gambar dibawah ini, kenudian gunakan user dan password yang sama pada halaman login adminer.

Berikut adalah tampilan database adminnya :

Demikian Selamat mencoba, untuk koneksi ke VB 6.0 -nya saya tulis pada link di bawah ini :
[Koneksi database MySQL online dengan Visual Basic 6.0]

Mengganti Mouse Icon Pada Object di Visual Basic 6.0

noreply@blogger.com (Nur Suhadi) — Tue, 20 Dec 2011 23:37:00 +0000

Mungkin tulisan in tidak layak untuk saya publish di internet, hehehe. Tapi mudah-mudahan saja ada yang membaca, walaupun ulasannya sangat sederhana. Untuk mempercantik tampilan aplikasi, mungkin salah satunya adalah mengganti mouse icon pada object-object tertentu dalam form, misalnya pada command button ketika mouse icon berada diatasnya maka akan berubah menjadi mouse icon berbentuk tangan dan lain-lain (secara default mouse icon pada command button berbentuk tanda panah miring ke kiri atas)

Caranya adalah sebagai berikut :

1. Tambahkan sebuah command pada form.

2. Set propertiesnya sebagai berikut :

a. MousePointer : 99 - custom

b. MouseIcon : browse (klik tombol ... disampingya), cari file cursor (*.cur) atau file icon (*.ico)

Penampakannya seperti gambar dibawah ini :

Langkah 2.a

Langkah 2.b

Demikian, Selamat Mencoba.

TIP :

Sebaiknya Anda terapkan pada satu command (object yang lain) terlebih dahulu, baru setelahnya Anda copy-paste command tersebut (ke dalam form tersebut atau form lain) untuk mendapatkan format mouse icon yang sama.

Source code vb6 for printing receipts

noreply@blogger.com (Nur Suhadi) — Tue, 22 Nov 2011 04:24:00 +0000

The following links download visual basic 6.0 source code to print receipts, for example I use the legalization process of diploma students in an environment where I work.

Very simple, but you can develop yourself according to your needs.

This is the screenshot

Step-by-step use of this software
1. press the "input" to begin filling transaction.
2. print numbers and dates will be filled automatically
3. The contents of student identification numbers (NIM), if the student has not registered the "name" must be filled, if already registered the "name" will be filled automatically.
4. browse how many diplomas or list of values.
5. then click save and print a sheet or more to suit your needs.
6. Do not forget in any text box press the enter key to get to the next text box.

In the package source code is also included examples of my receipt.

Please download the link below and enjoy with me ... hehehe.
http://www.ziddu.com/download/17533940/kwitansi.rar.html

Indonesian Version :

Langkah-langkah penggunaan software ini
1. tekan tombol "input" untuk memulai mengisi transakasi.
2. nomor cetak dan tanggal akan terisi secara otomatis
3. Isi nomor induk mahasiswa (NIM), apabila mahasiswa belum terdaftar kotak "nama" harus diisi, apabila sudah terdaftar kotak "nama" akan terisi secara otomatis.
4. isi berapa jumlah ijazah atau daftar nilai.
5. kemudian klik simpan dan cetak 1 lembar atau lebih sesuai kebutuhan Anda.
6. Jangan lupa pada setiap kotak isian tekan tombol enter untuk menuju kotak isian selanjutnya.

Dalam paket source code ini juga saya sertakan contoh kuitansinya.

Perpaduan MsgBox + Help (bantuan program) dengan file chm (2)

noreply@blogger.com (Nur Suhadi) — Mon, 26 Sep 2011 13:46:00 +0000

Setelah kita membahas pembuatan file chm pada posting saya sebelumnya sekarang saatnya kita mencoba menerapkannya dalam vb6. Sebelumnya kita memahami dulu tentang msgbox-nya vb6. Dapat Anda baca tuntas di link ini (bahasa inggris) : http://www.vb6.us/tutorials/understanding-msgbox-command-visual-basic

Penulisan coding msgbox

Untuk menampilkan msgbox kurang lebih sintaxnya adalah seperti ini :

msgBox prompt, button, title, helpfile, context

helpfile : Berisi path file chm yang telah dibuat sebelumnya. (exp : "C:\help.chm")

context : Berisi nilai context saat kita membuat file chm-nya (exp : "1000")

contoh penulisan selengkapnya adalah sebagai berikut :

Private Sub Form_Load()
MsgBox "Proses simpan gagal", vbOKOnly + vbMsgBoxHelpButton, "simpan", "c:\help.chm", "1002"
End Sub

Jalankan program sehingga msgbox akan muncul, klik tombol help, jika berhasil file chm akan terbuka ke halaman yang contextnya dimaksudkan.

Jika masih bingung silakan kontak saya atau download contoh projectnya disini :
http://www.ziddu.com/download/16528370/msgboxhelp.rar.html

Perpaduan MsgBox + Help (bantuan program) dengan file chm

noreply@blogger.com (Nur Suhadi) — Mon, 26 Sep 2011 10:43:00 +0000

Sudah menjadi hal biasa jika menggunakan Msgbox alias kotak pesan sebagai pelengkap aplikasi yang dibuat. Tetapi bukan hal yang biasa kita memadukan antara msgbox dengan file bantuan/help. Dengan menggunakan help pada msgbox ini, bantuan dapat dimunculkan pada saat yang tepat, saat pengguna memang sedang mengalami kesulitan atau memerlukan petunjuk, karena bantuan akan diarahkan langsung kehalaman bantuan sesuai dengan permasalahannya.

Sebelum dapat menerapkannya ke vb6, anda harus membuat file chm, entahlah apa sebenarnya file chm itu hehehe... , penampakannya seperti gambar dibawah ini :

Bagaimana membuat file chm ini?

Sebelumnya Anda perlu mengunduh softwarenya disini : http://www.softany.com/winchm/index.htm, (trial 15 hari) atau cari yang bajakan di 4shared dengan kata kunci WinCHM, install dan jalankan program.

Ini contohnya :

Buat sesuai keinginan Anda, edit textnya pada bilah edit, dan perhatikan bilah (tab) topic option, pada kotak context ... , karena angka yang berada dikotak itu yang akan dipakai dalam coding di vb6 nanti.

Setelah semua selesai, pilih menu -- project -- Build Preoject, kemudian muncul jendela :

Ikuti langkah-langkah seperti gambar diatas dan tunggu hasilnya. Bila tidak ada masalah hasilnya dapat dilihat di lokasi sesuai yang Anda masukkan pada langkah ke-2. Sampai disini sudah selesai membuat file chm-nya.

Untuk membukanya melalui coding vb6 yang dipadukan dengan msgbox dapat Anda simak di posting selanjutnya.

Semoga bermanfaat.

Menambahkan Halaman, Tanggal dan Jam Pada Datareport

noreply@blogger.com (Nur Suhadi) — Fri, 16 Sep 2011 07:28:00 +0000

Data Report adalah salah satu fasilitas yang dimiliki oleh vb 6.0, karena vb-nya jadul report-nya pun juga jadul, oleh karena itu tidak terdapat fasilitas khusus untuk menampilkan fungsi-fungsi istimewa saperti yang dimiliki report-report masa kini.

Tempo hari saya iseng-iseng cari-cari solusi akhirnya nyantol di halaman ini : http://msdn.microsoft.com/en-us/library/aa261315%28v=vs.60%29.aspx, walaupun hanya bisa menampilkan halaman, tanggal, jam dan judul, tetapi lumayan untuk sedikit menghias tampilan datareportnya. Setelah saya coba tampilan reportnya akan seperti gambar dibawah ini.

Bagaimana ? Lumayan kan? Jadi agak sedikit informatif.

Langkah-langkahnya sangat sederhana, Buka datareport anda yang sudah "jadi", setelah itu Anda tinggal menambahkan label ke dalam section page header/page footer kemudian ganti captionnya dengan tulisan sebagai berikut :

%p untuk mendapatkan nilai halaman sekarang
%P untuk mendapatkan nilai total halaman
%t untuk mendapatkan nilai jam format pendek
%T untuk mendapatkan nilai jam format panjang
%d untuk mendapatkan nilai tanggal format pendek
%D untuk mendapatkan nilai tanggal format panjang
%i untuk menampilkan judul laporan

contoh penulisan di datareportnya sebagai berikut :

Atau download source codenya dibawah ini :

http://www.ziddu.com/download/16402129/spesialfield.rar.html

Menampilkan Data dengan Adodc dan MS Flexgrid

noreply@blogger.com (Nur Suhadi) — Sun, 11 Sep 2011 14:07:00 +0000

Alhamdulillah, Akhirnya ada kesempatan buat posting lagi, Sebelumnya saya mohon maaf karena dalam beberapa bulan ini blog ini tidak saya update, hal tersebut karena kerjaan kantor yang sangat menyita waktu. Kemudian ada beberapa comment yang sempat saya balas, anggap saja saya tidak bisa menjawabnya, hehehe.

Sebagai pembuka persuaan kita kembali, saya langsung kasih source code "Menampilkan, menyimpan, edit dan hapus data MS Access 2003 dengan Adodc dan MSFlexgrid", ini sebagai respon dari permintaan pembaca yang menginginkannya. Terima Kasih

Link Download :

http://www.ziddu.com/download/16352143/opendata-flexgrid.rar.html

Contoh source code Aplikasi Peminjaman Buku

noreply@blogger.com (Nur Suhadi) — Wed, 01 Jun 2011 23:49:00 +0000

Berikut saya berikan link download contoh aplikasi peminjaman buku, sangat sederhana, tetapi semoga bisa bermanfaat.

1. Form Login

2. Menu Utama

3. Form Master Buku

4. Form Master Peminjam

5. Form Jenis Buku

6. Data Explorer

7. Form Peminjaman Buku

8. Form Pengembalian Buku

LINK DOWNLOAD :

http://www.ziddu.com/download/15210257/PERPUST.rar.html

Bila ada pertanyaan atau koreksi tentang source code ini, silakan sampaikan pada kotak komentar di bawah ini. Terima Kasih

Menampilkan tabel dalam suatu database beserta isinya.(3)

noreply@blogger.com (Nur Suhadi) — Tue, 10 May 2011 23:21:00 +0000

Menanggapi beberapa permintaan pembaca untuk menampilkan detail nama tabel dan isi dari database MS Access 2003, berikut saya berikan link downloadnya untuk Anda

Semoga bermanfaat :)

Link Download:

http://www.ziddu.com/download/14937247/SHOWTABLE3.rar.html

Find All dengan MsFlexgrid

noreply@blogger.com (Nur Suhadi) — Mon, 28 Mar 2011 08:07:00 +0000

Sedang males nulis ngalor-ngidul, lagi banyak kerjaan soalnya, Hehehe. Gambarannya langsung lihat pada gambar :

Langkah penggunaannya adalah :

Klik Find pada form pertama
Tulis Text yang akan dicari pada form kedua
Klik Find pada form kedua
Duble-Click pada hasil pencarian untuk meng-'hijau'-kan baris-grid pada form pertama

Tertarik? unduk saja pada link dibawah ini.

http://www.ziddu.com/download/14369830/findall.rar.html

Membuat Laporan dengan Data Report dan Data Environment

noreply@blogger.com (Nur Suhadi) — Fri, 25 Mar 2011 07:00:00 +0000

Berikut adalah langkah-langkah membuat report dengan menggunakan Data Report dengan koneksi dengan Data Environment.

Membuat koneksi dengan Data Environment

Buka : menu -- Add Data Environment
Klik kanan pada Connection1, pilih Properties
Kemudian muncul Jendela Data Link Properties, pada Tab Provider Pilih Microsoft Jet 4.0 OLE DB Provider atau yang lain, klik next, pilih file databasenya, akhiri dengan OK.
Klik kanan kembali Connection1, pilih Add Comment
Setelah muncul Command1, Klik Kanan Command1, pilih Properties
Kemudian muncul jendela Command1 Properties, atur source of datannya, kali ini saya menggunakan SQL STATEMENT, dengan cara pilih option SQL Statement dan Tuliskan Syntax SQL-nya, misalnya : " SELECT * FROM TSupplier", akhiri dengan OK.

Men-design Report dengan Data Report

Buka : menu -- Add Data Report
Set properties datareport1, Datasource=DataEnvironment1, DataMember=command1
Susun sedemikian-rupa jendela data environment dan data report sehingga memungkinkan Field-field dalam command1 di drag ke dalam detail section-nya Data Report
Atau dapat dilakukan dengan cara manual satu per satu RptTextBox-nya ke dalam detail section, kemudian atur properties-nya, yaitu dataformat dan datafield-nya
Susun sesuai yang Anda inginkan

Menampilkan Report Melalui Form VB6

Tambahkan sebuah Form dan sebuah listBox, kemudian Copy-Paste coding dibawah ini :

Private Sub Command1_Click()
If DataEnvironment1.rsCommand1.State = adStateOpen Then DataEnvironment1.rsCommand1.Close
DataEnvironment1.rsCommand1.Open "SELECT * FROM Tsupplier WHERE supplier='" + List1.Text + "'"
DataReport1.Show

End Sub

Private Sub Form_Load()
With DataEnvironment1
.Connection1.Provider = "Microsoft.Jet.OLEDB.4.0"
.Connection1.Open App.Path & "\db1.mdb"

With .rsCommand1
.Open "SELECT distinct(supplier) FROM Tsupplier"
Do Until .EOF
List1.AddItem .Fields(0)
.MoveNext
Loop
.Close
End With
End With
End Sub

Source Code :

http://www.ziddu.com/download/14331633/datareport.rar.html

Membuka Database Access berpassword dengan VB 6 (Data Control)

noreply@blogger.com (Nur Suhadi) — Sat, 26 Feb 2011 05:45:00 +0000

Berikut saya sampaikan cara sederhana untuk mengkoneksikan data base Access yang saya "bajak" dari sini : http://www.johnsmiley.com/cis18/Smiley002.pdf he he he.

Untuk kasus ini saya coba menggunakan Database MS Access berformat 97, yang dapat dibuat dari dalam Visual Basic yang dikenal dengan nama Vis Data, dapat dibuka dari Menu, Add-Ins, Visual Data Manager ...

Kemudian saya menggunakan aplikasi untuk mempasswordnya, yang dapat Anda unduh di link ini : http://vbjadul.blogspot.com/2010/02/mengelola-password-database-ms-access.html kemudian link downloadnya ada di bagian komentar.

Nah, kita mulai saja, buka vb Anda, Standar EXE, tambahkan Data Control kemudian Atur Propertiesnya sebagai berikut :

DataBaseName = cari dimana database Access 97 Anda berada.
Recourdsource = Nama Tabel yang akan ditampilkan,

Nah, pada saat Anda mengisi Record source dari database yang di password, akan muncul pesan "Not a Valid Password", bila ada pesan seperti itu, ubah properties connect =, yang sebelumnya "Access", diganti dengan MS Access;pwd=password database anda, setelah itu ubah kembali properties RecordSourcenya.

Link Download :

http://www.ziddu.com/download/13963638/DATApassword.rar.html

auto number dengan pengurutan kembali setelah record dihapus

noreply@blogger.com (Nur Suhadi) — Fri, 18 Feb 2011 12:30:00 +0000

Pendek saja ya, soalnya ini saya posting dari hp jadul saya, sdg ada masalah dgn kompi saya. Intinya adalah dengan menekan tombol sesuaikan nomor, record2 setelah data yang dihapus akan diturunkan nomornya, demikian terus sampai ke akhir record (eof). silakan downlod sourcenya, terima kasih..:)

~~http://nur-suhadi.freetzi.com/vbjadul/code/autonumber~~

'maaf sedang dalam perbaikan link

Auto number dengan menambal record(2)

noreply@blogger.com (Nur Suhadi) — Mon, 14 Feb 2011 07:52:00 +0000

Menyambung posting saya tentang "Metode membuat no urut setelah penghapusan record", berikut saya berikan contoh source code untuk metode yang pertama yaitu dengan menambal record dari nomor yang dihapus, tetapi tidak menggunakan tabel bantu (arsip) seperti posting saya sebelumnya, sehingga tidak ter-record history penghapusannya, oleh karena itu metode ini tidak disarankan.

Silakan di download melalui link dibawah ini, apabila ada masalah silakan Sharing pada kotak komentar, Terima kasih.

http://www.ziddu.com/download/13798427/autonumber4.rar.html

Auto number dengan menambal record(1)

noreply@blogger.com (Nur Suhadi) — Tue, 08 Feb 2011 22:04:00 +0000

Menyambung posting saya sebelumnya tentang "Metode membuat no urut setelah penghapusan record", berikut saya berikan contoh source code untuk metode yang pertama yaitu dengan menambal record dari nomor yang dihapus, contoh kali ini menggunakan tabel bantu (arsip), yang kemungkinan juga dapat bermanfaat untuk keperluan treking record-record yang pernah dihapus.

Contoh ini berupa form master barang dengan 5 field, tombol simpan, edit dan hapus. Yang perlu diperhatikan secara khusu adalah code pada tombol simpan dan hapus. Bila anda mengalami sedikit masalah silakan tuliskan komentar Anda dibawah atau via email. Terima kasih

http://www.ziddu.com/downloadlink/13717233/autonumber3.rar

Metode no urut setelah penghapusan record

noreply@blogger.com (Nur Suhadi) — Mon, 07 Feb 2011 11:04:00 +0000

Menindaklanjuti pertanyaan dari mas Putra di Chat-Box tentang "pengurutan kembali nourut setelah record dihapus", berikut sedikit saya tuliskan ide/alur programnya.

1. Menambal/menyisipkan record

a. Menggunakan tabel bantu record_archive

- menghapus record
- memindahkan record tersebut ke dalam tabel record_archive
- mencari nourut di record_archive

b. Melakukan pencarian di tabel (tidak disarankan, memakan waktu dan memory)

- menghapus record
- Looping di tabel
- mencari record yang kosong
- stop Looping

2. Melakukan pengurutan secara keseluruhan dengan mengupdate record/urutan sesudahnya.
(tidak disarankan, memakan waktu dan memory, tidak baik dalam validitas data)

- menghapus record
- looping record sesudah record yang dihapus sampai record terbaru
- update data one by one dengan menurunkan nomer dari nomer sebelumnya (saat looping)
- Note untuk menghindarkan ketidak validan data sebaiknya no urut bukanlah nomor-nomor master, seperti kodebarang, Faktur, dll yang digunakan oleh table lain.

Ada ide lain? sharing ya!

*Note : Sebaiknya nomor yang akan diperlakukan seperti ini harus menggunakan penanda waktu penginputan, minimal mencantumkan tanggal (misal = ....170845)

Untuk contoh source code dan tutorialnya menyusul ya, :)

Tutorial - Grouping Data Report dengan Coding

noreply@blogger.com (Nur Suhadi) — Fri, 04 Feb 2011 02:43:00 +0000

Artikel ini saya peroleh dari http://support.microsoft.com/kb/289793, kemudian saya praktekkan dan akhirnya berhasil, hehehe. Selanjutnya sedikit saya modifikasi agar user dapat memilih grouping berdasarkan field yang dipilih.

Sebagai contoh saya menyiapkan sebuah tabel dengan Microsoft Access dengan susunan field sebagai berikut :

1. Nama

2. Umur

3. Pekerjaan

4. Kota Asal

Selanjutnya buka Visual Basic 6.0
Buka standard EXE Project pada Visual Basic 6.0
Tambahkan command button dan combobox

Klik menu Project, klik Add DataReport. Apabila Add Datareport tidak ada dalam menu Project, Tambahkan melalui tab Designers yang terletak dalam menu Project >> Component.

Buka DataReport1, Apabila Report Header/Footer (Section4) ada didalamnya, hapus dengan cara klik kanan report Kemudian hilangkan tanda contreng pada "Show Report Header/Footer”.

Klik kanan dan pilih Insert Group Header/Footer. sebuah section baru, section4, telah ditambahkan dalam report.

Tambahkan 5 buah RptLabel dan satu buah RptTextBox kedalam section4, Tambahkan 4 buah RptTextBox kedalam Detail Section dan susun seperti gambar dibawah ini :

Sekarang kita mulai Codingnya :

‘Deklarasi component
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim rs1 As New ADODB.Recordset

‘ FORM LOAD
Private Sub Form_Load()

‘Membuka koneksi database

cn.Open "Provider=MSDATASHAPE; Data Provider=Microsoft.JET.OLEDB.4.0;" + _
"Data Source=" + App.Path + "\Data1.mdb"

‘Menambahkan field pada combo secara manual
Combo1.Clear
Combo1.AddItem "Pekerjaan"
Combo1.AddItem "Umur"
Combo1.AddItem "Kota_asal"

Command1.Caption = "Show Report"

End Sub

‘Koneksi Report
Sub groupCommand(groups As String)
On Error Resume Next
rs.Close

‘Menyiapkan koneksi record group ke dalam report
With cmd
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = " SHAPE {SELECT nama,umur,pekerjaan,kota_asal FROM `pekerjaan`} AS Command1 COMPUTE Command1 BY '" + groups + "'"
.Execute
End With

With rs
.ActiveConnection = cn
.CursorLocation = adUseClient
.Open cmd
End With
Set rs1 = rs(0).Value

End Sub

‘Menampilkan Report

Sub showReport(groups As String)
On Error Resume Next
Dim q As Integer
Dim intCtrl As Integer
Dim x As Integer
Dim z As Integer
x = 0
q = 0
z = 0

groupCommand groups

With DataReport1
.Hide
Set .DataSource = rs
.DataMember = ""
With .Sections("section4").Controls

If TypeOf .Item(1) Is RptLabel Then .Item(1).Caption = Replace(groups, "_", " ") + " :"
If TypeOf .Item(3) Is RptLabel Then .Item(3).Caption = "Nama"
If TypeOf .Item(4) Is RptLabel Then .Item(4).Caption = "Umur"
If TypeOf .Item(5) Is RptLabel Then .Item(5).Caption = "Pekerjaan"
If TypeOf .Item(6) Is RptLabel Then .Item(6).Caption = "Kota Asal"
‘if TypeOf .Item(x) Is RptLabel Then .Item(x).Caption = "Kota Asal", index “tanda x dalam kurung setelah item, harus anda sesuaikan dengan cara trial and error, karena bisa saja index “tanda x dalam kurung” tidak ada jadi harus diganti dengan angka yang lain

For intCtrl = 1 To .Count
If TypeOf .Item(intCtrl) Is RptTextBox Then
.Item(intCtrl).DataMember = ""
.Item(intCtrl).DataField = groups
End If
Next

End With

q = 0
With .Sections("Section1").Controls
For intCtrl = 1 To .Count
If TypeOf .Item(intCtrl) Is RptTextBox Then
.Item(intCtrl).DataMember = "Command1"
.Item(intCtrl).DataField = rs1(z).Name
z = z + 1
End If

Next intCtrl
End With
.WindowState = vbMaximized
.Refresh

.Show
End With

End Sub

‘Menampilkan Report
Private Sub Command1_Click()
showReport Combo1.Text
End Sub

Simak, Salin dan Tempel code diatas ini kedalam form Anda.
Good Luck :)

Berikut kurang lebih tampilan akhirnya (dengan group by ‘Pekerjaan’):

Untuk Source codenya dapat Anda lihat diposting sebelumnya.

Grouping Data Report dengan Coding

noreply@blogger.com (Nur Suhadi) — Tue, 01 Feb 2011 09:03:00 +0000

Pada posting sebelumnya saya menyinggung soal bagaimana menampilkan report dengan data report plus Groupingnya(source code) sekalian juga bagaimana cara membuatnya (step by step)

Pembahasan kemarin adalah dengan cara design dengan bantuan data environment, kali ini saya meng-upload source code code "Grouping Data Report tanpa data environment dengan cara coding".

Berikut Link Downloadnya :
http://www.ziddu.com/downloadlink/13612564/GROUPreportVB6code.rar

Untuk posting selanjutnya saya akan membahasnya lebih detail. Silakan dicoba dahulu. Saya tunggu sharingnya ya! Terima kasih.

Tutorial - Grouping pada Data Report

noreply@blogger.com (Nur Suhadi) — Sun, 30 Jan 2011 00:33:00 +0000

Pada Posting sebelumnya saya menyajikan source code Grouping pada Data Report, nah yang ini adalah tutorial step by step cara membuatnya. Semoga bermanfaat

http://www.ziddu.com/download/13580197/Tutorialvb6-MenambahkanGrouppadaDataReport.doc.html

Posting selanjutnya tentang Grouping pada Data Report tanpa Data Environment.