+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اقوم بتصفية Filter جدول بإستخدام حقلين او اكثر في نفس الوقت (/showthread.php?tid=6983)
كيف اقوم بتصفية Filter جدول بإستخدام حقلين او اكثر في نفس الوقت - salmaanga - 10-05-2015
السلام عليكم
كيف اقوم بتصفية جدول بإستخدام حقلين او اكثر
PHP كود :
table1.Filter:='ane='+edit11.Text; ;
almasarif.Filtered:=true;
المطلوب هو كيف اقوم بالفرز بإستخدام حقل السنة 'ane' و حقل الشهر 'moi' بالاعتماد على edit1 , edit2؟
كيف اقوم بتصفية Filter جدول بإستخدام حقلين او اكثر في نفس الوقت - Mr.DOS - 10-05-2015
السلام عليكم
استعمل استعلامات sql
مثال
PHP كود :
query1.close;
query1.SQL.Add('SELECT * FROM TableName ');
query1.SQL.Add('WHERE Field1 ='+edit1.Text+' AND Field2 = '+edit2.Text+'');
query1.open;
.
كيف اقوم بتصفية Filter جدول بإستخدام حقلين او اكثر في نفس الوقت - محمد عبد العزيز - 10-05-2015
السلام عليكم
جرب شيئ مثل هذا
كود :
Var
s,s1,s2 : String;
begin
s:='';
s1:=Edit1.Text;
s2:=Edit1.Text;
if s1<>'' then s:='(ane='+QuotedStr(s1)+')';
if s2<>'' then begin
if s<>'' then s:=s+' AND ';
s:=s+'(moi='+QuotedStr(s2)+')';
end;
Table1.Filter:=s;
Table1.Filtered:=s<>'';
end;كيف اقوم بتصفية Filter جدول بإستخدام حقلين او اكثر في نفس الوقت - S.FATEH - 12-05-2015
السلام عليكم او عن طريق اضافة شرط 1 = 1
مثال
PHP كود :
Query.close;
Query.SQL.Add('SELECT * FROM TableName WHERE 1 = 1');
if Edit1.Text <> '' then
Query.SQL.Add('and Field1 = ' + QuotedStr(edit1.Text));
if Edit2.Text <> '' then
Query.SQL.Add('and Field2 = ' + QuotedStr(edit2.Text));
Query.open;
كيف اقوم بتصفية Filter جدول بإستخدام حقلين او اكثر في نفس الوقت - Mr.DOS - 13-05-2015
سلام عليكم
طريقة اخرى : تمرير البراميتر داخل الاستعلام
PHP كود :
with adoquery1 do
begin
Sql.Clear;
Sql.Add('SELECT * FROM TABLE_NAME');
Sql.Add('WHERE FIELD1 = :F1 AND FIELD2 = :F2');
Parameters.ParamByName('F1').Value:=Edit1.Text;
Parameters.ParamByName('F2').Value:=Edit2.Text;
Open;
end;
بالتوفيق
.
RE: كيف اقوم بتصفية Filter جدول بإستخدام حقلين او اكثر في نفس الوقت - midone - 29-09-2017
سلام عليكم
كيف اقوم بتصفية جدول بإستخدام حقلين بشرط حقلين integer
مع العلم أني أستعمل قاعدة بيانات sqlserver
RE: كيف اقوم بتصفية Filter جدول بإستخدام حقلين او اكثر في نفس الوقت - محمد عبد العزيز - 03-10-2017
إقتباس :كيف اقوم بتصفية جدول بإستخدام حقلين بشرط حقلين integerالسلام عليكم
جرب ما يلي مع تغيير Field1 و Field2 باسماء الحقول و ADOTable1 باسم الجدول عندك
كود :
Var
s,s1,s2 : String;
begin
s:='';
s1:=Edit1.Text;
s2:=Edit2.Text;
if s1<>'' then s:='(Field1='+s1+')';
if s2<>'' then begin
if s<>'' then s:=s+' AND ';
s:=s+'(Field2='+s2+')';
end;
ADOTable1.Filter:=s;
ADOTable1.Filtered:=s<>'';
end;