Stored Procedure di Database

Kelebihan query di stored procedure dibandingkan dengan query yang diletakkan di aplikasi tier adalah

• membuat proses query SQL menjadi terpusat di data tier

• mengurangi kepadatan trafik jaringan untuk proses query, terutama bila query itu dilakukan berulang-ulang

• menjadikan kode query menjadi bersifat reusability atau bisa dipakai ulang untuk proses yang lain tanpa membuat query yang sama lagi

• dapat melakukan perubahan di data tier tanpa mengubah kode di sisi aplikasi tier

• memiliki stabilitas waktu respon untuk tiap query-nya

Di Borland Delphi, stored procedure digunakan dengan perantara TADOStoredProc dengan database yang dipakai sesuai dengan property ‘ConnectionString’ yang diset pada komponen ini dan kemudian nama stored procedure (property ‘ProcedureName’) serta parameter-parameternya (property ‘Parameters’) dapat langsung diakses dari sisi client

Berikut adalah contoh stored procedure dengan T-SQL di MSSQL Server untuk proses insert, update dan delete data table :

create procedure retrieveData
@select varchar(1),
@id int = null,
@cat_id int = null,
@dateposted datetime = null,

Interpreter dan Compiler

Pemrograman high-level dibagi menjadi dua, interpreted dan compiled. Interpreted diubah ke bahasa mesin dengan bantuan program lain, yaitu interpreter. Interpreter mengubah setiap statement program ke bahasa mesin dan langsung mengeksekusinya sebelum statement selanjutnya di proses. Compiled diubah ke bahasa mesin oleh compiler. Compiler mengubah semua statement program ke bahasa mesin dahulu sebelum dieksekusi, hasil proses compiler ini biasa disebut sebagai executable
Interpreted harus selalu diubah ke bahasa mesin dahulu untuk setiap pemakaiannya (running), Compiled diubah ke bahasa mesin hanya sekali dan dapat digunakan terus tanpa mengubah ke bahasa mesin lagi.

Delphi Thread

Dengan thread, aplikasi dapat mengerjakan satu atau lebih perintah secara bersama, dalam artian perintah satu tidak menunggu selesainya perintah sebelumnya bila akan dikerjakan. Variabel-variabel dalam tiap perintah dapat independen dan tidak saling mengganggu untuk tiap-tiap perintah yang ada. Sistem operasi yang mendukung multitasking mengijinkan perintah-perintah dikerjakan secara bersamaan dengan thread.

Thread dipakai bila:

• diperlukan proses-proses yang independent, misalnya : hardware pooling, animasi obyek
• aplikasi dengan multiprosessor
• diperlukan proses ‘idle’ dalam waktu kerjanya
• ingin belajar thread tentunya..

Contoh sederhana ini menggunakan tiga thread yang masing-masing melakukan counter mandiri dari 0 ke 100000

Inisialisasi thread :
type
TThreadSatu = class(TThread)
private
VarLokal: Integer;

Delphi Client – Server dengan TServerSocket dan TClientSocket

Sebagai contoh, server diidentifikasikan oleh 4 byte IP address (misal 10.231.14.124) dengan port yang disediakan untuk melayani client (misal port 1234).
Ketika client (misal 10.231.12.12) melakukan koneksi ke server itu melalui client socket 983, server membuat socket baru yang unik (server client socket) yang meng-handle koneksi client itu misalnya 755. Dan koneksi yang ada adalah server 10.231.14.124 (755) – client 10.231.12.12 (983),

Bila ada client melakukan koneksi ke server port 1234 lagi (misal client 10.231.12.14 dengan socket 678) maka hal yang sama terjadi lagi, koneksi bertambah menjadi server 10.231.14.124 (755) – client 10.231.12.12 (983), server 10.231.14.124 (757) – client 10.231.12.14 (678), Bila ada client melakukan koneksi lagi menjadi
server 10.231.14.124 (755) – client 10.231.12.12 (983),
server 10.231.14.124 (757) – client 10.231.12.14 (678),
server 10.231.14.124 (761) – client 10.231.12.17 (378)

