SQL

Nama : IIS AISYAH
NIM : 206.436

DATABASE DEKSTOP DELPHI

A. SEKILAS SQL(Structured Query Language)
SQL adalah Singkatan dari (Structured Query Language).SQL adalah bahasa yang digunakan untuk berkomunikasi dengan RDBMS(Relational Database
Management System). SQL digunakan untuk membuat objek-objek database dan memanipulasi data pada database.
SQL pertama kali dikembangkan pada tahun 1970`an di laboratorium IBM-
San Jose California Pertama kali dikembangkan sebagai bahasa di produk database
DB2 yang sampai saat ini merupakan produk database andalan IBM. SQL sering di
lafalkan dengan “sequel”.SQL selanjutnya berkembang menjadi berbagai macam dan bentuk.Setiap Vendor RDBMS seperti Ms.Acsses dkk mengembangkan versi SQL nya masing-masing.beberapa standart SQL yang diterima luas adlah SQL ANSI 92 dan SQL ANSI 99.

B. Perintah-perintah SQL dikelompokan menjadi 2 bagian penting yaitu :
DML(Data Manipulation Language) dan DDF(Data Definition Language).
DDF merupakan perintah SQL yang berhubungan dengan pembentukan objekobjek database,seperti Triger,Stored Procedure de-el-el.
DMF merupakan perintah SQL yang berhungan dengan manipulasi data sperti memperolehdata,memasukan,mengedit,mengupdate,danmenghapusdata
.permintaan/penggunaan perintah SQL pada suatu database disebut dengan Query.
Query-Query Dasar:
*SELECT,untuk memperoleh data dari tabel.
*INSERT,untuk menambah data ke tabel.
*UPDATE,untuk mengupdate data yang ada pada tabel.
*DELETE,untuk menhapus suatu record pada tabel.



C. CONTOH PROGRAM nya di DELPHI

untuk componentnya udah pada tau kan??kalo gak tau kebangetan!!! Tambain ADOConnection,2 ADOQuery pada palette ADO,DataSource pada palette DataAccsess,DBGrid dan DBNavigator pada palette DataControls yang lainya pasti tau deh,atur jadi kaya di atas ya….info 2 component ADO Query agar
mempermudah pemanipulasian data dan Query untuk DDL dan DML.
Untuk database nya kita pake aja database dbdemos yang terdapat di

C:\Program Files\Common Files\Borland Shared\Data\dbdemos.mdb
Tentunya anda harus punya delphi dulu.Langkah-langkah:
-sedikit tips dari saya agar lebih mudah dan mempersingkat penulisan coding dan
penulisan saya di E-Book ini  ubah nama ADOConnection dan ADOQuery menjadi
con untuk ADOConnection dan query dan query1 untuk ADOQuery.untuk selanjutnya ADOConnection akan disebut con dan ADOQuery akan disebut query so..biasakan
-double click pada conclick Build pilih Microsoft.Jet.OLEDB.4.0 lalu hubungkan
dengan database yang berada di directory yang saya sebutkan diatas.
-Atur Properties sbb:
-Pada Project seperti ini akan banyak perocedure yang menggunakan procedure yang sama,agar lebih efisien maka dibuat 2 Procedure yang kita definisikan sendiri,yaitu procedure Show untuk untuk menampilkan semua record dari database dan
procedure Delete untuk menghapus Record.Masuk Code Editor atau pencet aja
F12..pada bagian {Public Declaration} ketikan code berikut:

private
{ Private declarations }
public
{ Public declarations }
Procedure delete;
procedure show;
end;
-Lalu di bawah Implementation {$R *.dfm} ketikan Procedurenya sbb: implementation
{$R *.dfm}
procedure TForm1.delete;
Begin
if messagedlg('yakin akan menghaspus record ini?',mtconfirmation,
[mbYes,mbCancel],0)=mrYes then
begin
con.BeginTrans;//memulai transaksi with query1 do begin
sql.Clear;
sql.Text:='delete from country where name=:parName';
parameters.ParamByName('parName').Value:=query.fieldbyname('name' ).AsString;
execsql;//eksekusi perintah
end;
query.Requery();//mengembalikan semula query
con.CommitTrans;mengakhiri transaksi
end;
end;
Procedure TForm1.show;
Begin
with query do begin
sql.clear;//selalu menghapus query yang masih ada jika ada sql.Text:='select * from country order by Name asc';
open;//membuka query
end;
end;
-Double click pada bagian form maka akan muncul code editornya tambahkan code berikut:
procedure TForm1.FormCreate(Sender: TObject); begin
con.connection:=true;//menghubungkan dengan database end;
-pada form1 di bagian yang kosong double click button “tambah” ketikan “form2.showmodal;” tanpa tanda kutip.
pencet F12
-tambahkan form baru dan atur jadi kaya gini:
















pada form2 double click button “tambahkan” dan ketikan code berikut:



procedure TForm2.Button1Click(Sender: TObject); begin
form1.con.BeginTrans;
with form1.query do begin
sql.Clear;
sql.Text:='insert into
country(Name,Capital,Continent,Area,Population)'+

'Values(:parName,:parCapital,:parContinent,:parArea,:parPopulatio
n)';
prepared;//mempersiapkan
parameters.ParamByName('parName').Value:=Edit1.text;
parameters.ParamByName('parCapital').Value:=Edit2.text;
parameters.ParamByName('parContinent').Value:=Edit3.text; parameters.ParamByName('parArea').Value:=Edit4.text;
parameters.ParamByName('parPopulation').Value:=Edit5.text; execsql;//untuk mengeksekusi perintah SQL
form1.show;



-kalo untuk button kluar pasti pada tau kan?Cuma ngetik “Close;”
-Kembali pada form1 double click button Search ketikan code berikut:
procedure TForm1.Button3Click(Sender: TObject); begin
if edit1.Text='' then
show else
with query do begin
sql.Clear;
sql.Text:='select* from country where name
like'+quotedstr('%'+Edit1.Text+'%');
open;
end;
end;
-Double Pada Button “Hapus” di Form1,ketikan code berikut:
procedure TForm1.Button1Click(Sender: TObject); begin
delete;
end;
-Nah Beres dah,pencet dech F9!!!


























-kalo untuk button kluar pasti pada tau kan?Cuma ngetik “Close;”
-Kembali pada form1 double click button Search ketikan code berikut:
procedure TForm1.Button3Click(Sender: TObject); begin
if edit1.Text='' then
show else
with query do begin
sql.Clear;
sql.Text:='select* from country where name
like'+quotedstr('%'+Edit1.Text+'%');
open;
end;
end;
-Double Pada Button “Hapus” di Form1,ketikan code berikut:
procedure TForm1.Button1Click(Sender: TObject); begin
delete;
end;
-Nah Beres dah,pencet dech F9!!!