ما معنى هذه الاومر وما فائدة استخدامها Copy, Erase

[Fun Forever]

السلام عليكم 

رجاء توضيح ما معنى هذه الاومر وما فائدة استخدامها 

 

   ERASE ('global.' || i_n);

   ERASE  ('global.typ');

   ERASE ('global.Val');

   COPY ('2', 'global.al');

 

وشكرا 

تم تعديل 16 فبراير 2016 بواسطة Fun Forever

[eslam elbyaly]

اقرأ في الهيلب عن

global variables

copy

erase

[Fun Forever]

السلام عليكم 

تقصد كدا اخى الكريم 

 

مثل ما بالمرفق افتح الهليب وابحث عنه وافهم 

 

يتم تعريف متغير عام على المشروع كله من خلال هذا الامر 

 

:GLOBAL.my_var := TO_CHAR(:order.total * .85);

 

يمكن استخدا المتغير وتمريرة لاجراء من خلال هذا الامر 

calculate_discount(TO_NUMBER(:GLOBAL.my_var)); 

 

ولكي يتم مسح المتغير من ذاكرة الجهاز يتم استخدام هذا الامر 

 

Erase('GLOBAL.my_var'); 

 

انا اعمل مبرمج بالغة برمجة اخرى وجديد فى تعلم اوركل فورم 

وفهمت ان الهلب هيسعدنى فى فهم الاومر التى لا افهمها 

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

 

طيب انا فهمت الامر السابق لكن امر copy عندى احساس اني فهمتو خطاء 

 

هذا المثال موجد فى الهلب 

 

COPY Examples 

Example 1

/*

** Built-in: COPY

** Example: Force a wildcard search on the EmpNo item during

** query.

** Trigger: Pre-Query

*/

DECLARE cur_val VARCHAR2(40);  -- تعريف متغير نص 

BEGIN

/*

** Get the value of EMP.EMPNO as a string

*/

cur_val := Name_In('Emp.Empno');-- جعل المتغير يساوي قيمة معينه

/*

** Add a percent to the end of the string.

*/

cur_val := cur_val || '%'; -- جعل المتغير يساوي القيمة الموجودة به وعمل نسبة عليها

/*

** Copy the new value back into the item so Oracle Forms

** will use it as a query criterion.

*/

Copy( cur_val, 'Emp.Empno' ); --يتم نسخ القيمة الجديدة و وضعها فى الاداة على الفورم ؟؟؟؟

END;

 

 

Example 2

 

/*

** Built-in: COPY

** Example: Set the value of a global variable whose name is

** dynamically constructed.

*/

DECLARE

global_var_name VARCHAR2(80);   -- تعريف متغير نص 

BEGIN

IF :Selection.Choice = 5 THEN  -- عمل شرط فى حالة انه الاداة على الفورم تساوي قيمة معينه ينفذ

global_var_name := 'Storage_1'; -- وضع قيمة معينه فى المغير فى حالة تنفيذ الشرط 

ELSE

global_var_name := 'Storage_2';  -- وضع قيمة اخري فى المغير فى حالة لو الشرط لم ينفذ

END IF;

/*

** Use the name in the 'global_var_name' variable as the

** name of the global variable in which to copy the

** current 'Yes' value.

*/

COPY( 'Yes', 'GLOBAL.'||global_var_name );  في حالة نعم معرفش نعم جات منين المهم يتم نسخ المتغير بقيمة نعم ؟؟؟؟

END;

 

 

عفوا كتبت كتير 

المهم شكرا جدا على  معلومة الهلب 

تم تعديل 16 فبراير 2016 بواسطة Fun Forever