delphi4arab منتديات دلفي للعرب

لديا عمود بااسم tagded من نوع true&folse
اريد فلترة العمود عن طريق checkbox
اي عند عمل علامة صح في checkbox يبقى true فقط ف العمود
قمت بوضع هدا الكود ولكن لم ينجح Sad

PHP كود :
procedure TForm1.DBCheckBox1Click(Sender: TObject);
begin
if DBCheckBox1.Checked=true then
begin
adotable1.Filter:='tagded=true';
ADOTable1.Filtered:=true;
end
else
begin
[align=right]adotable1.Filter:='tagded=false';[/align]

ADOTable1.Filtered:=false;
end;
end;

end. 

وهدا الخطأ الدي واجهني

[صورة: 721220257.jpg]

الرجاء المساعدة

السلام عليكم

للفلترة في دلفي يكفي ان تكتب كود مثل

كود :
Begin
 Adotable1.Filter:='tagded='+QuotedStr('true');
 ADOTable1.Filtered:=DBCheckBox1.Checked;
End;

يمكنك استخدام sql في الفلترة، على سبيل المثال:

كود :
if CheckBox1.Checked then
  adoquery1.sql.text:='select * from tablename where column=xx'; //بالفلترة
else
  adoquery1.sql.text:='select * from tablename'; //بدون فلترة
adoquery1.open;

يمكنك وضع الكود في حدث CheckBox1click

شكرا جزيلا لكم

محمدبورو

محمد عبد العزيز

omf_12000

محمدبورو