الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

شرح مكون Chart

بدأه عاشقة دلفى في 26 ديسمبر 2007 · 5 رد · 1,608 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

و كل سنة و الجميع بخير

ممكن احد يشرح لى و بتفصيل طريقة التعامل مع

Chart

و كيفية ربطها و استخدامها لاستخراج البيانات من الجداول

ابى شرح وافى

جزاكم الله كل خير

#2

في مجلد Delphi يوجد مجلد اسمه Demos بداخله مجلد اسمه Teechart

تجد teedemo.dpr به عدة امثلة عن Chart وكيفية استخدامه بالتفصيل الممل

والسلام عليكم ورحمة الله

d4baa0.gif
#3

هذا كود برنامج سبق ان عملته و كان يستخدم 3 charts 

var
x:integer;
begin
  Form1.Series6.Clear;
  Form1.Series7.Clear;
  Form1.Series8.Clear;

  Form1.Chart5.Series[0].Add(idGen,'GENERATION',clGreen) ;
  Form1.Chart5.Series[0].Add(IdTrans,'TRANSMISSION',clGreen);
  Form1.Chart5.Series[0].Add(IdDISTR,'DISTRIBUTION and CUSTOMER SERVICES',clGreen) ;
  Form1.Chart5.Series[0].Add(IdFINANCE,'FINANCE',clGreen);
  Form1.Chart5.Series[0].Add(idGenSVS,'GENERAL SERVICES',clGreen);
  Form1.Chart5.Series[0].Add(idHUMAN,'HUMAN RESOURCES',clGreen);
  Form1.Chart5.Series[0].Add(idPLANNING,'PLANNING AND PROGRAMS ',clGreen) ;
  Form1.Chart5.Series[0].Add(idAUDITING,'INTERNAL AUDITING ',clGreen);
  Form1.Chart5.Series[0].Add(idLEGAL,'LEGAL AFFAIRS',clGreen);
  Form1.Chart5.Series[0].Add(idPUBLIC_AFFAIR,'PUBLIC AFFAIR AND SHARE HOLDER RELATION',clGreen);

  Form1.Chart5.Series[1].Add(NotUpdated_Gen,'GENERATION',clRed) ;
  Form1.Chart5.Series[1].Add(NotUpdated_Trans,'TRANSMISSION',clRed);
  Form1.Chart5.Series[1].Add(NotUpdated_DISTR,'DISTRIBUTION and CUSTOMER SERVICES',clRed) ;
  Form1.Chart5.Series[1].Add(NotUpdated_FINANCE,'FINANCE',clRed);
  Form1.Chart5.Series[1].Add(NotUpdated_GenSVS,'GENERAL SERVICES',clRed);
  Form1.Chart5.Series[1].Add(NotUpdated_HUMAN,'HUMAN RESOURCES',clRed);
  Form1.Chart5.Series[1].Add(NotUpdated_PLANNING,'PLANNING AND PROGRAMS ',clRed) ;
  Form1.Chart5.Series[1].Add(NotUpdated_AUDITING,'INTERNAL AUDITING ',clRed);
  Form1.Chart5.Series[1].Add(NotUpdated_LEGAL,'LEGAL AFFAIRS',clRed);
  Form1.Chart5.Series[1].Add(NotUpdated_PUBLIC_AFFAIR,'PUBLIC AFFAIR AND SHARE HOLDER RELATION',clRed);


  Form1.Chart5.Series[2].Add(idGen-NotUpdated_Gen,'GENERATION',clNavy) ;
  Form1.Chart5.Series[2].Add(IdTrans-NotUpdated_Trans,'TRANSMISSION',clNavy);
  Form1.Chart5.Series[2].Add(IdDISTR-NotUpdated_DISTR,'DISTRIBUTION and CUSTOMER SERVICES',clNavy) ;
  Form1.Chart5.Series[2].Add(IdFINANCE-NotUpdated_FINANCE,'FINANCE',clNavy);
  Form1.Chart5.Series[2].Add(idGenSVS-NotUpdated_GenSVS,'GENERAL SERVICES',clNavy);
  Form1.Chart5.Series[2].Add(idHUMAN-NotUpdated_HUMAN,'HUMAN RESOURCES',clNavy);
  Form1.Chart5.Series[2].Add(idPLANNING-NotUpdated_PLANNING,'PLANNING AND PROGRAMS ',clNavy) ;
  Form1.Chart5.Series[2].Add(idAUDITING-NotUpdated_AUDITING,'INTERNAL AUDITING ',clNavy);
  Form1.Chart5.Series[2].Add(idLEGAL-NotUpdated_LEGAL,'LEGAL AFFAIRS',clNavy);
  Form1.Chart5.Series[2].Add(idPUBLIC_AFFAIR-NotUpdated_PUBLIC_AFFAIR,'PUBLIC AFFAIR AND SHARE HOLDER RELATION',clNavy);

  form1.Chart5.SaveToBitmapFile('chart5.bmp');
  Form1.Series4.Clear;
  Form1.Series5.Clear;

  dm.ADOTableHistory.Active:=True;
  for x:= 0 to dm.ADOTableHistory.RecordCount -1   do
  begin
  Form1.Chart4.Series[0].Add(dm.ADOTableHistory.Fields[0].AsInteger,dm.ADOTableHis
tory.Fields[2].AsString, clRed);
  Form1.Chart4.Series[1].Add(dm.ADOTableHistory.Fields[1].AsInteger, 'Updated', clNavy);
  dm.ADOTableHistory.Next;
  end;
   dm.ADOTableHistory.Active:=False;
   form1.Chart4.SaveToBitmapFile('chart4.bmp');
end;

بعض الحكي يحق له يجرح الصمت..والبعض الآخر ما يبرر ظهوري

#4

السلام عليكم ورحمة الله و بركاته

شكرا لكل من قدم رده

انا اريد خطوات بالتفصيل منذ وضع المكون على الفورم و كيفية ربطه

ادا سمحتم

#5

المشاركة قديمه بس حبيت اضيف ان التعليمات الدلفي بتشرحه بالتفصيل الممل

الحمد لله الذي هدانا لهذا وماكنا لنهتدي لولا ان هدانا الله

مواضيع مشابهة