+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اظهار معلومات على spSkinStatusPanel (/showthread.php?tid=5217)
اظهار معلومات على spSkinStatusPanel - TS-DELPHI - 13-05-2013
السلام عليكم الاخوة اعضاء المنتدى ...
من لديه معلومة حول كيفية اظهار معلومات على spSkinStatusPanel ،بحيث اذا اردنا مثلا حساب مجموع مبلغ سلع معينة اظهرها على spSkinStatusPanel ... افيدوني جزاكم الله خيراً
اظهار معلومات على spSkinStatusPanel - onexite - 13-05-2013
جوابا لسؤالك
إقتباس :spSkinStatusPanel1.caption:=IntToStr(30000)
اظهار معلومات على spSkinStatusPanel - TS-DELPHI - 13-05-2013
onexite كتب :جوابا لسؤالك
شكراً على الرد ...للتوضيح اود اظهار معلومات من جدول في قاعدة بيانات كأن يكون لدي مثلا طلبة في تخصصات معينة اود وضع عدد الطلبة في كل تخصص على حدى
اظهار معلومات على spSkinStatusPanel - onexite - 13-05-2013
ts-delphi كتب :شكراً على الرد ...للتوضيح اود اظهار معلومات من جدول في قاعدة بيانات كأن يكون لدي مثلا طلبة في تخصصات معينة اود وضع عدد الطلبة في كل تخصص على حدىبدل 3000 ضع فنكيسيون تحسب ماتريد
PHP كود :
function TForm1._Som: Integer;
var
i,som:integer;
begin
Result:=0;
som:=0;
sStatusBar1.Panels[0].Text:='Montant total : '+IntToStr(som)+' DA';
if((tbl1.RecordCount=0) and (tbl1.State <> dsInsert))
then exit;
tbl1.First;
for i:=0 to tbl1.RecordCount-1 do begin
som:=som+tbl1.FieldByName('Som').AsInteger;
tbl1.Next;
end;
sStatusBar1.Panels[0].Text:='Montant total : '+IntToStr(som)+' DA';
Result:=som;
end;