السلام عليكم و رحمة الله وبركاته ،
احتجت إلى استعمال الحقول الحسابية (calculated field) لاستعمالها في الفلترة ، بحثت عنها ، وبعد أن وجدتها واستعملتها و فرحت بها .
وضعتها هنا ليستفيد منها من يحتاج إليها.
برجاء أن لا يكون الموضوع مكرر
في الحدث OnFilterRecord التابع لل (Table , Query)
شرط بسيط :
حيث أن CF هو اسم الحقل الحسابي.
dataSet1 هو اسم للمكون الذي تستعمله في جلب المعطيات table أو Query
شرط متعدد:
مع الملاحظة أن الحدث OnFilterRecord لن يتم استدعاؤه إلا إذا كان الخاصية Filtered لها القيمة True.
دعواتكم.
احتجت إلى استعمال الحقول الحسابية (calculated field) لاستعمالها في الفلترة ، بحثت عنها ، وبعد أن وجدتها واستعملتها و فرحت بها .
وضعتها هنا ليستفيد منها من يحتاج إليها.
برجاء أن لا يكون الموضوع مكرر
في الحدث OnFilterRecord التابع لل (Table , Query)
شرط بسيط :
كود :
procedure TForm1.DataSet1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := (DataSet1.FieldByName('CF').Value = comp);
end;حيث أن CF هو اسم الحقل الحسابي.
dataSet1 هو اسم للمكون الذي تستعمله في جلب المعطيات table أو Query
شرط متعدد:
كود :
procedure TForm1.DataSet1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := (DataSet1.FieldByName('CF').Value = comp) and
((DataSet1.FieldByName('Dates').Value = '01/01/2016') or
(DataSet1.FieldByName('Dates').Value = '01/02/2016');
end;مع الملاحظة أن الحدث OnFilterRecord لن يتم استدعاؤه إلا إذا كان الخاصية Filtered لها القيمة True.
دعواتكم.
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)
