procedure TForm1.AdoTDetailFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
 if (cxbFiltre.Checked) then
     Accept := ( (DataSet.FieldByName('miktar').AsInteger >= StrToInt(Edit1.Text))
             and (DataSet.FieldByName('miktar').AsInteger <= StrToInt(Edit2.Text)) );
end;

(05-02-2019, Saat: 11:35)adelphiforumz Adlı Kullanıcıdan Alıntı: @SenayAkgun test ettim aşağıdaki şekilde çalışıyor tekrar bir yaptıklarınızı aşağıdakiine göre kontrol etmenizde fayda var

procedure TForm1.AdoTDetailFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
 if (cxbFiltre.Checked) then
     Accept := ( (DataSet.FieldByName('miktar').AsInteger >= StrToInt(Edit1.Text))
             and (DataSet.FieldByName('miktar').AsInteger <= StrToInt(Edit2.Text)) );
end;

object Form1: TForm1
  Left = 0
 Top = 0
 Caption = 'Form1'
 ClientHeight = 535
 ClientWidth = 870
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'Tahoma'
 Font.Style = []
 OldCreateOrder = False
 PixelsPerInch = 96
 TextHeight = 13
 object Label1: TLabel
   Left = 224
   Top = 4
   Width = 48
   Height = 13
   Caption = 'Min Miktar'
 end
 object Label2: TLabel
   Left = 306
   Top = 5
   Width = 52
   Height = 13
   Caption = 'Max Miktar'
 end
 object DBGrid1: TDBGrid
   Left = 32
   Top = 70
   Width = 817
   Height = 159
   DataSource = DSMaster
   TabOrder = 0
   TitleFont.Charset = DEFAULT_CHARSET
   TitleFont.Color = clWindowText
   TitleFont.Height = -11
   TitleFont.Name = 'Tahoma'
   TitleFont.Style = []
 end
 object DBGrid2: TDBGrid
   Left = 32
   Top = 240
   Width = 817
   Height = 205
   DataSource = DSDetail
   TabOrder = 1
   TitleFont.Charset = DEFAULT_CHARSET
   TitleFont.Color = clWindowText
   TitleFont.Height = -11
   TitleFont.Name = 'Tahoma'
   TitleFont.Style = []
 end
 object Edit1: TEdit
   Left = 224
   Top = 23
   Width = 61
   Height = 21
   TabOrder = 2
   Text = '10'
 end
 object Edit2: TEdit
   Left = 306
   Top = 23
   Width = 61
   Height = 21
   TabOrder = 3
   Text = '20'
 end
 object cxbFiltre: TCheckBox
   Left = 388
   Top = 20
   Width = 97
   Height = 17
   Caption = 'Filtre Uygula'
   TabOrder = 4
 end
 object ADOC: TADOConnection
   LoginPrompt = False
   Provider = 'SQLOLEDB.1'
   Left = 96
   Top = 22
 end
 object AdoQMaster: TADOQuery
   Connection = ADOC
   CursorType = ctStatic
   Parameters = <>
   SQL.Strings = (
     
       'Select IdAlis, FaturaNo, FaturaTarihi, NetTutar, Aciklama From d' +
       'bo.Alis')
   Left = 70
   Top = 94
 end
 object DSMaster: TDataSource
   DataSet = AdoQMaster
   Left = 72
   Top = 154
 end
 object DSDetail: TDataSource
   DataSet = AdoTDetail
   Left = 156
   Top = 150
 end
 object AdoTDetail: TADOTable
   Connection = ADOC
   CursorType = ctStatic
   Filtered = True
   OnFilterRecord = AdoTDetailFilterRecord
   IndexFieldNames = 'IdAlis'
   MasterFields = 'IdAlis'
   MasterSource = DSMaster
   TableName = 'AlisDetay'
   Left = 154
   Top = 94
   object AdoTDetailIdAlisDetay: TAutoIncField
     DisplayWidth = 12
     FieldName = 'IdAlisDetay'
     ReadOnly = True
   end
   object AdoTDetailIdAlis: TIntegerField
     DisplayWidth = 12
     FieldName = 'IdAlis'
   end
   object AdoTDetailBarkod: TWideStringField
     DisplayWidth = 16
     FieldName = 'Barkod'
     Size = 13
   end
   object AdoTDetailMiktar: TSmallintField
     DisplayWidth = 12
     FieldName = 'Miktar'
   end
   object AdoTDetailBirimFiyat: TFloatField
     DisplayWidth = 12
     FieldName = 'BirimFiyat'
   end
   object AdoTDetailDepocuFiyati: TFloatField
     DisplayWidth = 13
     FieldName = 'DepocuFiyati'
   end
   object AdoTDetailKdvOrani: TFloatField
     DisplayWidth = 12
     FieldName = 'KdvOrani'
   end
   object AdoTDetailEczaciKarOrani: TFloatField
     DisplayWidth = 14
     FieldName = 'EczaciKarOrani'
   end
   object AdoTDetailIskontoTutari: TBCDField
     DisplayWidth = 18
     FieldName = 'IskontoTutari'
     Precision = 19
   end
   object AdoTDetailNetFiyat: TBCDField
     DisplayWidth = 13
     FieldName = 'NetFiyat'
     Precision = 19
   end
 end
