10-05-2014, 07:47 AM
10-05-2014, 05:46 PM
و عليكم السلام
هناك اكتر من طريقة و ابسطها ضع على الفورم AdoQuery و في خاصية Sql اكتب
ثم لتعرض القيمة في edit1 في الحدث table afteropen اكتب
و في المكان الدي تصل فيه لعرض القيمة
و اي ستفسار انا جاهز
سلام
هناك اكتر من طريقة و ابسطها ضع على الفورم AdoQuery و في خاصية Sql اكتب
كود :
select field name from table name
where condetionكود :
edit1.text:=adotable1fildname.asstringكود :
adotable1.close;
adotable1.openسلام
09-10-2014, 09:16 PM
لجمع عمود
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;
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;