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

ما سوف أشرحه هو كيفية جعل برنامجك يعمل كنسخة تجربية لمدة شهر 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;

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

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

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

معرفة المستخدم الحالى للـ Session

يوجد طريقتان فى الفورم لمعرفة المستخدم الحالى ، و هم :-

GET_APPLICATION_PROPERTY
Sys_context

كما هو موضح بهذه الصورة :-

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

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

معرفة المستخدم الحالى للـ Session

أدراج الـ SYSDATE مباشرتاً في الفورم

الشرح كما فى الصورة :-

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

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

أدراج الـ SYSDATE مباشرتاً في الفورم

Removing window menu from the default menu of the form

هذه الطريقة تشرح كيفية مسح قائمة الـ Window من الشريط الأفتراضى للنماذج الخاصة بالـ Forms 10g :-

هناك تغير بسيط عند عمل ذلك مع الـ Forms 6i و هى بأستبدال الخطوة التى يتم فيها تعديل الـ Property Palette للـ Menu Item الى هذا التعديل :-


لمشاهدة الـ Source Code المستخدم فى هذه الصور ، حمل الملف التالى :-

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

Removing window menu from the default menu of the form

Execute Function exist in the Database

بيتم أستدعاء الأجراء أو الدالة الموجوده بالـ Forms Builder بالظبط كما يتم أستدعاء الأجراء أو الدالة الموجوده بالـ Database

أنا قمت بعمل فورمه بتقوم بجلب نصف الجذر التربيعى للرقم المحدد ، و هذا هو الكود المستخدم - قم بتنفيذه بقاعدة البيانات :-

CREATE OR REPLACE FUNCTION Calc

(num NUMBER)

RETURN NUMBER

IS

nn NUMBER;

BEGIN

SELECT Sqrt(num) * .5

INTO nn

FROM dual;


RETURN nn;

END;

/

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

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

Execute Function exist in the Database

Screen Saver

تشغيل Screen Saver كل 10 ثوانى ، طالما ان المستخدم لم يقم بكتابة اى شىء.

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

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


( أضغط هنا لقراءة مصدر السؤال )

Screen Saver