Sinau terus ya Om

Dual Booting Ubuntu 11.04 dan Windows7(Ubuntu First)

2011-08-25T20:59:00.000-07:00

Normalnya untuk dual booting Windows diinstall terlebih dahulu baru kemudian Ubuntu. Tapi bagaimana jika Windowsnya diinstall belakangan?

Jika anda menginstall windows 7 yg sebelumnya ada Ubuntu maka GRUB Loadernya otomatis akan ditimpa oleh boot managernya windows sehingga anda tidak mungkin bisa booting dari GRUB. Untuk mengatasinya caranya sederhana yaitu install ulang GRUB Loader anda dan berikut langkah-langkahnya:

1. Boot dari LiveCD, kemudian pilih menu Try Ubuntu Without Install
2. Masuk ke terminal(pake ctrl+T) atau klik Accessoris->Terminal
3. Ketik perintah sebagai berikut

sudo mount /dev/sda1 /mnt (ganti sda1 sesuai partisi ubuntu anda)
sudo mount --bind /dev /mnt/dev
sudo mount --bind /proc /mnt/proc
sudo mount --bind /sys /mnt/sys
sudo chroot /mnt

Sekarang anda sudah masuk ke root ubuntu. Setelah itu lakukan perintah berikut:
update-grub (perintah ini otomatis mengkonfigurasi ulang file grub.cfg)
grub-install /dev/sda

*Jika ada pesan command not found, coba install grub anda dengan perintah apt-get install grub-pc.

Selesai. Reboot dengan perintah reboot now. Cara yang sama juga bisa anda terapkan jika anda mau dual atau bahkan triple booting dengan Fedora

Kirim email dari Gmail pake komponen Indy 10

2011-08-19T01:04:00.000-07:00

Anda dapat menggunakan 2 cari yaitu memakai protocol SSL atau TLS sebagai security layernya. Perbedaan mendasarnya adalah pada port yang digunakan. Jika SSL menggunakan port 465 sedang untuk TLS menggunakan port 587.

Ada beberapa setting yang harus perlu diperhatikan di sini.

Untuk SSL sebagai security layer pada komponen IdSMTP setting propertiesnya sebagai berikut:

Port:=465;
UseTLS:=UseImplicitTLS;

Kemudian di komponen IDSSLioHandlerSocketopenSSL setting propertiesnya sebagai berikut:

SSLOptions.Method:=SSLv3;
SSLOptions.Mode:=sslmClient;

Untuk contoh setting lengkapnya bisa anda download aplikasi saya di sini Om.

Untuk TLS sebagai security layer, di komponen IdSMTP setting propertiesnya sebagai berikut:
Port:=587;
UseTLS:=utUseRequireTLS;

Komponen IdSSLIOHandlerSocketOpenSSL:

SSLOptions.Method:=sslvTLSv1;
SSLOptions.Mode:=sslmClient;

Contoh lengkapnya dapat anda donload di sini Om

Ngirim Email dari Yahoo via Delphi Indy 10

2011-07-29T01:57:00.000-07:00

Berikut langkah2 ngirim email pake Indy dengan alamat Yahoo(punya saya yahoo.co.id)

1. Cari komponen Idsmtp dan taruh di form anda.
2. Isi di propertiesnya sebagai berikut:

host:smtp.mail.yahoo.co.id
port:465
username:nama akun email anda, tapi jangan pake @
password:password akun email anda.
UseTLS:utUseImplicitTLS

Langkah berikutnya adalah letakkan komponen IdSSLIOHandlerSocketOpenSSL(di tab Indy I/0 Handlers) di form anda dan setting propertiesnya sebagai berikut:

Destination: smtp.mail.yahoo.co.id:465
Host:smtp.mail.yahoo.co.id
SSLOptions:
Method:sslvSSLv3
Mode:sslmClient

Trus isi properties IdSSLIOHandlerSocketOpenSSL di IdSmtp dengan komponen IdSSLIOHandlerSocketOpenSSL yang anda buat tadi.

Lihat gambar:

Kemudian sekarang tinggal kita mengisi settingan pesan. Gunakan komponen IdMessage(tab Indy Misc) dan berikut properties yang harus diperhatikan:

- From
Isi semua sesuai dengan akun email anda.

-Recipients
Isi dengan alamat penerima email anda. Alamat recipients bisa lebih satu. Jadi jika anda ngirim email misal ke parjo@kenther.com, parno@kenther.com maka si parjo juga tahu kalo email itu juga dikirim ke si parno.

-Sender

Isikan sesuai akun anda.

Sekarang tinggal ngisi perintah:

procedure TForm1.Button1Click(Sender: TObject);

begin
idmessage1.Subject:=edit3.Text;
idmessage1.Body:=memo1.Lines;
if not idsmtp1.Connected then idsmtp1.Connect;
try idsmtp1.Send(idmessage1);
finally idsmtp1.Disconnect;
end;
end;

Kalo anda kurang jelas silahkan donload aplikasi saya di sin i. Aplikasi ini pake Delphi 7 dan nggunain komponen Indy 10, jadi bagi anda yang menggunakan Indy 9 silahkan di upgrade ke Indy 10. Bagaimana cara upgradenya? Tunggu aja tulisan saya selanjutnya.

Catatan: Setting ini bisa berubah-rubah tergantung dari mail servernya. Karena itu sebagai patokan saya sarankan untuk menginstall aplikasi mail client seperti Mozilla Thunderbird. Aplikasi mail client ini sudah ada databasenya untuk settingan mail server jadi tinggal ikutin saja dari situ.

Koneksi Host dan Guest di VirtualBox

2011-07-25T19:21:00.000-07:00

Melanjutkan tulisan yang lalu bagaimana cara mengoneksikan host di virtual machine(atau disebut Guest) dengan host induk sistem operasi(atau di sebut host), berikut akan saya berikan langkah-langkahnya:
1. Klik tombol setting dan pilih network. Disana ada beberapa tab untuk memilih adapter. Setting di salah satu adapter misal adapter1 dengan Host-only mode. Dengan memilih opsi ini maka secara otomatis host anda memiliki IP virtual 192.168.56.1.

2. Masuk ke sistem operasi virtual, cek dengan ping seperti alamat tersebut di atas. Jika konek berarti host anda sudah bisa di akses. Jangan lupa cek ipconfig virtual machine anda guna mengetahui berapa alamat yang diberikan oleh DHCP(biasanya 192.168.56.101). Kalau anda bosan dengan 101, anda bisa ngerubah range IP sesuai kemauan anda dengan cara klik file->preferences->networking->host-only. Di sana ada list yang berisi vboxnet0. Edit saja settingan tersebut.

Sebagai catatan jika mau koneksi ke Mysql servernya linux ubah saja my.cnf di folder /etc/mysql/my.cnf. Cari yang ada tulisan bind-address dan beri tanda komentar.

Di akhir tulisan ini saya cuman berpesan hati-hati main kayak ginian karena beresiko system crash yang memaksa anda menginstall ulang sistem operasi virtual anda.

Mainan dengan Virtualbox

2011-07-24T18:33:00.000-07:00

Beberapa waktu lalu lapie kesayangan saya mengalami kejadian yang cukup memusingkan kepala yaitu tiap mau di install xp, setengah jalan pasti mati sendiri. Coba setting harddisk controller dari ATA ke AHCI nggak ngefek sama sekali malah muncul Blue Screen warning. Daripada pusing dan mengingat kapasitas RAM lapie saya yang cukup gedhe sebesar 1,8 GB akhirnya saya memutuskan mencoba VirtualBox punyanya mbah Oracle.

Langkah pertama yang saya lakukan adalah menginstall Ubuntu terbaru(Natty aka 11.04). Kemudian cari di Synaptic Package Manager repositoriesnya dari kambing.ui.ac.id ketemu virtualbox-ose.

Alhamdulillah, akhirnya xp saya dapat berjalan pakai VirtualBox. Yang namanya Virtual pasti juga ada kekurangannya yaitu soundnya meski jalan tapi nggak bisa buat dengarin musik pakai Clementine(recommended software pengganti Winamp). Trus efek 3D nggak bisa tampil sesuai harapan. Meski demikian pake virtualbox juga ada keunggulannya yaitu aplikasi dicompile sekali tapi dapat dijalankan pake dua sistem operasi sekaligus seperti semboyan Java "Compile once run anywhere". Compile di windows virtualbox, njalanin di Linux pake Wine.

Untuk koneksi LAN sendiri dapat jalan lancar jaya tanpa hambatan sama sekali. Adapter yang digunakan untuk koneksi lain adalah Bridge Networking. Sebagai catatan sebelum menggunakan Network Adapter lebih dahulu baca user manualnya virtualbox karena jika nggak hati-hati bisa nyebabin sistem di virtual hostnya crash.

Lalu bagaimana cara agar hostnya virtualbox dapat koneksi dengan host induk(sistem operasi utama)? Nah itu yang saya belum tahu. Moga2 mbah Google bisa ngasih tahu jawabnya.

Backup dan Restore database Mysql di Linux

2011-07-13T20:25:00.000-07:00

Seperti di sistem operasi jendela, di Linux untuk merestore dan membackup database mysql anda juga dapat menggunakan batch. Caranya yaitu cukup menambahi perintah #!/bin/bash di awal baris.

Sintaks lengkapnya(untuk backup database dengan mysqldump)

#!/bin/bash

mysqldump -u jono -pjoni -h 192.168.1.1 databaseku -R -r "/home/mbahdien/Documents/databasebackup/databaseku.dmp"

Simpan di teks editor anda. Jangan lupa sebelum menjalankannya ubah tipe filenya menjadi executable dengan perintah

sudo chmod +x file batch anda.

Sedang untuk merestore database gunakan perintah ini:

#!/bin/bash

echo "Restore Database"

mysql -u user -ppassword -e "drop database if exists databaseku;create database databaseku;use databaseku;\. /home/mbahdien/Documents/databaseku.dmp"

#optional, anda bisa menambah perintah ini untuk mengecek apakah terjadi error saat restore:

tail -f /var/log/mysql/error.log

Sama juga dengan yang di atas, gunakan perintah chmod agar file bisa di eksekusi:

Menjalankan EMS MySQL Manager di Ubuntu

2011-07-05T21:05:00.000-07:00

Sebenarnya Ubuntu sudah menyediakan tools untuk browsing MySQL database yaitu mysql query browser. Tapi karena kekuranglengkapannya, saya nyobain nginstal EMS MySQL Manager yang tentu saja versi OS sejuta umat aka jendela.

Instalasi EMS MySQL Manager di Ubuntu sendiri tidak terlalu rumit bahkan yang versi b*jakannya sekalipun :D. Dengan nggunain anggur merah alias Wine akhirnya tools ini dapat hadir di Ubuntu meski agak sedikit cacat terutama dari segi tampilan. Tapi tetap lumayan daripada OS Wedhuz yang gak bisa digunain nginstall MySQL Administrator Tool nya Ubuntu.

Lalu bagaimana cara koneksi ke database. Untuk koneksi ke localhost anda tidak bisa nggunain alamat localhost tapi pakai IP loopback yaitu 127.0.0.1 atau kalo mo lebih komplit tambahin pake socket sekalian dengan format ipaddress [socket path]. Contoh 127.0.0.1 /tmp/mysql.sock. Sedang untuk koneksi remote seperti biasa anda bisa gunain alamat IP yang dituju.

Dan berikut ini screenshootnya:

Software Penjualan Untuk Apotek dan Klinik

2011-03-10T22:10:00.000-08:00

Iseng-iseng saya membuat program Apotek dan Klinik dengan Delphi 7 dan databasenya pakai MySQL. Berikut screenshootnya:

Login

Produk

Penjualan

Pembelian

Laporan

Modul-modul yang ada sudah tertera di daftar menu gambar yang paling atas. Program ini sudah dipakai di salah satu apotek di Semarang dengan alamat yang tertera di atas. Silahkan anda donlod file exenya di sini.

MbahdienSQLConverter, tool untuk generate perintah SQL di Delphi

2010-04-22T22:47:00.000-07:00

Bagi para Delphiers pasti tahu perintah menutup dan membuka dataset seperti ini:

var qry:string;
begin
qry:='select idmahasiswa,NIM,nama from mahasiswa ';

mytable.close;
mytable.sql.clear;
mytable.sql.add(qry);
mytable.open;
end;

Karena terlalu seringnya perintah ini digunakan dalam aplikasi database, saya tertarik untuk menciptakan tool sederhana untuk menggenerate perintah SQL ke sintak Delphi dan berikut skrinsuut tool bikinan saya tersebut

