PDA

View Full Version : شمردن تعداد رکورد های فعلی dbgrid


hentjanson
سه شنبه 17 اردیبهشت 1387, 21:22 عصر
سلام چطور میشه مشخص کرد چند تا رکورد در dbgrid هست .
hentjanson
سه شنبه 17 اردیبهشت 1387, 22:06 عصر
من تازه کارم
می خوام بشمره و در یک lable نشون بده .
میشه بیشتر کمکم کنید
hentjanson
سه شنبه 17 اردیبهشت 1387, 22:26 عصر
فهمیدم مرسی Label2.Caption:=IntToStr(ADOTable1.RecordCount);
echoes
چهارشنبه 18 اردیبهشت 1387, 01:18 صبح
و اگه از adoquery استفاده مي كَِني

label1.caption:=inttostr(adoquery1.recordcount);
vcldeveloper
چهارشنبه 18 اردیبهشت 1387, 03:49 صبح
و اگه از adoquery استفاده مي كَِني
RecordCount متدی از کلاس پایه TDataSet هست، پس هر کلاس مشتق شده ایی از TDataSet این متد را دارد. نیازی نیست برای هر یک از این کلاس ها مثال بزنیم، مثلا: اگر از AdoDataSet استفاده میکنی، یا از AdoQuery، یا AdoTable، یا SQLTable، یا Table، یا Query و...!
hentjanson
چهارشنبه 18 اردیبهشت 1387, 06:37 صبح
یک سوال :
من تو جستجو های می خوام بعد از جستجو بگم چند تا حالا رکورد در dbgrid هستش تعداد یافته ها از accept استفاده کردم میشه بگین چطور باید بنویسم .
SYNDROME
چهارشنبه 18 اردیبهشت 1387, 07:11 صبح
یک سوال :
من تو جستجو های می خوام بعد از جستجو بگم چند تا حالا رکورد در dbgrid هستش تعداد یافته ها از accept استفاده کردم میشه بگین چطور باید بنویسم .
از همان RecordCountمی توانید استفاده کنید.
موفق باشید
echoes
چهارشنبه 18 اردیبهشت 1387, 14:30 عصر
RecordCount متدی از کلاس پایه TDataSet هست، پس هر کلاس مشتق شده ایی از TDataSet این متد را دارد. نیازی نیست برای هر یک از این کلاس ها مثال بزنیم، مثلا: اگر از AdoDataSet استفاده میکنی، یا از AdoQuery، یا AdoTable، یا SQLTable، یا Table، یا Query و...!

دلیل بیان کردنش:

من تازه کارم
می خوام بشمره و در یک lable نشون بده .
میشه بیشتر کمکم کنید
vcldeveloper
چهارشنبه 18 اردیبهشت 1387, 16:22 عصر
دلیل بیان کردنش:کدی که نوشتید غیر از اینکه Label2 به Label1 تغییر نام پیدا کرد و AdoTable با AdoQuery عوض شد، فرق دیگه ایی هم با کدی که خود کاربر سوال کننده در پست قبل از شما ارسال کرد، داشت؟!
hentjanson
چهارشنبه 18 اردیبهشت 1387, 18:28 عصر
سلام دوستان من از این کد استفاده کردم البته باید بگم از adotable استفاده می کنم


if Form1.ComboBox2.ItemIndex=0 then
Accept:=(AnsiPos(Trim(Form1.MaskEdit11.Text),Trim( DataSet['namketab']))>0)
else if Form1.ComboBox2.ItemIndex=1 then
Accept:=(AnsiPos(Trim(Form1.MaskEdit11.Text),Trim( DataSet['nammoalef']))>0)
else if Form1.ComboBox2.ItemIndex=2 then
Accept:=(AnsiPos(Trim(Form1.MaskEdit11.Text),Trim( DataSet['nammotrajem']))>0)


حالا میشه بگید این خط کد شمارش برای تعداد یافته های بعد از جستجو را باید کجا بنویسم . که چند تا رکورد بعد از جستجو در dbgrid مانده
echoes
چهارشنبه 18 اردیبهشت 1387, 20:32 عصر
در انتهاي همين كدها