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

السلام عليكم
كيف اقوم بتصفية جدول بإستخدام حقلين او اكثر

PHP كود :
table1.Filter:='ane='+edit11.Text; ;  
             almasarif.Filtered:=true; 

في هذه الجملة قمت بفرز جدول بإستخدام edit من خلال حقل السنة 'ane'
المطلوب هو كيف اقوم بالفرز بإستخدام حقل السنة 'ane' و حقل الشهر 'moi' بالاعتماد على edit1 , edit2؟

السلام عليكم

استعمل استعلامات sql

مثال

PHP كود :
query1.close;
query1.SQL.Add('SELECT * FROM TableName ');
query1.SQL.Add('WHERE Field1 ='+edit1.Text+' AND Field2 = '+edit2.Text+'');
query1.open; 

السلام عليكم
جرب شيئ مثل هذا

كود :
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;

السلام عليكم او عن طريق اضافة شرط 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; 

سلام عليكم

طريقة اخرى : تمرير البراميتر داخل الاستعلام

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; 

بالتوفيق
.

سلام عليكم
كيف اقوم بتصفية جدول بإستخدام حقلين بشرط حقلين integer
مع العلم أني أستعمل قاعدة بيانات sqlserver

إقتباس :كيف اقوم بتصفية جدول بإستخدام حقلين بشرط حقلين 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;

salmaanga

Mr.DOS

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

S.FATEH

Mr.DOS

midone

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