Delphi KDE
سه شنبه 16 آبان 1385, 09:13 صبح
با سلام
اول از همه باید بگم که این مطلب 100 بار مطرح شده و من تمام مطالب مطرح شده در این مورد رو خوندم ولی مشکلم حل نشد
من از یک Query به شکل زیر استفاده میکنم
DM_Main.Q_Makharej.Close;
DM_Main.Q_Makharej.SQL.Clear;
DM_Main.Q_Makharej.SQL.Add('SELECT Date, Sum(Price)as [PRS] FROM Makharej WHERE DATE Between :P_DATE_AZ AND :P_DATE_TA Group By Date');
DM_Main.Q_Makharej.ParamByName('P_DATE_AZ').Value :=StrToJDN(Me_Date_Az.Text,1);
DM_Main.Q_Makharej.ParamByName('P_DATE_TA').Value :=StrToJDN(Me_Date_Ta.Text,1);
DM_Main.Q_Makharej.Open ;
try
StaticText1.Caption := DigitGroup(IntToStr(DM_Main.Q_Makharej.fieldByName ('PRS').Value))
except
StaticText1.Caption := 'خطا';
End;
این Query از نظر انتخاب محدوده درست عمل میکنه ولی فقط چند رکورد اول بانک رو جمع میکنه
اول از همه باید بگم که این مطلب 100 بار مطرح شده و من تمام مطالب مطرح شده در این مورد رو خوندم ولی مشکلم حل نشد
من از یک Query به شکل زیر استفاده میکنم
DM_Main.Q_Makharej.Close;
DM_Main.Q_Makharej.SQL.Clear;
DM_Main.Q_Makharej.SQL.Add('SELECT Date, Sum(Price)as [PRS] FROM Makharej WHERE DATE Between :P_DATE_AZ AND :P_DATE_TA Group By Date');
DM_Main.Q_Makharej.ParamByName('P_DATE_AZ').Value :=StrToJDN(Me_Date_Az.Text,1);
DM_Main.Q_Makharej.ParamByName('P_DATE_TA').Value :=StrToJDN(Me_Date_Ta.Text,1);
DM_Main.Q_Makharej.Open ;
try
StaticText1.Caption := DigitGroup(IntToStr(DM_Main.Q_Makharej.fieldByName ('PRS').Value))
except
StaticText1.Caption := 'خطا';
End;
این Query از نظر انتخاب محدوده درست عمل میکنه ولی فقط چند رکورد اول بانک رو جمع میکنه