Untuk menjalankannya anda tinggal ketik perintah sql anda di Memo sebelah kiri dan lihat hasilnya di sebelah kanan. Ingat, tool ini tidak untuk checking syntak tapi hanya memudahkan anda mentranslate perintah SQL di Delphi.

Tool ini masih dalam tahap awal sehingga masih ada kemungkinan-kemungkinan pengembangan-pengembangan dengan menambahkan fitur-fitur baru seperti konversi dari sintak Delphi ke perintah SQL atau mungkin juga penambahan ke bahasa-bahasa pemograman lain seperti VB/VBNet.

Silahkan Unduh MbahdienSQLConverter di sini

Desain Tabel untuk Perhitungan Rugi Laba dan Neraca di Database pada Perusahaan Dagang

2010-04-15T01:52:00.000-07:00

Sebelum memulai tulisan ini saya sedikit bingung mau pakai judul apa nih, maklum saja dulu saya tidak sekolah di Sistem Informasi yang penuh dengan teori-teori seperti DFD, normalisasi tabel dan teori basis data lainnya, tapi ya udah daripada kebanyakan teori dan bikin pusing, di sini saya akan menjelaskan tabel-tabel apa saja yang perlu dibuat untuk perhitungan rugi laba dan neraca.

Sebelum melangkah ke desain tabel, saya akan sedikit menjelaskan tentang konsep perhitungan rugi-laba dan neraca.

Untuk menghitung rugi laba, terlebih dahulu kita harus menghitung Rugi/Laba Kotor terlebih dahulu dengan rumus:

Rugi/Laba Kotor=Penjualan Bersih - HPP

Penjualan Bersih=Penjualan-Potongan Penjualan-Retur Penjualan+PPN Keluaran(jika ada)

HPP=Persediaan Awal+Pembelian Bersih-Persediaan Akhir

Pembelian Bersih=Pembelian-retur pembelian-potongan pembelian-beban angkut pembelian(jika ada)+PPN Masukan(jika ada)

Rugi/Laba Bersih=Rugi Laba Kotor - Beban

Untuk lebih jelasnya lihat yang di bawah ini:

Ngadem dulu gan, Ntar saya lanjutin lagi.

Membuat Update Urut Otomatis di MySQL

2010-04-14T21:06:00.000-07:00

Misal jika toko anda punya pelanggan dan pelanggan tersebut prefik kodenya dinomori sesuai area/wilayahnya. Contoh: SMG-001,PWD-001, kemudian anda diminta menomorinya secara otomotis. Lalu bagaimana cara memecahkan hal tersebut.

Untuk mengatasi hal itu sangat mudah. Copas saja kode berikut ini di Editor SQL Manager anda(pake Navicat atau EMS terserah).

SET @URUT=0;

update pelanggan set kode=concat('SMG','-',lpad(@urut=:@urut+1,3,'0')) where
kode_area='SMG';

Contoh-contoh Nyata Kasus Akuntansi

2010-04-11T20:22:00.000-07:00

Hari minggu kemarin(11 April 2010) saya mendapat tugas dari istri yaitu membantu membuatkan laporan rugi laba tempat kerjanya. Karena background saya bukan Sarjana Akuntansi(titel saya cuma Amd, alias ahli makan doang) agak confused juga. Tapi berbekal pengalaman yang sedikit bisa akuntansi meski cuma dasar serta hasil searching di Mbah Google akhirnya pekerjaan tersebut selesai juga.

Dalam soal2 yang diberikan istri saya tersebut, ada beberapa kasus yang menurut saya cukup menarik yaitu:

1. Bagaimana pembelian barang inventaris secara kredit, harus ditempatkan di pos mana, dan bagaimana jurnalnya?
2. Bagaimana cara perhitungan Harga Pokok Penjualan
3. Apabila perusahaan menunda pembayaran gaji, atau cuma membayar sebagian gaji pada pegawainya, bagaimana jurnalnya?
4. Bagaimana jurnalnya bila perusahaan tidak mampu melunasi cicilan barang inventaris sehingga barang tersebut ditarik.
5. Yang paling berat nih, bagaimana menjelaskan kepada pimpinan jika di laporan laba rugi itu terlihat untung, tapi pada kenyataannya uang berbentuk cash tidak ada.

Itu adalah sebagian kecil kasus-kasus nyata akuntansi dalam dunia kerja yang tentunya jauh lebih sulit dibanding dengan teori yang kita peroleh di bangku sekolah dulu.

Nah, berikut ini akan saya jelaskan pemecahan kasus-kasus tersebut.

1. Jika pembelian barang inventaris secara kredit, anda harus memasukkan ini ke dalam kolom neraca, bukan rugi laba. Jadi bunyi jurnalnya adalah begini:


Barang Inventaris  80
       Hutang barang inventaris     80

Yang agak membingungkan disini adalah menentukan harga perolehan, apakah harga cashnya atau harga kreditnya?

Yang dipakai disini adalah harga kreditnya(Uang Muka+(cicilan*lama angsuran)).

2. Dalam dunia perdagangan, penentuan HPP termasuk hal yang cukup sulit. Kita akan dibenturkan pada kenyataan-kenyataan yang ada di lapangan misal:

Harga yang selalu berubah cepat(dalam hal ini umumnya terjadi pada harga-harga kebutuhan pokok/sembako)
Catatan administrasi yang tidak lengkap, misal:

Ada barang yang terjual tapi harga belinya tidak di ketahui.
Jarang diadakan stok opname, sehingga persediaan awal dan akhir tidak diketahui.

Perusahaan yang menjual barang dagangan secara campuran, dalam artian dia mendapatkan barang itu dari supplier dan juga membuat sendiri.

Untuk perhitungan HPP, karena agak panjang lebar kalau dijelaskan disini, anda bisa mendownload ebook yang saya temukan di sini. Memang tidak terlalu bisa memecahkan persoalan diatas, tapi setidak-tidaknya membantu anda mengenai cara perhitungan HPP.

3. Jika perusahaan belum membayar gaji karyawannya baik sebagian ataupun penuh, maka tetap dikategorikan biaya pada periode tersebut. Jadi bunyi jurnalnya adalah begini:


Biaya gaji   10
       Hutang gaji          10

atau bila sebagian dibayarkan


Biaya gaji  10
            Kas           6
            Hutang gaji   4

4. Bila terjadi penarikan barang karena perusahaan tidak mampu melunasi cicilan barang inventaris maka harus dibuatkan jurnal penyesuaian yaitu:

Hutang Barang Inventaris D(sebesar nilai kekurangan pembayaran)
Kerugian krn penarikan barang(masuk pos biaya sebesar
harga perolehan - kekurangan pembayaran) D
Barang Inventaris K(Sebesar harga perolehan)

Contoh soal:
misal PT. Robot Gedhek beli mobil secara kredit 80 juta. pada saat angsuran 50 juta perusahaan itu tidak mampu melunasi pembayarannya, bagaimana jurnalnya.

Saat menerima barang:


Mobil  80
   Hutang               80

Saat mobil itu ditarik


Hutang                       30
Biaya krn penarikan barang   50
Mobil                                   80

5. Secara riil di lapangan mungkin kita menjumpai seorang owner yang tahunya kalau suatu perusahaan untung adalah pemasukan lebih besar dari pengeluaran. Saat disajikan laporan laba rugi yang dia tahu jika perusahaannya itu laba maka harus ada jumlah sisa uang sebesar nilai laba tersebut. Pada kenyataannya uang di kas perusahaan tinggal sedikit dan tidak mampu memenuhi permintaan sang owner. Lalu bagaimana cara jika anda sebagai akunting menjawabnya?
Untuk menjawab persoalan itu lumayan mudah(saya tidak bilang mudah lho, krn perlu hati2 juga bila nerangin sama owner, apalagi kalau termasuk kategori bawel+jadul). Yang harus anda perhatikan adalah anda harus melihat sisi neraca anda. Apakah ada barang-barang yang masuk kategori cicilan. Apakah ada pembelian barang inventaris cash dalam jumlah besar? Terangkan bahwa keuntungan perusahaan tersebut digunakan untuk membeli barang-barang keperluan perusahaan sehingga jika sang owner ingin uang yang lebih, bilang saja barang-barang tersebut bisa dijual lagi buat menambah uang kas.

Menghilangkan Title Caption di ExpressQuantumGrid

2010-04-08T08:06:00.000-07:00

"Drag Column header here to group by that column", ups, tulisan ini pasti muncul di komponen ExpressquantumGrid anda. Memang tidak mengganggu sih, tapi kalau tulisan itu bisa hilang pasti akan lebih cantik lagi bukan.

Untuk menghilangkan tulisan itu caranya cukup mudah:

1. Tambahkan uses CxClasses dan cxGridStrs di Main form project anda.

2. Saat onCreate Event tulis kode berikut:

cxSetResourceString(@scxGridGroupByBoxCaption,'');

Ingat, anda tidak perlu memakai cara ini satu persatu di seluruh form, tapi cukup pada form utama anda.

Sharing komponen Delphi

2010-04-06T00:20:00.000-07:00

Bagi anda yang kesulitan mencari link donload komponen seperti IBDAC, Unidac, DevExpress, business skin form, Suipack, dll, anda bisa donlod di sini

Backup Database dengan Delphi

2010-04-02T20:37:00.000-07:00

Untuk membackup database for example mysql, anda bisa menggunakan perintah mysqldump, dan untuk menjalankannya di Delphi kita bisa menggunakan perintah Windows Api yaitu ShellExecute atau WinExec. Tapi perintah itu mempunyai kelemahan yaitu kita tidak tahu kapan backup datanya selesai karena masing-masing punya thread sendiri-sendiri.

Untuk mengatasi problem tersebut, anda bisa menggunakan perintah ShellExecuteEx dari unit ShellApi. Dan berikut ini caranya:

Tambahkan uses ShellApi di unit anda.

lalu ketikkan kode seperti berikut:

procedure backup(const namafile:string);
var
SEInfo:TShellExecuteinfo;
ExitCode:DWORD;
paramstring:string;
begin
paramstring:=
'-u [your youser] -p[your password] --single-transaction -q --skip-comments --opt -c -r '+
'"'+sfile+'"'+' -R [your database]';
fillchar(SEInfo,sizeof(SEInfo),0);
with SEInfo do
begin
cbSize:=sizeof(SEInfo);
fMask := SEE_MASK_NOCLOSEPROCESS;

Wnd := Application.Handle;

lpFile := PChar('mysqldump') ;
lpparameters:=pchar(paramstring);
nShow := SW_SHOW;
lpdirectory:=pchar('C:\Program Files\MySQL\MySQL Server 5.0');
end;
if shellexecuteex(@SEInfo) then
begin

repeat
Application.ProcessMessages;

GetExitCodeProcess(SEInfo.hProcess, ExitCode) ;

until (ExitCode <> STILL_ACTIVE) or

Application.Terminated;

[your next command here]

end;

end;

Anda juga dapat menggunakan cara tersebut di atas untuk membackup data dari Firebird, SQL Server & juga database2 RDBMS yang lain

Refreshing Dataset

2010-04-02T20:25:00.000-07:00

Perintah untuk merefresh dataset memang sangat mudah yaitu tinggal panggil method:

mydataset.close;
mydataset.open;

Tapi jika anda jeli, anda akan melihat bahwa posisi cursor dataset tersebut akan kembali ke atas(ke record pertama). Lalu bagaimana cara merefresh dataset agar posisi cursor bisa kembali semula?

with mydataset do begin
bm:=getbookmark;
try
disablecontrols;

close;
open;

finally
if bookmarkvalid(bm) then
Gotobookmark(bm);
enablecontrols;
end;
end;

Membuat SMS Gateway for SE-K700I dengan Delphi

2010-03-31T09:06:00.000-07:00

Adakah komponen Delphi atau OCX untuk SMS Gateway yang support HP-Sony Erricson K700i?

Setelah nyobain berbagai macam komponen maupun ActiveX mulai dari OxygenSMS, NowSMS, nrComm, Ozeki akhirnya saya menemukan sebuah OCX file yang support banget dengan HP kesayangan istri saya tersebut. ActiveX tersebut namanya Kylix SMS Activex Control.

Cara pakainya pun sangat begitu mudah yaitu:

