/usr/bin/blog

Preview hade-framework development

noreply@blogger.com (Fajar Khairil) — Fri, 16 Sep 2011 11:36:14 PDT

target pembaca : Advance

Masih tetap berambisi bikin opf/orm framework sendiri cari referensi sana sini,bahkan sampai 2 kali redesign , sekarang saya sudah cukup yakin dengan designnya.
Sekarang hade-framework sudah mampu menjalankan tugas dasarnya :D mari saya contohkan penggunaannya.

- Pertama yang anda lakukan adalah membuat Bussines Objectnya yang merupakan turunan dari THadeObject



uses

     hadeobject;

Type

    TTest = class(THadeObject)

    private

       FAge: integer;

       FLName: string;

       FName: string;

    public 

       function Full_Name : String;

    published  

       property First_Name: string read FName write FName;

       property Last_Name: string read FLName write FLName;

       property Age: integer read FAge write FAge;

    end;

Property yang ingin di mapping harus berada pada published section, property yang berada pada published section juga tidak harus di mapping ke schema database.
semisal anda hanya ingin First_Name dan Last_Name saja yang di mapping anda tidak perlu meremove property Age.

- Langkah berikutnya adalah melakukan Register Mapping ( uses unit hademapping ).


    GHadeMappingManager.RegisterMapping(TTest, 'person', 'OID', 'oid',
      ftInteger, 0, [ptkPK, ptkReadOnly]);

    GHadeMappingManager.RegisterMapping(TTest, 'person', 'Name',
      'first_name', ftVarchar, 25);

    GHadeMappingManager.RegisterMapping(TTest, 'person', 'Age', 'age', ftInteger);

    GHadeMappingManager.RegisterMapping(TTest, 'person', 'Last_Name',
      'last_name', ftVarchar, 25);

GHadeMappingManager adalah singleton function lebih detil bisa dilihat hademappingmanager.pas
interface dari RegisterMapping adalah


procedure RegisterMapping(const AObjClass: THadeObjectClass;
      const ATable, APropName, AColName: string; const AFieldType: THadeFieldType;
      const ALength: integer = 0; const ASetPtkInfo: TSetPtkInfo = []);

- Selanjutnya Register Connection ( uses unit hadeopfmanager,hadebroker )


    GHadeOPFManager.RegisterConnection('test', 'test.s3db',
      '', '', '', SQLDB_SQLITE);
    GHadeOPFManager.OIDStrategy := oidAutoInc;

code diatas berarti "Registrasikan koneksi dengan nama 'test' , 'nama DB','Host','username','password' dengan menggunakan broker SQLLite"

anda bisa mempunyai lebih dari satu koneksi dalam satu applikasi :D .
OIDStrategy := oidAutoInc berarti anda menggunakan PK(Primary Key) dengan strategy AutoIncrement fitur yang tersedia dihampir semua R/DBMS, anda juga bisa menggunakan oidGUID sebagai OIDStrategy, oidGUID menggunakan GUID(Global Unique Identifier) sebagai primary key nya yang disimpan sebagai string.

- Create/Read/Update/Delete Bussines Object
Untuk Melakukan CRUD pada Bussines Object anda harus menggunakan session, mungkin bagi sebagian orang penggunaan session cuma bikin ribet,tetapi sebenarnya penggunaan session sangat powerfull untuk melakukan transaksi,management koneksi dll.


uses
 hadeobject,
 hadeopfmanager,
 hademapping,
 hadession;
//..some code omitted for brevity
var
 MySession : THadeSession;
 obj : TTest;//class TTest yang tadi
begin
 MySession := GHadeSessionFactory('test');//session dengan koneksi 'test'
 obj := TTest.Create(71);//mengeset OID/pk dengan nilai 71
 Try
   MySession.read(obj);//sekarang obj = record di table person dengan OID = 71
   
   //kita update
   obj.First_Name := 'Test Doank';
   obj.MarkDirty;//tandai object ini adalah dirty( kotor dalam artian tidak sama dengan database )  
   MySession.save(obj);//sekarang record dengan OID 71 sudah terupdate.
end.

untuk melakukan Create(Insert) sangat mudah dan sama seperti operasi update/delete


  //tanpa OID karena oidAutoInc , jika oidGUID tambahkan(uses) unit hadeoid
  //tmp := GHadeOID.getOID.getGUID; dan pass variable tmp ke TTest Constructor
  obj := TTest.create();
  obj.First_Name := 'Test';
  obj.Last_Name := 'Lagi'
  obj.Age := 76;
  MySession.save(obj);//tersimpan

  //untuk Delete cukup tandai object dengan MarkDelete
  obj.MarkDelete();
  MySession.save(obj);// record terhapus

- Transaction
Katakanlah anda mempunyai 2/lebih object yang harus di save(insert/update/delete) yang mana jika salah satu objectnya gagal maka keseluruhan object tersebut harus di rollback.


begin
 MySession.StartTransaction;
 Try
   //save/read operation
 except
   MySession.Rollback;
   //raise again?
 end;
 MySession.Commit;
end.

Session tidak perlu di free secara manual karena THadeSession adalah interface.
anda juga bisa menaruh Session di constructor suatu class dan session akan hidup sepanjang object dari class tersebut hidup.

well tentunya framework ini masih jauh untuk di release saya masih berhati-hati takutnya gagal lagi :D. nanti tak kabarin lagi kalo ada major improvement.

kalo mau ngulik sourcenya bisa di checkout di http://hd-framework.googlecode.com/svn/trunk/ dengan svn client kesayangan anda :D

Thanks happy coding.

Good Object pascal book for beginner

noreply@blogger.com (Fajar Khairil) — Sat, 23 Apr 2011 15:43:55 PDT

Buku berjudul "Start programming using Object Pascal"
sebuah buku bagus dari motaz abdel azeem developer dari sudan,dan juga author dari freespider.
buku ini akan mengajarkan fundamental programming yang kuat untuk pemula,chapter pertama anda tidak akan melihat form designer men drag button lalu menulis code untuk event OnClick button itu :D. tapi anda harus berdarah2 terlebih dahulu memahami basic dari object pascal.
http://code.sd/startprog/index.html

Sepucuk Surat dari Pejuang Hamas (GAZA) Untuk Negeri INDONESIA

noreply@blogger.com (Fajar Khairil) — Sun, 17 Apr 2011 17:39:36 PDT

Untuk saudaraku di Indonesia, mengapa saya harus memilih dan mengirim surat ini untuk kalian di Indonesia. Namun jika kalian tetap bertanya kepadaku, kenapa? Mungkin satu-satunya jawaban yang saya miliki adalah karena negri kalian berpenduduk muslim terbanyak di punggung bumi ini, bukan demikian saudaraku?

Di saat saya menunaikan ibadah haji beberapa tahun silam, ketika pulang dari melempar jumrah, saya sempat berkenalan dengan salah seorang aktivis dakwah dari jama’ah haji asal Indonesia, dia mengatakan kepadaku, setiap tahun musim haji ada sekitar 205 ribu jama’ah haji berasal dari Indonesia datang ke Baitullah ini. Wah, sungguh jumlah angka yang sangat fantastis dan membuat saya berdecak kagum.

Lalu saya mengatakan kepadanya, saudaraku, jika jumlah jama’ah haji asal Gaza sejak tahun 1987 sampai sekarang digabung, itu belum bisa menyamai jumlah jama’ah haji dari negara kalian dalam satu musim haji saja. Padahal jarak tempat kami ke Baitullah lebih dekat dibanding kalian. Wah pasti uang kalian sangat banyak, apalagi menurut sahabatku itu ada 5% dari rombongan tersebut yang memnunaikan ibadah haji yang kedua kalinya, Subhanallah.

Wahai saudaraku di Indonesia,

Pernah saya berkhayal dalam hati, kenapa saya dan kami yang ada di Gaza ini, tidak dilahirkan di negri kalian saja. Pasti sangat indah dan mengagumkan. Negri kalian aman, kaya, dan subur, setidaknya itu yang saya ketahui tentang negri kalian.

Pasti ibu-ibu disana amat mudah menyusui bayi-bayinya, susu formula bayi pasti dengan mudah kalian dapoatkan di toko-toko dan para wanita hamil kalian mungkin dengan mudah bersalin di rumah sakit yang mereka inginkan.

