السلام عليكم ورحمة الله وبركاته
الأخوة الزملاء:
أرجو منكم مساعدتي في عمل شاشة ترحيبية للبرنامج الذي أصممه يعرض اسم المشروع والهدف منه وفريق العمل ثم يعرض القائمة الرئيسية للبرنامج .
أرجو منكم مساعدتي بسرعة ، فأنا حتى الأن لم أستطيع عمل هذا الأمر فأنا مسـتجد على الأوراكل و الديفلوبر .
و الشكر للجميع
وكل عام و أنتم بخير
و السلام عليكم ورحمة الله وبركاته
أخيي العزيز
إن شاء الله يكون هذا المطلوب على الرابط التالي :-
http://web4arab.8m.com/timer.htm
أنتبه إلى ال triggers الموجودة في المثال حيث يحتوي على
tow trigger كالتالي :-
when-new-form-instance
حيث سيقوم بإنشاء المؤقت عند بداية تشغيل الفورم
-----------------------------------------------------------
when-time-expired
حيث توجد داخله الأوامر التي سوف تنفذ عند أنتهاء الوقت المحدد
لاحظ أنه سوف ينتقل تلقائيا إلى ال canvas الثانية بعد مرور
دقيقة واحدة ... والله أعــــلم
إذا لم تتمكن من تنزيله الرجاء ارسال إيميل لي على
mohammedshake@hotmail.com
محمـد الشنقيطي
السلام عليكم ورحمة الله وبركاته
أخي العزيز محمد
الشكر الجزيل لمساعدتك الرائعة ولقد أنزلت من الإنترنت النموذجان , احدهما الملف التنفيذي fmx ولكن يبدو أنك قد صممتهما على باني النماذج الإصدار السادس forms bulider06 .وللأسف لدي الإصدار الخامس .فإذا ممكن ان تعيد تصميم timer على ألإصدار الخامس . بينما الملف التنفيذي لم يعمل ، وأظهر لي رسالة خطأ:Frm 40010 can't read form . فأذا ممكن أن تكمل معروفك وتوضح لي على الأقل الطريقة لعمل هذا الموقت
ولك مني جزيل الشكر .
والسلام عليكم ورحمة الله وبركاته
السلام عليكم
ألا يوجد مساعدة في هذا الموضوع الذي أنا بحاجة ماسة
أرجو من لديه الإمكاتية للمساعدة ألا يبخل علينا بها
والسلام عليكم ورحمة الله وبركاته
السلام عليكم ورحمه الله وبركاته
الاخوه الافاضل
بالنسبه لعمل شاشه ترحيبيه ثم تنتقل تلقائيا الى نموذج أخر
أولا قم بإنشاء الشاشه الترحيبه في MODULE جديد
:ملاحظه
يجب أن يكون في الشاشه الترحيبيه إما BUTTON أو TEXT ITEM
وذلك لكى يجد المؤشر POINTER CURSOR مكان يقف عليه عن تشغيل الشاشه الترحيبيه
كما يمكن تصغير حجم الBUTTON أو TEXT ITEM الى درجه لايرى فيها خصوصا ال BUTTON
ثم قم بإنشاء TRIGGER على مستوى ال MODULE الجديد وأسمه
WHEN-NEW-FORM-INSTANCE
وأكتب به
DECLARE
;timer_id Timer
BEGIN
;(timer_id := CREATE_TIMER('OUR_TIMER', 10000, NO_REPEAT
;END
: ثم قم بإنشاء ال TRIGGER التالى إيضا على مستوى ال MODULE الجديد
WHEN-TIMER-EXPIRED
وأكتب به
DECLARE
;(tm_name VARCHAR2(40
BEGIN
;(tm_name := Get_Application_Property(TIMER_NAME
IF tm_name = 'OUR_TIMER' THEN
('إسم النموذج المراد الانتقال اليه ')CALL_FORM
;END IF
;END
هذا ال TIMER سوف يقوم ينقلك من الشاشه الترحيبيه الى النموذج الذي سوف تحدد إسمه في ال TRIGGER الثاني
بعد 10 ثواني وذلك بناء على الرقم (10000) الذي تم تحديده في الTRIGGER الاول
حيث ان ال
10000=10 ثوانى
30000=نصف دقيقه
60000=دقيقه
:ملاحظه
يجب أن يكون في الشاشه الترحيبيه إما BUTTON أو TEXT ITEM
وذلك لكى يجد المؤشر POINTER CURSOR مكان يقف عليه عن تشغيل الشاشه الترحيبيه
كما يمكن تصغير حجم الBUTTON أو TEXT ITEM الى درجه لايرى فيها خصوصا ال BUTTON
الاخ الفاضلmsaqer
اذا لم تتمكن من قراءه الtriggers بوضوح
ارجوا ان ترسل لي ايميل لكي ارسل ال triggers لك في ملف text
ايميلى هو
baaqeel@onebox.com
شكرا لكم
عمر باعقيل
المدينه المنوره
السلام عليكم ورحمة الله وبركاته
أشكرك آخي عمر Baaqeel على معلوماتك القيمة والمفيدة و إن شاء الله ابعث الأن Email لكي تر سل إلي trigger .
واشكر جميع الأخوة على مساهماتهم ومساعدتهم.
و السلام عليكم ورحمة الله وبركاته.
بعد التحية أخي العزيز وآسف على التأخير هذا المطلوب ان شاء الله
لم يسبق لي العمل على forms builder 5 مسبقا ولكن سوف أحاول أن أشرح لك ماهي طريقة عمل مؤقت
1- تنشئ نموذج فارغ وتنشى tow canvas على هذا النموذج ثم تقوم بإنشاء tow data block على وتضع كل منهما على canvas مختلفة عن الأخر ..
2-بعد ذلك تضع صندوق نص text item على كل واحد منهما لكي تستطيع تشغيل النموذج ..
3-في triggers الخاصة بالنموذج هناك نوعين من triggers سوف نستخدمهما في انشاء المؤقت هما :-
4- ننشئ التريقرالتالي when-new-form-instance
فائدة هذا التريقر أنه سوف يتم تنفيذ الكود الموجود داخله مع بداية تشغيل النموذج
وسوف نكتب التالي داخله
declare
t_ix timer;
begin
go_block('dept');
t_ix:=create_timer('t2',10000,no_repeat);
end;
كما تلاحظ قمنا بإنشاء متغير ونوعه وقت ثم قمنا بانشاء مؤقت وجعلنا قيمة المتغير تساوي هذا المؤقت
************************************************************
5- ننشئ trigger آخر وهو when-timer-expired
فائدة هذا التريقر ان الكود اللذي داخله سوف يتنفذ عند نهاية الوقت الذي حددناه مسبقا في التريقر السابق وايضا نكتب فيه أي أمر نريد تنفيذه بعد نهاية الوقت المحدد..
وسوف نكتب التالي داخله
declare
x varchar2(100);
begin
message('Time Finsh');
x:= get_application_property(timer_name);
if x='T2' then
go_block(emp);
end if;
end;
كما تلاحظ هنا قمنا بتعريف x وجعلنا قيمتها تساوي قيمة المتغير اللذي استخدمناه داخل التريقر السابق بعد ذلك قمنا بعمل جملة شرطية بحث إذا تساوت قيمة x وقيمة المؤقت t2 قم بالإنتقال إلى
البلوك التالي وهو بلوك emp في هذا المثال ...
************************************************************
السلام عليكم
الشكر للجميع على مساهمتهم ، لقد أسهب الجميع في هذا الموضوع
واشكر الجميع مرة أخرى على المعلومات القيمة
والسلام عليكم ورحمة وبركاته
هذا الموضوع مغلق.