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

[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

هل تقصد هذه المشاركة , هنا

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