Pada sebuah aplikasi penjualan (POS) biasanya untuk mencari sebuah barang dilakukan dengan melakukan pencarian (query) yang tidak hanya berdasar pada satu field saja. Metode pencarian yang diinginkan .. Pertama dicari dulu berdasarkan Barcode, kalo tidak ada kemudian dicari berdasarkan Kode Barang, kalo tidak ada juga maka kata yg dimasukkan dianggap merupakan bagian dari Nama Barang. […]
Langsung aja ya .. Berikut ini contoh aplikasi untuk merubah intensitas warna (RGB) pada sebuah gambar bitmap (bmp/jpg). Klik Load Picture untuk memuat gambar dari file (jpg/bmp) yang akan di proses. Setelah itu atur Trackbar (Red, Green, Blue) sesuai keinginan sehingga akan memperoleh hasil seperti gambar berikut. Untuk mengembalikan gambar pada warna asli kita cukup […]
Berikut ini contoh kode sederhana untuk merubah tampilan gambar bitmap menjadi menjadi negatif. Klik Load Image untuk memuat gambar dari file (jpg/bmp) dan Klik Invert untuk membalik tampilannya. Kodenya cukup singkat cuman beberapa baris procedure TForm1.Button1Click(Sender: TObject); begin if OpenPictureDialog1.Execute then begin Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); Button2.Enabled:=True; end else begin Image1.Picture:=nil; Button2.Enabled:=False; end; end; procedure TForm1.Button2Click(Sender: TObject); var […]
Pada komponen ActionList telah disediakan banyak sekali action Standard yang akan sangat membantu dalam pemrograman delphi tanpa harus menulis code lagi secara manual. Fungi-fungsi standar seperti File, Edit, Dataset dan lain-lain sudah tersedia kita tinggal pake, jika dikehendaki kita hanya perlu mengganti Caption dan iconnya saja. Dalam prakteknya action standard yang telah disediakan ada kalanya […]
Kapan menggunakan Open dan kapan mengunakan ExecSQL, hal ini sebenarnya merupakan aturan dasar dalam pemakaian komponen query, namun masih banyak delphier (khususnya pemula) yang sepertinya masih kurang faham penggunaan Open/ExecSQL. Sering kali Open dan ExecSQL di kerjakan bersama2 dalam satu query sehingga mengakibatkan error atau hasil yang tidak sesuai harapan. Kunci dasarnya sebenarnya mudah kok […]
Salah satu yang membuat kita “kerasan” menggunakan delphi karena didukung beragam paket VCL (komponen) bawaan maupun tambahan yang dibuat oleh pihak ketiga. Saat ini ada ratusan bahkan ribuan komponen bagus yang dibuat untuk delphi baik yang gratis maupun berbayar. Semakin hari semakin banyak saja komponen bagus yang membuat kita “ngiler” untuk memasang di delphi kita. […]
Pada Aplikasi yang menggunakan database berbasis Client Server, banyak hal yang menyebabkan gagalnya koneksi, antara lain server mati dan gangguan jaringan. Biasanya untuk mengantisipasi hal tersebut kita menggunakan jurus try .. except .. end seperti contoh dibawah ini : try IBDatabase1.Open; except ShowMessage(‘Koneksi gagal’); end; tetapi salah satu kekurangan cara tersebut adalah menampilkan pesan kesalahan […]
Pada saat mengompile contoh project Indy tiba-tiba kita mendapatkan pesan error seperti gambar diatas, bagaimana cara mengatasinya? Hal tersebut terjadi karena unit yang dibutuhkan project tersebut ada namun dicompile dengan menggunakan versi yang berbeda. Pada contoh diatas terjadi karena unit SockApp.dcu dicompile bergantung pada unit IdTCPServer.dcu punya Indy9, sedangkan path IdTCPServer.dcu yang terdaftar di library […]
Dalam menyimpan data kedalam database ada kalanya kita perlu untuk memvalidasi dulu sebelum benar-benar menyimpannya. Misalnya data baru disimpan setelah semua/sebagian field diisi seperti gambar dibawah ini: Untuk membuat record tidak bisa disimpan bila field belum diisi caranya dengan menambahkan klausa NOT NULL (saya yakin tidak asing lagi). CREATE TABLE BIODATA ( ID INTEGER NOT […]
Two Phase Commit berguna untuk menjamin transaksi pada 2 database atau lebih (bisa beda server) pada status commit semua atau rollback semua. Misalnya kita mau mengurangi saldo tabungan seseorang di database-1 kemudian dimasukkan ke database-2, berarti ada 2 proses yaitu mengurangi database-1 dan menambah database-2. Tiba-2 sebelum kedua proses selesai koneksi terputus, apa yang terjadi? […]