Ini yang membuatku iri kepadamu saudaraku, tidak seperti di negri kami ini. Tidak jarang tentara Israel menahan mobil ambulance yang akan mengantarkan istri kami melahirkan di rumah sakit yang lebih lengkap alatnya di daerah Rafah. Sehingga istri kami terpaksa melahirkan di atas mobil, ya di atas mobil saudaraku.!

Susu formula bayi adalah barang langka di Gaza sejak kami diblokade 2 tahun yang lalu, namun istri kami tetap menyusui bayi-bayinya dan menyapihnya hingga 2 tahun lamanya, walau terkadang untuk memperlancar Asi mereka, istri kami rela minum air rendaman gandum.

Namun, mengapa di negri kalian, katanya tidak sedikit kasus pembuangan bayi yang tidak jelas siapa ayah dan ibunya. Terkadang ditemukan mati di parit-parit, selokan, dan tempat sampah. Itu yang kami dapat dai informasi di televisi.

Dan yang membuat saya terkejut dan merinding, ternyata negri kalian adalah negri yang tertinggi kasus aborsinya untuk wilayah Asia. Astaghfirullah. Ada apa dengan kalian? Apakah karena di negri kalian tidak ada konflik bersenjata seperti kami disini, sehingga orang bisa melakukan hal hina seperti itu? Sepertinya kalian belum menghargai arti sebuah nyawa bagi kami disini.

Memeang hampir setiap hari di Gaza sejak penyerangan Israel, kami menyaksikan bayi-bayi kami mati. Namun, bukanlah di selokan-selokan atau got-got apalagi di tempat sampah. Mereka mati syahid saudaraku! Mati syahid karena serangan roket tentara Israel!

Kami temukan mereka tak bernyawa lagi di pangkuan ibunya, di bawah puing-puing bangunan rumah kami yang hancur oleh serangan Zionis Israel. Saudaraku, bagi kami nilai seorang bayi adalah aset perjuangan kami terhadap penjajah Yahudi. Mereka adalah mata rantai yang akan menyambung perjuangan kami memerdekakan negri ini.

Perlu kalian ketahui, sejak serangan Israel tanggal 27 Desember 2009 kemarin, saudara-saudara kami yang syahid sampai 1400 orang, 600 di antaranya adalah anak-anak kami, namun sejak penyerangan itu pula sampai hari ini, kami menyambut lahirnya 3000 bayi baru di jalur Gaza, dan Subhanallah kebanyakan mereka adalah anak laki-laki dan banyak yang kembar, Allahu Akbar!

Wahai saudaraku di Indonesia,

Negri kalian subur dan makmur, tanaman apa saja yang kalian tanam akan tumbuh dan berbuah, namun kenapa di negri kalian masih ada bayi yang kekurangan gizi, menderita busung lapar. Apa karena sulit mencari rizki disana? Apa negri kalian diblokade juga?

Perlu kalian ketahui saudaraku, tidak ada satupun bayi di Gaza yang menderita kekurangan gizi, apalagi sampai mati kelaparan, walau sudah lama kami diblokade. Sungguh kalian terlalu manja! Saya adalah pegawai tata usaha di kantor pemerintahan HAMAS sudah 7 bulan ini belum menerima gaji bulanan saya. Tetapi Allah SWT yang akan mencukupkan rizki untuk kami.

Perlu kalian ketahui pula, bulan ini saja ada sekitar 300 pasang pemuda baru saja melangsungkan pernikahan. Ya, mereka menikah di sela-sela serangan agresi Israel. Mereka mengucapkan akad nikah diantara bunyi letupan bom dan peluru, saudaraku.

Dan Perdana Menteri kami, Ust Isma’il Haniya memberikan santunan awal pernikahan bagi semua keluarga baru tersebut.

Wahai saudaraku di Indonesia,

Terkadang saya pun iri, seandainya saya bisa merasakan pengajian atau halaqah pembinaan di negri antum (anda). Seperti yang diceritakan teman saya, program pengajian kalian pasti bagus, banyak kitab mungkin yang kalian yang telah baca. Dan banyak buku-buku pasti sudah kalian baca. Kalian pun bersemangat kan? Itu karena kalian punya waktu.

Kami tidak memiliki waktu yang banyak disini. Satu jam, ya satu jam itu adalah waktu yang dipatok untuk kami disini untuk halaqah. Setelah itu kami harus terjun ke lapangan jihad, sesuai dengan tugas yang diberikan kepada kami.

Kami disini sangan menanti-nantikan saat halaqah tersebut walau hanya satu jam. Tentu kalian lebih bersyukur. Kalian punya waktu untuk menegakkan rukun-rukun halaqah, seperti ta’aruf, tafahum, dan takaful disana.

Halafalan antum pasti lebih banyak daripada kami. Semua pegawai dan pejuang HAMAS disini wajib menghapal Surah Al-Anfal sebagai nyanyian perang kami, saya menghafal di sela-sela waktu istirahat perang, bagaimana dengan kalian?

Akhir Desember kemarin, saya menghadiri acar wisuda penamatan hafalan 30 Juz anakku yang pertama. Ia merupakan diantara 1000 anak yang tahun ini menghafal Al-Qur’an dan umurnya baru 10 tahun. Saya yakin anak-anak kalian jauh lebih cepat menghapal Al-Qur’an ketimbang anak-anak kimi disini. Di Gaza tidak ada SDIT (Sekolah Dasar Islam Terpadu) seperti di tempat kalian yang menyebar seperti jamur di musim hujan. Disini anak-anak belajar diantara puing-puing reruntuhan gedung yang hancur, yang tanahnya sudah diratakan, diatasnya diberi beberapa helai daun kurma. Ya, di tempat itu mereka belajar, saudaraku. Bunyi suara setoran hafalan Al-Qur’an mereka bergemuruh dianatara bunyi-bunyi senapan tentara Israel. Ayat-ayat jihad paling cepat mereka hafal, karena memang didepan mereka tafsirnya. Langsung mereka rasakan.

Oh iya, kami harus berterima kasih kepada kalian semua, melihat solidaritas yang kalian perlihatkan kepada masyarakat dunia. Kami menyaksikan aksi demo-demo kalian disini. Subhanallah, kami sangat terhibur. Karena kalian juga merasakan apa yang kami rasakan disini.

Memang banyak masyarakat dunia yang menangisi kami disini, termasuk kalian yang di Indonesia. Namun, bukan tangisan kalian yang kami butuhkan , saudaraku. Biarlah butiran air matamu adalah catatan bukti akhirat yang dicatat Allah sebagai bukti ukhwah kalian kepada kami. Doa-doa dan dana kalian telah kami rasakan manfaatnya.

Oh iya, hari semakin larut, sebentar lagi adalah giliran saya menjaga kantor, tugasku untuk menunggu jika ada telpon dan fax yang masuk. Insya Allah, nanti saya ingin sambung dengan surat yang lain lagi. Salam untuk semua pejuang-pejuang Islam dan ulama-ulama kalian.
Abdullah Al Ghaza

disadur dari : http://adaapasekarang.blogspot.com/2011/04/sepucuk-surat-dari-pejuang-hamas-gaza.html

Configure freepascal Fast CGI application with nginx

noreply@blogger.com (Fajar Khairil) — Fri, 15 Apr 2011 15:45:57 PDT

Berawal dari gak mau pake CGI dan Apache yg boros memory...saya cari2 web server yang ringan dan low memory dan akhirnya pilihan jatuh pada nginx web server.
configure fast cgi di nginx tidak terlalu sulit bahkan lebih mudah dari pada fast cgi di apache, oke lets do it.

Sebagai demo Kita akan memakai contoh CGI application dari lazarus yaitu \components\fpweb\demo\echo . demo ini adalah CGI application tapi dengan mudah kita akan ubah menjadi fast cgi application.
buka echo.lpr dan rubah menjadi sebagai berikut :

program echo;

{$mode objfpc}{$H+}

uses
fpWeb,fpfCGI, wmecho; // <== ubah fpcgi menjadi fpfcgi.

begin
Application.Initialize;
Application.Port:=9090; //<== tambahkan Port , Fast CGI app kita akan listening di port ini.
Application.CreateForm(TEchoModule, EchoModule);
Application.Run;
end.

cool bukan?
sekarang kita buka file configuration dari nginx /conf/nginx.conf
di root http kita tambahkan directive "upstream fastcgi"

    upstream fastcgi {
      ip_hash;
      server 127.0.0.1:9090; //<== address dan port dari fast cgi application
     // kita bisa tambahkan server lain untuk load balancing eg : server
   }

lalu di dalam directive "server" :

