برمجة تطبيقات قواعد البيانات بإستخدام ado (الجزء2: ADOTable / ADOConnection)

[Lam.Abdeldjalil]

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

برمجة تطبيقات قواعد البيانات بإستخدام ado
نبدأ على بركة الله

هذا الجزء نقسمه إلى 5 أقسام
القسم 1 :
ما سنتناوله في هذا القسم (TADOConnection) ( درس فلاشي )
- كيفية إجراء إتصال بقاعدة بيانات أكسس
- إتصال مباشر
- إتصال بقاعدة بيانات محمية بكلمة مرور
- الإتصال برمجيا بكلمة مرور

روابط تحميل الدرس

http://www.multiupload.com/VPUIKTONA1

-------------------------------------------------
http://www.mediafire.com/?c5k1xfd88ipi95b#1

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

للتوضيح
ConnectionString لتخصيص معلومات الإتصال بقاعدة البيانات

بالنسبة للمزود لقاعدة البيانات أكسس
Microsoft.Jet.OLEDB.3.51 أكسس 97
Microsoft.Jet.OLEDB.4.0 أكسس 2000 ...2003

و التطبيق الصغير الذي الذي كنا نعمل فيه في الدرس في المرفق

ترقبوا الجزء القادم إن شاء الله حول ( القسم2 : ADOTable الإضافة ، الحذف ، التعديل )
والسلام عليكم

يوجد مرفقان
- قاعدة البيانات Nwind.rar‏
- تطبيق الدرس Ado.rar

[Lam.Abdeldjalil]

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

القسم2
ما سنتناوله في هذا القسم (TADOTable) ( درس فلاشي )

- الإتصال بالقاعدة
- ربط الجدول
- الإضافة ، الحذف ، التعديل بإستخدام DBControls

روابط تحميل الدرس
http://www.multiupload.com/LTH0DFS414
-------------------------------------------------
http://www.mediafire.com/?14fx4h4ph7k9c8z#1
و التطبيق الصغير الذي الذي كنا نعمل فيه في الدرس في المرفق
لا تنسى وضع قاعدة البيانات المرفقة في القسم 1 في نفس مسار التطبيق

والسلام عليكم

[Lam.Abdeldjalil]

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

القسم3
ما سنتناوله في هذا القسم (Master-Detail) ( درس فلاشي )


كيفية ربط جدول أب-إبن
Master-Detail

روابط تحميل الدرس


http://www.multiupload.com/KBG79N95MY
-------------------------------------------------
http://www.mediafire.com/?xc4kcojxhr46n5n
و التطبيق الصغير الذي الذي كنا نعمل فيه في الدرس في المرفق
لا تنسى وضع قاعدة البيانات المرفقة في القسم 1 في نفس مسار التطبيق

والسلام عليكم

[Lam.Abdeldjalil]

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

القسم4
ما سنتناوله في هذا القسم (البحث والفلترة) ( درس فلاشي )


البحث بإستخدام Locate
الفلترة Filter

روابط تحميل الدرس


http://www.multiupload.com/1BFYFRXTO2
-------------------------------------------------
http://www.mediafire.com/?c9unozx1sqjobcq
و التطبيق الصغير الذي الذي كنا نعمل فيه في الدرس في المرفق
لا تنسى وضع قاعدة البيانات المرفقة في القسم 1 في نفس مسار التطبيق

والسلام عليكم

[Lam.Abdeldjalil]

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

القسم5
ما سنتناوله في هذا القسم (الإضافة و التعديل ) ( درس فلاشي )

الإضافة و التعديل من فورم ثانية دون إستخدام DBControls
في المثال بإستخدام Edit /DateTimePicker

روابط تحميل الدرس

http://www.multiupload.com/BXXWXNKB24
-------------------------------------------------
http://www.mediafire.com/?4owl78v584uy8o5#1
و التطبيق الصغير الذي الذي كنا نعمل فيه في الدرس في المرفق
لا تنسى وضع قاعدة البيانات المرفقة في القسم 1 في نفس مسار التطبيق

والسلام عليكم

[musvc]

بالضبط ما كنت ابحث عنه حقاً, دروس فلاش!
لم اجرب برمجة قاعدة بيانات في حياتي
لكن الأن ربما سأبدأ التعلم منك :)

سلامي لك, و شكراً على الجهد المبذول في اعداد الدروس!

[Lam.Abdeldjalil]

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

مرحبا بالأخ musvc معنا :)

للبدء مع قواعد البيانات أنصح بقراءة

