HELP Built-in

حمل ملف الـ FMB من هـــــــــــــنا

Reference

HELP Built-in

GET_FORM_PROPERTY Built-in

حمل ملف الـ FMB من هـــــــــــــنا

Reference

GET_FORM_PROPERTY Built-in

FORM_SUCCESS Built-in

حمل ملف الـ FMB من هـــــــــــــنا

Reference

FORM_SUCCESS Built-in

FORM_FATAL Built-in

حمل ملف الـ FMB من هـــــــــــــنا

Reference

FORM_FATAL Built-in

FORM_FAILURE Built-in

حمل ملف الـ FMB من هـــــــــــــنا

Reference

FORM_FAILURE Built-in

FIND_FORM Built-in

حمل ملف الـ FMB من هـــــــــــــنا

Reference

FIND_FORM Built-in

EXIT_FORM Built-in

حمل ملف الـ FMB من هـــــــــــــنا

Reference

EXIT_FORM Built-in

EXECUTE_TRIGGER Built-in

حمل ملف الـ FMB من هـــــــــــــنا

Reference

EXECUTE_TRIGGER Built-in

ERASE Built-in

حمل ملف الـ FMB من هـــــــــــــنا

Reference

ERASE Built-in

ENTER Built-in

حمل ملف الـ FMB من هـــــــــــــنا

Reference

ENTER Built-in

COMMIT_FORM Built-in

حمل ملف الـ FMB من هـــــــــــــنا

Reference

COMMIT_FORM Built-in

CLEAR_FORM Built-in

حمل ملف الـ FMB من هــــــــــــــــــنا

Reference

CLEAR_FORM Built-in

CALL_INPUT Built-in

هذا الأجراء يقوم بتلقى و تنفيذ الأوامر الخاصة بالمفاتيح الوظيفية ( F1,F2,F3 ... F12 ) و بعد الانتهاء من التنفيذ يتم الاستأناف من النقطة التى تم منها منداة الـ CALL_INPUT ، و لكن هذه الدالة لا تستخدم حالياً فى الـ Forms 10g و لكنها وضعت فقط للتوافق مع البرامج ذات الأصدارات القديمة من الاوراكل فورمز.

Reference

CALL_INPUT Built-in

BELL Built-in

هذه شاشة المشروع المبسط لأستخدام الـ BELL Built-in التى يفترض أن تقوم بأصدار صوت .

و لتحميل المشروع ...... أضـــــــغــــــــــــط هــــــــــنا

BELL Built-in

CALL_FORM Built-in

هذه شاشة المشروع التوضيحى للـ CALL_FORM Built-in

حمل المشروع من هـــــــــــــــــــــــــــــــــــــــنا

CALL_FORM Built-in

SET_VIEW_PROPERTY

فى هذا الدرس سنتناول كيفية التعامل مع الـ SET_VIEW_PROPERTY Built-in



و يمكنكم تحميل التطبيق العملى ( ملف الـ fmb ) من هذا الرابط :-

أضـــــــــــــــــــغـــــــــــــــــــط هــــــــــــــــــــــــــنا

و أتمنى أن ينول الدرس أعجبكم

SET_VIEW_PROPERTY

SET_CANVAS_PROPERTY

هذا الدرس يتناول كيفية التعامل مع الـ SET_CANVAS_PROPERTY Built-in

حمل ملف الـ fmb من هذا الرابط :-

أضـــــــــــــــــــــغــــــــــــــــــــط هــــــــــــــــــــــــــنا

SET_CANVAS_PROPERTY

SCROLL_VIEW

الـ SCROLL_VIEW Built-in تقوم بتحريك الـ View فى الـ Canvas التى بها على حسب الاتجاه المحدد فى معامل الـ X و الـ Y ، و يؤدى ذلك بدوره الى أظهار بعض المناطق من الـ Canvas التى كانت مخفية الى الـ End User ، و لكنه فى نفس الوقت لا يغير من وضع - Position - الـ View بالنسبة للـ Window.

هذا الأجراء يظهر كيفية أستخدام الـ SCROLL_VIEW Built-in

/* 
** Built-in: SCROLL_VIEW 
** Example: Scroll the view whose name is passed in 10% to 
** the right or left depending on the 'direction' 
** parameter. 
*/ 
PROCEDURE Scroll_ten_percent 
     (viewname   VARCHAR2, 
      direction  VARCHAR2) 
IS 
  vw_id        VIEWPORT; 
  vw_wid       NUMBER; 
  vw_x         NUMBER; 
  cn_id        CANVAS; 
  cn_wid       NUMBER; 
  ten_percent  NUMBER; 
  new_x        NUMBER; 
  old_y        NUMBER; 
BEGIN 
  /* 
** Get the id's for the View and its corresponding canvas 
*/ 
  vw_id := Find_view(viewname); 
   
  cn_id := Find_canvas(viewname); 
   
  /* 
** Determine the view width and corresponding canvas 
** width. 
*/ 
  vw_wid := Get_view_property(vw_id,width); 
   
  cn_wid := Get_canvas_property(cn_id,width); 
   
  /* 
** Calculate how many units of canvas width are outside of 
** view, and determine 10% of that. 
*/ 
  ten_percent := 0.10 * (cn_wid - vw_wid); 
   
  /* 
** Determine at what horizontal position the view 
** currently is on the corresponding canvas 
*/ 
  vw_x := Get_view_property(vw_id,viewport_x_pos_on_canvas); 
   
  /* 
** Calculate the new x position of the view on its canvas 
** to effect the 10% scroll in the proper direction. 
** Closer than ten percent of the distance to the edge 
** towards which we are moving, then position the view 
** against that edge. 
*/ 
  IF direction = 'LEFT' THEN 
    IF vw_x > ten_percent THEN 
      new_x := vw_x - ten_percent; 
    ELSE 
      new_x := 0; 
    END IF; 
  ELSIF direction = 'RIGHT' THEN 
    IF vw_x < cn_wid - vw_wid - ten_percent THEN 
      new_x := vw_x + ten_percent; 
    ELSE 
      new_x := cn_wid - vw_wid; 
    END IF; 
  END IF; 
   
  /* 
** Scroll the view that much horizontally 
*/ 
  old_y := Get_view_property(vw_id,viewport_y_pos_on_canvas); 
   
  Scroll_view(vw_id,new_x,old_y); 
END; 

 

و هذا الرابط به التنفيذ العملى fmb file للكود السابق ذكره

أضــــــــــــــــــــــــــــــغـــــــــــــــــــــــــط هـــــــــــــــــــــــــــــــــــــنا

SCROLL_VIEW

PRINT Built-in

الـ PRINT Built-in تقوم بطبع محتوى النافذة الحالية الى الطباعة أو الى ملف .

PRINT Examples

/*

** Built-in: PRINT
** Example: Print the current window.
*/
BEGIN
Print;
END;

يمكنك تحميل ملف الـ fmb من هذا الرابط :-

أضــــــــــــــــــــــــــــــغـــــــــــــــــــــــــط هـــــــــــــــــــــــنا

و بالتوفيق

PRINT Built-in

طريقة مبسطه لتحويل برنامجك الى نسخة تجريبية

ما سوف أشرحه هو كيفية جعل برنامجك يعمل كنسخة تجربية لمدة شهر 30 يوم بالظبط على جهاز العميل ، و بعد انتهاء الثلاثون يوم تظهر شاشة توضح له انا الفترة الزمنية أنتهت ، و لابد من شراء البرنامج.

قم بأرفاق هذا الكود مع ملف السكويل المكون للأسكيمة :-

ALTER TABLE demo
DROP PRIMARY KEY CASCADE
/

DROP TABLE demo CASCADE CONSTRAINTS PURGE
/


--

-- DEMO (Table)

--

CREATE TABLE demo (
demo_id NUMBER NULL,
demo_date DATE DEFAULT SYSDATE NOT NULL)
/


COMMENT ON TABLE demo IS 'This Table to Limit this schema usage.'
/


--

-- DEMO_PK (Index)

--

-- Dependencies:

-- DEMO (Table)

--

CREATE UNIQUE INDEX demo_pk ON demo (demo_id)
/


--

-- Non Foreign Key Constraints for Table DEMO

--

ALTER TABLE demo

ADD(

CONSTRAINT demo_pk PRIMARY KEY ( DEMO_ID ))

/

و فى تربجر الـ WHEN-NEW-FORM-INSTANCE أكتب التالى :-

DECLARE

v_count NUMBER;

v_demo_date DATE;

BEGIN

SELECT Count(* )
INTO v_count
FROM demo;



IF SQL%FOUND THEN

SELECT demo_date
INTO v_demo_date
FROM demo
WHERE demo_id = 1;



IF SYSDATE > (v_demo_date + 30) THEN

Go_item('BLOCK11.PUSH_BUTTON5');

Replace_content_view('WINDOW1','OVER');

END IF;

ELSIF SQL%NOTFOUND THEN

INSERT INTO demo
VALUES (1,
SYSDATE);

COMMIT;

END IF;

EXCEPTION

WHEN no_data_found THEN

INSERT INTO demo
VALUES (1,
SYSDATE);


COMMIT;

END;

حمل هذا الملف لزيادة التوضح :-

أضــــــــــــــــــــــــــــــــــــغـــــــــــــــــــــــــــــــــط هـــــــــــــــــــــــــــــــــــــــــــــنا

طريقة مبسطه لتحويل برنامجك الى نسخة تجريبية