ربط قاعدة بيانات باردوكس مع الدلفي عن طريق السورس

[abo-ghadab]

السلام عليكم ورحمة الله وبركاته
حبيت أشارك بموضوع حول ربط قاعدة بيانات باردوكس مع الدلفي عن طريق السورس .

وذلك بعد إضافة عنصر 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]

وعليكم السلام ورحمة الله وبركاته
بداية موفقة، كود ديناميكي أخي abo-ghadab :)
للمناقشة:
ما الفرق بين:
Table1.DatabaseName := GetCurrentDir + '.\data';

و
Table1.DatabaseName := ExtractFilePath(Application.ExeName) + 'data';
وأيهما أفضل؟

[abo-ghadab]

ههههه عرفت أنك سوف ترد

بس مبين من الكود الذي وضعته انت أنه سوف يفتح مسار البرنامج ويصل الى data

هل وصلت لما تريدني أن أصل إليه

:)

أو وضح ,,,, لكي أصبح أعرف :laugh:

[kachwahed]

ههههه عرفت أنك سوف ترد
حتى لا تشعر بأنك في بين مهجور :)
بس مبين من الكود الذي وضعته انت أنه سوف يفتح مسار البرنامج ويصل الى data
هذا تفسير الكود.
لكن أين الفرق؟
وقد ذكر في المنتدى.

[abo-ghadab]

معرفة مسارالبرنامج بواسطة الدالة ExtractFilePath

هل تقصد هذه المشاركة , هنا (http://www.delphi4arab.com/forum/showthread.php?t=1572)

لكن لم أعرف الفرق بعد ؟ :disgust: