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

استفسا ر في الدلفي

بدأه dj_lepro في 6 فبراير 2013 · 7 رد · 850 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله تعالى وبركاته

 

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

 

سارعت للتسجيل و أرجوا قبولي كعضوا جديـــد يحب البرمجة

 

أنا أستعمل هذا الكود للفلترة

 

 

لأني رابط جدول ( الزبون ) مع جدول ( الخط الهاتفي ) عن طريق ADOQuery

 
if spSkinEdit1.text <> '' then
begin
ADOQuery1.Filter := 'nom like '+ quotedstr( '*'+spSkinEdit1.text+ '*' )+ ' or ' + 'prenom like ' + quotedstr('*'+spSkinEdit1.text+ '*')+ ' or ' + 'ND like ' + ('*'+spSkinEdit1.text+ '*');
ADOQuery1.Filtered := True;
end else
ADOQuery1.Filtered := False;

 

 

 

الإستفسار 1 هو : 

كيف أستعمل combobox لتحديد طريقة البحث عن طريق Edit 

هذه الصورة تعبر عن سؤالي :

518462424.jpg

 

أنا رابط جدول ( الزبون ) مع جدول ( الخط الهاتفي ) عن طريق ADOQuery

 

الإستفسار 2 هو :

 

عند تحديد ( الزبون ) من DBGrid

والضغط على Détails 

تفتح فورم أخرى عليها تفاصيل الزبون الذي قمنا بتحديده 

تم تعديل هذه المشاركة بواسطة dj_lepro في 6 فبراير 2013 في 20:52

#2

سلام عليك بالنسبة لسؤالك الأول فهذا هو الكود

if spSkinEdit1.text <> '' then
  begin
    if ComboBox1.ItemIndex=0 then
      ADOQuery1.Filter := 'nom like '+ quotedstr( '*'+spSkinEdit1.text+ '*' )+ ' or ' + 'prenom like ' + quotedstr('*'+spSkinEdit1.text+ '*')
    else
      ADOQuery1.Filter := 'ND like ' + ('*'+spSkinEdit1.text+ '*');
ADOQuery1.Filtered := True;
end else
ADOQuery1.Filtered := False

ومن أجل الاستفسار الثاني عند حدث الضغط مرتين على dbgrid

 

استجلب رقم العميل من DBgrid عن طريق الكود

DBGrid1.DataSource.DataSet.FieldByName('id').AsString;

ثم اجعل فلترة حسب id 

ثم أعرض détails وأظن أنه فورم آخر 

 

 

تنبيه المرة القادمة استعمل محرر الأكواد في المحرر ورمزه <>

تم تعديل هذه المشاركة بواسطة أحمد أبو عبد البر في 6 فبراير 2013 في 17:04

vVIfFr.gif

مدونتي



إذا رأيتموني غبت فأطلت الغياب فربما أكون قد انتقلت عن الدنيا إلى الآخرة

فما أحوجني إلى دعوة صالحة من أخ لي كريم

 

http://www.tvquran.com/

 

LoGeCom

أول برنامج عربي للمحاسبة والتجارة وإدراة المخازن يعمل على اللينكس والماك والويندوز 

#3
أحمد أبو عبد البر كتب:

تنبيه المرة القادمة استعمل محرر الأكواد في المحرر ورمزه <>

 

لم أكن أعرف ذلك لأني عضوا جديــــد في المنتدى ههههههه

 

بالإضافة إلى ذلك تستحق ألف شكــــــــر أخي الكريــــم 

 

+

 

 

etat_demande دائما  تأخذ قيمة 0 

عندما يتحصل الشخص على خط هاتفي تصبح etat_demande لدى الشخص 1

 

 ADOQuery2 لإضهار قامة الطلبات للخطوط الهاتفية ولم يتحصلوا بعد على خط هاتفي 

 

    * select 
from Clients,Demande
where Clients.num_client=Demande.num_client
and etat_demande=0

 

عندما أردت الفلترة برقم الطلب

بالطريقة السابقة لم تنجح 

if spSkinEdit3.text <> '' then
begin
ADOQuery2.Filter := 'num_demande like '+ quotedstr( '*'+spSkinEdit3.text+ '*' );
ADOQuery2.Filtered := True;
end else
ADOQuery2.Filtered := False;

 

 

 

لمـــــذا و ما الحـــــل ؟

تم تعديل هذه المشاركة بواسطة dj_lepro في 6 فبراير 2013 في 20:53

#4

أنـــــا في الإنتظـــــــار المســـــاعدة 


 


:blush:


#5

الكود صحيح والفلترة صحيحة ، تأكد من أن * تأتي بعد select في الكود وليس كما كتبته أنت

تأكد من أنك جعلت ADOQuery2.avtive:=true

vVIfFr.gif

مدونتي



إذا رأيتموني غبت فأطلت الغياب فربما أكون قد انتقلت عن الدنيا إلى الآخرة

فما أحوجني إلى دعوة صالحة من أخ لي كريم

 

http://www.tvquran.com/

 

LoGeCom

أول برنامج عربي للمحاسبة والتجارة وإدراة المخازن يعمل على اللينكس والماك والويندوز 

#6
أحمد أبو عبد البر كتب:

الكود صحيح والفلترة صحيحة ، تأكد من أن * تأتي بعد select في الكود وليس كما كتبته أنت

تأكد من أنك جعلت ADOQuery2.avtive:=true

 

هذا هو الأمر و ADOQuery2 en active

select  Demande.num_demande,Clients.num_client,Clients.nom,Clients.prenom,Demande.date_demande,Demande.opération,
Demande.prio_raccordement
from Clients,Demande
where Clients.num_client=Demande.num_client
and etat_demande=0
#7

هذا هو الخطأ الوارد عند الفلترة في panel demande

 

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

 

يصادفني الخطأ التالي

 

637075143.jpg

#8

لا يظهر لي أي خطأ فيما كشفت لي من برنامجك

 

يتوجب عليك البحث اكثر في أعماق البرنامج

تم تعديل هذه المشاركة بواسطة أحمد أبو عبد البر في 7 فبراير 2013 في 10:37

vVIfFr.gif

مدونتي



إذا رأيتموني غبت فأطلت الغياب فربما أكون قد انتقلت عن الدنيا إلى الآخرة

فما أحوجني إلى دعوة صالحة من أخ لي كريم

 

http://www.tvquran.com/

 

LoGeCom

أول برنامج عربي للمحاسبة والتجارة وإدراة المخازن يعمل على اللينكس والماك والويندوز 

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