Belajar Query Di Delphi

Tutorial kali ini akan dibahas bagaimana membuat aplikasi sederhana berbasis database menggunakan delphi,, karena di Indonesia kebanyakan program yang sering diminta adalah berbasis database.mari kita belajar,,,,

Perlu diketahui dalam tutorial Kali ini adalah tutorial lanjutan dari sebelumnya,,, untuk pembuatan database silahkan klik disini dan untuk lainnya disini,,

Query merupakan perintah yang diberikan kepada database sebagai usaha untuk memanipulasi data. Query biasanya berupa perintah untuk menampilkan/mencari data, mengubah data, dan menghapus data. Berikut ini adalah contoh aplikasi yang menggunakan query untuk pencari data dengan menggunakan Delphi dan bagaimana cara membuatnya. Aplikasi tersebut digunakan untuk mencari data mahasiswa yang memanfaatkan tabel MHS yang telah dibuat sebelumnya.

Gambar 4.1 merupakan tampilan aplikasi saat dijalankan.


Pada gambar tersebut, terdapat kategori pencarian data yaitu berdasarkan NIM, nama mahasiswa, angkatan, dan alamat. Dalam aplikasi terdapat pula tempat memasukkan kata kunci terkait dengan data yang akan dicari. Hasil pencarian data akan ditampilkan pada DBGrid.

Berikut ini adalah cara membuatnya:

• Sisipkan komponen-komponen berikut ini dan ubahlah properties nya.

Keterangan:
Apabila properti REQUESTLIVE di set TRUE, maka data hasil pencarian dapat diedit.

Selanjutnya tambah code berikut ini pada event ON CLICK pada BUTTON1

procedure TForm1.Button1Click(Sender: TObject);
var query : string;
begin
{perintah untuk menghapus query SQL}
AdoQuery1.SQL.Clear;
{perintah SQL untuk pencarian berdasarkan kategori}
If Radiobutton1.Checked then
query := 'SELECT * FROM MHS WHERE NIM = :katakunci'
else If Radiobutton2.Checked then
query := 'SELECT * FROM MHS WHERE NAMAMHS LIKE:katakunci'
else If Radiobutton3.Checked then
query := 'SELECT * FROM MHS WHERE ANGKATAN = :katakunci'
else If Radiobutton4.Checked then
query := 'SELECT * FROM MHS WHERE ALAMAT LIKE :katakunci';
{menjalankan perintah query SQL}
AdoQuery1.SQL.Add(Query);
{mengganti parameter ‘katakunci’ dengan teks di dalam Edit1}
If Radiobutton2.Checked or Radiobutton4.Checked then
AdoQuery1.Parameters.ParamByName('katakunci').Value :=
'%'+Edit1.Text+'%'
else If RadioButton3.Checked then
AdoQuery1.Parameters.ParamByName('katakunci').Value :=
StrtoInt(Edit1.Text)
else
AdoQuery1.Parameters.ParamByName('katakunci').Value :=
Edit1.Text;
{menampilkan hasil pencarian}
AdoQuery1.Open;
{peringatan jika data pencarian tidak ditemukan}
If AdoQuery1.RecordCount = 0 then
MessageDlg('Data tidak ditemukan',mtinformation,[mbOK],0);
end;

Demikian tutorial mengenai query,,  Bagaimana sahabat BringInfo???  mudahkan membuat program berbasis database di delphi,, saya harap dengan adanya tutorial ini, kemampuan kita dalam hal programming semakin meluaasss (pedenya penuliss!! heheee)… Seperti biasa disini BringInfo selalu memberikan tutorial seringkas-ringkasnya namun sangat jelas,, jika ada pertanyaan atau kririkan silahkan berkomentar teman,,,,atau bertanya ke-MbahGoogle!!& hehee,,,