1. Pasang blutut anda
2. Hidupkan blutut di HP.
3. Koneksikan ya antara HP dengan blutut.
4. Instal OCX nya dengan cara klik component-->ActiveXControl-->Instal. Lihat di tab ActiveX, pasti komponen anda sudah ada.
5. Untuk mengkoneksikannya lihat di demo software tersebut.
6. Untuk mendapatkan komponen tersebut cari di sini, kalau mau gretongan, ketik saja kata kuncinya Kylix SMS Rapid*share atau Hot*files atau Mega*Upload atau Deposit*Files(semua tanpa tanda bintang), pokoknya semua hostingan-hostingan yang berbau Warez. Kalau sudah nyerah anda boleh hubungi saya.

Dan ini adalah screen shoot dari SMS-SMS yang masuk di inbox HP dan saya tampung di TMemo.

Cara Membuat CrossTab Query di MySQL atau Firebird

2010-03-28T21:00:00.000-07:00

Kelompok preman pasar "Jon Dekil" tiap tahun selalu merekap hasil palakannya di beberapa pasar di Kota Semarang. Adapun rekapitulasi kelompok preman yang dipimpin oleh seorang kurus kerempeng bertubuh dekil karena jarang mandi yang dipanggil Jon Dekil ditunjukkan oleh tabel berikut:

PASAR	TAHUN	JUMLAH
Peterongan	2009	4500000.00
Mrican	2008	3500000.00
Karangayu	2008	5000000.00
Peterongan	2008	4250000.00
Karangayu	2009	2500000.00

Jika anda memakai query seperti ini:

select pasar,case when tahun=2008 then jumlah else 0 end as duaribulapan,
case when tahun=2009 then jumlah else 0 end as duaribusembilan from hasil_palakan

PASAR	DUARIBULAPAN	DUARIBUSEMBILAN
Peterongan	0	4500000.00
Mrican	3500000.00	0
Karangayu	5000000.00	0
Peterongan	4250000.00	0
Karangayu	0	2500000.00

Padahal hasil yang diinginkan adalah seperti ini:

PASAR1	DUARIBULAPAN	DUARIBUSEMBILAN
Karangayu	5000000.00	2500000.00
Mrican	3500000.00	0.00
Peterongan	4250000.00	4500000.00

Ada beberapa alternatif Query, di antaranya adalah seperti ini:
select pasar,
sum(duaribulapan) as duaribulapan,
sum(duaribusembilan) as duaribusembilan
from
(select pasar as pasar,
case when tahun=2008
then jumlah else 0 end as duaribulapan,
case when tahun=2009 then jumlah else 0 end
as duaribusembilan from hasil_palakan ) as alias1 group by
pasar

Tapi yang terbaik adalah ini:

select pasar,
sum(case when tahun=2008
then jumlah else 0 end) as duaribulapan,
sum(case when tahun=2009 then jumlah else 0 end)
as duaribusembilan from hasil_palakan group by pasar

Membuat Aplikasi Penjualan Sederhana dengan Delphi

2010-03-26T09:19:00.000-07:00

Iseng-iseng saya membuat aplikasi penjualan sederhana dengan menggunakan Delphi 7 dan database Firebird.

Adapun komponen-komponen yang saya gunakan adalah:

1. Express Quantum Grid
2. DBExpress
3. Zeos
4. Fast Report 4
5. Business Skin Form
6. Delphi Speedup untuk mempercepat kompilasi
7. Komponen buatan sendiri untuk menyimpan, mengedit dan menghapus data melalui ClientDataset yaitu AnsDBNavigator. Komponen ini source codenya menjiplak dari DBNavigator dengan melakukan sedikit modifikasi.
8. Rokok dan kopi buat begadang.

Dan berikut ini Screen Capturenya

spoiler for sales

spoiler for faktur

Spoiler for Pembayaran

spoiler for laporan-laporan

Spoiler for Link Download dengan source Code here

Spoiler for Download without Source code here

Sebetulnya ada sedikit bug dalam aplikasi ini, dan saya masih malas memperbaikinya yaitu saat aplikasi ditutup muncul Access Vioalation di module ntdll.dll.

Moga aplikasi sederhana dari saya itu bermanfaat buat anda, terutama yang masih menyusun skripsi atau TA yang mungkin dapat dijadikan bahan pembanding atau referensi.

Record Not Found Or Changed by another User, apakah penyebabnya?

2010-03-26T02:36:00.000-07:00

Error ini adalah error internal di DBExpress yaitu saat onReconcillerror. Error itu terjadi karena DBExpress bingung menentukan Record-record yang akan diupdate. Biasanya error itu timbul karena:

1. Pemakaian default value pada field di tabel anda. Jika anda mengisi nol, maka di ClientDataset saat OnNewRecord juga harus di isi nol.

2. Pemakaian trigger.

Cek trigger anda terutama saat event before insert atau before update. Set new.myfield=newvalue. Jika field itu ditampilkan maka kemungkinan terjadi error karena tidak sinkron dengan yang diisikan di ClientDataset anda.

3. Perubahan data yang sama pada saat bersamaan oleh 2 user atau lebih.

Contoh: user A melakukan edit data pada faktur no 1, pada saat bersamaan user B mengedit data atau menghapus data pada faktur tersebut. Tentunya hal ini menimbulkan konflik sehingga menimbulan error seperti tersebut di atas.

Yang Gratis Belum Tentu Lebih Letoy

2010-03-26T02:06:00.000-07:00

Apakah delphi Database Engine yang terbaik untuk koneksi ke MySQL, apakah MySQLDAC, DBExpress, DBExpressPlus,ataukah Zeos? Jawabannya relatif, karena tiap-tiap database engine punya kelebihan dan kelemahan sendiri-sendiri. Lalu, manakah yang tercepat dari 4 database engine tersebut di atas?

Untuk DBExpress dan DBExpressPlus+ClientDataset-nya, tidak terlalu cepat. Hal ini bisa dimaklumi karena data ditampung di memori terlebih dahulu baru ditampilkan. So, whats about Zeos vs MySQLDac. Wow, ternyata Zeos dengan TZReadOnlyQuery-nya ternyata lebih cepat dari komponen TQuery di MySQLDac. Setelah saya tes dengan hampir 100.000 record dengan join query, Zeos membutuhkan waktu cuma 3 koma sekian detik sedangkan MySQLDac sekitar 6 detikan.

Sedangkan DBExpress vs DBExpressplus ternyata lebih cepat DBExpressPlus dimana DBExpressplus membutuhkan waktu 36 detik, sedangkan DBExpress sendiri memerlukan waktu 42 detik lebih pada Query yang sama.

Is it true that MySql is more faster than Firebird?

2010-03-26T01:33:00.000-07:00

Karena terpicu oleh rasa penasaran saya, lebih cepat mana sih antara Firebird dan MySQL, saya melakukan tes Query join tabel yang melibatkan hampir 100.000 record pada tabel dan juga indek yang sama.

Tes ini menggunakan EMS SQL Manager versi lite yang tentunya free. Untuk MySQL nya adalah versi 5.0.41 Engine InooDB dan Firebird 2.1.3 versi SuperServer. Hasilnya cukup mengejutkan, ternyata Firebird jauh lebih cepat dari MySQL(5x-nya). Dan berikut ini screeen capturenya:

ini menggunakan koneksi MySQL

Dan ini adalah dengan koneksi Firebird

Virus CTFMon, marakke ngelu

2010-03-25T23:34:00.000-07:00

Gara-gara ingin dapat software gretongan, Mbahdien beberapa hari yang lalu dibuat pusing oleh ulah sang virus yang tiba-tiba menyerang si Bencis, kompi kesayangannya. Virus itu didapat setelah mendonlod Crack-crackan RazorSQL di Hotfiles. Karena file virus itu disamarkan sebagai keygen, tanpa basa-basi Mbahdien mengeksekusi file tersebut.

Kali ini Mbahdien ketiban sial, saat diklik, tiba-tiba file tersebut hilang dan tiba-tiba si Bencis jadi lemot setengah mati. Di task manager menunjukkan CPU Usage-nya 100%. Saat dilihat di processlist, menunjukkan ada peningkatan aktivitas yaitu pengeksekusian ipconfig.exe dan cmd.exe secara terus menerus. Ketika di end process, bukannya malah berhenti tapi malah terjadi peningkatan aktivitas yang luar biasa.

Melihat hal tersebut, Mbahdien mengeluarkan jurus pertamanya yaitu pakai AVG, tapi sayang software ini tidak mempan karena tidak mampu mendeteksi virus tersebut. Karena jurus pertama tidak mempan, Mbahdien mencoba update AVG terbaru tapi hasilnya juga nihil karena koneksi ke internet dibuat lemot setengah mateng.

Iseng-iseng Mbahdien kemudian ke Warnet dan donload Antivirus Lokal yaitu SmaDav. Dari scanning Smadav tersebut hanya didapat registry yang dicurigai terinfeksi yaitu HKLM\software\microsoft\windows\current version\run\ctfmon.exe dan HKLM\software\microsoft\windows\current version\run\conime.exe dengan nilai alamat path ctfmon.exe tersebut yaitu system32. Disamping itu ada juga registry lain yang intinya merujuk ke ctfmon.exe. Dari informasi yang didapat di Google, virus tersebut dinamakan virus Yahoo Messenger dan untuk variant yang hinggap di si Bencis itu, Mbahdien sendiri tidak tahu Variant yang mana.

Setelah mengetahui penyebabnya, tugas selanjutnya adalah membunuh file tersebut. Memang pekerjaan membunuh file sangat gampang yaitu tinggal pencet tombol shift+klik kanan dan press delete. Tapi karena file tersebut processnya masih jalan tentunya anda tidak dapat menghapusnya semudah itu. Setelah searching Om Google sebentar, jalan termudah untuk mendelete file yang masih running adalah dengan memakai unlocker file.

Nah berikut step-step untuk menghajar virus tersebut:
1. Delete file msvbm50.dll serta ubah file msvbm60.dll(di Windows\system32)
2. Buka software Unlocker File(totally free) lalu cari file dengan nama ctfmon.exe dan juga beberapa file yang anda curigai sebagai virus(kalau di kompi Mbahdien sih namanya wmivcrt.exe atau wmicrt.exe, sory lali maklum wis pikun).
3. Hapus file-file tersebut.
4. Bersihkan temporary file dengan software penghapus temporary file.
5. Dan jangan lupa, setiap koneksi ke Internet, aktifkan dulu Firewall anda, karena virus itu tiba-tiba bisa muncul lagi sesaat setelah anda berhubungan dengan internet.
6. Saya sarankan jika aplikasi anda membutuhkan file msvbm60.dll, pindahkan aja ke folder aplikasi anda, jangan di system32, karena kebanyakan virus menggunakan library milik Visual Basic ini.

Di balik musibah ada berkah. Ternyata beberapa hari kemudian Mbahdien tiba-tiba dihubungi oleh mantan bosnya kompinya juga terinfeksi virus. Setelah dideteksi, ternyata kompi mantan pimpinan mbahdien di Ganeca itu terjangkiti virus yang sama. Akhirnya malam itu Mbahdien pulang dengan hati riang karena tidak perlu mengurangi jatah istri untuk beli rokok.

Hapus beberapa records di Dataset

2010-03-25T23:12:00.000-07:00

Jika di DML untuk melakukan operasi penghapusan anda cukup menuliskan perintah:

delete from mytable where [your key field]=your parameter value

Lalu bagaimana perintah ini diimplementasikan ke Delphi TDataset dan off course juga turunannya?

try
mydataset.disablecontrols;
while not mydataset.eof do
mydataset.delete;
finally
mydataset.enablecontrols;
end;

Ini akan menghapus semua entry yang ada di dataset anda.

Lalu bagaimana jika penghapusan tersebut disertai parameter?

try
mydataset.disablecontrols;
while not mydataset.eof do
begin
if mydataset.fieldbyname('mykolom').value=5 then
mydataset.delete;
mydataset.next;
end;
finally
mydataset.enablecontrols;
end;

Maaf Jon, cara ini tidak bekerja sama sekali. Cara ini akan menghapus record pertama, tapi tidak untuk record selanjutnya.

Untuk menghapus beberapa record di Dataset, caranya cukup sederhana yaitu dengan menambahkan method filter pada procedure anda. Jadi perintahnya menjadi seperti ini:

try
mydataset.disablecontrols;
mydataset.filtered:=true;
mydataset.filter:='mykolom=5';
mydataset.first;
while mydataset.eof do
mydataset.delete;
finally
mydataset.enablecontrols;
mydataset.filtered:=false;
end;

Update Multiple rows in EQG(ExpressQuantumGrid)

2010-03-25T21:23:00.000-07:00

Kalau di DBGrid untuk update multiplerows anda dapat menggunakan method ini:

