ستون ردیف در DBGrid

[saeid_sazegar]

با سلام
من با Dataset و به وسیله دستورات اس کیو ال یک گزارش تهیه کردم ومیخوام این گزارشو چاپ کنم میخوام که DBGrid دارای ستون ردیف باشه به نحوی که در گزارش چاپی این ستون ردیف هم چاپ شود
از دوستان اگر کسی در این مورد اطلاعاتی دارد خواهشمندم که به من کمک کند

[Batman]

دوست عزیز میشه بیشتر توضیح بدید
یعنی چی که ستون دارای ردیف باشه

[saeid_sazegar]

یه مثال میزنم
در روال کلید
adodataset1.active:=false;
adodataset1.commandtext:='select name from basic';
adodataset1.active:=true;
وقتی این روال اجرا میشه لیستی در DBGrid به وجود میاد با یک ستون به نام name
حوب حالا من میخوام یه ستون دیگه به نام ردیف داشته باشه به این شرط که هم در DBGrid
باشه هم در Dataset

[Valadi]

این هم کدش :

{+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++
1. create new blank field in dbgrid
2. rename the title with 'No'
3. put this code in OnDrawColumncell
4. Now your Grid has a row number
++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DataSource1.DataSet.RecNo > 0 then
begin
if Column.Title.Caption = 'No' then
DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo));
end;
end;

[saeid_sazegar]

ممنون از لطفتون
ولی من قبلا این کد رو استفاده کردم در DBGrid جواب میده و ستون ردیف رو اضافه میکنه
ولی در DataSourse ثبت نمیشه یعنی هر زمان که گزارش چاپی میگیرم این ستون خالی چاپ میشه
من میخوام هم در DBGrid ثبت بشه هم در DataSourse که DBGrid به اون وصله

[mojtaba_z]

سلام
یه مشکلی که داره اینه که وقتی رو اخرین رکورد باشیم و به پایین بریم یعنی رکورد جدید ایجاد کنیم در نتیجه دیگه چیزی نشون نمیده !!!

[Batman]

با سلام
اگه درست متوجه شده باشم شما یه ردیف میخواین
خوب باید یه فیلد از نوع autonumber تعریف کنید (البته بسته به نوع database داره)
موفق باشید

[ghabil]

از این راه استفاده کن (http://barnamenevis.org/forum/showthread.php?t=62859)

[SYNDROME]

با سلام
می توانی فیلد از نوع Calulatedبسازی و سپس بر روی فیلد مورد نظر کلیک کرده و در رویداد OnGetTextآن مقدار RecNoمربوط به ADOرا در Textبریزی.
موفق باشی