location /pas { // <== berarti http://example.com/pas
fastcgi_pass fastcgi; //<== lihat upstream
fastcgi_param SCRIPT_FILENAME /scripts$fastcgi_script_name;
include fastcgi_params;
}

simpan.
fast cgi app kita harus dijalankan terlebih dahulu sebelum ada request ke nginx.
simple double klik fast cgi app td.
lalu reload nginx (nginx -s reload) .pada browser ketik "http://localhost/pas".

viola!!

Referensi :
- Nginx HTTP Server Clément Nedelcu packt Publishing 2010 ISBN 978-1-849510-86-8

hd-framework

noreply@blogger.com (Fajar Khairil) — Mon, 07 Mar 2011 14:07:17 PST

Ceritanya lagi mau bikin OPF(Object Persistent Framework) Framework buat Freepascal/Lazarus.
berikut rencana fitur2nya :
- Multiple Connection (sudah)
- Implement Cache (belum)
- Mapping bisa via Config file atau embed di code.via config file sangat fleksible karena Mapping Attribute ke Column bisa dirubah tanpa Compile ulang (belum)
- banyak lg sih ide2 lainnya.

Tertarik mau bantuin? cekidot http://code.google.com/p/hd-framework/

Marhaban ya Ramadhan :)

noreply@blogger.com (Fajar Khairil) — Tue, 10 Aug 2010 03:32:50 PDT

Marhaban ya Ramadhan Delphier,selamat menunaikan ibadah puasa bagi yang menjalankan :)
Mohon maaf lahir batin..
maaf juga lama gak update blog :D

dayPerpus 2.0 Sistem Informasi Perpustakaan

noreply@blogger.com (Fajar Khairil) — Thu, 24 Jun 2010 18:32:42 PDT

dayPerpus 2.0 Sistem Informasi Perpustakaan

Fitur :
1.Cetak Kartu Anggota

2.Capture Photo via Webcam dan barcode supported. Pengelola perpustakaan bisa menggunakan webcam untuk mengambil Photo Anggota sehingga anggota tidak perlu membawa foto saat mendaftar. Barcode juga bisa digunakan untuk proses peminjaman sehingga mempercepat proses peminjaman buku.

3.Menu ISBN (International Standard Book Number) digunakan sebagai panduan pencatatan buku agar pengindentikasian buku bisa sejalan dengan standar perpustakaan nasional.

4.Pengaturan DENDA yang memungkinkan pengelola perpustakaan mengatur Anggota agar anggota lebih disiplin dalam mengembalikan buku.

5.Otoritas User. Menu yang digunakan untuk proses pengaturan user yang boleh menggunakan program yang dapat diatur sesuai dengan Group atau kelompok pengguna sehingga lebih aman dari proses manipulasi data oleh user yang tidak diberi kewenangan.

6.Backup & Restore database yang mudah sehingga user tidak perlu takut kehilangan data jika terjadi kerusakan pada komputer.

7.Network Supported. dayPerpus dapat digunakan dalam jaringan sehingga bisa digunakan untuk berbagi pakai data perpustakaan dalam satu jaringan komputer.

8.User Friendly

9.dan masih banyak lagi.
Software ini menggunakan Firebird 2.5 sebagai Database nya.
jika ingin menggunakannya dalam jaringan client/server cukup install firebird di komputer servernya saja,lalu dari client tinggal diatur database ke database yang berada di server.

Download
- Manual Penggunaan (Donlot dan baca terlebih dahulu)
- Firebird 2.5
- dayPerpus Setup (Trial 15 hari)

jika berminat silahkan kirim E-Mail ke :
fajar90alone@Gmail.com
harga nanti aja di email /tlp kalo mau
saya tidak menjual source codenya,tapi jika anda tetep kekeuh silahkan kirim e-mail ke saya juga!tapi bayar
update :
beberapa perbaikan
download (hanya exe+readme)

pls compare with this or other

Mendeteksi Memory Leak(Memory Leak Detection)

noreply@blogger.com (Fajar Khairil) — Tue, 29 Jun 2010 23:03:27 PDT

Sebuah Aplikasi yang baik dan kuat/robust application seminimal mungkin harus terhindar dari bug walaupun pastinya no body's perfect,dan satu hal lagi yang menjadi ukuran baiknya sebuah apllikasi adalah tidak memiliki kebocoran memory atau lebih dikenal dengan Memory Leak.saya coba mengulas sedikit apa itu memory leak.

Memory Leak adalah suatu keadaan dimana suatu blok memory yang dialokasikan tp tidak pernah di bebaskan oleh pihak yang bertanggung jawab(program),jika memory yang dialokasikan tidak dibebaskan dari memory,maka akan mengurangi ketersedian memori yang dapat digunakan oleh sistem operasi dan aplikasi lainnya, sehingga apabila terdapat dalam jumlah yang besar, dapat mempengaruhi kinerja sistem operasi dan aplikasi lainnya.

Memory leak murni merupakan kesalahan pembuat program yang ceroboh dan kurang hati – hati dalam merancang / mengembangkan programnya.

Contoh Memory Leak

Contoh Berikut kita akan membuat sebuah memory leak

hanya contoh:

Join yuuk!

noreply@blogger.com (Fajar Khairil) — Thu, 04 Mar 2010 15:00:16 PST

Cuma mau ngajakin aja gabung yuk di group Newbie Programmers tempat kita sharing tentang programming biar lebih asik di pesbuk aja dan jangan lupa invite teman2 anda okeh .dari pada gabung di group add ribuan teman dalam satu detik,atau group ketahui siapa yang melihat profil kita herannya lagi banyak banget orang yang gabung di group kaya gitu -ngakak setengah mateng gw-

so ditunggu oke

Penjaringan Error secara global (Catching Exception)

noreply@blogger.com (Fajar Khairil) — Tue, 02 Mar 2010 18:39:44 PST

Pada saat mengoperasikan windows pasti/mungkin anda pernah mengalami error yang tidak diketahui biasanya windows akan memunculkan sebuah window/jendela/dialog yang bertulisan "sory bla bla bla" lalu ada beberapa buah button kalo gak salah report to microsoft,continue,details>>>.
atau yang aplikasi berbasis web seperti pesbuk dengan kalimat khasnya "maaf terjadi kesalahan,kami akan segera memperbaikinya". dan aplikasi2 lain yang menerapkan "catching exception" atau apalah itu namanya.
to the point aja(~~males nulis~~) berikut ada source code tentang bagaimana menjaring error yang kadang tidak kita duga sebelumnya. silahkan pelajari source codenya.

catching excepton(src+exe)

semoga bermanfaat.

Firebird embeded server

noreply@blogger.com (Fajar Khairil) — Fri, 12 Feb 2010 14:31:17 PST

Firebird embeded server adalah database firebird yang dapat di akses tanpa running service firebird server. firebird embed server ini sangat cocok jika kita mengembangkan aplikasi dengan database firebird yang digunakan untuk satu komputer saja, jadi user tidak perlu menginstall firebird server di komputernya. tapi tidak bisa digunakan untuk arsitektur client-server.

kita hanya perlu mendistribusikan sedikitnya 4 buah File yaitu:

fbembed.dll akan di rename menjadi fbclient.dll.
icuin30.dll.
icudt30.dll.
icuuc30.dll

File-file yang di distribusikan dapat berbeda tergantung versi firebird yang di pakai, contoh pada firebird 1.5 file-file yang diperlukan adalah fbembed.dll dan ib_util.dll . feedreader,Tips Explorer adalah beberapa software yang menggunakan firebird embed server ini.

Untuk mendapatkan fbembed.dll anda bisa mendownloadnya dari sf nya firebird.atau jika anda menggunakan firebird 2.0 anda tidak perlu repot mencarinya karena saya sudah upload fbembed.dll(udah di rename jadi fbclient.dll)+ 3 file yang lainnya.

fbembed.zp(1.20 mb)

Referensi

http://www.firebirdsql.org/manual/fbmetasecur-embedded.html
http://www.firebirdsql.org/manual/ufb-cs-embedded.html

File Wiper (menghapus File secara permanen dan aman)

noreply@blogger.com (Fajar Khairil) — Mon, 25 Jan 2010 21:14:19 PST

File Wiper ini fungsinya sama seperti File shreder atau semacamnya yang tujuannya adalah untuk menghapus File secara permanen dan aman.Program ini adalah hasil modifikasi dari WipeFile 1.0 yang ditulis oleh pak budi sukmawan tepatnya pada artikel beliau yang berjudul "Penghapusan Data Secara Permanen" makasih pak atas sharing ilmunya.