procedure TForm1.updateClick(Sender: TObject);

begin

   for i := 0 to DBGrid1.SelectedRows.Count-1 do
   begin
     GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
     [your code or some operation here]
 end;


end;

Tapi hal ini tidak berlaku untuk EQG.

Setelah searching di Jon Google, akhirnya ketemu juga cara melakukan operasi multiple rows
buat Express Quantum Grid. Caranya adalah sebagai berikut:
Pertama kali adalah set property smartrefresh ke true(this is must) terus tambahkan uses CxDataUtils di unit anda.

Lalu tuliskan sintak berikut:

procedure Tfrmbgbank.BTN_UPDATEClick(Sender: TObject);
var
I, APrevFocusedRecordIndex: Integer;
begin
with [your TCXGridDBTableView] do
begin
APrevFocusedRecordIndex := DataController.FocusedRecordIndex;
DataController.BeginUpdate;
try
for I := 0 to Controller.SelectedRecordCount - 1 do
begin
DataController.FocusedRecordIndex := Controller.SelectedRecords[I].RecordIndex;
[your command here]
DataController.SetEditValue([your TCxGridDBColumn.Index,[nilai yang akan diisi], evsValue);
end;
finally
if DataController.DataSet.State in [dsEdit] then
DataController.PostEditingData;
DataController.FocusedRecordIndex := APrevFocusedRecordIndex;
DataController.EndUpdate;
end;

end;

Yang perlu diperhatikan disini adalah, saat property smartrefresh di set ke true, EQG tidak dapat melakukan operasi langsung ke dataset. Jadi anda tidak dapat menuliskan kode seperti ini:

mydataset.fieldbyname('my column').value:=my value;

So, untuk mengisi data, anda harus menuliskan method SetEditValue(lihat DevExpress manual).

Cara Memindah-mindahkan Record dalam Tabel

2010-01-16T07:51:00.000-08:00

Dalam pembuatan sebuah laporan akuntansi, setiap akun tentunya harus disusun secara sekuensial atau berurutan. Akan terasa sangat aneh jika saat membuat laporan rugi laba, pada perhitungan HPP, anda menuliskan potongan pembelian dulu baru pembelian.

Sebagai ilustrasi, bila di MYOB Accounting pengaturan urutan itu tergantung kode yang diberikan, artinya kode yang semakin besar pasti ditempatkan paling bawah. Jika diprogram anda field kode bertipe varchar, yang tentunya akan sangat sulit dilakukan pengurutan, anda membutuhkan field pembantu yang berfungsi untuk mengurutkan record-record
tersebut. Taruh saja nama field tersebut adalah urut atau no_urut.

Lalu bagaimana jika dalam urutan itu terlanjur terbalik antara satu dengan yang lain? Tentunya anda harus menukarkan record-record tersebut.

Dan berikut ini contoh sintaksnya:

procedure TFrmcoa.Button2Click(Sender: TObject);
var urut1,urut2:integer;
bm:Tbookmark;

begin
if coa.Bof then exit;
bm:=coa.GetBookmark;
urut2:=coaurut.Value;
coa.Prior;
urut1:=coaurut.Value;
coa.Edit;
coaurut.Value:=urut2;
coa.Post;
coa.GotoBookmark(bm) ;
coa.Edit;
coaurut.Value:=urut1;
coa.Post;
coa.ApplyUpdates(0);
end;

Catatan:

- Coa adalah nama komponen untuk ClientDataset(komponen turunan Dataset favorit saya)
- Record yang dipertukarkan adalah record sebelumnya.
- Di tabel anda field "urut" jangan diindeks unique atau Primary key.

Lihat gambar berikut:

Dan ini adalah akun listrik yang saya tempatkan dibawah akun biaya operasional dengan menekan tombol up berulang-ulang.

Untuk kebalikannya, yaitu menurunkan record, anda bisa mengganti sintaks "bof" dengan
"eof" serta "prior" dengan "next".

Menghitung Hari Pasaran

2009-12-24T17:23:00.000-08:00

Dalam kalender Jawa kita mengenal 5 hari pasaran secara berurutan yaitu

Legi, Pahing, Pon, Wage, Kliwon

Untuk menentukan hari pasaran, kita harus menentukan sebuah tanggal
sebagai constanta pembanding. Contoh tanggal 24 Desember 2009 hari pasarannya adalah Legi.

Nah berikut ini adalah algoritmanya

function getpasaran(const tgl:Tdatetime):string;
const Apasar:array[0..4] of string=(
'Legi','Pahing','Pon','Wage','Kliwon');

var
tgllegi:Tdatetime ;
hariantara:integer;

begin
tgllegi:=encodedate(2009,12,24);

hariantara:=daysbetween(dateof(tgl),dateof(tgllegi)) ;

if tgl>=tgllegi then
result:=Apasar[hariantara mod 5]
else result:=Apasar[((hariantara*5)-hariantara) mod 5];
end;

Note:Jangan lupa tambahkan uses dateutils di unit anda.

Dari algoritma tersebut, kita bisa menentukan kalau hari pasaran tanggal kemerdekaan
kita adalah Legi dan hari pasaran hari Sumpah Pemuda adalah Wage. Lalu, apakah hari pasaran
anda?

Virtual Method

2009-10-25T10:38:00.000-07:00

Lihat kode berikut:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
Tibu=class
procedure p;virtual;\\anda dapat mengganti virtual dengan dynamic
end;
Tanak=class(Tibu)
procedure p;override;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
{ Tibu }
procedure Tibu.p;
begin
showmessage('Ibu');
end;

{ Tanak }

procedure Tanak.p;
begin
showmessage('anak');

end;

//taruh tombol di form anda, klik dua kali dan ketik perintah berikut
procedure TForm1.Button1Click(Sender: TObject);
var anak:Tanak;
begin
anak:=Tanak.Create;
anak.p;
//coba juga perintah ini:Tibu(anak).p;

end;

end.

Method di atas bersifat virtual, artinya method itu bersifat dinamis, menyesuaikan dengan class yang memanggilnya. Agar anda lebih jelas lagi coba anda lakukan langkah berikut:

Hilangkan kata virtual dan override yang tercantum di atas.

Ganti perintah anak.p dengan Tibu(anak).p

Lihat hasilnya.

Tambahkan lagi kata virtual dan override.

Lihat hasilnya lagi.

Penjelasan:
Jika perintah virtual dan override di hilangkan, maka method tersebut melaksanakan perintah dari class moyangnya(Tibu), method ini di namakan method statis. Tapi jika method itu virtual, maka ia melaksankan method dari class turunannya.

Di helpnya Delphi di jelaskan bahwa virtual method dan dynamic method adalah sama, yang membedakannya hanyalah bahwa virtual lebih mengoptimasikan kecepatan, sedang dynamic methods adalah ukuran kodenya.

Perbedaan Definer dan Invoker pada Stored Procedure/function di MySQL

2009-10-22T21:00:00.000-07:00

CREATE PROCEDURE `sp_test`(param1 varchar(20))
NOT DETERMINISTIC
SQL SECURITY INVOKER
COMMENT ''
BEGIN
insert into tabel1(a,b) values(1,param1);
END;

Anda lihat sintaks stored procedure di atas? Ada kata-kata SQL Security Invoker. Apa yang dimaksud SQL Security Invoker dan apa bedanya dengan SQL Security Definer?

Keyword Invoker dan keyword Definer berhubungan dengan hak-hak privileges pada account database anda. Agar lebih jelas ikuti langkah-langkah berikut ini:

Buat tabel baru misalnya tabel1 seperti contoh diatas, dengan field a bertipe integer dan field b bertipe varchar(20);

Buat user baru misalnya joni, mau pakai prompt mysql terserah atau kalau lebih praktis pakai EMS SqlManager.

Beri semua hak privileges pada account joni tersebut kecuali untuk insert tabel.

Sekarang anda masuk ke database anda gunakan user root(promptnya mysql -u root -ppassword anda).
Buat stored procedure seperti di atas

Masuk lagi ke database anda, tapi dengan user joni yang baru anda buat tadi(promptnya mysql -u joni-ppassword anda).

Sekarang sebagai user joni anda coba eksekusi procedure diatas. Pasti akan timbul error seperti ini:
“INSERT command denied to user 'joni'@'localhost' for table 'tabel1' “

Hal ini dikarenakan user joni tidak punya hak untuk insert tabel, jadi saat stored procedure itu dieksekusi otomatis dia tidak bisa memasukkan data ke tabel1. Berbeda dengan ketika anda menggunakan keyword definer, meskipun anda(sebagai user joni) tidak punya hak insert tabel, tapi anda masih bisa eksekusi(baca memasukkan data ke tabel1) stored procedure itu. Coba saja kalau nggak percaya, ganti aja invoker dengan definer, pasti data bisa masuk dengan sukses alias tidak ada error.

Catatan: Setelah anda buat user dan memberi hak privileges, service mysqlnya harus direstart dulu.

Tips Optimasi Query MySql

2009-10-22T16:22:00.000-07:00

Berikut akan saya berikan tips optimasi di MySQL yang sering saya digunakan.

1. Untuk join tabel sebaiknya gunakan inner join daripada left join atau right join.

2. Cek indek-indek di tabel anda terutama untuk field-field yang sering di join. Secara default hal ini sudah dilakukan saat anda membuat primary key dan foreign key. Jadi anda jangan lupa untuk memasang primary dan foreign key di tabel anda..

3. Untuk nilai-nilai unik gunakan AutoIncrement.

4. Gunakan persistent connection(koneksi yang terus menerus). Dalam artian anda dilarang untuk membuka tutup koneksi. Di help Mysql dijelaskan bahwa kalau anda membuka tutup koneksi maka bisa menyebabkan connection overhead.

5. Hindari query yang kompleks untuk tabel yang menggunakan MyISAM dan sering diupdate. Jadi kalau pengin aman gunakan Engine InnoDB saja.

6. Gunakan Explain sintak untuk mengetahui informasi dari pernyataan Select

7. Sebisa mungkin hindari Sub Query.

Berdasar pengalaman saya sering terjadi kasus dimana saya di haruskan sub query yang menggunakan klausa “not in”. Contoh:
Select f.kode_faktur,f.tanggal, from faktur f where f.kode_faktur not in(select kode_faktur from gudang_keluar).
Untuk meningkatkan kecepatan akses datanya, anda dapat menggantinya dengan sintak berikut :
Select f.kode_faktur,f.tanggal from faktur f left join gudang_keluar g on f.kode_faktur=g.kode_faktur where g.kode_faktur is null
Di samping mempengaruhi kecepatan, berdasar pengalaman saya juga, klausa not in untuk jumlah data yang besar kadang hasil yang di dapat tidak sesuai dengan yang saya harapkan.

Tips-tips di atas adalah berdasar pengalaman saya. Kalau anda pengin lihat lebih detail lagi lihat saja di helpnya mysql, lebih komplet lagi plus menambah pusing kepala.

Static Method

2009-10-20T23:28:00.001-07:00

Lihat kode berikut

unit delphiclass;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TIbu=class
protected
procedure p;
end;
Tanak=class(Tibu)
procedure p;
end;
Tcucu=class(Tanak)
procedure p;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TIbu }

procedure TIbu.p;
begin
showmessage('Ibu');
end;

{ Tanak }

procedure Tanak.p;
begin
inherited;
showmessage('Anak');
end;

{ Tcucu }

procedure Tcucu.p;
begin
inherited;
showmessage('Cucu');
end;

Tambahkan komponen button, kemudian ketik kode berikut:

procedure TForm1.Button1Click(Sender: TObject);
var cucu:Tcucu;
begin
cucu:=Tcucu.Create;
cucu.p; //hasilnya muncul pesan 3 kali ibu, anak, cucu
cucu.Destroy;

cucu:=Tcucu.Create;
Tibu(Cucu).p; //hasilnya pesan Ibu
cucu.Destroy;
cucu:=Tcucu.Create;
Tanak(cucu).p; //hasilnya pesan ibu,anak;
cucu.Destroy;
cucu:=Tanak.create;//error compile(incompatible types Tcucu and Tanak),
//karena moyangnya(Tanak) tidak bisa membuat
//instanisasi object dari turunannya(Tcucu)
end;

Procedure p di atas merupakan method static. Artinya, untuk tiap class yang diturunkan dari moyangnya dan kebetulan punya method yang sama, maka method dari class di atasnya yang di panggil.

