الانتقال إلى المحتوى

إدارة المرفقات مع قاعدة البيانات


Faisal Matari

Recommended Posts

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

 

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

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

 

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

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

 

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 وذلك لحفظ الصورة 

 

 

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

 

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

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

 
 

post-139007-0-35916800-1470033892_thumb.jpg

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
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

  • بعد 2 شهور...
  • بعد 2 شهور...
  • بعد 10 شهور...

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

بس  اداة   

ole container

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

واشكركم جداً

رابط هذا التعليق
شارك

  • بعد 1 شهر...

السلام عليكم

 

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

رابط هذا التعليق
شارك

  • بعد 2 أسابيع...

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

ole container

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

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

  • بعد 4 أسابيع...

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

: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 شهور...

 

 

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

 

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

 

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

 

PDE-Pli018 could not find library

 

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

 

رابط هذا التعليق
شارك

انضم إلى المناقشة

يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.

زائر
أضف رد على هذا الموضوع...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   تمت استعادة المحتوى السابق الخاص بك.   مسح المحرر

×   You cannot paste images directly. Upload or insert images from URL.

جاري التحميل
×
×
  • أضف...

برجاء الإنتباه

بإستخدامك للموقع فأنت تتعهد بالموافقة على هذه البنود: سياسة الخصوصية