Skip to main content

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.

image
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.
image
image
image
image
image
image
Keterangan:
Apabila properti REQUESTLIVE di set TRUE, maka data hasil pencarian dapat diedit.
image
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,,,
Labels:

Popular posts from this blog

REVIEW MOTHERBOARD JETWAY TI61M5

Motherboard untuk entertainment PC Dilengkapi dengan dua tembok perlindungan anti petir, Jetway TI61M8 hadir untuk kalangan perkantoran dan usaha kecil. Feature pengaman tersebut mengamankan network port dan chip LAN dari arus listrik berlebih. Sistem perlindungan tersebut bekerja dengan cara mengalihkan arus listrik berlebih ke ground wire. Dengan teknologi ini, Jetway TI61M8 mampu bertahan dari serangan petir hingga kekuatan 9000 volt. Jetway TI61M8 menggunakan chipset H61 yang menggunakan soket LGA 1155. Hal ini membuatnya mendukung penggunaan prosesor Sandy Bridge dan prosesor terbaru dari Intel, yaitu Ivy Bridge. Chipset H61 dikembangkan oleh Intel untuk tujuan multimedia dengan memanfaatkan keunggulan tampilan grafis Sandy Bridge, yaitu Intel HD 3000. Feature yang disematkan pada chipset H61 memang tidak selengkap chipset Z68, namun chipset tersebut sudah mencukupi kebutuhan perkantoran. Jetway TI61M8 mendukung penggunaan memory dengan clock hingga 1600 ...
Read more

Membuat Laporan Report Delphi

Dalam tutorial kali ini Bring Info akan menyajikan bagaimana cara membuat laporan atau report dalam delphi, Report/laporan merupakan bentuk print out dari data. Data yang dimaksud dapat berupa data keseluruhan dari suatu tabel atau data yang diperoleh dari suatu query pencarian. Berikut ini adalah pembahasan bagaimana membuat report dari suatu tabel maupun dari query. Perlu diketahui dalam tutorial kali ini adalah tutorial ringkas yang pembahasannya langsung menuju pada pengolahan table dalam Delphi atau aplikasi yang telah diterangkan pada tutorial sebelumnya, jadi saya sangat sarankan untuk mengetahui tutorial pembuatan databasenya KLIK DISINI,,,, setelah itu koneksi database Access ke Delphi KLIK DISINI,,,, mempelajari cara kerja ADO TABEL KILK DISINI,,,, Dan terakhir adalah memahami Query Di Delphi KLIK DISINI,,,,,, Report dari Tabel Sebagai contoh, kita akan membuat aplikasi yang dapat mencetak semua data yang ada dalam tabel MHS. Desain tampilan aplikasi tampak p...
Read more

REVIEW CASING VENOMRX LEVANTINE

Feature Pendinginan hard disk yang optimal VenomRX kembali memperbaharui jajarang casing untuk para pecinta gaming. VenomRX Levantine hadir dengan feature baru yang mengejutkan. Meskipun masih mempertahankan feature lama seperti LED fan pada bagian depan yang memiliki dua warna, merah dan biru. Casing ini juga menggunakan bahan mesh pada sisi depan untuk meng-optimalkan aliran udara yang masuk. Dari sisi depan, Anda dapat melihat bahwa casing ini memiliki tiga buah slot 5,25 inci. Meski begitu, casing ini hanya menyediakan dua buah  lock screwless. Uniknya lagi, casing ini tidak memiliki slot khusus untuk hard disk 3,5 inci. Anda akan menemukan dua buah converter 5,25 ke 3,5 inci berwarna merah pada sisi dalam.  Karena ruang yang besar di dalam casing, Anda dapat menggunakan graphics card berukuran panjang.VenomRX Levantine memang hanya mendukung penggunaan dua buah hard disk. Namun, optimalisasi keamanan dan pendinginan yang diberikan kepada hard disk dapat ...
Read more