+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (https://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي و التعامل مع قواعد البيانات (https://delphi4arab.net/forum/forumdisplay.php?fid=23)
+--- الموضوع : ربط قاعدة بيانات باردوكس مع الدلفي عن طريق السورس (/showthread.php?tid=1783)
ربط قاعدة بيانات باردوكس مع الدلفي عن طريق السورس - abo-ghadab - 14-03-2010
السلام عليكم ورحمة الله وبركاته
حبيت أشارك بموضوع حول ربط قاعدة بيانات باردوكس مع الدلفي عن طريق السورس .
وذلك بعد إضافة عنصر DataSource من قائمة DataAccess
و إضافة عنصر Table من قائمة BDE
ونضيف الكود التالي في حدث FormShow للفورم .
وسوف أضيف BDGrid من أجل عرض البيانات
و عنصر DBNavigator من أجل الإنتقال بين السجلات المعروضة ضمن DBGrid
كود :
procedure TForm1.FormShow(Sender: TObject);
begin
Table1.DatabaseName := GetCurrentDir + '.\data';
Table1.TableName := 'frigidaire_balance';
DataSource1.DataSet := Table1;
DBGrid1.DataSource := DataSource1; // DBGrid من أجل أظهار البيانات في
DBNavigator1.DataSource := DataSource1; // DBNavigator من أجل أنتقال بين البيانات عن طريق
DBGrid1.Columns[0].FieldName := 'date_f';
DBGrid1.Columns[0].Title.Caption := 'تاريخ';
DBGrid1.Columns[1].FieldName := 'Virtage_blood';
DBGrid1.Columns[1].Title.Caption := 'زمرة الدم';
DBGrid1.Columns[2].FieldName := 'Conjugate_ready_blood';
DBGrid1.Columns[2].Title.Caption := 'الدم الجاهز لصرف';
DBGrid1.Columns[3].FieldName := 'New_give_blood';
DBGrid1.Columns[3].Title.Caption := 'الدم المقطوف حديثا ً';
DBGrid1.Columns[4].FieldName := 'Blood_corpuscles';
DBGrid1.Columns[4].Title.Caption := 'دم كريات الحمر';
DBGrid1.Columns[5].FieldName := 'New_give_blood_sendery';
DBGrid1.Columns[5].Title.Caption := 'الدم الثنائي';
DBGrid1.Columns[6].FieldName := 'New_give_blood_ternary';
DBGrid1.Columns[6].Title.Caption := 'الدم الثلاثي';
Table1.Open;
end;حمل المرفقات يوجد مثال توضحي
ربط قاعدة بيانات باردوكس مع الدلفي عن طريق السورس - kachwahed - 14-03-2010
وعليكم السلام ورحمة الله وبركاته
بداية موفقة، كود ديناميكي أخي abo-ghadab
للمناقشة:
ما الفرق بين:
كود :
Table1.DatabaseName := GetCurrentDir + '.\data';كود :
Table1.DatabaseName := ExtractFilePath(Application.ExeName) + 'data';ربط قاعدة بيانات باردوكس مع الدلفي عن طريق السورس - abo-ghadab - 14-03-2010
ههههه عرفت أنك سوف ترد
بس مبين من الكود الذي وضعته انت أنه سوف يفتح مسار البرنامج ويصل الى data
هل وصلت لما تريدني أن أصل إليه
أو وضح ,,,, لكي أصبح أعرف :laugh:
ربط قاعدة بيانات باردوكس مع الدلفي عن طريق السورس - kachwahed - 14-03-2010
إقتباس :ههههه عرفت أنك سوف تردحتى لا تشعر بأنك في بين مهجور
إقتباس :بس مبين من الكود الذي وضعته انت أنه سوف يفتح مسار البرنامج ويصل الى dataهذا تفسير الكود.
لكن أين الفرق؟
وقد ذكر في المنتدى.
ربط قاعدة بيانات باردوكس مع الدلفي عن طريق السورس - abo-ghadab - 14-03-2010
معرفة مسارالبرنامج بواسطة الدالة ExtractFilePath
هل تقصد هذه المشاركة , هنا
لكن لم أعرف الفرق بعد ؟ :disgust: