+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم تريتب فهرسة البيانات تنازليا ؟ (/showthread.php?tid=678)
الصفحات:
1
2
كيف يتم تريتب فهرسة البيانات تنازليا ؟ - kachwahed - 07-03-2009
إقتباس :غير Index عند التشغيل كما تشاء، عند استعمال الدليل الاساسي يكون الترتيب افتراضي وعند تغييره واستخدام الدليل الثانوي يتغير الترتيبأعطيتني فكرة، سأجرب إنشاء فهرسين ثانويين لكل حقل: IndexDesc و IndexAsc الأول للترتيب والتنازلي والآخر للترتيب التصاعدي، أظنها أحسن طريقة.
بقي ترتيب القيم المحسوبة في OnCalcFields سأبحث فيها إن شاء الله.
كيف يتم تريتب فهرسة البيانات تنازليا ؟ - محمد عبد العزيز - 07-03-2009
إقتباس :مثلا من DBDemos الجدول Customers، نضع زر BtnSort مثلا باسم كل حقل، مثلا زر SortCustNo وزر لـ SortEmpNoجدول Customers يجب ترقيته الى Paradox 7 لكي يمكن تطبيق المثال عليه
لناخذ جول اخر مثلا animals
والحقل Name وايضا الحقل Area
للترتيب التنازلي نحتاج دليل وللتصاعدي دليل اخر
ولدينا حقلين نرتب حسبهما اذن نحتاج بالمجموع 4 ادلة
نفرض مكون الجدول المربوط مع Animals.dbf هو Table
لانشاء الادلة برمجيا وقت التنفيذ نكتب شيئ مثل
PHP كود :
Table1.Close;
Table1.Exclusive := TRUE;
Table1.AddIndex('NameA', 'Name', []);
Table1.AddIndex('NameD', 'Name', [IxDescending]);
Table1.AddIndex('AreaA', 'Area', []);
Table1.AddIndex('AreaD', 'Area', [IxDescending]);
Table1.IndexDefs.Update;
Table1.Exclusive := FALSE;
Table1.Open;
حسب الاسم Name ترتيب تصاعدي نكتب بالزر
PHP كود :
Table1.IndexName:='NameA';
PHP كود :
Table1.IndexName:='NameD';
تصاعدي نكتب بالزر
PHP كود :
Table1.IndexName:='AreaA';
طبعا قبل انشاء اي دليل عليك ان تتاكد من عدم وجوده
-
بالنسبة للحقول المحسوبة في OnCalcFields فتذكر ما قلته لك في السؤال السابق
كيف يتم تريتب فهرسة البيانات تنازليا ؟ - kachwahed - 07-03-2009
بارك الله فيك أستاذ، جزاك الله كل خير.
فهمت الآن...، ما كان ينقصني في الكود هو:
PHP كود :
Table1.Exclusive := TRUE;
Table1.IndexDefs.Update;
Table1.Exclusive := FALSE;
والآن اتضحت الفكرة إن شاء الله، فبارك الله فيك.
إقتباس :بالنسبة للحقول المحسوبة في OnCalcFields فتذكر ما قلته لك في السؤال السابقأجل...، وعيت ذلك إن شاء الله، الحقول المحسوبة غير موجودة في الجدول لأنها محسوبة أثناء الحدث OnCalcFields، فهل هناك خدعة (أو كود أو خاصية...)، لضمها تلقائيا إلى باقي حقول الجدول وبالتالي إنشاء دليل عليها :confused:؟
شكرا جزيلا أستاذ.