Sedang untuk reserved word “inherited” di atas menandakan bahwa method di class atasnya di wariskan kepada class turunannya. Untuk percobaan saja coba hilangkan “inherited” dari program tersebut, kemudian compile kembali. Tampak bahwa method di class yang bawah ketika melaksanakan procedure p, ia malah menjalankan method atau procedure class di atasnya. Misal:

Tibu(cucu).p;

Hasilnya adalah showmessage “ibu” bukan showmessage “cucu”.

Untuk lebih jelasnya, akan berikan contoh riil sesuai class-class yang ada di delphi. Lihat kode berikut:

unit delphiclass1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,delphiclass, StdCtrls;

type
TCb=class(Tcombobox)
public
procedure show;
end;
TForm2 = class(TForm)
Button1: TButton;

procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

{ TCb }

procedure TCb.Show;
begin
inherited hide;//mewariskan method hide dari moyangnya.
showmessage('Muncul');

end;
// taruh komponen button di form anda, klik dua kali lalu tulis perintah berikut:
procedure TForm2.Button1Click(Sender: TObject);
var cb:TCb;
begin
cb:=Tcb.Create(Self);
cb.Parent:=self;// dengan perintah ini instanisasi object anda telah muncul di form
cb.show;// anda boleh hilangkan perintah ini, dan lihat hasilnya.

end;
end.

Anda dapat mengganti perintah show di atas dengan
Tcombobox(cb).show;
TCustomcombo(cb).show;
TWinControl(cb).show;
Tcontrol(cb).show;

Class reference

2009-10-20T00:49:00.000-07:00

Mungkin saat mempelajari delphi sering melihat sintak yang berbunyi “class of”. Contoh(ini saya ambil di forms.pas)

Tformclass = class of Tform;

Contoh diatas dalam dunia pemograman delphi disebut class reference.

Untuk implementasi berdasar contoh di atas dapat saya tuliskan sebagai berikut:

Buka delphi anda, akan tampak tampilan form1. Terus tambahkan 2 form lagi. Beri nama defaultnya(form2 dan form3).
Untuk unit1(form1) tambahkan uses ke unit2(form2) dan unit3(form3).
Tambahkan tombol di form1 tersebut dan ketik perintah berikut:

procedure TForm1.Button1Click(Sender: TObject);
var
mclass:Tformclass;
f2,f3:Tform;
begin

mclass:=Tform2;
f2:=mclass.create(self);
f2.Show;
mclass:=Tform3;
f3:=mclass.Create(Self);
f3.Show;

end;

Jalankan aplikasi anda dan klik tombol tersebut.

variable “mclass” merupakan variable bertipe class reference. Variabel jenis ini digunakan bila kita ingin memanggil class method(lihat di delphi definisi class method) atau constructor suatu kelas melalui variabel.

Saya akan berikan contoh lagi agar anda lebih paham mengenai class reference. Tambahkan button1 ke form anda lalu salin saja kode berikut:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TMilan=class
public
class procedure champione;// ini di sebut class method.
procedure ngicik;
end;
Tmilanisti=class of Tmilan;
Tmilan1=class(Tmilan)

public
class procedure mobom;
end;

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

class procedure Tmilan.champione;
begin
showmessage('Milan champione');

end;

procedure TMilan.ngicik;
begin
showmessage('Ngicik');
end;
class procedure Tmilan1.mobom;//unused method alias tidak berguna, cuma assesoris aja
begin
showmessage('Mobom');
end;

procedure TForm1.Button1Click(Sender: TObject);
var mli:Tmilanisti;
m1:Tmilan;
begin
mli:=Tmilan1;// assign ke class Tmilan1
m1:=mli.Create;
m1.ngicik;
m1.champione;
m1.mobom// error karena variabel mli mengacunya ke class Tmilan bukan Tmilan1.

end;

end.

Forward Declaration

2009-10-15T10:14:00.000-07:00

Suatu class dapat saling ketergantungan satu dengan yang lain. Saya ambilkan contoh class TDBGRID(lihat di DBGrid.pas di IDE Delphi anda). Class TDBGrid moyangnya adalah TcustomDBgrid. Dalam pembuatannya, class TcustomDBGrid memerlukan class Tgriddatalink. Secara struktural sederhana dalam pendeklarasiannya adalah sebagai berikut:

Type
Tgriddatalink=class(Tdatalink)
private
FGrid: TcustomDBGrid;
...
TcustomDBGrid=class(TGrid)
FDataLink: TgridDataLink;

...
end;

Dalam implementasinya, ketika class Tgriddatalink memanggil method di field Fgrid, contoh:

Fgrid.EditingChanged;

maka hal tersebut tidak menimbulkan masalah karena secara struktur class TcustomDBgrid di bawah class Tgriddatalink. Tapi sebaliknya jika class TcustomDbgrid memanggil method yang ada di field Fdatalink akan menyebabkan compile error karena class Tgriddatalink di atas TcustomDBGrid. Untuk mengatasi hal tersebut anda harus terlebih dahulu mendeklarasikan class TcustomDBgrid di atas Class Tgriddatalink. Agar anda lebih jelas lihat sintak berikut:

Type
TcustomDBGrid=class;
Tgriddatalink=class(Tdatalink)
private
FGrid: TcustomDBGrid;
...
TcustomDBGrid=class(TGrid)
FDataLink: TgridDataLink;

...
end;

Hal tersebut di atas di Delphi di namakan forward declaration. Sebagai latihan saja, coba anda praktekkan sintak berikut di project Delphi anda:

Ketik kode berikut di bawah tulisan type unit anda

Tanak=class;
Tibu=class
private
Fanak:Tanak;
public
Constructor Create;
end;
Tanak=class
private
Fibu:Tibu;

Public
Constructor Create(AIbu:TIbu;nama:string);

end;

setelah itu ketik juga implementasinya

constructor Tibu.Create;
begin
showmessage('Ibu di buat');
Fanak:=Tanak.Create(Self,'mbahdien');

end;

{ Tanak }

constructor Tanak.Create(AIbu: TIbu; nama: string);
begin
inherited Create;
Fibu:=Aibu;
Showmessage(nama);
end;

Saat form create ketik perintah berikut:

procedure TForm1.FormCreate(Sender: TObject);
var ibu:Tibu;
begin
ibu:=Tibu.Create;
end;

Untuk lebih lengkapnya lihat kode berikut:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids;

type
Tanak=class;
Tibu=class
private
Fanak:Tanak;
public
Constructor Create;
end;
Tanak=class
private
Fibu:Tibu;

Public
Constructor Create(AIbu:TIbu;nama:string);

end;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ Tibu }

constructor Tibu.Create;
begin
showmessage('Ibu di buat');
Fanak:=Tanak.Create(Self,'mbahdien');

end;

{ Tanak }

constructor Tanak.Create(AIbu: TIbu; nama: string);
begin
inherited Create;
Fibu:=Aibu;
Showmessage(nama);
end;

procedure TForm1.FormCreate(Sender: TObject);
var ibu:Tibu;
begin
ibu:=Tibu.Create;
end;

end.

EabstractError

2009-10-15T10:09:00.000-07:00

Salin kode berikut ini di bagian bawah tulisan type

type
Tcoba=class

protected
function gethitung:integer;virtual;abstract;
function getjumlah: integer; virtual;abstract;
procedure Setjumlah(const Value: integer);virtual;abstract;
property jumlah:integer read getjumlah write Setjumlah;
property hitung:integer read gethitung;
end;

Klik 2 kali form anda (event OnCreate) lalu isikan kode berikut::

procedure TForm1.FormCreate(Sender: TObject);
var coba:Tcoba;
begin
coba:=Tcoba.Create;
coba.jumlah:=5;

end;

Kode lengkapnya berikut ini:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
Tcoba=class
function getjumlah: integer; virtual;abstract;
procedure Setjumlah(const Value: integer);virtual;abstract;
property jumlah:integer read getjumlah write Setjumlah;end;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var coba:Tcoba;
begin
coba:=Tcoba.Create;
coba.jumlah:=5;
end;

end.

Compile project anda dan jalankan, pasti akan muncul pesan EabstractError.

Penyebabnya adalah Class Tcoba tersebut mempunyai method setjumlah dan getjumlah yang bersifat abstract. Lalu apakah yang di maksud abstract Method?

Abstract method adalah suatu method yang bersifat virtual atau dynamic yang tidak ada implementasinya. Implementasi abstract method tersebut ada di Class turunannya.

Agar anda lebih gampang memahaminya akan saya contohkan class yang berisi Abstract Method yaitu Tstrings.

Di helpnya Delphi di jelaskan bahwa kita tidak boleh membuat instanisasi Tstrings langsung dari classnya melainkan harus dari class di bawahnya.

Misal:
Var ls:Tstrings;
Begin
Ls:=Tstrings.create;

End;

Jika anda melaksanakan perintah di atas dan di eksekusi saya yakin tidak ada masalah. Tapi bagaimana jika setelah itu anda melaksanakan satu method saja dari Tstrings, misal: ls.add(‘ayam’);

Pasti akan muncul pesan “Abstract Error”.
Di Class Tstrings sebenarnya cuma ada 3 method aja yang bersifat abstract dan terletak di bagian public yaitu:

procedure Delete(Index: Integer); virtual; abstract;
procedure Insert(Index: Integer; const S: string); virtual; abstract;
procedure Clear; virtual; abstract;

Tapi method-method ini saling berhubungan dengan seluruh method di class Tstrings. Akibatnya apa? Setiap anda menuliskan method tertentu, maka langsung atau tidak langsung ia akan berhubungan dengan 3 method di atas. Hal itulah yang menyebabkan EabstractError tiap kali anda melakukan sebagian atau seluruh method yang ada di Scope public class Tstrings . Lalu bagaimana cara mengatasinya.

Implementasi Abstract Method di Tstrings harus ada di class di bawahnya contohnya Tstringlist. Jadi jika anda ingin melakukan semua method yang ada di Tstrings anda harus membuat Instanisasi Object dari Tstringlist. Contoh:

Var ls:Tstrings;
Begin
Ls:=Tstringlist.create;
Ls.clear;
Ls.add(‘ayam’);
End;

Compile program anda, jalankan, dan saya yakin tidak ada masalah.

Sekarang kembali ke pertanyaan di atas tadi, untuk apa abstract method di buat?

Anda tentunya tahu komponen Memo dan Combobox. Di situ terdapat property yang bertipe Tstrings yaitu Lines untuk Memo dan Items untuk Combobox. Meskipun dua-duanya punya tipe data Tstrings, namun dalam implementasi abstract method Class Tstrings mereka punya Class sendiri-sendiri. Untuk Tmemo ialah TmemoStrings sedang Tcombobox adalah TcustomComboBoxStrings(sama-sama turunan Tstrings).

Di Class Tstrings itu ada procedure clear. Berikut adalah implementasi dari method Clear tersebut di Class TcustomcomboboxStrings:

procedure TCustomComboBoxStrings.Clear;
var
S: string;
begin
S := ComboBox.Text;
SendMessage(ComboBox.Handle, CB_RESETCONTENT, 0, 0);
ComboBox.Text := S;
ComboBox.Update;
end;

dan ini adalah di TmemoStrings

procedure TMemoStrings.Clear;
begin
Memo.Clear;
end;

Dari contoh tersebut tampak jelas perbedaan implementasi abstract method di class Tstrings.

Lalu apa kesimpulannya? Abstract Method berguna untuk kustomisasi\referensi method. Dengan bahasa sederhananya, meskipun implementasi method di class turunannya berbeda, tapi ia harus memberikan hasil yang sama. Contohnya adalah method Clear seperti tersebut di atas. Method itu pada intinya adalah mengosongkan teks. Sehingga jika di baca di class-class turunan Tstrings yang lain tetap sama hasilnya. Contoh:

Var ls:Tstrings;
Begin
Ls:=Tstringlist.create;
Ls:=memo1.lines;
Caption:=inttostr(ls.count);//Akan sama dengan Caption:=inttostr(memo1.lines.count);
End;

Berikut akan saya berikan contoh pembuatan class yang mempunyai abstract method dan semoga anda memahaminya:

unit Uabstract;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Stdctrls;

type
Tcoba=class

protected
function gethitung:integer;virtual;abstract;
function getjumlah: integer; virtual;abstract;
procedure Setjumlah(const Value: integer);virtual;abstract;
property jumlah:integer read getjumlah write Setjumlah;//di class ini property jumlah, function gethitung
cuma sebagai referensi aja. Artinya kita tidak tahu pelaksanannya bagaimana dan
hasilnya apa, karena implementasinya ada di class bawahnya.

