PDA

View Full Version : جمع کردن اعداد داخل رکوردهای یک فیلد



Reza_kh
دوشنبه 04 اردیبهشت 1385, 11:18 صبح
من روی فروم یه جدول گذاشتم که یک فیلداز نوع integer است (برای قیمت) ، حالا می خوام تمام رکوردهای این فیلد رو جمع کنم (فیلد قیمت) و در یه Label بزارم ...
لطفاً منو راهنمایی کنید ....
خیلی مهم و ضروری هستش...
هر چه زودتر باید تمومش کنم ...
مرسی:قلب:

m-khorsandi
دوشنبه 04 اردیبهشت 1385, 11:44 صبح
پس شما یک جدول دارید که فیلدی از نوع Integer داره و میخواهید جمع این فیلد رو روی تمام
رکوردها بدست بیارید،
میتونید از Query استفاده کنید.



Select SUM(Price)
from Table_Name

Mousavmousab
شنبه 13 فروردین 1390, 12:09 عصر
سلام دوست عزیز
دوست عزیز من به چروژه نوشتمکه فقط گیر این قسمتم
Access هم کار نکردیم الان گیرم. در مورد دستور بالایی که نوشتین ...

این دستوری که نوشتی خوب درست، ولی کجا نشون میده ؟ من الان Access 2003 ندارم که توی Query بنویسم. به قول دوستمون اگه بخوایم توی یک label نشون بده باید کجای این دوستور شما بگیمکه توی label1 ( به عنوان مثال) نشون بده ؟

ممنون از راهنماییت

M_Maskout
شنبه 13 فروردین 1390, 15:07 عصر
سلام
یه TADOQuery رو فرم بذارین و بعد تو خاصیت SQL اون عبارت

SELECT Sum(field-name) AS new-name FROM table-name;
رو بنویسین و برای نمایش حاصل جمع بعد از باز کردن query (اکتیو کردن TADOQuery) می‌تونید از دستوری شبیه زیر استفاده کنین:

Label1.Caption := IntToStr(TADOQuery1['new-name']);

a_mosavian
شنبه 13 فروردین 1390, 22:57 عصر
حتما مقداری درباره Query و دستورات SQL مطالعه کنید. گمان کنم پروژه تون متحول بشه.

ahmadi613
دوشنبه 21 فروردین 1391, 22:19 عصر
با سلام
من در تمام برنامه هايم حتي براي چند ركورد از دستور زير استفاده مي كنم براي table و adotable هيچ فرقي ندارد
بعد از دستور اضاف شدن ركورد به جدول دستور رابنويس و اگر لازم باشد موقع باز شدن فرم جمع ركوردها براي هر فيلد مشخص باشد همين دستور را در رويداد onshow مربوط به فرم بنويسيد ضمنا اگر بخواهيد در label باشد بجاي edit از label.caption استفاده كن..موفق باشيد
var
i:intege;
begin
i:=0;
table1.Active:=true;
table1.First;
while not table1.Eof do
begin
i:=i+table1.fieldbyname('ghimat').AsInteger;
table1.Next;
edit4.Text:=inttostr(i)+'ÊæãÇä';