اضافه کردن ردیف در dbgrid

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


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;

موفق باشید.

با سلام دوست عزیز ابتدا آن ستون هایی که می خواهید Dbgrid آنهارو نمایش بده تو قسمت Columns اضافه کنید و ستون o-Column رو به هیچ فیلدی وصل نکنین و آخر کار هم کد زیرو تو رویداد DBGrid1DrawColumnCell بنویسن.انشاءالله که مشکلتون حل بشه.

 

procedure TForm4.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;

  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

if DataSource1.DataSet.RecNo > 0 then

begin

if DataCol= 0 then

TDBGrid(Sender).Canvas.TextRect(Rect, Rect.Left+ 1, Rect.Top+ 1, IntToStr(TDBGrid(Sender).DataSource.DataSet.RecNo)  );

end;

end;

 

یک ستون جدید، به عنوان اولین ستون، به گرید اضافه کنید. و از کد زیر در رویداد OnDrawColumnCell استفاده کنید. Column.Index در کد زیر اندیس ستون مربوطه هست که از صفر شروع میشه.

  with Sender as TDBGrid do

  begin

    if DataSource.DataSet.RecNo > 0 then

      if Column.Index = 0 {First Column} then

        Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource.DataSet.RecNo));

  end;

سلام
ممنون از شما دوستان . اما وقتی break می ذارم کد DataSource.DataSet.RecNo برابر است با 1- . یکی از دوستان می گفت این فقط برای دیتا بیس اکسس است و من دیتا بیس ام sql است آیا به این ربط دارد ؟
موفق باشید.

نقل قول:

---

یکی از دوستان می گفت این فقط برای دیتا بیس اکسس است و من دیتا بیس ام sql است آیا به این ربط دارد ؟

---

خیر.

از چی برای اتصال به بانک استفاده می کنید؟ آیا جدول را مستقیما باز می کنید، یا Query می نویسید؟ خصوصیات CursorLocation و CursorType بر روی چی تنظیم شدند؟

چرا از رویداد OngetText برای نمایش ردیف رکوردها استفاده نمی کنی؟(برای اطلاعات بیشتر کلمه فوق را جستجو کنید)
موفق باشید

سلام
ممنون از شما جناب آقای کشاورز . من از query استفاده کردم که جهت اتصال به DB از طریق یک alias که در odbc تعریف شده وصل می شود .
موفق باشید.

سلام
با تشکر از شما دوست محترم SYNDROME . بنده این کلمه را search کردم اما نتیجه نگرفتم .
موفق باشید.

نقل قول:

---

من از query استفاده کردم که جهت اتصال به DB از طریق یک alias که در odbc تعریف شده وصل می شود .

---

چرا از ADO استفاده نمی کنید؟ کارایی بیشتری از BDE داره. من از BDE برای اتصال به SQL Server استفاده نکردم. با ADO هم به مشکلی که اشاره کردید، بر نخوردم.

سلام
ممنون از شما . اما کل سیستم من با BDE کار شده است و در حال استفاده است بنابراین نمی توانم تغییری دهم .
موفق و پاینده باشید.

این روش را مدتهاست در برنامه ام استفاده می کنم ومشکلی ندارد و ضمنا این مطلب را در برنامه های سودمند دلفی هم گذاشته بودم!

//add a Row Number in your DBGrid?
{+++++++++++++++++++++++++++++++++++
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;}

نقل قول:

---

نوشته شده توسط programersa

سلام
با تشکر از شما دوست محترم SYNDROME . بنده این کلمه را search کردم اما نتیجه نگرفتم .
موفق باشید.

---

به پستهای 5 و 6 این لینک نگاه کنید.
https://barnamenevis.org/showthread.php?t=70061
موفق باشید

من مي خواهم رديفي به گريد اضافه كنم ولي به صورتي كه با حذف يك رديف از گريد مشكل پيدا نكنم .لطفا كمك كنيد .

سلام يكي اضافه كردن رديف در wwdbgrid را طوري كه با حذف يك سطر مشكل پيدا نكنه بگه .با تشكر

در قسمت لیست query یک فیلد از نوع Calculate ایجاد کن، سپس آن فیلد را در DBGrid ایجاد کرده و بهد در رویداد GetText فیلد جدید کد زیر را وارد کن:

Text := IntToStr(adoQuery.recNo)

كليه اين روشها تا زماني كار ميكنند كه از جدول يا كوري فيلتر نگرفته باشيد كه اگر گرفته باشيد با شماره هاي نا منظم رديف مواجه خواهيد شد

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

 with Sender as TDBGrid do

  begin

    if DataSource.DataSet.RecNo > 0 then

      if Column.Index = 0 {First Column} then

        Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource.DataSet.RecNo));

  end;

چطور میتونم این ستون رو در fastreport نشون بدم ؟
ممنون

نقل قول:

---

نوشته شده توسط xboycooper

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

 with Sender as TDBGrid do

  begin

    if DataSource.DataSet.RecNo > 0 then

      if Column.Index = 0 {First Column} then

        Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource.DataSet.RecNo));

  end;

چطور میتونم این ستون رو در fastreport نشون بدم ؟
ممنون

---

با تشکر
این کد را در کدام رویداد نوشته اید؟ متشکرم

نقل قول:

---

نوشته شده توسط khoshblagh

با تشکر
این کد را در کدام رویداد نوشته اید؟ متشکرم

---

در DrawColumnCell نوشتم . همونطور که دوستان توی صفحه قبل گفته بودن ...

نقل قول:

---

نوشته شده توسط xboycooper

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

 with Sender as TDBGrid do

  begin

    if DataSource.DataSet.RecNo > 0 then

      if Column.Index = 0 {First Column} then

        Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource.DataSet.RecNo));

  end;

چطور میتونم این ستون رو در fastreport نشون بدم ؟
ممنون

---

شرمنده ! به جای اون کار از دستور [Line#] توی Fast report استفاده کردم . کارم راه افتاد :لبخند: