Penggunaan Komponen Query pada Delphi

Apa itu komponen Query ?

Komponen Query adalah merupakan dataset klasik seperti komponen table. Sebuah query memerlukan perintah-perintah SQL. Dengan komponen Query datu diatur sebuah query menggunakan property SQLnya, dan ini jauh lebih mudah daripada mengatur tabel. Komponen query mempunyai properti datasetName seperti komponen table tetapi tidak mempunyai properti TableName. Tabel yang akan diakses ditentukan melalui perintah SQL yang dimasukan ke dalam properti SQL.Sebagai contoh, praktikan dapat menulis perintah SQL sederhana seperti berikut:

Komponen Query

Select * from Buku

Dimana Buku adalah nama tabel dan tanda * (asterik) manunjukan bahwa anda ingin menggunakan semua field (kolom) yang terdapat dalam tabel barang tersebut.

Beberapa Properti yang Umum Diatur pada Komponen Query

Berikut ini properti kompone Query yang umum diatur nilainya:

  • DatatabaseName, properti ini digunakan untuk menentukan nama atau lokasi database. Jika Anda menggunakan database format paradox, maka folder atau alias yang memuat tabel-tabel tersebut merupakan DatabaseName-nya.
  • Query, properti ini digunakan untuk menentukan perintah SQL dalam bentuk pernyataan SELECT yang akan ditampilkan datanya.
  • Active, properti ini digunakan untuk mengaktifkan koneksi kedatabase

Penentuan nilai dari masing properti tersebut harus dilakukan secara beurutan.

Latihan Menggunakan Komponen Query 

Program yang akan dibuat adalah program pencarian record-record pada tabel Buku berdasarkan judul buku.

  • Buat tabel Buku pada Database Desktop dengan struktur sebagai berikut:
Struktur Tabel Buku

Struktur Tabel Buku

  • Isi tabel Buku dengan record-record berikut:
Data Buku

Data Buku

  • Buat Alias dengan nama Perputakaan
  • Buat form baru dengan desain sebaga berikut:
Desain Form Query

Desain Form Query

 

Komponen Properti Nilai
Form Caption Cari Buku
Name FCariBuku
Query1 DatabaseName Perpustakaan
SQL SELECT * FROM Buku
Active True
DataSource1 DataSet Query1
DBGrid1 Datasource Datasource1
Button1 Caption &Cari
 Button2 Caption &Tutup
Edit1 Text (kosongkan)

Berikut ini tampilan setelah pengatuaran properti.

Desain Form Query Setelah Pengaturan PropertiKode Program untuk Form Cari Buku

procedure TFCariBuku.Button1Click(Sender: TObject);
begin
  Query1.SQL.clear;
  Query1.sql.Add('SELECT * FROM Buku WHERE Judul LIKE "%' + Edit1.Text +'%"');
  Query1.Active:=True;
end;

procedure TFCariBuku.Button2Click(Sender: TObject);
begin
  Close;
end;
  • Simpan form dengan nama uCariBuku.pas
  • Simpan project dengan nama pCariBuku.dpr

 

Hasil Eksekusi Program

Berikut ini tampilam hasil eksekusi program

Hasil Eksekusi Form Query

Hasil Eksekusi Form Query

Tugas

Dengan menggunakan data yang sama pada latihan, buatlah program dengan contoh hasil eksekusi sebagai berikut:

Form Tugas - Cari BukuSelamat mengerjakan tugas!

Tuliskan komentar anda

Komentar

Tinggalkan Balasan