Memilih Data Menggunakan Kriteria

1.TABEL DAN DATABASE
Buat table dengan struktur sbb :
•Nama Tabel     :     TABELMHS
•Nama Database     :     DBMHS


2.    FORM

3.    SETTING PROPERTIES

4.LISTING PROGRAM
1.Double klik komponen edit dengan nama edKataKunci, isikan listing program berikut :
procedure TfrmPencarian.btCariClick(Sender: TObject);
Var query : string;
begin
{perintah untuk menghapus query SQL}
QuMhs.SQL.Clear;
{perintah SQL untuk pencarian berdasarkan kategori}
if rbNim.Checked then
query := ‘SELECT * FROM TABELMHS WHERE NIM LIKE :katakunci’
else if rbNamaMhs.Checked then
query := ‘SELECT * FROM TABELMHS WHERE NAMAMHS LIKE :katakunci’
else if rbAngkatan.Checked then
query := ‘SELECT * FROM TABELMHS WHERE ANGKATAN = :katakunci’
else if rbAlamat.Checked then
query := ‘SELECT * FROM TABELMHS WHERE ALAMAT LIKE :katakunci’;
{menjalankan perintah query sql}
QuMhs.SQL.Add(query);
{mengganti parameter ‘katakunci’ dengan teks di dalam edKataKunci}
If rbNamaMhs.Checked or rbAlamat.Checked then
QuMhs.ParamByName(‘katakunci’).Value := ‘%’+edKataKunci.Text+’%’
else If rbAngkatan.Checked then
QuMhs.ParamByName(‘katakunci’).Value := StrToInt(edKataKunci.Text)
else
QuMhs.ParamByName(‘katakunci’).Value := ‘%’+edKataKunci.Text+’%';
If rbNamaMhs.Checked or rbAlamat.Checked or rbNim.Checked then
QuMhs.ParamByName(‘katakunci’).Value := ‘%’+edKataKunci.Text+’%’
else
QuMhs.ParamByName(‘katakunci’).Value := StrToInt(edKataKunci.Text);
{menampilkan hasil pencarian}
QuMhs.Open;
{peringatan jika data pencarian tidak ditemukan}
if QuMhs.RecordCount = 0 then
MessageDlg(‘Data tidak ditemukan’,mtinformation,[mbOK],0);
end;
2.Double klik button btKeluar, isikan listing program berikut :
procedure TfrmPencarian.btKeluarClick(Sender: TObject);
begin
Application.Terminate;
end;