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

 

أحببت اليوم أن اشارككم شاشة لإدارة المرفقات في قاعدة البيناتات، 

الغرض من هذه الشاشة هي حفظ الملفات والصور داخل قاعدة البيانات وتوجيهها الى مستخدمين معينين لمجموعة معينة او للعامة.

 

أولاً قاعدة البينات

نقوم بانشاء جدول كما يلي :

 

CREATE TABLE ATTACHMENT
(
  ATTCH_ID    NUMBER(5)                           NOT NULL,
  ATTCH_TYPE  VARCHAR2(50 BYTE)                   NOT NULL,
  ATTCH_NAME VARCHAR2(256 BYTE)                   NOT NULL,
  ATTCH_DESCRIPTION VARCHAR2(256 BYTE)                   ,
  ATTCH_REMARKS VARCHAR2(256 BYTE)                   ,
  ATTCH_REF VARCHAR2(20 BYTE)                   ,
  TO_UNAME VARCHAR2(50 BYTE)                   ,
  TO_UGROUP VARCHAR2(50 BYTE)                   ,
  USER_NAME VARCHAR2(50 BYTE),
  ATTCH_DATE  VARCHAR2(10 BYTE)  ,
  ATTCH_FILE LONG RAW  
)

   

 

ثانياً الفورم

نقوم بانشاء شاشة وربطها بقاعدة البينات كما يظهر في المرفقات

حيث نقوم بإنشاء متغير من نوع ole container وذلك لحفظ الصورة 

 

 

-- ملاحظة ، لفتح الصورة في الفورم يمكنك الضغط على الماوس دبل كليك .

 

أتمنى لكم الاستفادة من الموضوع 

والدعاء لي في ظهر الغيب ...

 

 

ATTACHMENT.zip

استاز فيصل هنالك خطا في زر خاص ب ادراج الملف

الخطا في كلمة ...Initialize_Container

 

ممكن تشرح لي طريقة عمل هذه الكود

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;

تم تعريف متغير من نوع أيتم ole_item ITEM; وتم ربطة بالأيتم الخاص بحفظ الصورة في الفورم  ole_item := FIND_ITEM('ATTCH_FILE');

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

 

1. IF NOT ID_NULL(ole_item) THEN

هنا نضع جملة شرطية (هل المستخدم قام باختيار ملف فعلاً؟)  

 

 

2.Forms_OLE.Initialize_Container(ole_item, v_filename);

هنا يتم تهيئة محتوى الأيتم ole_item بوضع مسار الصورة v_filename

3.IF Forms_OLE.Server_Active(ole_item) = FALSE THEN

Forms_OLE.Activate_Server(ole_item);

في هذا الجزء يتم تطبيق التغييرات على مستوى السيرفر 

 

مع العلم أن هذه الشاشة تعمل على اصدار 10G ودفلوبر 6I

انا شغال علي اصدار  10G وديفلوبر 10G

 

ما ظبطت معي

في خطاء في كود خاص بتهية محتوي

اسف استاز فيصل علي كثرت اسئلتي

 

لكني محتاج لي هذه الكود ضروري

كيفية اضافة صورة من فورم

جزاك الله خير جاااري التجربة

فين المشكلة بالضبط أخي  monte jamaice

الشاشة التي شاركتها لكم تعمل بشكل مستقل و100% 

المشكلة اني اعمل علي ديفلوبر 10g

وهذي الطريقة لم تعمل معي

اخي عند التنفيذ تظهر رسالة خطاء

   Frm-40815:variable global. Uname dos not exist

 

Frm-41829 :record not created

 

الر

block_menu must be declared

??????

ياخوان  اعذروني

بس  اداة   

ole container

اعتقد لاتتوفر في دفلوبر  10 جي   فماهو الحل  ارجوا   المساعدة

واشكركم جداً

السلام عليكم

 

ياربت الاخوة اللي عندها فكرة تساعدنا بموضوع المرفقات على 10g الله يجزيكم الخير

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

ole container

يتم التعامل معها فى اصدارات ال 6I   وماقبلها  ولكن اصدارات ال  10g   ومابعدها  الامر اختلف فالاتجاه اصبح الى الجافا

بالنسبة للتعامل مع المرفقات فى اصدارات ال  10g   ومابعدها  يفضل التعامل مع ال  Webutil  لان التشغيل سيكون على ابليكشن سيرفر

من اجل ان تعمل الشاشة يجب انشاء ترايجر على مستوى الفورم وكتابة الاتي

:global.UNAME:='حسين';

:GLOBAL.UGROUP:=1;

ويتم مسح كامل الكود في WHEN NEW FORM INSTANCE و ادخال الاتي فقط 

Set_Window_Property(FORMS_MDI_WINDOW,WINDOW_STATE,MAXIMIZE);

Set_Window_Property('WINDOW0',WINDOW_STATE,MAXIMIZE);

 

 

ياخوان  عندي 2 طلب  ..

 

1- ياريت  حد  يشرح لنا طريقة استخدام  بدل اداة   ole container   في   اوركل فورم  10 جي   لان  هذه الاداة غير متوفرة في هذا الاصدار   . . .  مع  ارفاق نماذج مرفقات ..   حيث حاولت اجد طريقة لارفاق ملف  الوورد  وملف بي دي اف فلم اجد .

 

2- بالنسبة لارفاق المكتبة الويب بوتل في فورم 10 جي كان يتم ارفاقة في وندز 10  لكن لاحظت عند  تحديث الوندز 10  فانه يعطي مسج عند   الارفاق ولايرفق   والمسج كالتالي :

 

PDE-Pli018 could not find library

 

كذلك  عند  قراة الصور وعرضها على الاوركل في رن الفورم   لايتم عرضها في   تحديث وندز 10  حيث قبل التحديث كان يتم العرض  هذا مالاحظتة هل هو عيب في التحديث لوندز 10  ام عندي مشكلة في الدفلوبر . هل حد حصلت معه نفس المشكلة بعد تحديث الوندز التلقائي؟