برمجة تطبيقات قواعد البيانات بإستخدام ado (الجزء2: ADOTable / ADOConnection)
|
برمجة تطبيقات قواعد البيانات بإستخدام ado (الجزء2: ADOTable / ADOConnection)
|
12-10-2010, 10:31 AM
[COLOR="RoyalBlue"]
السلام عليكم و رحمة الله تعالى و بركاته وفقك الله اخي عبد الجليل موضوع ثري بالمعلومات كنت اجهلها عن Mysql Firebird [/COLOR]
22-11-2010, 01:07 PM
(آخر تعديل لهذه المشاركة: 01-12-2010, 06:35 PM بواسطة Lam.Abdeldjalil.)
السلام عليكم ورحمة الله
ما سنتناوله في هذا القسم (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 ;نفس الشيئ يجب أن يكون الـ 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 ;لكي لا نواجه مشكل 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;
و المثال في المرفق
و السلام عليكم
29-07-2012, 01:48 PM
بارك الله فيكم على المجهودات القيمة المبذولة من طرف جميع الاخوة
27-03-2013, 09:09 AM
السلام عليكم
الله يبارك فيك اخي الكريم دروس رائعة تحية لك
03-07-2013, 02:30 PM
نشكر كل فرد يقوم بنفع الناس بهذا العلم
و الله العظيم أجر كبير باذن الله تعالى الشكر على القائمين على هذا المنتدى
01-07-2014, 01:30 PM
السلام عليكم
أنا سعيد جدا بالمعلومات التي وضعتها .. وبارك الله لك في مجهوداتك. والله المنتدى فاز بأمثالك.... ربي يحفظك
27-10-2017, 02:30 PM
الله ينور بجد تسلم ربنا يوفقك ومن تقدم الي تقدم
انا شاهدت دروس كثيرة ولم احصل 10 % لكن معك والله حصلت بنسبة تفوق ال 200% الله يباركلك وهتابع كل دروسك باذن الله |
|
|