Yang dilakukan server dan client dalam proses ini adalah:
Untuk Server:

• Socket membuat record dan menunjuk handle pada record ini

• Melakukan proses bind yang menyiapkan alamat dari server untuk menerima permintaan data

• Listen, siap menerima client

• Ketika client datang, menerima dan membuat socket untuk client

• Menerima dan mengirim data

• Menutup (close) koneksi client

Untuk Client:

• Socket membuat record dan menunjuk handle pada record ini

• Melakukan koneksi ke server dan menunggu hingga server membuat socket baru

• Menerima dan mengirim data

• Menutup (close) koneksi client

Contoh berikut implementasi menggunakan TServerSocket untuk server dan TClientSocket untuk client. Prosesnya adalah, client meminta data tertentu dan server merespond dengan data string dengan panjang data 325 char.

Server :
unit Servunit;

interface
uses

Dua Form yang beriringan

Kadangkala diperlukan dua buah form, misalnya form1 dan form2 berjalan beriringan. Maksudnya beriringan yaitu bila form1 sebagai form utama dipindah/didrag maka form2 juga mengikuti pergerakan form1 itu kemanapun posisi pindahnya ya.. form2 yang setia sama form1 ceritanya.
Prosesnya pada message WM_MOVE yang muncul bila form1 digerakkan dan fungsi windows API MoveWindow untuk menggerakkan form2 ke posisi form1 yang baru :
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure FormShow(Sender: TObject);
private
{ Private declarations }
{ meng-override message WM_MOVE}
procedure WMMove(var Msg: TWMMove); message WM_MOVE;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
form2.Show;
end;

{procedure berikut akan dijalankan bila form1/window utama digerakkan/moved}
procedure TForm1.WMMove(var Msg: TWMMove);
begin
{if the toolbar window exists...}
if Form2<>nil then
{...move the toolbar window alongside the main window.}
MoveWindow(Form2.Handle, Form1.Left+Form1.Width+5, Form1.Top, Form2.Width,
Form2.Height, true);
end;

end.

Development phases

• Phase 1. Analyze the requirement : Identify what your program is required to do

• Phase 2. Design the Program : Determine how the program will meet the requirements

• Phase 3. Implement the design : Write the code

• Phase 4. Test your program : Make sure it works for all legal entries

CD NetBeans IDE 5.5.1

Akhirnya datang juga kiriman CD NetBeans IDE 5.5.1, CD ini berisi antara lain

• NetBeans IDE 5.5.1 Multilingual (Microsoft Windows, Linux, Solaris(TM) SPARC, Solaris(TM) x86, Mac OS X)

• NetBeans Mobility Pack for NetBeans IDE 5.5.1 Multilingual (Microsoft Windows, Linux)

• NetBeans Profiler for NetBeans IDE 5.5.1 Multilingual (Microsoft Windows, Linux, Solaris(TM) SPARC, Solaris(TM) x86, Mac OS X)

• Sun Java System Application Server Platform Edition 9.0 Update 1 (Microsoft Windows, Linux, Solaris(TM) SPARC, Solaris(TM) x86, Mac OS X)

• NetBeans 5.5.1 Documentation

Thank’s Sun..

Dialog Pemilihan Folder

Fungsi sederhana untuk menampilkan dialog pemilihan folder di Delphi ada di unit FileCtrl yaitu SelectDirectory,

Formatnya : function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload;

Pemakaiannya seperti berikut :


uses
FileCtrl;
//...
procedure TMainFrm.Button1Click(Sender: TObject);
var
s: string;
begin
if SelectDirectory('Select Directory','',S) then
Label1.Caption:=’Folder yang dipilih adalah : ‘+s;
end;
end;