إقتباس :او ان الدلفي لا تدعم ذلك
لايوجد شئ لا يمكن للدلفي ان تفعله بالاحرى انت تكتشف اشياء في الدلفي لا تستطيع ربما فعلها في البرامج الاخرى
يمكنك في حدث التحميل للنموذج بالنقر عليه مرتين ان تكتب التالي :
كود :
procedure TForm1.FormCreate(Sender: TObject);
var
str:string;
begin
str:=ExtractFileDir(Application.ExeName) + '\db.mdb' ;
ADOConnection1.Close;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=' + str;
ADOConnection1.Connected:=true;
ADOTable1.Open;
end;لاحظ عرفنا متغير Str كمتغير نصي ثم وضعنا فيه مسار مجلد البرنامج
كود :
ExtractFileDir(Application.ExeName)حيث
كود :
Application.ExeNameهو الملف التنفيذي لبرنامجك
ثم اسندناه لجملة الاتصال وفتحتنا الاتصال وكذلك فتحنا اتصال الجدول
حيث Adotabl1 هو المسؤول بالاتصال بالجدول Test1 بقاعدة البيانات
قد يتسائل البعض كيف ربطناه بالجدول
العملية تمت من نافذة الخصائص ولم تتم برمجيا
لتتم برمجيا يمكنك ذلك بالطريقة التالية .
كود :
ADOTable1.TableName='Test1';لفهم مكونات الاتصال وهي متشابهة كلها لها نفس الاسلوب سواء كانت اكسس او بارادوكس او اس كيو السيرفر او غيرها
هنا مكون الاتصال لاحظ جملة الاتصال والبارمترات في نافذة الخصائص كل هذه تستطيع التعامل معها مرئيا او برمجيا
بعدها لدينا مكون الجدول وهو المسؤول عن الاتصال بالجداول ولاحظ يجب ربطه بمكون الاتصال وكذلك تحديد الجدول المراد الاتصال به وكله بشكل مرئي او بالكود
ويظهر الخصائص الاخرى له والبارمترات التي تتبعه وسوف تظهر لك كل الجداول عن النقر عليها لتختار الجدول الذي تريد
مكون الداتاسورس مهمته الربط بين مكونات الداتا كنترول وبين مكون الجدول
فلو لاحظ انه يتم عرض البيانات في الداتاجريد وباقي الادوات بدون ان نكتب اي برمجة
الدتا جريد او الداتا كنترول كلها تتصل بالداتاسورس انظر للصورة
وبعد الربط تنقر على الداتا جريد لمزيد من الحكم في طول وعرض الصفوف والاعمدة