الفرز والفلترة بحقلين

[وليد]

السلام عليكم
بسم الله الرحمان الرحيم
لا شك أن البحث والفلترة أو الفرز لإيجاد واستخراج معلومات من قاعدة البيانات أمر مهم بل هو من أهم أمور البرمجة في مجال قواعد البيانات وقد مررت بتجربة البحث عن أكواد البحث في قاعدة البيانات وكذلك البحث عن أكواد الفرز والفلترة في قاعدة البيانات مررت بتجربة من خلال البحث عن هذه الأكواد في كثير من المواقع والمنتديات وكذلك سؤال بعض أهل الإختصاص في غير المواقع والمنتديات وعانيت كثيرا حتى حصلت على المقصود وجدت ما يفي بالغرض في مجال البحث والفلترة وهذا هو طريق طلب العلم الديني أو الدنيوي لا بد من بحث وعناء ، ولذلك أحببت أن أضع هنا مثالا على الفرز والفلترة بحقلين ولكوني مبتدئ ومنشغل بتعلم أشياء أخرى في مجال البرمجة وانشغالاتالدنيا وضيق الوقت لم أقدر على تطوير الكود لكي يصبح قابلا للفلترة أو الفرز بأكثر من حقلين لذلك أرجــوا من الإخوة ممن له باع في البرمجة وفهم دقيق أن يقدم على تطوير هذه العملية لأنها كما قلت من أهم أمور البرمجة في مجال قواعد البيانات والمثال في المرفقات وهذه تنبيهات:
1- الكود يكتب في حدث onChange لـ edit1 .

كود :

procedure TForm3.Edit1Change(Sender: TObject);
var
nom, prenom:string;
begin
ADOTable1.Filter := '';
if (Edit1.Text + edit2.Text) = '' then exit;
try
nom    := QuotedStr (Edit1.Text + '*');
prenom := QuotedStr (edit2.Text + '*');
if (Edit1.Text <> '') AND (edit2.Text <> '') then
ADOTable1.Filter:= Format('(nom LIKE %s) and (prenom LIKE %s)', [nom, prenom])
else
if (Edit1.Text <> '') then
ADOTable1.Filter:= Format('(nom LIKE %s)', [nom])
else
ADOTable1.Filter:= Format('(prenom LIKE %s)', [prenom]);
ADOTable1.Filtered := Trim((Edit1.Text + edit2.Text)) <> '';
except
abort;
end;
end;

2- في الحدث onEnter لـ edit2 تكتب الكود :

كود :

procedure TForm3.Edit2Enter(Sender: TObject);
begin
Edit2.OnChange:=edit1.OnChange;
end;

وهذا حتى لا تكرر كتابة الكود الأول .
علما أنا قاعدة البيانات المستعملة في المثال هي أكسس والدلفي 2010.
والمثال في المرفقات.
وفق الله الجميع

[whitewolf153]

شكرا لك اخي الحبيب

[dliouahb]

بارك الله فيك

[Khaledkouka]

شكرا على مجهوداتك