لوحة القادة

اشكر الاخ العزيز أحمد حسن على الكلام اللطيف الذي يعكس رقيك الاخت السائلة عن الكود المعروض في الموضوع عبارة عن كود لإظهار مربع الحوار فتح لإختيار الصورة وليسى له علاقة بالالية... التركيز فقط على نوع الحقل والكائن الذي يعرض الصورة لكن اذا تريدي تنفيد الكود مستعد وكذا ماهي الاخطاء الظاهرة لديك اما بالنسبة للأخ العزيز ahmedbb صاحب المشاركة الرائعة فأن كلامك ممتاز بما يخص كبر حجم البانات في القاعدة البيانات وانا معه في ذلك لكن اسمحلي ان ابين شيئ مهم جدا بالنسبة لطريقة حفظ الملف في مسار معناه انك ستحفظ الصور او الملفات في مسار على القرص فإنك في هذه الحالة وفرت المساحة في قاعدة البيانات لكن حجم الصور أو الملفات يحجز حيز على القرص إضافة أن حجم الصورة وهي محفوظة في قاعدة البيانات تكون اقل من حجمها على القرص ثانياً إن الصور المحفوظة على القرص يمكن ان تعرض للعبث الغير مقصود من المستخدم بالحذف او التعديل أو حتى الاطلاع ويمكن ان تفقد ثالثاً المستوى الامني بالنسبة للنظام مثلاً في حالة صور الوثائق الهامة أو السرية ضمان مستوى حمايتها دخال قاعدة البينات افضل بكثير من خارجها خامساً بالنسبة لمعالجة قواعد بينات اوراكل فإن عملية التعامل الدخلي للبيانات داخل القاعدة افضل من خارجه رغم انها طبعاً ليسى ملحوظ الفارق فيه هذا والله اعلم واشكرك جدا اخي العزيز على هذه المشاركة الرائعة وتواضعك للعلم بكلمة متواضعة الدال على البيئة الرائعة الذي نشئت فيها رغم ان المشاركة ممتازة جداً ومهمة لتوضيح الفارق بينهم ووضحت بعض الفروق حسب معلوماتي البسيطة جداً ونحن هنا والله لنتعاون بيننا وتوصيل معلوماتنا لبعضنا وجزاك الله خير والله من وراء القصد اخوكم الفقير الى الله ....

الملف مضغوط ببرنامج RAR وهو عبارة عن شاشة اسمها OLE.FMB عملت بواسطة ديفلوبر 6I فكي الضغط منها فيمكنك استعراضها فقط أضف كائن OLE من نوع الكائنات المعروضة عندك في المصمم هذا كود الزر أدراج ملف declare dirname varchar2(255); v_filename varchar2(255); ole_item ITEM; begin v_filename := get_file_name(dirname,NULL, 'All Files (*.*)|*.*|' || 'DOCMENTS Files (*.DOC)|*.DOC|' || 'JPEG Files (*.jpg)|*.jpg|' || 'Bitmap Files (*.bmp)|*.bmp|' || 'TIFF Files (*.tif)|*.tif|' || 'CompuServe Files (*.gif)|*.gif|' || 'PC Paintbrush Files (*.pcx)|*.pcx|' ); if v_filename is not null then ole_item := FIND_ITEM('OLE1'); IF NOT ID_NULL(ole_item) THEN Forms_OLE.Initialize_Container(ole_item, v_filename); END IF; IF Forms_OLE.Server_Active(ole_item) = FALSE THEN Forms_OLE.Activate_Server(ole_item); END IF; -- -- end if; end;