الأسس العلمية في تصميم نماذج قواعد البيانات العلائقية (http://www.delphi4arab.com/forum/showpost.php?p=17982&postcount=2)

و للمزيد حول الـ SQL المواضيع التالية

الشامل فى لغة ال sql (http://www.delphi4arab.com/forum/showthread.php?t=495)

لمحة بسيطة عن sql (http://www.delphi4arab.com/forum/showthread.php?t=998)


التعامل مع sql في الدلفي (http://www.delphi4arab.com/forum/showthread.php?t=2551)


الأسبوع القادم إن شاء الله نبدأ مع AdoQuery .


يالتوفيق
(http://www.delphi4arab.com/forum/showthread.php?t=2551)



(http://www.delphi4arab.com/forum/showthread.php?t=2551)

[Lam.Abdeldjalil]

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

القسم 6
ما سنتناوله في هذا القسم (الإتصال بقاعدة SqlServer و FireBird) ( درس فلاشي )

مثال حول :
كيفية الإتصال بقاعدة البيانات MSSQL
الإتصال بقاعدة بيانات FireBird عبر OLE DB-ODBC

روابط تحميل الدرس

http://www.multiupload.com/701390XJFS
-----------------------------------------
http://www.mediafire.com/?m701g4nyz2668tx
والسلام عليكم

[kachwahed]

درس ممتاز :)
للإضافة:
في إصدارات دلفي الأخيرة أصبح من السهل ربط Firebird من خلال Data Explorer بمجرد السحب والإفلات
يتم رصف عناصر DBExpress مجهزة للاتصال بقاعدة بيانات Firebird...
العرض Firebird & Delphi 2010
http://www.youtube.com/watch_popup?v=o2CBJiUeeJo&vq=large
بالتوفيق أخي Lam.Abdeldjalil

[Lam.Abdeldjalil]

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

بارك الله فيك أستاذ kachwahed :)

إضافة بسيطة : DBExpress محدود بـالقواعد InterBase/MySQL (إتصال محلي ) في إصدار دلفي professional :(
أما بالنسبة للإصدارين Enterprise / Arcrchitect فهو غير محدود

المصدر

http://www.embarcadero.com/products/delphi/Delphi-Feature-Matrix.pdfجزء

DATABASE APPLICATION DEVELOPMENT AND CONNECTIVITY
DBEXPRESSو السلام عليكم

[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته
وفقك الله اخي عبد الجليل موضوع ثري بالمعلومات كنت اجهلها عن Mysql
Firebird

[Lam.Abdeldjalil]

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

ما سنتناوله في هذا القسم (Calculated/Lookup) ( درس فلاشي )

كيفية العمل بــ
Calculated/Lookup Fields

روابط تحميل الدرس


http://www.multiupload.com/R19KW62HA4
-------------------------------------------------
http://www.mediafire.com/?7gyaeg82chbx31w

قد يتسائل البعض كي يمكن إنشائها ديناميكيا ( برمجيا) للأسف لا يمكن <-- خطأ شكر خاص للأخ hanipino (http://www.delphi4arab.com/forum/member.php?find=lastposter&t=4048) وجازاه الله خيرا على التصحيح

لإنشاء حقل Lookup برمجيا
يجب أن يكون الـ Dataset مغلقا أي تغلقه إذا كان مفتوحا
مثال ( متابعة لما في المرفق )

tbl_Product.Close ;
with TStringField.Create(tbl_Product) do
begin
FieldName := 'LookupFieldname';
FieldKind := fkLookup;
DataSet := tbl_Product;
Name := DataSet.Name + FieldName;
KeyFields := 'Category_Id';
LookupDataSet := tbl_cat_lookup;
LookupKeyFields := 'Category_Id';
LookupResultField := 'Category_Name';
end;
tbl_Product.open ;
لإنشاء حقل Calculated برمجيا
نفس الشيئ يجب أن يكون الـ Dataset مغلقا أي تغلقه إذا كان مفتوحا

tbl_Product.Close ;
with TCurrencyField.Create(tbl_Product) do
begin
FieldName := 'CalcField2';
FieldKind := fkCalculated ;
DataSet := tbl_Product;
Name := DataSet.Name + FieldName;
end;
tbl_Product.open ;
أما في الحدث OnCalcFields 'أين تضع تعليمة الحساب' + نضيف شرط ليكون الحساب فقط إذا وجد الحقل المراد إضافته
لكي لا نواجه مشكل Field not Found

procedure TForm1.tbl_ProductCalcFields(DataSet: TDataSet);
begin

if tbl_Product.FindField('CalcField2')<>nil then
tbl_Product.FieldByName('CalcField2').Value :=tbl_ProductProduct_Qtt.Value *(tbl_ProductProduct_Price.value) ;

end;

و المثال في المرفق



و السلام عليكم