property hitung:integer read gethitung; //belum tahu hasilnya.
end;
Tcoba1=class(Tcoba)
private
Fjumlah:integer;
published
function getjumlah: integer;override;
procedure Setjumlah(const Value: integer);override;
function gethitung:integer;override;

property hitung:integer read gethitung;

end;
Tcoba2=class(TCoba)
private
Fjumlah:integer;
published
function getjumlah: integer;override;
procedure Setjumlah(const Value: integer);override;
function gethitung:integer; override;
property hitung:integer read gethitung;
end;

TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure Tcoba1.Setjumlah(const Value: integer);
begin
Fjumlah:=value;//menyimpan nilai Fjumlah
end;

function Tcoba1.getjumlah: integer;
begin
result:=Fjumlah; //mendapatkan hasilnya
end;
function Tcoba1.gethitung: integer;
begin
result:=jumlah+1;
end;
procedure Tcoba2.Setjumlah(const Value: integer);
begin
Fjumlah:=value;//menyimpan jumlah
end;
function Tcoba2.getjumlah: integer;
begin
result:=Fjumlah;//di baca hasilnya
end;
function Tcoba2.gethitung: integer;
begin
result:=jumlah+2-1;
end;

procedure TForm1.FormCreate(Sender: TObject);
var coba1:Tcoba;
coba2:Tcoba;

begin

coba1:=Tcoba1.Create;
coba1.jumlah:=5;
showmessage(inttostr(coba1.hitung));
coba2:=Tcoba2.Create;
coba2.jumlah:=5;
showmessage(inttostr(coba2.hitung));
end;

end.

Properties

2009-10-15T09:57:00.001-07:00

Di Object Inspector delphi anda, ada dua tab yang berisi properties dan event. Kali ini saya akan membahas mengenai properties dan bagaimana cara membuatnya.

Tidak semua properties di komponen bersifat published yang artinya bisa langsung di object inspector. Kadang-kadang kita membutuhkan property dengan scope public yang artinya kita harus menulisnya di code editor. Property dengan scope public ini biasanya hanya dapat di baca saja(meskipun tidak selalu). Contoh property yang bersifat public adalah property State di class Tdataset dan turunannya(Tquery,Tadodataset,Tclientdataset dan lain sebagainya).

Agar anda dapat lebih memahami langsung mengenai properties di Delphi, sekarang kita praktek langsung cara membuat property.

Klik 2 kali form anda dan taruh kode berikut
type
Tsimbahproperty=class
private
Fmakan:string;

protected
procedure Setmakan(nilai:string);virtual;
property makan:string read Fmakan write Setmakan;

end;
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

Sekarang ketik kode berikut di bagian bawah implementasi:

procedure Tsimbahproperty.Setmakan(nilai: string);
begin
showmessage(‘Simbah makan ‘+nilai);
end;

Berikutnya tulis syntak berikut saat event oncreate di form anda:

procedure TForm1.FormCreate(Sender: TObject);
var
Simbah:Tsimbahproperty;
begin
Simbah:=Tsimbahproperty.Create;
simbah.makan:='Ayam';

end;
Hasilnya: Simbah makan ayam

Mungkin anda bertanya mengapa field Fmakan tidak di gunakan? Ini karena saya mengajarkan penulisan property yang dengan method write. Property method write? Apa artinya?

Artinya penyebutan property itu di sebelah kirinya dan isi nilai property di sebelah kanannya. Contoh Edit1.text:=’amir’;
Berbanding terbalik dengan property method read. Property dengan method read di gunakan ketika kita membuat persamaan, yang mana isi persamaan itu mengambil nilai tersebut. Saya ambilkan contoh:caption:=Edit1.text;
Edit1.text itu di baca oleh property Caption di form, dan property Caption di form itu gantian melakukan method write.

Sekarang kita kembali pada contoh di atas. Anda lihat procedure Setmakan. Saat nilai property di isikan, maka parameter di atas juga di isi dengan nilai tersebut.
Jadi saat anda mengisi Simbah.makan:=’Ayam’, maka secara implisit di program anda melaksanakan Simbah.Setmakan(‘Ayam’);

Passing parameter di method write di Delphi tidak boleh bersifat var atau out melainkan harus bersifat by Value atau Const(lihat tulisan saya mengenai passing parameter). Jika anda memaksakannya pasti errornya begini: [Error] Unit1.pas(16): Property setters cannot take var parameters.

Berikutnya saya akan menjelaskan property dengan method read. Coba buka kembali program anda dan ketik kode berikut di bawah procedure TSimbahproperty.Setmakan:

Fmakan:=nilai;

Tambahkan juga di Event Oncreate program anda kode berikut:

caption:=simbah.makan;

Lihat hasilnya, di Caption form anda membacanya “ayam” bukan? Artinya secara tidak langsung anda membacanya sebagai berikut: Caption:=Simbah.Fmakan.
Persamaan di atas(caption:=Simbah.Fmakan) tidak masalah di panggil di class lain asalkan masih satu unit, tapi bagaimana dengan bila di panggil di unit lain?

Tentu saja anda tidak bisa mengakses property tersebut. Untuk bisa mengaksesnya anda harus menambahi kata public atau published di atas tulisan property makan. Jadi kode program anda menjadi seperti ini:

Tsimbahproperty=class
private
Fmakan:string;

protected
procedure Setmakan(nilai:string);virtual;
published
property makan:string read Fmakan write Setmakan;

end;

Hasilnya, di unit lain anda harus memanggilnya caption:=simbah.makan.

Menampilkan nama tabel di firebird dan mysql

2009-10-09T06:27:00.000-07:00

Nama-nama tabel di firebird tersimpan di dalam metadata(adalah data yang berisi obyek database, misalnya nama tabel, nama view, trigger dan lain-lain) dengan nama tabel rdb$relation_name. Berikut ini querynya:

select rdb$relation_name as nama_tabel from rdb$relations where rdb$view_source is null
and rdb$system_flag=0;

Kolom rdb$relation_name berisi tentang seluruh nama tabel ataupun view baik itu tabel system maupun tabel yang di buat oleh user(kita sendiri).

Kolom rdb$view_source menunjukkan isi dari view bila obyek itu berupa view. Sehingga kalau obyek database yang kita inginkan adalah tabel maka logikanya isi dari kolom rdb$view_source pasti berisi nilai null.

Kolom rdb$system_flag menunjukkan apakah nama obyek itu di buat oleh user sendiri atau dari system.

Untuk tutorial lengkapnya dapat anda kunjungi www.ibphoenix.com, download aja tutorialnya(jadi satu dengan interbase).

Contoh di atas adalah untuk menampilkan tabel di firebird, lalu bagaimana dengan mysql?

Informasi nama tabel di mysql terletak di INFORMATION_SCHEMA.TABLES. Dan berikut ini querynya:

SELECT table_name FROM INFORMATION_SCHEMA.TABLES
WHERE table_schema='nama database anda' and TABLE_TYPE='BASE TABLE'

Replikasi MysSQL di Windows

2009-10-09T06:24:00.000-07:00

Replikasi adalah duplikasi data dari database sumber dalam hal ini disebut master ke database lainnya atau juga disebut slave dalam suatu jaringan. Tujuan replikasi adalah untuk mengurangi beban dari server dalam pengaksesan data untuk dibagi ke komputer-komputer lain. Replikasi bersifat asynchronize yang artinya seumpama komputer master dan komputer slave disconnect lalu tersambung lagi maka data di master tidak secara otomatis diupdate ke slave semua. Jadi untuk mensinkronkan datanya anda harus melalui perintah manual. Hal itu berbeda dari teknologi MySQL Cluster dimana duplikasi datanya bersifat synchronize, sayangnya teknologi ini tidak ada di Windows.

Berikut akan saya terangkan cara replikasi

Untuk Master
Taruh konfigurasi berikut ini di file my.ini mysql anda di bawah section mysqld

server-id = 1
log-bin=mysql-bin

masuk ke prompt mysql anda dan ketik perintah reset master

untuk slave
stop servicenya mysql di komputer slave taruh konfigurasi seperti ini di file my.ini dibawah section mysqld

server-id=2
master-host=nama komputer master anda
master-user=user di komputer master anda
MASTER-PASSWORD=password di komputer master anda
replicate-do-db=database yang di replikasi, bersifat optional

Start lagi service mysqlnya. Selanjutnya masuk ke prompt Mysql dan ketik perintah: start slave.
Tampilkan status slave anda dengan mengetik perintah: show slave status\G

Jika pada kolom Slave_IO_Running dan Slave_SQL_running isinya yes semua maka replikasi telah berhasil. Tapi tunggu dulu, setelah replikasi berhasil, coba sering-sering di cek status slave nya. Jika di kolom Last_Error ada errornya berarti replikasi anda gagal lagi. Nah, berikut akan saya terangkan mengenai error yang mungkin terjadi berdasar pengalaman:

Error 'Definer is not fully qualified' on query. Default database: bla-bla-bla

Ini karena terjadi masalah trigger di tabel anda. Error ini biasanya dijumpai jika anda menggunakan mysql baik di master atau di slave versi 5.018 ke bawah. Ini merupakan bug di mysql di versi tersebut, saran saya supaya tidak pusing-pusing anda bisa mengupgrade versi mysql anda terutama yang digunakan untuk slave. Dalam hal ini versi mysql di slave harus lebih tinggi dari komputer master.

Memanggil stored procedure mysql di Delphi

2009-10-09T06:19:00.000-07:00

Untuk memanggil stored procedure apapun database anda dapat dilakukan dengan mudah. Cukup dengan method execute(sesuaikan dengan engine database yang anda gunakan di delphi) di ikuti dengan call lalu isi parameternya(bila ada)

Untuk ADOConnection:
adoconnection1.Execute('call testproc('+
inttostr(6) + ')');

BDE
database1.Execute('call testproc('+
inttostr(5) + ')');

Dbexpress
SQLConnection1.Executedirect('call testproc('+
inttostr(6) + ')');

Membuat teks berganti-ganti

2009-10-09T06:11:00.000-07:00

Berikut saya berikan tips membuat teks berjalan seperti iklan TV. Koneksi yang saya pakai adalah dbexpress dengan database firebird):

1.Deklarasikan dulu variabel array dinamis dan variabel counter di scope global(di bawah tulisan var Form1:Tform1)

contoh:
var
Form1: TForm1;
arrpelanggan:array of string;
counter:integer;

2.Tambahkan komponen timer di form anda dan ubah property enabled nya menjadi false.

3.Ketik perintah berikut saat Form show

procedure TForm1.FormShow(Sender: TObject);
var i:integer;
begin
label1.left:=0;
label1.caption:=’’;
CPELANGGAN.Close;
CPELANGGAN.Open;
counter:=-1;
i:=0;
setlength(arrpelanggan,cpelanggan.RecordCount);
while not cpelanggan.Eof do begin
arrpelanggan[i]:=cpelanggannama.Value;//simpan dulu nama pelanggan di array dinamis.
cpelanggan.Next;
inc(i);
end;
if cpelanggan.recordcount>0 then
timer1.Enabled:=true;

end;

*cpelanggan adalah nama komponen dari TClientdataset

4. Saat OnTimer ketik perintah berikut:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(counter);
if counter=cpelanggan.RecordCount then counter:=0;
label1.Caption:=arrpelanggan[counter];
label1.Left:=label1.Left +18;//geser kira-kira 5 mili(setiap 18 pixel lebih kurang adalah 5 milimeter).
if label1.Left >width then label1.Left:=0;
end;

Kode lengkap:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Provider, SqlExpr, DBXpress, ExtCtrls, StdCtrls, DB, DBClient,
DBLocal, DBLocalS;

type
TForm1 = class(TForm)
cpelanggan: TSQLClientDataSet;
SQLConnection1: TSQLConnection;
Label1: TLabel;
Timer1: TTimer;
cpelangganIDPELANGGAN: TIntegerField;
cpelangganKODE: TStringField;
cpelangganNAMA: TStringField;
cpelangganALAMAT: TStringField;
cpelangganPHOTO: TMemoField;
procedure FormShow(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }

public
{ Public declarations }
end;

var
Form1: TForm1;
arrpelanggan:array of string;
counter:integer;
implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var i:integer;
begin
CPELANGGAN.Close;
CPELANGGAN.Open;
counter:=-1;
i:=0;
setlength(arrpelanggan,cpelanggan.RecordCount);
while not cpelanggan.Eof do begin
arrpelanggan[i]:=cpelanggannama.Value;
cpelanggan.Next;
inc(i);
end;
if cpelanggan.recordcount>0 then
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(counter);
if counter=cpelanggan.RecordCount then counter:=0;
label1.Caption:=arrpelanggan[counter];
label1.Left:=label1.Left +18;
if label1.Left >width then label1.Left:=0;
end;

