+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم حساب عمود حقل حسابي و وضع الناتج داخل edit1 (/showthread.php?tid=6166)
كيف يتم حساب عمود حقل حسابي و وضع الناتج داخل edit1 - amine_1009 - 10-05-2014
السلام عليكم
من فضلكم كيف أستطيع بأستعمال لغة sqlserver 2008 في مشروع delphi 7 :
- أن أضع مجموع حقل ما داخل عنصر EDIT1
بالتوفيق للجميع
كيف يتم حساب عمود حقل حسابي و وضع الناتج داخل edit1 - snake - 10-05-2014
و عليكم السلام
هناك اكتر من طريقة و ابسطها ضع على الفورم AdoQuery و في خاصية Sql اكتب
كود :
select field name from table name
where condetionكود :
edit1.text:=adotable1fildname.asstringكود :
adotable1.close;
adotable1.openسلام
كيف يتم حساب عمود حقل حسابي و وضع الناتج داخل edit1 - khalmoh1971 - 09-10-2014
لجمع عمود
procedure TForm1.IBDataSet1AfterOpen(DataSet: TDataSet);
var
bm: TBookmark;
Total: real;
begin
bm := IBDataSet1.GetBookmark;
IBDataSet1.DisableControls;
try
Total := 0.0;
IBDataSet1.First;
while not IBDataSet1.Eof do
begin
Total := Total + IBDataSet1COST.AsCurrency;
IBDataSet1.Next;
end;
// Total:= format
Edit1.Text := (FormatFloat('0.000 جنية', Total)) ;
finally
IBDataSet1.GotoBookmark(bm);
IBDataSet1.EnableControls;
end;