delphi4arab منتديات دلفي للعرب

نسخة كاملة : اظهار معلومات على spSkinStatusPanel
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم الاخوة اعضاء المنتدى ...
من لديه معلومة حول كيفية اظهار معلومات على spSkinStatusPanel ،بحيث اذا اردنا مثلا حساب مجموع مبلغ سلع معينة اظهرها على spSkinStatusPanel ... افيدوني جزاكم الله خيراً
جوابا لسؤالك
إقتباس :spSkinStatusPanel1.caption:=IntToStr(30000)
onexite كتب :جوابا لسؤالك

شكراً على الرد ...للتوضيح اود اظهار معلومات من جدول في قاعدة بيانات كأن يكون لدي مثلا طلبة في تخصصات معينة اود وضع عدد الطلبة في كل تخصص على حدى
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;