Sebenarnya enggak banyak yang saya rubah,saya hanya merubah Interface dan penambahan context menu handler nya aja.untuk Core code nya saya belum melakukan perubahan mungkin nanti nyusul,masih perlu banyak belajar sama beliau .
pada artikelnya beliau memberikan catatan seperti berikut:

Read more »

1st Aniversarry fajardelphiscript (bonus link download delphi 7 dan delphi 2007)

noreply@blogger.com (Fajar Khairil) — Sun, 07 Mar 2010 17:31:04 PST

Alhamdulilah wasyukurilaah kini blog ini sudah berumur satu tahun tepatnya tanggal 14-January-2010 kemarin,mudah-mudahan apa yang pernah saya tulis di blog ini sedikitnya bisa bermanfaat bagi pembacanya amin.tak ada kata lain selain ucapan terima kasih kepada semua pengunjung yang setia dan tidak setia yang ikut meramaikan blog ini,terimakasih banyak juga untuk pengunjung yang berkomentar(walaupun sedikit)baik positip ataupun negative.

Sampai saat artikel ini diposkan 71 Artikel sudah dimuat di blog ini dari berbagai kategory yang didominasi kategory Tutorial Delphi sesuai tujuan dan Title blog ini.banyak sekali suka dan duka dalam mengarungi dunia perbloggeran ini.kalo boleh jujur pernah ada sedikit rasa cemburu kepada blog lain yang menurut pribadi tidak lebih bermanfaat dari blog ini tetapi mendapat apresiasi lebih dari pembacanya (halagh malah curhat).tapi bagaimanapun juga niat saya hanya ingin berbagi dan mohon dimaafkan jika ada kesalahan penulisan atau apapun dengan tulisan-tulisan saya disini.

Harapan saya kepada blogger indonesia dan kepada diri sendiri postinglah sesuatu yang bermanfaat dan janganlah sekedar menjadikan blog sebagai ajang berburu uang di internet dan seikhlas mungkin berbagi pengetahuan kepada pembaca tanpa mengharap apa pun.Harapan bagi saya sendiri mudah2an saya lebih rajin menulis lagi minta ~~duit~~ eh dukungannya aja ya .

Segala Saran dan Kritik yang membangun sangat saya harapkan.

Mungkin bagi anda yang ingin belajar delphi tetapi tidak mempunyai nya dan sudah mencari kemana-mana tidak ketemu disini saya share 3 buah link download delphi yaitu Turbo delphi explorer,Delphi7 enterprise,dan code gear delphi 2007.bagi yang mendownload Turbo delphi explorer harus mendownload dan menginstall prequisite nya terlebih dahulu. silahkan bagi yang berminat:

-Prequisite for Turbo Delphi or Turbo C++

-Turbo delphi Explorer

(364 MB)

-Delphi 7 Enterprise

(286.44 MB)

-Code Gear Delphi 2007

(4.16 GB)

Semoga bermanfaat.

Form Login dengan username dan password dari database

noreply@blogger.com (Fajar Khairil) — Wed, 13 Jan 2010 08:17:12 PST

Udah cukup lama nih gak bikin tutorial tentang pemrograman delphi,bukan apa2 karena menulis,apa lagi menulis artikel "how to" /tutorial bukan lah hal yang mudah,apa lagi tutorial tentang pemrograman yang implementasi nya bisa sangat luas tergantung dari programmer nya.tidak seperti artikel tentang tutorial blogging,review software dll.

banyak sudah pertanyaan2 via E-mail maupun YM yg menanyakan tentang Login Form dengan username dan password dari database,disarankan searching katanya gak nemu2,mau dijelasin via ym susah,lewat e-mail males nulis.tapi akhirnya ada waktu juga untuk bikin tutorial ini,dan insya allah saya buat agar mudah dipahami ,jika ada kesalahan pada coding/penulisan cmiiw(correct me if i'm worng).

Note:sebelum melanjutkan membaca disarankan membuat segelas kopi hangat dan sebatang rokok,kalo enggak ngerokok buat saya aja ,rileks dan selamat membaca:

Bagaimana Membuat Form Login dengan username dan password dari database
Database yang digunakan dalam contoh ini adalah Ms.Access.
Sebenarnya logika sederhana nya adalah membandingkan input dari user dengan data yang tersimpan pada database jika sama maka form utama muncul,jika salah Form Login akan mereset.
karena dari logika itulah pengimplementasian coding pada program tergantung dari programmer masing-masing.

*Sebelumnya buat database di Ms.Access dengan tabel seperti berikut
Nama Table: login
username    password    status
admin              123456          admin
operator 123456 operator
user                 123456          user
fajar                 delphi            admin
tambahkan berapapun record yang anda mau.

simpan dengan nama data.mdb letakan satu folder dengan file exe.

*Buatlah Desgin Form seperti berikut:

*Tambah kan sebuah Data Module kira2 seperti screen shoot berikut:

disini saya tidak akan menjelaskan masalah pengkoneksian karena saya asumsikan anda sudah mampu mengkoneksikan database.
{Properties name dari masing2 component adalah sama seperti screen shoot data modul.}
*Tambahkan sebuah Form baru dan design lah kira2 seperti berikut:
Ubah status Form2 menjadi available form (Project Options/Shift+Ctrl+F11).

*Now Lets Coding,

Code pada Unit2/Form Login
tambahkan sebuah variable string dan sebuah class procedure:

public
path:string;
class function Execute : word;
end;

Berikut adalah Code Implementasi dari Unit2/Form Login

implementation

uses modul, Unit1;//uses unit1(form utama dan unit data modul)

{$R *.dfm}

{ TForm2 }

class Function TForm2.Execute:word;
begin
with TForm2.Create(nil) do
result:=Showmodal;
end;

procedure TForm2.FormShow(Sender: TObject);
begin{pengkoneksian database}
dm.Con.LoginPrompt:=false;
dm.Con.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+path+'data.mdb;Persist Security Info=False';
dm.Con.Connected:=true;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
Form2:=nil;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin {bandingkan input user dengan data yang terdapat pada database}
with dm.Query do begin
    Close;
    SQL.Clear;
    SQL.Text:='select * from login where username='+quotedstr(edit1.Text);
    Open;
end;{Jika Username ditemukan atau tidak}
if dm.Query.RecordCount = 0 then //jika lenih dari 0 berarti username ditemukan
     showmessage('username tidak ada') //jika tidak ditemukan
else begin{jika username ditemukan}
    if dm.Query.FieldByName('password').AsString <> edit2.Text
      then showmessage('pastikan username dan password benar')
else close;
end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.

Code pada Unit1/Main Form
langsung saja dari section implementation.

implementation

uses modul, Unit2;

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin {selalu memutuskan koneksi setiap program ditutup}
dm.Con.Connected:=false;
end;

procedure TForm1.FormShow(Sender: TObject);
begin{gak usah dijelasin anda pasti paham kan}
label1.Caption:='WELCOME '+dm.Query.fieldbyname('status').AsString;
end;

end.

Pada Unit DataModule karena ini sederhana tidak diperlukan coding.

Belum selesai boss,ini langkah terakhir..dari Unit Project anda

Begin
Application.Initialize;
Application.CreateForm(Tdm, dm);//unit datamodule dipindahkan ke atas
TForm2.Execute;// Procedure dari class TForm2 tadi di eksekusi sblm main form create
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

Jalankan program.Jika ada pertanyaan silahkan trace sendiri .silahkan download source code lengkap nya dibawah ini:

NOTE:File ini di upload ke ziddu.com harap disable software download manager anda(IDM,DAP,FDM,Orbit,dll)untuk mendownload file ini dengan sukses,agar proses download menjadi lebih cepat silahkan daftar kan diri anda ke ziddu.com.

Semoga bermanfaat.

PDF Factory Pro + Serial Number

noreply@blogger.com (Fajar Khairil) — Sun, 10 Jan 2010 22:18:45 PST

Software ini nama nya PDF Factory Pro,dari judulnya anda pasti sudah tahu kegunaan software ini.software ini dapat memudahkan anda untuk membuat File Pdf/E-Book.software ini juga yang saya pakai untuk membuat E-book2 yang ada di blog ini.setelah di install maka pdf factory akan menjadi salah satu printer device di system anda,penggunaannya pun sangat mudah,semua file yg dapat di print dapat "tercetak" menjadi file pdf.
PDF Factory Pro adalah software yang berbayar,tapi khusus untuk anda yang ~~nyasar~~ ke blog ini maka bersukurlah karena saya juga menyertakan serial number nya(baik banget sih jar ).okeh gak usah basi-basi dari pada jadi ~~basih~~,karena saya juga bukan penulis yang baik( dunia mengakui itu jar ) ,silahkan langsung di ~~rampok~~ download di bawah ini:

NOTE:File ini di upload ke ziddu.com harap disable software download manager anda(IDM,DAP,FDM,Orbit,dll)untuk mendownload file ini dengan sukses,agar proses download menjadi lebih cepat silahkan daftar kan diri anda ke ziddu.com.

Semoga bermanfaat.
Cetak Artikel Ini

KooMail Alternatif Mail Client

noreply@blogger.com (Fajar Khairil) — Sun, 10 Jan 2010 18:03:11 PST

Kenalin nih KooMail sebuah software Mail Client sebagai alternatif Microsoft Office Outlook,saya sendiri sudah lama mengunakan KooMail alasannya KooMail ini lebih ringan dari pada Outlook tapi dengan fitur yang luar biasa.
Interfacenya pun good looking,bisa dipakai untuk Feed reader jga,emoticons,mudah dalam penggunaan,dan yang paling keren KooMail ini Free.KooMail ini buatan Programmer China sepertinya.. ya udah lah gak usah basa-basi silahkan bagi yang berminat download dari server softpedia:
Cetak Artikel Ini

FeedReader 3.14 Open Source RSS Feed Desktop

noreply@blogger.com (Fajar Khairil) — Sun, 03 Jan 2010 19:30:54 PST

RSS Feed(Really Simple Syndication Feed) ,pada tau RSS Feed donk?yang belum tau silahkan klik link tadi.
disini saya tidak akan menjelaskan apa itu rss feed karena saya yakin anda pasti lebih tau dari saya.saya cuma mau bagi-bagi feeed reader desktop yang free.nih situs resminya http://feedreader.com ,dengan software ini anda dapat berlangganan artikel situs/blog favorite anda dan di update setiap ada entry baru jadi anda tidak perlu membookmark situs blog/situs favorite anda di browser.cara penggunaannya pun sangat mudah ada dua cara:
1.langsung memasukan alat rss ke feedreader dengan cara menekan tombol F3 lalu masukan alamat rss nya.
2.langsung dari browser,sebuah web yang mempunyai RSS pada navigation toolbarnya bertanda seperti yang anda lihat di navigation toolbar anda sekarang

Anda tinggal mengklik tanda itu lalu jika situs itu mempunyai 2 rss/atom klik salah satunya: atau biar lebih gampang deh,pada browser anda(Firefox ya)klik Tools-->Option-->Tab Application,perhatikan screen shoot berikut: lalu klik Ok selesai.

silahkan download feedreader nya:

Semoga bermanfaat

Optimisasi dbGrid III

noreply@blogger.com (Fajar Khairil) — Mon, 07 Mar 2011 14:55:22 PST

"Just Sharing Knowledge on the web"

Melanjutkan Optimisasi dbGrid dari artikel sebelumnya,sekarang kita lanjutkan Optimisasi dbGrid nya,yaitu menampilkan data bertipe Memo dan mengedit nya secara Popup.
screenshoot nya sperti gambar di atas.
kita langsung aja deh ke codingnya.

Seperti biasa saya asumsikan anda mempunyai sebuah tabel dengan salah satu fieldnya bertipe memo.

Menampilkan data field bertipe memo
Secara default jika kita memiliki sebuah field bertipe memo maka field tersebut hanya akan bertuliskan "MEMO" di dbGrid,untuk menampilkan bukanlah hal yang sulit,kita hanya menuliskan 1 baris code pada event OnGetText pada fieldnya.untuk memperjelas berikut screen shootnya:

lalu ketikan code berikut:

procedure Tdm.QBukuDeskripsiGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
text:=copy(qbuku.fieldbyname('Deskripsi').asstring,1,30);
end;

gampangkan?hanya dengan fungsi copy sekarang field bertipe memo sudah tampil di dbGrid.
lalu bagaimana untukmengeditnya secara Popup(itu lho jendela yang muncul keluar),jawabannya adalah mudah.yang diperlukan adalah sebuah Form untuk melakukan pengeditan,tambahkan saja di dalam Form itu sebuah Memo,Panel dan button kurang lebih seperti screeen shoot di atas.jangan lupa untuk merubahnya Formnya menjadi Available Form di Project Options. pada event onDblClick di dbGrid tambahkan code berikut:

procedure TForm2.DBGrid1DblClick(Sender: TObject);
begin
if dbgrid1.SelectedField=dm.QBuku.FieldByName('Deskripsi') then
With TForm7.Create(nil) do
try
memo1.Text:=dm.QBuku.fieldbyname('Deskripsi').AsString;
Showmodal;
dm.QBuku.Edit;
dm.QBuku.FieldByName('Deskripsi').AsString:=memo1.Text;
Finally Form7.Free; end;
end;

*Form7 adalah Form yang dibuat tadi.
saya rasa tidak perlu ditambahkan commentar pada code nya karena sangat mudah dipahami ya kan?.
pada componenet memo di Form7 yang kita buat tadi ,pada saat user menekan enter maka component memo yang akan pindah baris,bukannya ter update dan keluar dari form edit(dlm hal ini form7) tadi.untuk itu kita akan menambahkan event onKeyDown pada TMemo yang berada di Form edit tadi,berikut potongan codenya:
procedure TForm7.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_RETURN then button1click(Button1);//jika key enter ditekan maka procedure button1click akan di execute
end;

Gampangkan,tentu saja procedure buttonclick itu adalah Close;.
yups sekarang anda telah mempunyai sebuah dbGrid yang hampir optimal,dan tentu saja user akan lebih "betah" memakai aplikasi anda.

Semoga Bermanfaat,Keep spirit and keep sharing

Sejarah nama Facebook dan bahasa Sunda

noreply@blogger.com (Fajar Khairil) — Fri, 23 Oct 2009 16:20:18 PDT

"Just Sharing Knowledge on the web"
Siapa sih yang tidak tahu Mark Zuckerberg. Yaa! dia adalah penemu sekaligus pembuat Facebook.com salah satu jejaring sosial yang dimiati banyak orang. Saat ini pun ia di nobatkan sebagai pemuda terkaya di dunia. Tapi tahukah anda kenapa si Mark ini menamakan site jejaring sosialnya dengan nama facebook.

Kita memang sering menggunakan facebook. Tapi gak pernah tahu facebook itu berasal dari mana. Kalau mau tahu, begini nih ceritanya.

Pada suatu hari Mark jalan-jalan ke Bandung. Dia berniat ke ITB tuk studi banding. Tapi sayangnya, ini perjalanannya yang pertama kali ke sana. Otomatis si mark ini bakalan kesasar.

Maklum waktu itu si mark belom sekaya saat ini. Namanya juga masih mahasiswa. Terus, di tengah kebingungannya menuju ITB, akhirnya ia mencoba bertanya-tanya dengan salah seorang tukang es cendol.

Karena stylenya tampang mahasiswa dan terpelajar, si mark pun berlagak kebingungan. Dia basa-basi beli es cendol tuh abang. "Bang, es cendolnya satu dong".

Nah, sembari menikmati es cendol, si mark pun iseng nanya si abang cendol,"bang tahu gak bang, kalo es cendol abang nih seger dan enak banget."

si abang pun tersenyum dan langsung bales,"ah, si ujang bisa ajah mujinya". Trus si mark bales lagi,"tahu gak bang, kalo abang jualan es cendolnya di ITB bakalan laku keras tuh bang."

Si abang bingung, karena perkataan si Mark tersebut. Mark pun kaget, khawatir salah bicara. Lalu Mark pun minta maaf seraya berkata, " bang, kenapa ada yang salah yah?".

Abang pun menjawab,"ah, si ujang gimana sih, saya kan sejak dolo sampe sekarang emang jualannya di depan pintu gerbang ITB."

Dengan wajah malu si mark ngomong,"ah, yang bener bang. Buktinya apa?".

Si abang negesin,"Ah, si ujang bagimana seh, emangnya gak liat itu ada patung Ganesha (lambang ITB). MUKA BUKU (buka buku--bahasa sunda--) atuh, jaang. Tong malongo wae (jangan bengong ajeh)". si mark (GUBRRAKK!!).

setelah jatuh, mulai saat itu. kata yang terngiang di kepalanya cuman "MUKA BUKU". Sampai pada akhirnya si mark kembali ke negeri asalnya. Setelah selesai membuat site jejaringnya ia pun ingin menamakannya.

Dan tetap, pada waktu itu kata yang terngiang masih "MUKA BUKU", yang filosofinya, kalo ingin tahu sesuatu apapun yah harus buka buku, karena buku itu sumber ilmu dan perlu dibaca dan diketahui isinya.

Namun sayangnya kata "MUKA BUKU" terlalu sundanese banget. Pikir si mark,"ah, gue kan orang bule. Jadi gak ada salahnya kata "MUKA BUKU" gue translit jadi "FACEBOOK".
(sumber http://ketawa.com)

Tipe Manusia dari Statusnya di Pesbuk

noreply@blogger.com (Fajar Khairil) — Fri, 23 Oct 2009 16:19:04 PDT

"Just Sharing Knowledge on the web"
1. Manusia Super Update
Kapanpun dan di manapun selalu update status. Statusnya tidak terlalu panjang tapi terlihat bikin risih, karena hal-hal yang tidak terlalu penting juga dipublikasikan.
Contoh : "Lagi makan di restoran A..", "Dalam perjalanan menujuneraka..", "Saatnya baca koran..", dan sebagainya.

2. Manusia Melankolis
Biasanya selalu curhat di status. Entah karena ingin banyak diberi komentar dari teman-temannya atau hanya sekedar menuangkan unek-uneknya ke facebook. Biasanya orang tipe ini menceritakan kisahnya dan terkadang menanyakan solusi yang terbaik kepada yang lain.
Contoh : "Kamu sakitin aku..lebih baik aku cari yang lain..", "Cuma kamu yang terbaik buat aku..terima kasih kamu sudah sayang ama aku selama ini..".

3. Manusia Tukang Ngeluh
Pagi, siang, malem, semuanya selalu ada aja yang dikeluhkan.
Contoh : " Jakarta maceeet..!! Panas pula..", "Aaaargh ujan, padahal baru nyuci mobil..sialan. .!!", "Males ngapa2in.. cape hati gara2 si do' i..", dsb.

4. Manusia Sombong
Mungkin beberapa dari mereka ga berniat menyombongkan diri, tapi terkadang orang yang melihatnya, yang notabene tidak bisa seberuntung dia, merasa kalo statusnya itu kelewat sombong, dan malah bikin sebel.
Contoh : "Otw ke Paris ..!!", "BMW ku sayang, saatnya kamu mandi..aku mandiin ya sayang..", "Duh, murah-murah banget belanja di Singapur, bow,"

5. Manusia Puitis
Dari judulnya udah jelas. Status nya selalu diisi dengan kata-kata mutiara, tapi ga jelas apa maksudnya. Bikin kita terharu? Bikin kita sadar atas pesan tersembunyinya? atau cuma sekedar memancing komentar? Sampai saat ini, tipe orang seperti ini masih dipertanyakan.
Contoh : "Kita masing-masing adalah malaikat bersayap satu. Dan hanya bisa terbang bila saling berpelukan", "Mencintai dan dicintai adalah seperti merasakan sinar matahari dari kedua sisi", "Jika kau hidup sampai seratus tahun, aku ingin hidup seratus tahun kurang sehari, agar aku tidak pernah hidup tanpamu".

6. Manusia in English
Tipe manusianya bisa seperti apa saja, apakah melankolis, puitis, sombong dan sebagainya. Tapi dia berusaha lebih keren dengan mengatakannya dalam bahasa Inggwis gicyu Low..
Contoh : "Tie and Chair..", "I can tooth, you Pink sun.." dsb..

7. Manusia Lebay
Updatenya selalu bertema 'gaul' dengan menggunakan bahasa dewa.. ejaan yang dilebaykan..
Contoh.." met moulnin all.. pagiiieh yg cewrah... xixiixi" << lol~

8. Manusia Terobsesi
Mengharap tapi ga kesampaian.. pengen jd artis ga dapat-dapat.
Contoh : "duwh... sesi pemotretan lagi! cape..."

9. Manusia Sok Tau
Sotoy tenarnya. Padahal dia sendiri tidak tahu apa yang ditulisnya.
Contoh : "Pemerintah selalu memanjakan rakyatnya.. bla..bla...bla,"

10. Bioskop Mania
Update film yang abis ditonton dan kasih comment..
Contoh : "ICE AGE 3..Recomended! !", "Transformers 2 mantab euy.."

11. Manusia pedagang
Contoh: "jual sepatu bla bla bla"

12. Manusia penyuluh masyarakat
Contoh: "jangan lupa dateng ke TPS, 5 menit utk 5 tahun bla..bla"

13. Manusia Alay
Ada berbagai macam versi, dari tulisannya yang aneh, atau tulisannya biasa aja, hanya saja kosakata nya ga lazim seperti bahasa alien.
Contoh:Alay 1 : "DucH Gw4 5aYan9 b6t s4ma Lo..7aNgaN tin69aL!n akYu ya B3!bh..!!"
Alay 2 : "km mugh kog gag pernach ngabwarin aq lagee seech? kmuw maseeh saiangs sama aq gag seech sebenernywa? "
Alay 3 : "Ouh mY 9oD..!! kYknY4w c gW k3ReNz 48ee5h d3ch..!!"(Khusus buat tipe ini, ga usah di baca juga gpp..saya pribadi juga mikirdulu buat nulis ini, walaupun jadinya kurang mirip sama yg aslinya..)

14. Tipe Hidden Message
Tipe ini biasanya tidak to the point, tapi tentunya punya niat biar orang yg dituju membaca nya. (bagus kalo baca..kalo ngga? kelamaan nunggu) padahal kan bisa langsung aja sms ya..
Contoh : "For you my M***, I can' t live without you..you are my bla bla bla..","Heh, cewe bajingan..ngapain lo deket2in co gw?! kyk ga laku aja lo.." (padahal ce tersebut tidak ada dalam jaringannya. . mana bisa baca...:p)

15. Tipe Misterius
Tipe yang biasanya bikin banyak orang bertanya tanya atas apa maksud dari status orang tersebut..Biasanya dalam suatu kalimat membutuhkanSubjek + Predikat + Objek + Keterangan. Tapi orang tipe ini mungkinhanya mengambil beberapa atau malah hanya 1 saja..Dan pastinyamengundang kontroversi.
Contoh : "Sudahlah.." , "Telah berakhir.." (apanya??),"Termenung.. ." (so what gitu, loh)

Kalian ngikut yang mana???
(sumber http://ketawa.com)

Mengurutkan Field saat mengklik Title pada dbGrid (Optimisasi DBGrid I)

noreply@blogger.com (Fajar Khairil) — Tue, 15 Dec 2009 12:26:29 PST

Akhirnya update Update Blog juga dan ada sedikit kemajuan pada project perpus versi 2,maklum kemaren-kemaren lagi exists jadi chater .
pada Tutorial delphi kali ini kita akan mencoba mengoptimalkan component dbGrid Standart menjadi lebih mantab

Tidak diragukan lagi bahwa DBGrid adalah component yang sangat berguna dalam pengembangan suatu aplikasi khususnya aplikasi yang
berhubungan dengan database. Hanya saja component dbGrid di delphi khususnya ver 7.0(jadul ya) belum optimal,tapi mendinglah dari pada VB

kalo untuk delphi versi selanjutnya gak tau ya belum beli sih. untuk itulah kita akan sama-sama mengoptimalkan component yang keren ini.
Jika pada artikel sebelumnya ada mengedit data secara lookup, nah untuk yang berikutnya kita maju ke Mengurutkan Field pada title dbGrid.

gimana klo kita langsung ke step bye step nya dari pada nanti muntah baca basa-basi gak jelas dari saya. Coba perhatikan contoh di atas
, jika user mengKlik bagian title dari dbGrid maka data akan ter sortir mantab kan (caranya gimna jar??). pingin tau caranya??Rokok dulu sini tapi berhubung saya baik hati dan tidak sombong saya akan share gimana caranya,cukup klik dan terusin bacannya.

Agar lebih singkat saya asumsikan anda mempunyai sebuah tabel Member dari suatu database.okeh kita langsung ke coding ajasoalnya rada ngantuk nih:

klik pada dbGrid masuk ke event OnMouseMove,ketikan Code berikut:
procedure TForm3.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Var
pt:TGridCoord; //point (xy dari dbGrid,,coba tekan ctrl arahkan cursor ke TGridcord di delphi code editor anda,)
begin
pt:=dbGrid1.MouseCoord(x,y);
if pt.Y=0 then //y=0 berarti posisi point 0(paling atas dr dbgrid)
dbgrid1.Cursor:=crHandPoint
else
dbgrid1.Cursor:=crDefault;
end;
selanjutnya masih pada dbGrid kita masuk ke event OnTitleClick,ketikan code berikut:
procedure TForm3.DBGrid1TitleClick(Column: TColumn);
{$J+} //mengaktifkan compiler directive J+
const PreviousColumnIndex : integer = -1;
{$J-} //menonaktifkan kembali J-
begin
if DBGrid1.DataSource.DataSet is TCustomADODataSet then
with TCustomADODataSet(DBGrid1.DataSource.DataSet) do
begin
try
DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=
DBGrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];
except
end; Column.title.Font.Style :=
Column.title.Font.Style + [fsBold];
PreviousColumnIndex := Column.Index; if (Pos(Column.Field.FieldName, Sort) = 1)
and (Pos(' DESC', Sort)= 0) then
Sort := Column.Field.FieldName + ' DESC'
else
Sort := Column.Field.FieldName + ' ASC';
end;

Wooooiiiiii....... kenapa pada bengong udah segitu doank,gampangkan! untuk lebih mengetahui tentang compiler directive coba liat di Help nya delphi atau maen-maen ke http://delphi.about.com ,untuk optimisasi dbGrid selanjutnya kita akan bahas menampilkan dan mengedit secara popup field yang bertipe Memo..so tunggu aja ya??kalo nanti lupa alamat blog ini langsung aja sekarang berlangganan atau bookmark ke browser anda oke. udah ah ngantuk pingin bobo, untuk rokoknya bisa langsung dikirim ke rumah saya SEMOGA BERMANFAAT! TETEP SEMANGAT NGORONG eh NGODING .

Interopeksi diri akan musibah di negri ini

noreply@blogger.com (Fajar Khairil) — Tue, 06 Oct 2009 06:17:51 PDT

“Gempa di Padang jam 17.16, gempa susulan 17.58, esoknya gempa di Jambi jam 8.52. Coba lihat Al-Qur’an!”

17.16 (QS. Al Israa’ ayat 16): “Dan jika Kami hendak membinasakan suatu negeri, maka Kami perintahkan kepada orang-orang yang hidup mewah di negeri itu (supaya mentaati Allah) tetapi mereka melakukan kedurhakaan dalam negeri itu, maka sudah sepantasnya berlaku terhadapnya perkataan (ketentuan Kami), kemudian Kami hancurkan negeri itu sehancur-hancurnya.”

17.58 (QS. Al Israa’ ayat 58): “Tak ada suatu negeri pun (yang durhaka penduduknya), melainkan Kami membinasakannya sebelum hari kiamat atau Kami azab (penduduknya) dengan azab yang sangat keras. Yang demikian itu telah tertulis di dalam kitab (Lauh Mahfuz).”

8.52 (QS. Al Anfaal: 52): (Keadaan mereka) serupa dengan keadaan Fir’aun dan pengikut-pengikutnya serta orang-orang sebelumnya. Mereka mengingkari ayat-ayat Allah, maka Allah menyiksa mereka disebabkan disebabkan dosa-dosanya. Sesungguhnya Allah Maha Kuat lagi Amat Keras siksaan-Nya.”

8.52(8=Ayat,52=No Surat)

Setelah melihat gambar dan Potongan-ayat di atas,apakah kita akan tetap berjalan dengan congkak di atas bumi ini?akankah kita masih tidak mensyukuri nikmat dari Allah S.W.T?Akankah kita tetap tidak menyadari akan Kebesaran nya?
Ujian,Cobaan,atau Adzab dari Allah semua bencana ini?bencana yang terus bertubi-tubi semenjak bencana besar di Nangroe Aceh darusallam,Gempa Jogja,Lumpur Lapindo di Sidoarja,hingga sekarang Gempa di Padang dan Jambi?mudah-mudahan saja ini bukanlah adzab melainkan hanya teguran untuk menyadarkan kita akan kehilafan dan dosa-dosa kita.

Mengedit Data secara Lookup dari dbGrid

noreply@blogger.com (Fajar Khairil) — Thu, 24 Sep 2009 19:20:38 PDT

Mungkin Pengunjung udah pada ~~sebel~~ dan ~~enek~~ karena akhir-akhir ini Postingan di fajardelphiscript gak ada Tutorial atau Tips and Trick Delphi nya??Im Sory Para Delphier cz saya akhir-akhir ini rada sibuk,jadi malez bikin tips trick delphi

Okeh untuk Tips and Trick Delphi kali ini saya mau share bagaimana Mengedit Data secara Lookup dari dbGrid.ngerti gak masudnya?yang gak ngerti jongkok aja yah?
biar mudeng/ngerti berikut screen shootnya:

keren gak??pake skin tuh..modelnya cantiik lagi,
Form ini dalah screen shoot dari Form Data Member dari dayPerpus 2.0 ..so tunggu yah...

dengan cara ini pengeditan bisa langsung diipilih pada dbGrid..bisasanya sih orang-orang kalo mau ngedit suka nambahin Form baru..halah klo saya males,
untuk isi dari dropdown itu sendiri kita akan me retrieve dari tabel lain...pengen tau gimana caranya???
klik dan terusin bacanya...

Oke,di asumsikan anda mempunyai Tabel Member dan Tabel Kelas.untuk mengambil data dari tabel kelas dan memasukannya ke dbGrid data Member berikut adalah Penjelasannya...:

pada Properties Column di komponent dbGrid ada yang namanya properties PickList yang bertipe Strings.
prinsipnya kita akan memasukan field Kelas dari Tabel kelas ke Column 3 dari dbGrid,,sebelumnya kita buat Procedure PickList dulu pada Klausa Private (terus jar?) terus Codingnya begini nih:

procedure TForm3.Picklist;
var
i:Word;
begin
//memastikan pointer tabel kelas berada di record pertama
dm1.QKelas.First;
//pengulangan or Looping untuk memasukan record2 dari field kelas ke dbGrid colomn ke 3
for i:=0 to dm1.QKelas.RecordCount-1 do begin
dbgrid1.Columns[3].PickList.add(dm1.QKelas.fieldbyname('Kelas').
AsString);
dm1.QKelas.Next;
end;//end looping
end;
end.

Procedure Picklist kita taruh di Event FormShow ya....udah ah..gampang banget kan?
ya iyalah gampang kalo yang susah saya gak bisa,

terima kasih..Semoga bermanfaat
"TETAP SEMANGAT NGODING YAH!!!"

Beberapa kutipan dari Forum delphi-id

noreply@blogger.com (Fajar Khairil) — Wed, 23 Sep 2009 13:25:55 PDT

hmmm..dari siang ampe maghrib saya ngerjain project yang hampir jadi,abis maghrib sampai Isha sekedar melepas "puyeng" dari coding

chating2 sama temen..sempet kepikiran juga pingin update blog ah..tpi bikin tutorial gak ada ide..mikir2 jadi inget beberapa hari yang lalu maen2 ke delphi-id nemu2 tulisan2 para empu disana yang menarik dan kocak

.mau tau apa itu???Klik dan terusin bacanya....

Maaf kalo saya tidak mencantumkan siapa dari siapa saya mengutip,he..soalnya lupa...mudah2an bisa membangkitkan semangat kitabelajar delphi,atau paling enggak sekedar cengar-cengir aja kaya kuda

"Programmer Professioanl itu berawal dari belajar try and error, design sendiri (kecuali yang kerja di software house) ... running sendiri sampai terkadang input sendiri untuk memastikan progamnya jalan ..."

[Pertanyaan]

"kenapa yach tiap aq mengGoogle tutorial delphi yg ad contoh aplikasi+sourceny scara penuh kok g ad?
misal aplikasi transaksi penjualan, aplikasi POS
slama ini yang q tmui hanya n bisa didownload tanpa tetekbengek registrasi or bayar cm versi VB ny...
knp yach yang delphi kok g ad?
mohon pencerahanny n kalo ad linkny jg gpp"

[sampe kebaawah tuh jawabannya]
"orang pintar jumlahnya lebih sedikit daripada orang b**o, wajar klo delphi lebih dikit dari vb. gw dulu waktu msh kuliah pake vb juga waktu masih b**o. Laughing"

"wawhahaha bisa ajah. konklusinya orang vb lebih b**o dari orang delphi?
Mr. Green"

"analoginya mungkin gini:

source code diibaratkan istri atau ladang penghasilan yg harus anda protect sebaik2nya. kalo ada orang mau minta lu pasti gak kasih bukan karena lu pelit, tapi bisa dipastikan yg minta adalah orang goblok.

kita bicara soal investasi yg tidak murah, banyak efforts disitu... baik materil & non-materil."

"kembali lagi kepada seberapa berharganya "sesuatu" itu utk diberikan secara cuma-cuma...
source POS VB mungkin berserakan & diberikan cuma2 ya karena ngga' akan bisa di enhance lebih baik. paling2 ya mentok gitu2 aja namanya jg pake VB, orang jg mulai meninggalkannya, mau ngenhance malez... artinya source tsb sudah tidak lagi memiliki arti lagi. di obral aja belum tentu orang mau Laughing"

"Menurut aku, orang Delphi bukannya pelit, tapi Delphi itu sebuah program yang sangat luas implementasinya, dan dengan mudahnya mengunakan UDF ( User Define Function)."

"Jadi menurutku benar untuk forum ini, bila orang bertanya bukan diberi Source Code, tapi sepenggal Codenya, karena dengan demikian orang Indonesia jadi lebih pinter2, lha klo kita hanya dapat mentahan Source Code? kita makin dibuat B**0 dong..!"

"Dengan memberi Sepenggal Code Delphi, memungkinkan kita bisa lebih bervariasi antara programmer 1 dengan programmer lainnya."

"Sebagai Contoh: Aku pernah bekerja di Sebuah Perusahaan Pembuat Program, disana ada 10 orang, tapi anehnya, walau udah diberikan Source Code dan tinggal melanjutkan kerjaan temannya aja harus mendalami alur kerjanya butuh waktu sangat lama! Kenapa? karena cara implementasi program di Delphi sangat luas dan cara penulisan dari masing-masing orang itu berbeda2, dan dari sana, kami klo ada kendala bukan diberikan Source Code tapi justru diberikan alur sepenggal code kayak di Forum ini, nah, implementasinya serahkan pada programmernya!"

pada setuju gak nih??apa lagi sama kutipan ini "orang pintar jumlahnya lebih sedikit daripada orang b**o, wajar klo delphi lebih dikit dari vb. gw dulu waktu msh kuliah pake vb juga waktu masih b**o. Laughing"

silahkan jika mungkin sebagian/seluruh pembaca tidak berkenan dengan tulisan di posting ini..he...caci maki saja diriku (Label na ge "Iseng",he.. Sunda Mode : ON)
untuk selengkapnya anda bisa lihat disini.

Mengapa harus Belajar Pemrograman

noreply@blogger.com (Fajar Khairil) — Wed, 16 Sep 2009 10:47:12 PDT

malam ini sambil nungguin saur browsing-browsing eh nemu artikel menarik dari http://blog.rosihanari.net/
dan rasa-rasanya menarik jika pengunjung blog ini baca...sebelumnya juga saya udah minta ijin ke pemilik blog nya,pak Dosen rosihan ari wah luarr biasa artikel2 nya...
selamat membaca...
---------------------------------------------------------------------------------------------------------
Ketika saya bertanya kepada Anda, Buat apa sih belajar pemrograman? Lantas apa jawaban Anda? Apakah sekedar hanya untuk bersenang-senang (just 4 fun), ingin meniti karir, atau hanya sekedar ingin lulus dari matakuliah pemograman? Ada banyak jawaban yang bervariasi dari pertanyaan ini. Namun secara umum, alasan atau jawaban yang muncul dapat dikategorikan ke dalam 4 hal. Ini dia kategorinya…

Pemrograman sebagai sebuah karir
Alasan utama yang dipilih orang dalam belajar pemrograman adalah ingin menjadikannya sebagai karir. Ini yang sering saya tanyakan pada mahasiswa saya. Sesuatu alasan yang sangat masuk akal.Memang dalam kenyataannya, orang yang berprofesi sebagai seorang programmer bisa berpotensi untuk menghasilkan income yang tidak sedikit. Banyak perusahaan-perusahaan yang menawarkan gaji yang cukup menggiurkan bagi para programmer yang mau bekerja, plus masih ditambah bonus-bonus lain jika kinerjanya OK. Meskipun gajinya cukup lumayan, seringkali masalah ‘bosan’ menghinggapi para programmer ini. Ya… maklumlah karena setiap hari kerjanya hanya mengurus koding melulu, atau sering dikejar-kejar sama deadline.
Eh… btw… ada pula lho profesi programmer yang gajinya kecil atau bahkan tidak digaji karena alasan ‘pengabdian’. Tanya kenapa??
Untuk bisa meniti karir sebagai sebuah programmer, kita harus bisa bekerja secara tim. Lho kenapa begitu? Bukankah program bisa kita buat sendiri secara perorangan? He…3x itu kan kalau program yang berasal dari tugas dosen ketika kuliah. Ketika kita berhadapan di real world, suatu masalah komputasi bisa jadi bersifat kompleks, sehingga suatu project pembuatan program harus dibagi ke dalam tim. Setiap tim bertanggung jawab pada modul-modul programnya sendiri-sendiri.
Nah… pertanyaan berikutnya, apakah karir seorang programmer harus berada di suatu perusahaan? Jawabannya tidak harus. Anda bisa mendirikan suatu software house sendiri. Bahkan ada slogan yang mengatakan, “Kalau Anda mau kaya, jangan mau jadi orang kantoran” Maksudnya adalah jadilah seorang pengusaha, dalam hal adalah pengusaha software.
Oya satu lagi, bila Anda berprofesi sebagai programmer harap maklum karena posisi Anda berada di paling bawah dalam jajaran pembuat software. Dalam hal ini, seorang programmer tidak boleh berkreasi sendiri terhadap software yang dibuatnya. Kreasi ini hanya boleh dilakukan oleh software engineer (demikian kata bang Romi). Atau dengan kata lain, untuk menjadi seorang programmer, harus mau jadi orang suruhan, suruhannya siapa? ya.. suruhannya software engineer.
Pemrograman sebagai alat pemecahan masalah
Nah… alasan yang kedua ini biasanya muncul dari para dosen, peneliti atau mahasiswa. Dalam hal ini, mereka butuh pemrograman sebagai alat untuk memecahkan permasalahan komputasi yang mereka hadapi. Sebagai contoh misalnya seorang mahasiswa diminta dosennya untuk mencari nilai 100 faktorial. Nah… ujung-ujungnya mereka akan menggunakan program karena kalkulator tidak bisa mencari jawabannya. Bagi dosen misalnya, mencari penyelesaian yang terkait dengan komputasi numerik, riset, dan sebagainya.
Pemrograman sebagai ladang amal
Aneh juga alasan yang satu ini kok bisa ya? hubungannya apa antara pemrograman dan amal? Pernahkah Anda mendengar istilah OpenSource? Istilah ini yang akan mengkaitkan antara pemrograman dengan ladang amal. Orang yang merelakan waktunya dengan membuat program yang bersifat opensource dapat dikatakan juga sedang beramal. Dengan opensource, orang lain sedunia bisa melihat isi source code program yang dibuat. Dengan demikian, hal ini memungkinkan orang lain dapat belajar bersama dalam mengembangkan software. Selain itu software opensource biasanya juga bersifat freeware. Orang lain dapat secara bebas menggunakan software tersebut tanpa dipusingkan dengan masalah harga beli.
Pemrograman… just for fun
Orang yang memilih pemrograman hanya sekedar bersenang-senang bukanlah suatu yang aneh. Hal ini sama saja seperti mendaki gunung, bermain game atau yang lain. Orang-orang yang beralasan seperti ini, pastilah mereka yang suka dengan tantangan. Bila Anda termasuk orang-orang bertipe seperti itu, selamat… Anda memiliki potensi yang luar biasa. Mengapa demikian? Orang yang menggeluti bidang tertentu atas dasar hobi atau kesenangan, biasanya akan sukses di kemudian hari. Semakin hari, semakin bertambah ilmu dan kemampuannya dengan secara tidak sadar. Beda halnya bila belajar pemrograman dalam keadaan terpaksa, ketika diminta membuat sebuah program sederhana dalam satu jam rasanya setahun

(sumber http://blog.rosihanari.net)