Pemrograman Visual Delphi : Membuat Program SQL (Structured Query Language)

Pada tutorial ini akan mempelajari materi yang digunakan sebagai ‘jantung’ pada pemrograman klien/server, yaitu SQL . SQL adalah bahasa yang digunakan untuk membuat dan memanipulasi beberapa tabel data yang saling berhubungan. Apa keunggulan SQL dibandingkan teknik pemrograman basis data pada bab sebelumnya, Keunggulan pertama SQL telah diakui sebagai bahasa standar pada server basis data, seperti server oracle

Meskipun SQL adalah singkatan dari Structured Query Language, Anda tidak bisa menyamakan SQL dengan bahasa terstruktur seperti Pascal. Hal ini dikarenakan SQL bukan bahasa pemrograman yang berdiri sendiri . Pernyataan-pernyataan SQL harus digabungkan dengan bahasa pemrograman konvensional, mengapa? Karena SQL tdak mempunyai fasilitas Loop (Repeat..until, while..do), penyeleksi kondisi (if..then, case..of)

Contoh perintah SQL

- select

- where

- order by

- group by dan having

Untuk membuat programnya, Kerjakan contoh dibawah ini

Selanjutnya menseting komponennya

TTable	Database Name : DBDEMOS
	SQL : (klik di link ini)
	Active : True

Lalu masukkna tulisan

Tdatasource	Data set : Query1

DBGrid	Datasource : Datasource1

Setelah selesai coba jalankan from tersebut.

Membuat Program SQL menggunakan script program

Rancanglah form berikut

1. Masukkan code perintah untuk tombol default

procedure TFormparameter.TdefaultClick(Sender: TObject);

begin

query1.Close;

query1.SQL.Clear ;

query1.SQL.Add('SELECT * FROM COUNTRY');

query1.Open ;

end;

2. Masukkan code perintah untuk tombol seperti

procedure TFormparameter.Tsepertilick(Sender: TObject);

var

str : string;

begin

str:='Select * from country where name like "%s"';

query1.Close ;

query1.SQL.Clear ;

query1.SQL.Add(format(str,[edit1.text]));

query1.Open ;

end;

3. Masukkan code perintah untuk tombol samadengan

procedure TFormparameter.TsamadenganClick(Sender: TObject);

var

str : string;

begin

str:='Select * from country where name = "%s"';

query1.Close ;

query1.SQL.Clear ;

query1.SQL.Add(format(str,[edit1.text]));

query1.Open ;

end;

4. Selanjutnya jalankan program tersebut, cobalah untuk memasukkan nama negara dan tekan tombol (=) dan seperti , Program diatas dapat di modifikasi sesuai kebutuhan.