[PembekalanPRAKERIN2015] Tombol Cari

//=== TOMBOL CARI ==========================================================
procedure TForm1.Button4Click(Sender: TObject);
var
  hitungBaris: Integer;
begin
  if Edit4.Text = '' then
  begin
    ShowMessage('Masukkan kata kunci terlebih dahulu!');
  end else
  begin
    ZTable1.Filtered := False;
    ZTable1.Filter := ComboBox2.Text + ' LIKE '+'''*'+Edit4.Text+'*''';
    ZTable1.Filtered := True;
    hitungBaris := ZTable1.RecordCount;
    if hitungBaris = 0 then
    begin
      ShowMessage('Data tidak ditemukan.');
      ZTable1.Filtered := False;
    end;
  end;
end;
//==========================================================================