end.

Itu adalah contoh sederhana dari saya, variasinya terserah anda. Sebagai catatan saja
trik ini tidak dapat berjalan bila anda menggunakan MDIForm(saya sendiri tidak tahu penyebabnya).

Looping di Stored Procedure/triggers di MySQL

2009-10-09T06:09:00.000-07:00

Ada beberapa statement yang berkaitan dengan perulangan yaitu: REPEAT sampai END REPEAT,
WHILE sampai END WHILE dan LOOP sampai END LOOP.

Bentuk perulangan-perulangan itu biasanya dipakai oleh cursor. Kalau anda pernah makai bahasa lain pasti kenal kode seperti ini:

While not tabel1.eof do begin end;(di delphi), for blablabla in tabel1 loop(oracle), while @@fetchstatus=0(SQL Server). Contoh itu adalah bentuk perulangan yang menggunakan cursor. Lalu bagaimana penggunaannya di MySQL?

Di helpnya mysql kalau saya lihat contohnya memang agak membingungkan penjelasan mengenai cursor. Daripada anda pusing lihat contohnya, di artikel ini saya kasih kode sederhana looping cursor di mysql:

create procedure sp_test()
begin
declare mtuntung int;/* deklarasi variabel */
declare ctabel1 cursor for select tuntung from tabel1;/*deklarasi cursor */
declare exit handler for not found begin end;/* pencegahan error, jika record tidak ketemu maka tidak terjadi apa-apa */
open ctabel1; /* membuka cursor(buka tabel) */

loop /* awal perulangan */
fetch ctabel1 into mtuntung; /*bergerak ke record-record dalam cursor */
pernyataan anda;
end loop; /* akhir perulangan */
close ctabel1; /* tutup perulangan */
end;

Trigger di MySQL

2009-10-09T06:05:00.000-07:00

Trigger adalah sebuah database object yang berasosiasi dengan tabel. Artinya bahwa trigger itu bisa ada setelah tabel di buat. Ketika tabel di drop atau di hilangkan maka secara otomatis semua trigger yang melekat di tabel itu juga ikut hilang.

Berikut syntak pembuatan trigger

CREATE [DEFINER = { user | CURRENT_USER }]
TRIGGER nama_trigger waktu_trigger nama_kejadian ON nama_tabel
FOR EACH ROW BEGIN
isi trigger

END
contoh:

CREATE TRIGGER tabel2_after_ins_tr AFTER INSERT ON tabel2
FOR EACH ROW
BEGIN
insert into table1(a) values(new.a);

END;

Untuk tanda yang di beri kurung kotak(DEFINER = { user | CURRENT_USER }) adalah opsional yang artinya boleh di pakai boleh juga tidak. Jika tidak di pakai maka secara otomatis defaultnya adalah DEFINER=CURRENT_USER. Jadi berdasar contoh di atas maka sintaknya berubah seperti ini:

CREATE DEFINER=CURRENT_USER TRIGGER ( selanjutnya idem seperti di atas)

Anda dapat mengganti definer=current_user menjadi definer=nama_user@nama_komputer.
Contoh definer='root'@'localhost'
Jadi sintaknya menjadi begini:

Create definer='root'@'localhost' trigger ( selanjutnya idem seperti di atas)

Lalu apa bedanya definer=current_user dengan definer=nama_user@nama_komputer?

Perbedaannya menyangkut hak akses privelegenya. Misal jika si user root itu tidak mempunyai hak menginsert tabel maka saat anda login menggunakan user tersebut kemudian trigger tersebut aktif dan di trigger tersebut ada perintah memasukkan data ke tabel lain maka otomatis ia gagal dan terjadi error. Berbeda dengan definer=current_user, ia tetap berhasil memasukkan data ke tabel lain meskipun si user root itu tidak punya hak menginsert tabel.

Waktu trigger dapat di bedakan menjadi dua yaitu before dan after. Sedangkan event trigger dapat di bedakan menjadi 3 yaitu:

insert: Terjadi ketika ada penambahan baru melalui pernyataan insert, load maupun replace
update: Terjadi ketika ada modifikasi data melalui pernyataan update.
Delete: Terjadi ketika ada penghapusan data melalui pernyataan delete maupun replace.

Bila anda akan mengompilasi trigger untuk insert tabel dan ada pernyataan yang melibatkan field tabel tersebut, anda di wajibkan menyertakan klausa new, artinya anda di haramkan menambah klausa old.
Misal: insert into tabel1(a) values(new.a) atau update tabel1 set a=new.a where b=new.b. Jadi tidak boleh menjadi begini: insert into tabel1(a) values(old.a)

Hal ini berbeda dengan saat update tabel, anda dapat menyertakan kedua klausa tersebut baik new dan old. Misal: Update tabel1 set a=new.a where b=old.b;

Kebalikannya dengan delete, anda di haramkan menambahkan klausa new dan di wajibkan menggunakan klausa old.

Mungkin anda berpikir apa bedanya trigger itu aktif saat sebelum dan sesudahnya, misal before insert di bandingkan dengan after insert, before update dengan after update dan before delete dengan after delete, dan bagaimana seharusnya di gunakan?

Jika event trigger itu insert atau update, before sangat berguna untuk merubah data yang akan masuk di tabel yang ditumpangi trigger itu sendiri. Contoh sintak: if new.a='mbahdien' then new.b=2000 else new.b=0;

Sedangkan after berguna bila berurusan dengan penambahan ataupun modifikasi data di tabel lain.

Bila event trigger itu terjadi pada saat delete,before berguna untuk memasukkan data yang akan di hapus ke tabel lain. Sedangkan after berguna untuk menghapus data di tabel lain.

Kalau di software database lain macam Oracle, Firebird, SQL Server dll, object trigger ini dapat kita manfaatkan validasi yaitu dengan membuat pernyataan exception namun tidak demikian di mysql bahkan untuk versi terbaru sekalipun. Saya tidak tahu sebabnya apa, mungkin biar beda dengan yang lain kali.

Passing parameter dalam method/fungsi di Delphi

2009-10-08T16:35:00.000-07:00

Bagi anda yang masih baru di Delphi mungkin masih agak bingung membedakan passing parameter, apakah mau pakai const, by value atau mungkin by reference(menggunakan var) dan out . Lalu apa bedanya?

Berikut ini adalah contoh penggunaan parameter dengan tipe const:
Tambahkan metod ini di bagian private.

procedure test(const t:integer);

Tulis lagi di bagian implementation.

procedure Tform1.test(const t:integer);
begin
if t=5 then
begin
showmessage(inttostr(t));
end;

end;

Jalankan procedure di atas, misalnya saat event onclick:

procedure TForm1.Button1Click(Sender: TObject);
begin
test(5);
end;

Kompile program tersebut. Berhasil bukan? Sekarang akan saya contohkan passing parameter menggunakan by value.
Tambahkan metod ini di bagian private.

procedure test(t:integer);

Tulis lagi di bagian implementation.

procedure Tform1.test(t:integer);
begin
if t=1 then
begin
showmessage(inttostr(a));
t:=2;
showmessage(inttostr(t));
end;

end;

Jalankan procedure di atas dengan memberi perintah test(1)(mau event apa terserah).
Tampak tampil pesan 2 kali, yang pertama menampilkan “1” dan yang kedua menampilkan “2”.

Sekarang ganti tambahkan kata const dalam method yang kedua tersebut. Jadi sintaknya begini:

procedure Tform1.test(const t:integer);
begin
if t=1 then
begin
showmessage(inttostr(a));
t:=2;
showmessage(inttostr(a));
end;

end;
compile program tersebut. Pasti errornya begini: “[Error] Unit1.pas(32): Left side cannot be assigned to”.

Dari contoh di atas, kita dapat menyimpulkan bahwa nilai dengan tipe parameter const tidak dapat diubah pada saat method di jalankan(hanya dapat di baca saja), tapi tidak dengan by value.

Berikutnya kita akan pelajari passing parameter dengan menggunakan var

procedure TForm1.test(var t: integer);
begin
if t=1 then
begin
showmessage(inttostr(t));
t:=2;
showmessage(inttostr(t));
end;
end;

Saat kita mengisi parameter dengan tipe var tersebut maka kita terlebih dahulu harus mendeklarasikan variabel terlebih dahulu. Lihat di bawah ini:

procedure TForm1.Button1Click(Sender: TObject);
var m:integer;
begin
m:=1;
test(m);
caption:=inttostr(m);
end;

Jalankan program anda, lihat caption form berubah jadi “2” bukan. Hal ini berbeda jika passing parameter by value, caption form anda adalah “1” bukan “2”

Untuk passing parameter out, mirip dengan var, hanya saja out lebih sering digunakan untuk distributed-object models seperti COM and CORBA. Di samping itu passing parameter out sebaiknya digunakan saat melewatkan variabel yang tidak ada inisialisasinya.

Memasukkan/upload foto atau gambar ke tabel di MySQL

2009-10-07T09:43:00.000-07:00

Bila anda ingin memasukkan gambar/foto ke dalam tabel di Mysql, rencanakan dulu berapa maksimal ukuran gambar yang akan anda upload. Hal ini berguna untuk :

1 Menentukan tipe data
2 Menentukan maksimal packet size(max_allowed_packet).

Tipe data yang cocok untuk foto atau gambar adalah BLOB. Tapi kalau ukuran gambar anda cukup besar saya sarankan memakai tipe data LONG BLOB. Sedang untuk setting di Mysql anda, anda harus menambah opsi berikut

Ketik opsi ini di file my.ini Mysql anda:

[mysql]
max_allowed_packet=32M

[mysqld]
max_allowed_packet=32M

Restart server anda.

Secara default max_allowed_packet di sisi client(mysql) adalah 16 M sedang di sisi server(mysqld) adalah 1M.

Mengapa max_allowed_packet ini harus di rubah?

Hal ini untuk menghindari problem error yang bunyinya “MySQL server has gone away” akibat packet data yang anda kirimkan terlalu besar.

Terus bagaimana dengan setting di Delphi?

Di Delphi, baik itu tipe data BLOB, MEDIUM BLOB ataupun LONG BLOB secara otomatis di konversi ke dalam Tblobfield. Untuk memasukkan gambar anda dapat menggunakan method loadfromfile dari class TBLObfield. Agar anda lebih jelas lihat sintak berikut:

if od.Execute then
begin
if not(cgambar.State in [dsinsert,dsedit]) then cgambar.Edit;
cgambarphoto.LoadFromFile(od.FileName);
cgambarpath.Value:=od.FileName;
cgambar.Post;

end;

od adalah nama untuk component openDialog
Cgambar adalah nama untuk component clientDataset

Untuk menampilkan gambarnya bila itu single data(maksudnya tidak melalui grid) anda dapat menginstal komponen EDBImage(cari di google, gratis) Komponen ini mempunyai kelebihan bisa menampilkan gambar dari file yang berekstensi jpg atau jpeg, serta tipe file berekstensi lainnya.

Eksport Import Data dari dan ke Excel

2009-10-07T09:37:00.000-07:00

Berikut akan saya berikan kode untuk Eksport dan import data dengan Delphi:

Ekport tabel ke Excel

