دخول

mobile · 13-12-2011, 07:49 PM

اخي
استعمل البحث ستجد ما تريد تقريبا كل شيئ يتعلق بالفلترة او قواعد البيانات موجود في هذا المنتدى الجميل فيه انك تجد فيه اناس طيبون ومشرفون اطيب من الطيب يصعدون بك للعى
وكنصيحة اكتب في قوقل ما تريد البحث عنه واضف بجانبها delphi4arab وانظر ماذا تجد

http://www.delphi4arab.net/forum/showthr...p?tid=5314

كود :
procedure TForm1.Button1Click(Sender: TObject);
var  date1, date2 : string;
begin
date1 := datetostr(datetimepicker1.Date);
date2 := datetostr(datetimepicker2.Date);
table1.Filter := 'dt >='''+date1+'''and dt <='''+date2+'''';
table1.Filtered := true;
//---------
ADOTable1.Filter:='FieldDate>='+QuotedStr(Edit1.Text)+'AND FieldDate<='+QuotedStr(Edit2.Text); 
ADOTable1.Filtered:= not ADOTable1.Filtered;





var F,D:string;
begin
D:=MaskDebut.Text;
F:=MaskFin.Text;
TCommande.filter:='Event_Date>='''+D+'''and Event_Date<='''+F+'''';
TCommande.filtered:=True;
TCommande.First;
end;

فلترة قيمتين

كود :
ADOTable7.Filter := 'Nom like ' + quotedstr('*'+ spSkinEdit5.Text +'*')+' and '+'Prénom like ' + quotedstr('*'+ spSkinEdit6.Text +'*');

كود :
http://www.delphi4arab.net/forum/showpost.php?p=31815&postcount=2

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة