آموزش : مرتب سازی صعودی و نزولی با کلیک کردن رو TitelBar مربوط به DBGride

[mahdi bg]

سلام

این آموزش نتیجه زحمات delphianddotnet و Mahmood_N می باشد
امیدوارم به دردتون بخوره

فرض یه Table توی اکسس داریم نام و نام خانوادگی
و تلفن وID .
حالا ارتباط برقراره و یه DBGrid محتویات رو نمایش میده
با کمک یک ADOTable (چون بیشتر دوستان با ADOQuery
آشنای ندارن البته هیچ فرقی نمی کنه خودم بیشتر ADOQuery رو
ترجیح می دم )

حالا می خواهبم با هر بار کلید روی Title هر ستون اون ستون
یه بار نزولی و یه بار صعودی مرتب بشه.
حالا یه متغییر توی قسمت private تعریف می کنیم به
اسم KindSotr از نوع Boolean

private
{ Private declarations }
KindSotr:Boolean;
بعد توی رویداد TitleClick مربوط به DBGrid می نویسم

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

حالا یعنی چی
مرتب سازی ADOTable ور بر اساس فیلد انتخابی
یه بار نزولی ADOTable1.Sort:=Column.FieldName+' DESC'
ویه بار صعودی ADOTable1.Sort:=Column.FieldName; قرار بده

دقیقا مثلا دستور زیر برای ADOQuery

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

دوتا نکته:
1-البته این متغییر برای تمام ستون ها مشترک
هستش و شما می تونید برای دقت بیشتر برای
هر ستون یک متغییر تعریف کنید.
2- می تونیین متغییر رو مقدار دهی اولیه کنید.
هر جا سوالی بود در خدمتم

[delphianddotnet]

سلام
دوست عزیز ممنون از اموزشی که دادی .
منتظر اموزشهای کاربران دیگر نیز هستیم

[mahdi bg]

سلام

سلام
دوست عزیز ممنون از اموزشی که دادی .
منتظر اموزشهای کاربران دیگر نیز هستیم

قابلی نداشت گفته بودم که

ا

ین آموزش نتیجه زحمات delphianddotnet و Mahmood_N می باشد

2-3 تای دیگه رو هم دارم آماده می کنم.

[HA2000]

ممنون از درج این مطلب-
بعضی مطالب در دلفی هست که خیلی کاربرد داره و دلفی هم امکانات اون را گذاشته ولی یاد نداریم ازش استفاده کنیم و این هم از اون موارد بود .

[mahdi bg]

سلام

ممنون از درج این مطلب-
بعضی مطالب در دلفی هست که خیلی کاربرد داره و دلفی هم امکانات اون را گذاشته ولی یاد نداریم ازش استفاده کنیم و این هم از اون موارد بود .

قابلی نداشت

[tikzahraaran]

خیلی از شما متشکرم

[F A R H A D]

tikzahraaran عزيز، لطف كرديد كه تشكر خودتون رو اعلام كرديد، ولي لطف بيشتر اينه كه تاپيك مربوط به 10 ماه قبل رو براي يك تشكر بالا نياوريد!