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

السلام عليكم ورحمة الله تعالى وبركاته
إني أطمع بمساعدتكم على أت تمنحوني كود للبحث في قواعد البيانات
بطريقتين لعملية البحث
يوجد بالمرفق أختيارين لطريقة البحث
الطريقة الأولى البحث تكون بثلاث حقول مع بعض أي **** أن ابحث في السجلات على كل سجل يحتوي عل قيم الثلاث حقول
والطريقة الثانية البحث يكون بإسم الزبون
وهذا مثال على ذلك
قادة البيانات تحتوي على 9 حقول وهي:
الرقم : NU نوع Smalt
الإسم: Prenom نوع String
الحالة : Situation نوع Boolean
الباب: ِchapitre نوع String
الفصل: Groupe نوع String
الصنف: Classe نوع String
المبلغ : Montant نوع Float
تاريخ التسديد DT_Pym نوع Date

إذا في هذا المثال نفرض أن :
الحقل Chapitre يحمل قيمة 01
الحقل Groupe يحمل قيمة 02
الحقل Classe يحمل قيمة 01
المطلوب من البحث أن يبحث على كل التسجيلات التي تحمل هذه القيم وإظهارها
واليكم هذا المرفق لإجراء الكود عليه ووفقكم الله

اخي العزيز هذه عملية فلترة او تصفية للبيانات وليسة بحث فتلك مسئلة اخرى

بعد ما دوختني لساعات مسالة كون الحقول

الباب: ِchapitre نوع String

الفصل: Groupe نوع String

الصنف: Classe نوع String

وانا احسبهم ارقام و دخت معاهم :confused:

على كل اليك هذا الكود لتجعله في حدث ظغط زر التصفية"البحث" Rolleyes

كود :
Table1.FilterOptions:= [foCaseInsensitive];
      if not(edit4.Text='')then Table1.Filter:='Prenom = ' + QuotedStr(edit4.Text);
      if not(edit1.Text='')then Table1.Filter:='Chapitre = ' + QuotedStr(edit1.Text);
      if not(edit2.Text='')then Table1.Filter:='Groupe = ' + QuotedStr(edit2.Text);
      if not(edit3.Text='')then Table1.Filter:='Classe = ' + QuotedStr(edit3.Text);
      Table1.Filtered:= true;

احييك اخي على اهتمامك بقواعد البيانات والاشياء المهمة فمعضم الناس يجرون وراء السكينس و الهكنج و الى ذلك

كما ذكر اخي اعلاه با استخدام الفلتر او بطريقه اخرى استخدم SQL Query مثلا :

كود :
SELECT * FROM TableName Where Chapitre=01 AND Groupe=02 AND Classe=01

صحيح اخي معظم مبرمجي الدلفي قد تخلو عن BDE

التعامل مع ال SQL Query اسهل واقوى

medreg

I_Tiger

Effector

I_Tiger