آموزش : مرتب سازی صعودی و نزولی با کلیک کردن رو TitelBar مربوط به DBGride
سلام
این آموزش نتیجه زحمات delphianddotnet و Mahmood_N می باشد
امیدوارم به دردتون بخوره
فرض یه Table توی اکسس داریم نام و نام خانوادگی
و تلفن وID .
حالا ارتباط برقراره و یه DBGrid محتویات رو نمایش میده
با کمک یک ADOTable (چون بیشتر دوستان با ADOQuery
آشنای ندارن البته هیچ فرقی نمی کنه خودم بیشتر ADOQuery رو
ترجیح می دم )
حالا می خواهبم با هر بار کلید روی Title هر ستون اون ستون
یه بار نزولی و یه بار صعودی مرتب بشه.
حالا یه متغییر توی قسمت private تعریف می کنیم به
اسم KindSotr از نوع Boolean
private
{ Private declarations }
KindSotr:Boolean;
بعد توی رویداد TitleClick مربوط به DBGrid می نویسم
کد:
if KindSotr then
ADOTable1.Sort:=Column.FieldName+' DESC'
else
ADOTable1.Sort:=Column.FieldName;
KindSotr:=not(KindSotr);
حالا یعنی چی
مرتب سازی ADOTable ور بر اساس فیلد انتخابی
یه بار نزولی ADOTable1.Sort:=Column.FieldName+' DESC'
ویه بار صعودی ADOTable1.Sort:=Column.FieldName; قرار بده
دقیقا مثلا دستور زیر برای ADOQuery
کد:
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select * from Table1 order by '+Column.FieldName;
if KindSotr then
ADOQuery1.SQL.Text:=ADOQuery1.SQL.Text+' DESC';
ADOQuery1.Open;
KindSotr:=not(KindSotr);
دوتا نکته:
1-البته این متغییر برای تمام ستون ها مشترک
هستش و شما می تونید برای دقت بیشتر برای
هر ستون یک متغییر تعریف کنید.
2- می تونیین متغییر رو مقدار دهی اولیه کنید.
هر جا سوالی بود در خدمتم
