الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عندي مشكلة في الفلترة

مغلق
بدأه Hussin_za في 18 أكتوبر 2004 · 3 رد · 1,117 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

ساشرح المشكلة بوضوح

المكونات :

جدول الموظفين ( Employees )

مربع نص ( Edit1 ) و ( Edit2 )

حقول الجدول - القسم ( Section) و الوظيفة ( Prof)

الفكرة هي كتابة القسم في مربع النص ( Edit1 ) وبعد ضغط زر الإدخال يقوم بفلترة البيانات حسب القسم الموجود في مربع النص.

والكود كالتالي في الحدث KeyPress لمربع النص Edit1

if Key=#13 then

begin

tblEmployees.Filterd:=False

(tblEmployees.Filter:='[section]='+CHR(39)+Edit1.Text+CHR(39

tblEmployees.Filterd:=True

end

المطلوب أن أكتب القسم في مربع النص ( Edit1 ) والوظيفة في مربع النص ( Edit2 ) وبعد ضغط زر الإدخال يقوم بفلترة البيانات حسب الشرطين في مربعي النص

بشكل أوضح إذا كتبت في Edit1 الانتاج وفي مربع Edit2 عامل يقوم بعرض الموظفين الذين في قسم الانتاج ووظيفتهم عامل

أرجو كتابة الكود بوضح ليتسنى لي إكمال هذه الخطوة التي توقفت عندها كثيرا

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

#2

السلام عليكم

جرب هذا الكود سيعمل معك إن شاءالله

if Key=#13 then 
begin 
tblEmployees.Filtered :=False;
tblEmployees.Filter:='Section = '''CHR(39)+Edit1.Text+CHR(39)+''' and Prof = '''+Edit2.Text+'''' ;
tblEmployees.Filtered :=True;
end

ملاحظة حقل ال Section لا بد أن يكون نص لأنك استخدمت chr(39)

#3

مشكور يبو محمد

بس على فكرة

أناكتبت الكود بالشكل التالي

''''tblEmployees.Filter:='Section ='''+Edit2.Text+'''and Profession='''+Edit3.Text

بس هل تقسيم الفواصل العلوية كالتالي

'=Section'

''+Edit2.Text+''

'=and Profession'

''''+Edit3.Text+''

هذا الموضوع يهمني كثير لو سمحت المساعدة

#4

السلام عليكم

التقسيم سليم وتستطيع أن تضيف بنفس الأسلوب ،،، وهناك نقطة وهي أن ال filter عبارة عن strin فيبدأ بـ ' ويقفل ' . لاحظ ''''+Edit3.Text+'' أنه تم اقفاله باربع الرابع يقفل جملة ال string .

هذا الموضوع مغلق.

مواضيع مشابهة