Saya menggunakan PostgreSQL sebagai databasenya, Delphi 2007 sebagai Devtool-nya, serta komponen Zeos versi 6.6.5-stable.
Problemnya ada pada sql yang bentuknya kurang lebih seperti ini

update myproduk set balance = balance-:amount where idproduk = :idproduk

Tidak ada yang aneh dari sql tersebut. Saya hanya mengurangi field balance dengan suatu nilai tertentu. Problem utamanya ada pada tanda – (minus). Perhatikan bahwa antara tanda minus dan :amount tidak diselingi spasi. Ini yang menjadi masalah.
Bila pada parameter :amount saya lewatkan nilai positif tidak jadi masalah. Tetapi bila saya lewatkan nilai negatif maka nilai balance tidak berubah. Cukup aneh!
Saya menduga (dan ternyata memang benar) bila parameter sql amount tersebut saya isi dengan -100 dan idproduk dengan 1, misalnya, maka perintah tersebut akan dianggap seperti perintah berikut ini

update myproduk set balance = balance--100 where idproduk = 1

Seperti kita tahu, dalam SQL standard, semua yang di belakang tanda -- akan dianggap sebagai comment alias tidak dijalankan. Jadi perintah tersebut sama artinya dengan

update myproduk set balance = balance

Mungkin perintah di atas tidak terlalu berbahaya karena bug berakibat tidak ada data yang berubah. Tapi bayangkan bila yang saya masukkan adalah perintah berikut

update myproduk set balance = balance+1000-:amount where idproduk = :idproduk

Akibatnya semua balance dala tabel produk tersebut takan bertambah 1000 !!!
Solusinya sebenarnya sederhana saja, yait antara tanda minus dengan parameter :amount diberi jarak (spasi). Dan masalahnya selesai.

Berikut ini screenshot eksperimen yang saya lakukan.
Sebelum tombol Test Query dijalankan.

Setelah tombol Test Query dijalankan nilai field balance untuk semua record bertambah dengan 1000

  selisih := Tgl1-Tgl2;

Karena TDateTime adalah bilangan real, maka fungsi-fungsi yang bekerja terhadap bilangan real juga dapat bekerja terhadap variabel tipe ini. Misalnya fungsi Trunc, untuk mengambil nilai integer dari suatu bilangan real dapat bekerja terhadap TDateTime untuk mengambil hanya tanggalnya saja.
Demikian juga bila kita ingin membuang tanggalnya dan hanya mengambil waktunya saja, kita bisa menggunakan fungsi Fract yang sudah tersedia di Delphi.
Contoh lainnya misalnya function Round juga dapat digunakan untuk membulatkan hari. Sebelum jam 12 siang akan ikut hari ini dan setelah jam 12 siang akan ikut besok.

Menginisialisasi variabel TDateTime dengan nilai jam sangatlah mudah. Malah tanpa perlu menggunakan function apapun.

// variabel X diisi dengan 1 jam
  X := 1/24;
// variabel X diisi dengan 11 jam
  X := 11/24;
// variabel X diisi dengan 15 menit (atau 1/4 jam)
  X := 1/(4*24);
// variabel X diisi dengan 1 menit
  X := 1/(24*60);

Delphi sendiri juga menyediakan banyak sekali fungsi terkait DateTime, yang di Delphi Help bisa dicari dengan kata kunci Datetime routines.

select to_char(trunc(current_date)+10.5/24, 'hh24:mi:ss')
  from dual;

Perhatikan angka 10.5 adalah jam yang ingin dikonversi.

hasilnya adalah 10:30:00

Cara bekerjanya seperti ini :
Pertama, function to_char di oracle bisa mengkonversi berbagai jenis data menjadi string, tergantung format yang digunakan. Ini berarti function ini juga bisa mengkonversi data tanggal dan jam menjadi string dengan pilihan format yang tepat, termasuk menjadikannya berformat hh:mm:ss. Bila kita punya data bertipe date, maka dengan format ‘hh24:mi:ss’ kita akan menampilkan jam, menit, dan detiknya saja dalam format hh:mm:ss, tanggalnya diabaikan.
Kedua, tipe data date di oracle bisa ditambah (ataupun dikurangi) dengan sebuah bilangan (real), dimana nilai bulatnya adalah hari dan nilai pecahannya adalah waktu (24 jam).
Jadi kalo kita punya X adalah date saja (time-nya 00:00), maka X+1 adalah sehari setelah tanggal X tsb, jamnya 00:00 juga. Demikian juga X+0.5 adalah setengah hari (12 jam) setelah tanggal X jam 00:00. Got my point ?
Ini juga berarti bahwa X+(3/24) adalah 3 jam setelah jam 00:00. Demikian juga X+(3.25/24) adalah 3 1/4 jam atau 3 jam 15 menit setelah jam 00:00. Pada kode diatas, trunc(current_date) mewakili X.

Dari kedua hal tersebut diatas, jadilah

  to_char(trunc(current_date)+10.5/24, 'hh24:mi:ss')

Tetapi ekspresi di atas hanya berlaku untuk nilai jam kurang dari 24. Untuk nilai jam yang lebih dari atau sama dengan 24 harus ada sedikit modifikasi. Ada dua pilihan untuk kasus ini, yaitu apakah ditampilkan menjadi hari, ataukah tetap dalam nilai jam. Tapi tetap saja kita harus pisahkan angka jam-nya. Berikut ini Oracle function untuk mengkonversi jam menjadi string dengan format 99 jam 99 min 99 det.

CREATE OR REPLACE Function HourToChar
   ( in_hour in number )
   RETURN varchar2
IS
    bulat number;
    pecahan number;
    hasil varchar2(100);
BEGIN
  bulat := trunc(in_hour);
  pecahan := in_hour-bulat;
  hasil := to_char(bulat)||' jam '||to_char(trunc(current_date)+pecahan/24,
    'mi "min" ss "det"');
  RETURN hasil;
END;

contoh

select HourToChar(135.122) from dual;

hasilnya adalah 135 jam 7 min 19 det

Kalo sudah menggunakan function, maka banyak cara yang bisa digunakan.
Misalnya, untuk mendapatkan hasil yang sama, bisa juga menggunakan algoritma ini yang lebih generik.

• Dari parameter jam, ambil bulatnya, jadi jam.
• Kalikan nilai pecahannya dengan 60, ambil bulatnya jadi menit.
• Kalikan lagi pecahannya dengan 60, jadi detik (bisa juga diambil bulatnya saja).

Cover depan dan belakang

Buku ini adalah edisi revisi dari versi sebelumnya. Beberapa hal terkait tipe dan struktur data dibahas secara lebih mendalam, yaitu long string, array, termasuk array statis dan array dinamik, record serta pointer.

Delphi memperlakukan long string dan dynamic array dengan perlakuan yang sangat mirip. Keduanya disimpan dalam memory secara dynamik dan menggunakan teknik reference counting sebagai ‘garbage collection’-nya. Dalam pembahasannya dilengkapi dengan ilustrasi yang menggambarkan representasi internal mereka.

Salah satu topik dalam pemrograman yang sering merepotkan, khususnya bagi programmer pemula, adalah penggunaan pointer. Dalam buku ini, pembahasan tentang pointer juga dilengkapi dengan ilustrasi sehingga diharapkan dapat lebih mudah dipahami.

Frame dalam Delphi adalah salah cara untuk meningkatkan reusability di level aplikasi. Dengan frame, susunan suatu blok dalam form, beserta mekanisme kerjanya, dapat digunakan ulang dalam form yang lain. Bila digunakan secara tepat, frame dapat mengurangi development effort secara signifikan. Mesikipun demikian, frame juga memiliki kelemahan dan kendala dalam implementasinya. Buku ini membahas frame secara cukup mendetil.

Tambahan terbesar dalam buku ini adalah reporting yang dibahas secara khusus dalam satu Bab. Ada dua tools reporting yang dibahas, yaitu Quick Report dan Fast Report.
Pembahasan diawali dengan mendefinisikan persyaratan (requirements) report yang akan dibuat. Selanjutnya akan dibahas bagaimanan mempersiapkan dataset yang akan digunakan. Baru kemudian dibahas bagaimana membuat report-report yang sudah disebutkan, menggunakan Quick Report dan Fast Report.

Buku ini bisa diperoleh di toko-toko buku terdekat atau bisa dipesan disini toko BI-Obses. (Tapi saya belum pernah mencoba memesan secara online).

Semoga buku ini bermanfaat.