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

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

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي التقنية (https://delphi4arab.net/forum/forumdisplay.php?fid=6)
+--- قسم : دلفي و التعامل مع قواعد البيانات (https://delphi4arab.net/forum/forumdisplay.php?fid=23)
+--- الموضوع : برمجة تطبيقات قواعد البيانات بإستخدام ado (الجزء2: ADOTable / ADOConnection) (/showthread.php?tid=2334)

الصفحات: 1 2 3

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

[COLOR="RoyalBlue"]
السلام عليكم و رحمة الله تعالى و بركاته
وفقك الله اخي عبد الجليل موضوع ثري بالمعلومات كنت اجهلها عن Mysql
Firebird
[/COLOR]

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

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

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

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

تحميل الدرس
http://www.mediafire.com/?7gyaeg82chbx31w

إقتباس :قد يتسائل البعض كي يمكن إنشائها ديناميكيا ( برمجيا) للأسف لا يمكن <-- خطأ

شكر خاص للأخ hanipino وجازاه الله خيرا على التصحيح

لإنشاء حقل 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;

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

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

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

بارك الله فيكم على المجهودات القيمة المبذولة من طرف جميع الاخوة

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

السلام عليكم
الله يبارك فيك اخي الكريم دروس رائعة
تحية لك

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

دروس رائعة جدا شكرا

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

دروس جيدة بارك الله فيكم

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

روعة في الأداء والتبسيط بوركتم

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

نشكر كل فرد يقوم بنفع الناس بهذا العلم
و الله العظيم أجر كبير باذن الله تعالى
الشكر على القائمين على هذا المنتدى

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

السلام عليكم

أنا سعيد جدا بالمعلومات التي وضعتها ..
وبارك الله لك في مجهوداتك.
والله المنتدى فاز بأمثالك....
ربي يحفظك

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

الله ينور بجد تسلم ربنا يوفقك ومن تقدم الي تقدم
انا شاهدت دروس كثيرة ولم احصل 10 %
لكن معك والله حصلت بنسبة تفوق ال 200%
الله يباركلك وهتابع كل دروسك باذن الله