Pernyataan SQL And

Pernyataan SQL AND digunakan bila akan menentukan lebih dari satu kondisi di klausa WHERE, dan pada saat yang sama ingin semua kondisi benar. Sebagai contoh jika Anda ingin memilih semua pelanggan dengan Nama_belakang “Yohanes” dan LastName “Smith”, Anda akan menggunakan ekspresi SQL berikut:
SELECT * FROM Customers
WHERE FirstName = ‘John’ AND LastName = ‘Smith’
http://www.sql-tutorial.net/SQL-AND-OR.asp
Pada bagian ini Pernyataan SQL AND kita akan membuat sebuah file tabel menggunakan fasilitas Database Desktop, data akan diisikan langsung melalui Database Desktop juga. Kemudian kita akan membuat form yang digunakan sebagai interface untuk mengakses data.

Pernyataan SQL AND

Langkah – langkah yang dilakukan dalam membuat project ini adalah :

1.FILE TABEL DAN DATABASE
a.File table yang akan digunakan :
-beli.db

2.    FORM
a.    Buatlah rancangan form Pernyataan SQL AND sebagai berikut :

b. Atur properties form Pernyataan SQL AND sebagai berikut :

c. Double klik button SELESAI, kemudian isikan listing program berikut ini :

procedure TForm1.btSelesaiClick(Sender: TObject);
begin
form1.Close;
end;

d. Double klik button AKTIFKAN SQL, kemudian isikan listing program berikut ini :

procedure TForm1.btAktifClick(Sender: TObject);
var
TotBeli : Currency;
PTgAwal, PTgAkhir : TDateTime;  begin
// cek data tanggal
try
begin
PTgAwal := StrToDate(edTgAwal.Text);
PTgAkhir := StrToDate(edTgAkhir.Text);
end;
except
begin
showmessage(‘Format Tanggal : dd-mm-yyyy’);
exit;
end;
end;
try
begin
// hapus string SQL lama jika ada
quBeli.SQL.Clear;
// tambahkan string SQL baru
quBeli.SQL.Add(‘select * from ‘+ QuotedStr(‘F:\PBO2\Latih26\Beli.db’));
if length(trim(edKodeBrg.Text))=0 then
edKodeBrg.Text :=’%';
quBeli.SQL.Add(‘where KodeBrg Like KodeBrg’);
quBeli.SQL.Add(‘and TgFaktur >= TgAwal’);
quBeli.SQL.Add(‘and TgFaktur <= TgAkhir’);
// set parameter
quBeli.ParamByName(‘PKodeBrg’).AsString := edKodeBrg.Text;
quBeli.ParamByName(‘PTgAwal’).AsDate := StrToDate(edTgAwal.Text);
quBeli.ParamByName(‘PTgAkhir’).AsDate := StrToDate(edTgAkhir.Text);
//siapkan query
quBeli.Prepare;
//buka SQL
quBeli.Open;
// hitung total pembelian
// bawa ke record pertama
quBeli.First;
TotBeli:=0;
//ulang sampai data habis
while not quBeli.Eof do
begin
TotBeli := TotBeli + (quBeli.fieldbyname(‘Banyak’).AsCurrency*
quBeli.fieldbyname(‘HBeli’).AsCurrency);
quBeli.Next;
end;
quBeli.First;
edTotBeli.Text:=Format(‘%22m’,[TotBeli]);
end;
except
begin
beep;
edTotBeli.text:=’ ‘;
ShowMessage(‘Pernyataan SQL tidak sah!’);
end;
end;  // end try
end;

e. Double klik suatu ruang kosong di Form, kemudian isikan listing program berikut ini :

procedure TForm1.FormCreate(Sender: TObject);
begin
edTotBeli.Enabled := False;
edTotBeli.Color := clBtnFace;
btAktif.Default := True;
end;

f. Double klik edit edKodeBrg, kemudian isikan listing program berikut ini :

procedure TForm1.edSelectChange(Sender: TObject);
begin
btAktif.Default := True;
end;

g. Double klik edit edTgAwal, kemudian isikan listing program berikut ini :

procedure TForm1.edTgAwalChange(Sender: TObject);
begin
btAktif.Default := True;
end;

h. Double klik edit edTgAkhir, kemudian isikan listing program berikut ini :

procedure TForm1.edTgAkhirChange(Sender: TObject);
begin
btAktif.Default := True;
end;

1.M. Agus J. Alam, 2005, Belajar Sendiri Pemrograman Database Lokal dan Server Menggunakan Borland Delphi 2005,  Gramedia, Jakarta
2.Pernyataan SQL AND di http://www.sql-tutorial.net/SQL-AND-OR.asp