baran_bataravat
دوشنبه 09 آذر 1388, 17:00 عصر
من میخوام فیلد تخفیف در این تابع بررسی بشه که اگه TTest فیلد تخفیف را داشته باشد یک سری عملیات انجام دهد و اگر نه که خارج شود حالا ممکن است که TTest یک جدول باشد و یا حاصل یک Query اگه جدول باشه کدهای زیر را نوشتم ولی برای Query نمیدونم چی باید بذارم
CalculateTarefeh(TTest :TDataSet;
DateSh :String;
DateKh :String;
,takhfif :Double) :Boolean
حالا من میخوام فیلد Takhfif را در این تابع بررسی کنم اگر TTest یک جدول بود این دستور را گذاشتم
if TTable(TTest).FindField('Takhfif')<>nil then
Takhfif:=1-TTest.fieldByName('Takhfif').asInteger /100;
else
Exit;
دستورات IFبرای وقتی عمل می کند که TTest از نوع جدول باشد ولی برای وقتی که TTEst از نوع Query باشه چی باید بذارم؟؟؟؟
CalculateTarefeh(TTest :TDataSet;
DateSh :String;
DateKh :String;
,takhfif :Double) :Boolean
حالا من میخوام فیلد Takhfif را در این تابع بررسی کنم اگر TTest یک جدول بود این دستور را گذاشتم
if TTable(TTest).FindField('Takhfif')<>nil then
Takhfif:=1-TTest.fieldByName('Takhfif').asInteger /100;
else
Exit;
دستورات IFبرای وقتی عمل می کند که TTest از نوع جدول باشد ولی برای وقتی که TTEst از نوع Query باشه چی باید بذارم؟؟؟؟