كيف يتم حساب عمود حقل حسابي و وضع الناتج داخل edit1

[amine_1009]

السلام عليكم
من فضلكم كيف أستطيع بأستعمال لغة sqlserver 2008 في مشروع delphi 7 :
- أن أضع مجموع حقل ما داخل عنصر EDIT1
بالتوفيق للجميع

[snake]

و عليكم السلام
هناك اكتر من طريقة و ابسطها ضع على الفورم AdoQuery و في خاصية Sql اكتب

كود :

select field name from table name where condetion

ثم لتعرض القيمة في edit1 في الحدث table afteropen اكتب

كود :

edit1.text:=adotable1fildname.asstring

و في المكان الدي تصل فيه لعرض القيمة

كود :

adotable1.close; adotable1.open

و اي ستفسار انا جاهز
سلام

[khalmoh1971]

لجمع عمود
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;