Tambahkan uses ComObj di unit anda, kemudian
buat tabel didatabase anda misalnya namanya tabel1 dengan fieldnya masing-masing diberi nama field “a” dan field “b”.
Aktifkan dataset anda, terserah anda pakai koneksi apa(kalau saya kebiasaan pakai dbexpress. Kemudian ketik perintah berikut:

procedure TForm1.Button1Click(Sender: TObject);
var v:Variant;
i:integer;
begin
with sqlclientdataset1 do begin
close;
open;
end;

try
v:=createoleobject('excel.application');
v.workbooks.add;

i:=1;
while not sqlclientdataset1.Eof do begin
v.cells.RANGE['A'+INTTOSTR(I)]:=SQLCLIENTDATASET1A.AsString;
V.CELLS.RANGE['B'+inttostr(i)]:=sqlclientdataset1b.AsString;
sqlclientdataset1.Next;
inc(i);
end;
v.visible:=true;
except
on e:exception do begin
v:=null;
end;
end;

Keterangan:
V:=null adalah untuk mengantisipasi seumpama di komputer anda tidak ada aplikasi excel.

Import dari tabel ke excel.

Untuk import dari excel ke tabel database perintahnya sangat mudah. Berikut akan saya berikan contohnya(jangan lupa uses ke Comobj juga dulu).

Tambahkan komponen opendialog di project anda, kemudian ketik perintah berikut ini:

procedure TForm1.Button2Click(Sender: TObject);
var v:Variant;
i:integer;
begin
if opendialog1.Execute then
begin

try
v:=createoleobject('excel.application');
v.workbooks.open(opendialog1.FileName);
i:=1;
while vartostr(v.cells.range['a'+inttostr(i)])<>'' do
begin
sqlconnection1.ExecuteDirect('insert into tabel1(a,b) values('+
quotedstr(vartostr(v.cells.range['a'+inttostr(i)])) +
','+
quotedstr(vartostr(v.cells.range['b'+inttostr(i)])) + ')');
inc(i);
end;
v.quit;
//optional
with sqlclientdataset1 do begin
close;
open;
end;
except
on e:exception do begin
raise exception.Create(e.message);
end;
end;
end;
end;

Initialization dan Finalization

2009-10-07T09:32:00.000-07:00

Initialization adalah suatu bagian dari delphi yang digunakan saat start-up aplikasi. Secara lebih lanjut dapat saya terangkan bahwa ketika anda menjalankan program pertama kali, maka perintah-perintah di section ini akan di panggil dulu sebelum perintah lainnya.

Perintah di section ini bukan hanya jalan saat runtime aja, tetapi juga saat di kompile. Itu sudah saya buktikan sendiri ketika saya mengkompile komponen yang saya buat.

Untuk lebih jelas lagi, saya masih punya contoh aplikasi. Aplikasi ini saya cuplikkan dari buku kesayangan saya Pemograman Delphi karangan Kusnassriyanto Syaiful Bachri dan Wawan Sachriyanto (buku ini cuukup bagus untuk bahan referensi).

Panggil menu File-New Other

Pada page New, pilih Console Application dan tekanOk

Kemudian pilih File-New-Unit sebanyak 3 kali sehingga kita memiliki sebuah program utama dan tiga buah unit. Untuk masing-masing unit ketikkan program berikut:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils,
Unit1 in 'Unit1.pas',
Unit2 in 'Unit2.pas',
Unit3 in 'Unit3.pas';

begin
{ TODO -oUser -cConsole Main : Insert code here }

writeln('Program utama');
end.

unit Unit1;

interface
uses unit2,unit3;
implementation
initialization
writeln('inisialisasi unit1');
finalization
writeln('finalisasi unit1');

end.

unit Unit2;

interface
uses unit3;
implementation
initialization
writeln('Inisialisasi unit2');
finalization
writeln('Finalisasi unit2');

end.

unit Unit3;

interface

implementation
initialization
writeln('Inisialisasi unit3');
finalization
writeln('Finalisasi unit3');
end.

Compile program tersebut dan jalankan melalui DOS.

Hasilnya:
Inisialisasi unit3
Inisialisasi unit2
Inisialisasi unit1
Program utama
Finalisasi unit1
Finalisasi unit2
Finalisasi unit3

Cannot make a visible window modal

2009-10-07T09:29:00.000-07:00

Pernahkah anda mengalami error tersebut di atas? Berikut kemungkinan-kemungkinan yang menimbulkan error tersebut:

- Nilai Property visible di form yang akan di showmodal adalah true.

Secara default saat design time, nilai property visible di form anda adalah false. Jadi anda cek dulu apakah nilai property visible di form anda apakah false atau true. Jika true ganti dengan false.

- Nilai property Formstyle adalah fsMDIChild. Ganti dengan FSNormal3.
- Nilai property Enabled di form modal anda adalah false. Ganti dengan true

Hapus beberapa baris di dbgrid

2009-10-07T09:25:00.000-07:00

Hapus beberapa baris di dbgrid

Untuk menghapus beberapa baris di dbgrid anda bisa tidak menuliskan kode apapun, cukup memasukkan opsi dgmultiselect di property options dbgrid. Saat running taruh kursor mouse di dbgrid tersebut sambil tekan tombol Ctrl. Anda akan melihat bahwa di sisi kiri dbgrid gambar indikatornya berubah dari semula segitiga hitam semua menjadi segitiga bergaris ganda. Terus untuk cara hapusnya adalah dengan menekan Ctrl+delete. Lalu bagaimana jika kalau anda ingin menghapus dengan menekan tombol klik.

Berikut adalah kodenya:

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin

for i:=0 to dbgrid2.SelectedRows.Count -1 do begin

dbgrid2.SelectedRows.Delete;
end;
end;

Jangan lupa untuk menyertakan dgmultiselect di property options DBGrid anda.

Directive Reintroduce

2009-10-07T09:19:00.000-07:00

Directive reintroduce hanya berfungsi untuk menyembunyikan compiler warnings karena ada method yang sama antara class dari moyangnya dan class turunannya serta, Sedangkan method yang di sembunyikan itu harus bersifat virtual(virtual method)

Contoh:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
Tibu=class
procedure memasak;virtual;
end;
Tanak=class(Tibu)
procedure memasak;reintroduce;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ Tibu }

procedure Tibu.memasak;
begin
showmessage('Ibu memasak');
end;

{ Tanak }

procedure Tanak.memasak;
begin
inherited;
showmessage('Anak memasak');
end;
procedure TForm1.Button1Click(Sender: TObject);
var anak:Tanak;
begin
anak:=Tanak.Create;
anak.memasak;

end;
end.

Compile program tadi, tampak tidak ada compiler warning di project anda. Coba hilangkan kata reintroduce pasti akan muncul pesan begini:

[Warning] Unit1.pas(14): Method 'memasak' hides virtual method of base type 'Tibu'

Record Not Found or Changed by Another User

2009-10-05T08:26:00.000-07:00

Buat tabel dengan perintah sebagai berikut:

CREATE TABLE `coba` (
`id` int(11) NOT NULL auto_increment,
`jumlah` double(15,3) default '0.000',
`jumlah1` double(15,3) default '0.000',
`a` varchar(20) default NULL,
`b` varchar(20) default NULL,
PRIMARY KEY (`id`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;

Koneksikan ke Delphi dengan komponen TclientDataset

Isi data sebagai berikut:

Field Id diisi dengan nilai 1 atau terserah anda, untuk field lainnya tidak usah diisi. Simpan dengan perintah applyupdates(0).

Sekarang edit data anda dan ganti isian data tersebut di sembarang field. Berikan perintah applyupdates(0) lagi.

Berikan perintah ini di event onReconcileerror komponen clientdataset anda:

Showmessage(e.message);//jangan lupa untuk menambahkan uses dialogs.

‘Record Not Found or Changed by Another User’, itulah error yang muncul. Untuk mengatasinya beri saja nilai 0 saat onNewrecord pada field jumlah dan jumlah1.

Apakah ada sebab lain error tersebut muncul?

Buka aplikasi anda sekaligus 2 atau lebih. Sekarang edit data anda di aplikasi 1 dan simpan. Lakukan langkah yang sama untuk aplikasi 2. Error tersebut muncul lagi bukan?

Cara mengatasinya adalah jangan membuka 2 dataset yang sama oleh 2 user sekaligus atau anda bisa juga memberikan perintah untuk merefresh data seperti contoh:

With clientdataset1 do begin
Close;
Open;
End;

Error Truncate Incorrect Double Value

2009-10-04T07:47:00.001-07:00

Di Indonesia umumnya format desimal adalah koma yang dalam hal ini berbeda dengan format standar internasional yang menggunakan titik. Error tersebut timbul karena perbedaan format desimal tersebut.

Jika di setting regional options anda menggunakan format Indonesia maka di Delphi untuk tipe data extended atau double otomatis format desimalnya adalah koma. Dan hal ini menimbulkan masalah saat memasukkan data ke tabel karena Delphi tidak bisa secara otomatis mengkonversi format tersebut menjadi titik.

Bagaimana cara mengatasi hal tersebut?

Ketik di bagian inisialitazion aplikasi anda kode sebagai berikut:

Setlocaleinfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SDECIMAL,'.');
DecimalSeparator:=',';//perintah ini diperlukan agar tampilan format desimalnya tetap koma. Jika di hilangkan maka tampilan simbol desimalnya berubah menjadi titik.

Sekarang lihat di setting regional options windows anda, simbol desimalnya telah berubah menjadi titik. Agar masih tetap koma, kita balik saja dengan menuliskan kode berikut di bagian finalization:

Setlocaleinfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SDECIMAL,',');

Penggunaan Lookup dalam Dataset

2009-10-03T10:17:00.000-07:00

Secara internal di Delphi, ada komponen yang bisa berfungsi sebagai lookup yaitu TDBLookupCombobox. Jika anda bekerja dengan grid, otomatis Field-field lookup yang telah anda buat, di kolom DBGrid akan tampil komponen yang mirip dengan Combobox.

Field lookup ini sebenarnya mempunyai keterbatasan yakni hanya mampu menampilkan 20 karakter, sehingga bila anda ingin menampilkan data bertipe string yang panjangnya lebih 20 karakter maka otomatis akan terpotong. Untuk mengatasi keterbatasan itu anda dapat mengunduh komponen VolgaDBgrid di sini. Komponen tersebu mempunyai kemampuan banyak dan lumayan komplet.. Bila anda ingin tampilan checkbox di DbGrid anda juga bisa menggunakan komponen tersebut. Berikut contoh aplikasi Field Lookup.

http://delphirewo.blogspot.com/2010/03/membuat-aplikasi-penjualan-sederhana.html

Membangun Nested Dataset

2009-10-03T10:16:00.000-07:00

Nested dataset atau dataset bertingkat diperlukan untuk menghubungkan data di tabel induk dengan data di tabel anak(Master Detail).

Penggunaan nested dataset ini harus hati-hati, karena bila data yang diakses dalam jumlah banyak atau besar maka otomatis retrieve datanyapun berjalan lambat. Berikut contoh aplikasi Nested dataset:

Membangun Dataset dengan DBExpress

2009-10-03T10:15:00.000-07:00

Ada beberapa komponen DBExpress yang digunakan untuk meretrieve data di antaranya adalah TSQLDataset, TSQLQuery dan TSSQLTable. Ketiga komponen tersebut bersifat unidirectional. Karena bersifat unidirectional itulah kedua komponen tidak dapat langsung dihubungkan ke Data Aware melalui Tdatasource. Dan misalkan anda memaksa untuk menghubungkan maka akan terjadi error berikut:

“Operation not allowed on a unidirectional dataset”

Karena bersifat unidirectional itulah maka diperlukan komponen Tclientdataset yang dihubungkan dengan TdatasetProvider.

Berikut adalah contoh aplikasi untuk menampilkan data di mysql lengkap dengan fungsi tambah, edit dan hapusnya.

Membangun Koneksi Database MySQL di Delphi dengan DBExpress

2009-10-03T10:13:00.000-07:00

Tutorial ini diperuntukkan bagi khusus pemakai Mysql 5.0 ke atas. Makin terbaru versinya makin baik.

Untuk membangun koneksi ke mysql dengan Dbexpress file yang harus disiapkan adalah dbxopenmysql50.dll, dan anda dapat mencarinya di Google. Setelah itu ikuti langkah berikut:

1. Taruh file dbxopenmysql50.dll di path aplikasi anda atau bisa juga di windows environment
2. Tambahkan kode berikut di file dbxdrivers.ini di folder C:\Program Files\Common Files\Borland Shared\DBExpress

[OpenMySQL50]
LibraryName=dbxopenmysql50.dll
GetDriverFunc=getSQLDriverMYSQL50
VendorLib=libmysql.dll

3. Tambahkan juga kode berikut di file dbxconnections.ini di folder sama seperti di atas
[OpenMySQL50]
DriverName=OpenMySQL50
HostName=localhost
Database=Nama database anda
User_Name=user mysql anda
Password=password mysql anda
BlobSize=-1

4. Langkah selanjutnya adalah membuat datamodule dengan cara klik file-->New--> Data module
5. Taruh komponen TSQLConnection di atas data module dan setting propertiesnya sebagai berikut:

ConnectionName = OpenMySQL50
DriverName = OpenMySQL50
GetDriverFunc = getSQLDriverMYSQL50
LibraryName = 'dbxopenmysql50.dll'
LoginPrompt = False
Params.Strings = (
DriverName=OpenMySQL50
HostName=localhost
Database=test
USER_NAME=root
Password=root'
BlobSize=-1)
VendorLib = libmysql.dll
Connected = True