end

unit Unit1;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, Data.Win.ADODB;

type
 TForm1 = class(TForm)
   ADOC: TADOConnection;
   AdoQMaster: TADOQuery;
   DSMaster: TDataSource;
   DSDetail: TDataSource;
   AdoTDetail: TADOTable;
   DBGrid1: TDBGrid;
   DBGrid2: TDBGrid;
   AdoTDetailIdAlisDetay: TAutoIncField;
   AdoTDetailIdAlis: TIntegerField;
   AdoTDetailBarkod: TWideStringField;
   AdoTDetailMiktar: TSmallintField;
   AdoTDetailBirimFiyat: TFloatField;
   AdoTDetailDepocuFiyati: TFloatField;
   AdoTDetailKdvOrani: TFloatField;
   AdoTDetailEczaciKarOrani: TFloatField;
   AdoTDetailIskontoTutari: TBCDField;
   AdoTDetailNetFiyat: TBCDField;
   Edit1: TEdit;
   Edit2: TEdit;
   Label1: TLabel;
   Label2: TLabel;
   cxbFiltre: TCheckBox;
   procedure AdoTDetailFilterRecord(DataSet: TDataSet; var Accept: Boolean);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AdoTDetailFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
 if (cxbFiltre.Checked) then
     Accept := ( (DataSet.FieldByName('miktar').AsInteger >= StrToInt(Edit1.Text))
             and (DataSet.FieldByName('miktar').AsInteger <= StrToInt(Edit2.Text)) );
end;

end.

(05-02-2019, Saat: 15:05)SenayAkgun Adlı Kullanıcıdan Alıntı:

(05-02-2019, Saat: 11:35)adelphiforumz Adlı Kullanıcıdan Alıntı: @SenayAkgun test ettim aşağıdaki şekilde çalışıyor tekrar bir yaptıklarınızı aşağıdakiine göre kontrol etmenizde fayda var

procedure TForm1.AdoTDetailFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
 if (cxbFiltre.Checked) then
     Accept := ( (DataSet.FieldByName('miktar').AsInteger >= StrToInt(Edit1.Text))
             and (DataSet.FieldByName('miktar').AsInteger <= StrToInt(Edit2.Text)) );
end;

Dün ben bu yöntemi denediğimde bir sürü problem oluştu ve vazgeçtim. 

Örnek uygulamayı foruma eklemeniz mümkün mü nerede yanlış yaptığımı görmek için.

---

Hatta sorunu şöyle izah edeyim. Ben bu filtreleme şeklini uyguladığımda master/detail yapısı kaybolup master tablodan bağımsız olarak detail tablodaki tüm filtre uygulanmış kayıtları gösteriyor.

Basitleştirmek adına; örneğin birden fazla carimiz olsun ve her carimiz de maya, yağ, şeker vs. alsın. Master tablom cari, detail tablom urun olsun. Ben herhangi bir cariye odaklanmış iken o cariye ait kaç adet maya satıldığını görmek istediğim zaman,

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADODataSet.Filtered := True;
end;

procedure TDataModule.ADODataSetFilterRecord(DataSet: TDataSet;
 var Accept: Boolean);
begin
   Accept := DataSet.FieldByName('urun_adi').AsString='MAYA'
end;

Ürünlere ait DBGrid 'de tüm carilere satılmış olan mayaları listeliyor. Carilere ait gridde dolanmaya başladığımda bu sorun düzeliyor, ancak ilk seferde hep bu hata oluyor yani tüm mayaları listeliyor.

(05-02-2019, Saat: 17:11)SenayAkgun Adlı Kullanıcıdan Alıntı: adelphiforumz,

Çok teşekkürler.

Resimdeki gibi tasarım anında Filtered özelliğini TRUE olara değiştirince sorun düzeldi. Ben çalışma anında yapıyordum ve çok kötü bir sonuç ortaya çıkıyordu.

(06-02-2019, Saat: 11:13)adelphiforumz Adlı Kullanıcıdan Alıntı:

(05-02-2019, Saat: 17:11)SenayAkgun Adlı Kullanıcıdan Alıntı: adelphiforumz,

Çok teşekkürler.

Resimdeki gibi tasarım anında Filtered özelliğini TRUE olara değiştirince sorun düzeldi. Ben çalışma anında yapıyordum ve çok kötü bir sonuç ortaya çıkıyordu.

Çalışma Anındada aynı şekilde kullanabilrsiniz ekrandaki gidip gelmeleri engellemek adına işlemin başına Table.DisabledControl ve İşlemin sonunda Table.EnabledControl demeniz yetecektir.