Filter database yang tidak memenuhi ketentuan

Jika dalam program yang kita buat apalagi khususnya penjualan akan terjadi banyak kemungkinan kesalahan jika tidak menggunakan filtering diprogram anda dengan melakukan filtering berdasarkan isi database dan mengeluarkannya informasi kesalahan sehingga perhitungan atau informasi yang akan disimpan didatabase tidak ada kesalahan fatal.

Berikut ini sceen shotnya;

Listing yang digunakan untuk filtering data:
 if qpenduduk.RecordCount < 1 then
        begin
          if MessageDlg('Data yang Anda masukkan data baru, silahkan masukkan data KEPALA KELUARGA terlebih dahulu...!',mtInformation ,[mbok ],0) =mrok then
              begin
                  //FormShow(sender);
                  cbhubungankel.text:='Kepala Keluarga';
                  //cbhubungankel.Enabled:=false;
                  eno.Enabled:=True;
                  eno.SetFocus;
                  aktif;
                  exit;
              end;

        end;

Itulah lisiting yang digunakan dalam memfilter data lihat juga  mengcopy sebagaian isi datetae picker ke string