حسین شهریاری
دوشنبه 27 مهر 1388, 10:26 صبح
سلام!!
چند روز پیش تاپیکی ایجاد شده بود که در آن نحوه محاسبه مانده حساب تا سطر جاری
بحث شده بود ولی کدهایی که نوشته شده بود بهینه نبود.حالا میخاستم کدشا بصورت
بهینه تر برای اون دسته از دوستان که نیاز دارن قرار بدم.
امیدوارم بدردشون بخوره.
فرمول:بدهکار - بستانکار + مانده حاصل از سطر قبل.
ابتدا یک فیلد محاسباتی ایجاد کنید و سپس یک متغیر مثلا به نام Value
ضمنا نوع فیلد محاسباتی و متغیر را شناور بگیرید(Float,Real)ودر OnCalcFieldبنویسید:
Adoquery.fieldbyname('Calcfield').asfloat:=Adoquer y.fieldbyname('Bed').asfloat - Adoquery.fieldbyname('Bes').asfloat + Value
Value:=Value +Adoquery.fieldbyname('Bed').asfloat - Adoquery.fieldbyname('Bes').asfloat
البته قبلا مقدار متغیر Value را صفر کنید
موفق باشید
چند روز پیش تاپیکی ایجاد شده بود که در آن نحوه محاسبه مانده حساب تا سطر جاری
بحث شده بود ولی کدهایی که نوشته شده بود بهینه نبود.حالا میخاستم کدشا بصورت
بهینه تر برای اون دسته از دوستان که نیاز دارن قرار بدم.
امیدوارم بدردشون بخوره.
فرمول:بدهکار - بستانکار + مانده حاصل از سطر قبل.
ابتدا یک فیلد محاسباتی ایجاد کنید و سپس یک متغیر مثلا به نام Value
ضمنا نوع فیلد محاسباتی و متغیر را شناور بگیرید(Float,Real)ودر OnCalcFieldبنویسید:
Adoquery.fieldbyname('Calcfield').asfloat:=Adoquer y.fieldbyname('Bed').asfloat - Adoquery.fieldbyname('Bes').asfloat + Value
Value:=Value +Adoquery.fieldbyname('Bed').asfloat - Adoquery.fieldbyname('Bes').asfloat
البته قبلا مقدار متغیر Value را صفر کنید
موفق باشید