محمد العجان بتاريخ: 9 أكتوبر 2013 تقديم بلاغ مشاركة بتاريخ: 9 أكتوبر 2013 كيف تستطيع ان تخرج من شاشة الدخول بعد 3 محاولات فيها اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
medoelgarhy بتاريخ: 9 أكتوبر 2013 تقديم بلاغ مشاركة بتاريخ: 9 أكتوبر 2013 اكتب الكود ده ;global.test:=0: فى When-new-form-instance ..... واكنب الكود ده global.test:=:global.test+1;: If :GLOBAL.TEST>3 THEN EXIT_FORM(NO_VALIDATE); ;End if تحت زرار Login وفيه فورمه انا عاملها كانت لموضوع Login حملها وشوف الكود اللى جواها MAIN_FORM_HOS.rar 2 اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
ميسم الكرام بتاريخ: 9 أكتوبر 2013 تقديم بلاغ مشاركة بتاريخ: 9 أكتوبر 2013 (معدل) الى حضرتك الملف الي في شغلي رفعته لحضرتك ..والكود بداخله ..كما طلبت بثلاث مرات ويخرج...ولو في اي سؤال ..مافي اي مشكلة من التوضيح LOGIN_FORM.rar تم تعديل 9 أكتوبر 2013 بواسطة ميسم الكرام 2 اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
mohbd73 بتاريخ: 12 أكتوبر 2013 تقديم بلاغ مشاركة بتاريخ: 12 أكتوبر 2013 الى حضرتك الملف الي في شغلي رفعته لحضرتك ..والكود بداخله ..كما طلبت بثلاث مرات ويخرج...ولو في اي سؤال ..مافي اي مشكلة من التوضيح اشكر لك جميع مشاركاتك المفيدة ولكن لو امكن شرح مفصل لعمل تأمين للفورم بحيث يكون هناك عدد مستخدمين ولكل مستخدم صلاحياته الخاصه بحيث لكل مستخدم عدد من الشاشات والقوائم والازرار التى يمكن ان يراها وشكرا جزيلا 1 اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
ميسم الكرام بتاريخ: 13 أكتوبر 2013 تقديم بلاغ مشاركة بتاريخ: 13 أكتوبر 2013 إن شاء الله سوف اعمل ملف يخص شاشة الدخول ..وكذلك اوضح عدد المستخدمين وصلاحياتهم ..... وتوجد الكثير من مشاركات الاخوة في المنتدى ذكرت هذا الشيء وبشكل ممتاز ..لكن مع هذا سوف اعمل ملف لهذا الموضوع ...شكراً اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
محمدمحمدطة بتاريخ: 8 نوفمبر 2013 تقديم بلاغ مشاركة بتاريخ: 8 نوفمبر 2013 السلام عليكم استاذه انا عملت فورم صغيرة جدا عشان تشوفى اية المشكلة دى لانى خلاص هيجيلى جنان لما مكتبش حاجة خالص ولا اكنى كاتب حاجة لما اكتب فى اسم المستخدم بس يقولى دخل الباس وورد فى مشكلة فى اسم المستخدم مش قادر افهمها يارب تلاقى حل USERES.rar 1 اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
ميسم الكرام بتاريخ: 8 نوفمبر 2013 تقديم بلاغ مشاركة بتاريخ: 8 نوفمبر 2013 وعليكم السلام ورحمة الله وبركاته .... انا شاهدت الفورم التي ارفقتها حضرتك لنا ...يجب ان تكتب بالtrigger على مستوى الفورم نوع ال trigger هو ON-LOGON الكود التالي logon('username','password@db1'); قم بتنزيل الفورم التي ارفقتها انا بالمشاركة السابقة لي ..لكي تتبع باقي الخطوات والعمليات التي تم عملها واعمل مثلها بالضبط ..بالتوفيق ..إن شاء الله اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
محمدمحمدطة بتاريخ: 8 نوفمبر 2013 تقديم بلاغ مشاركة بتاريخ: 8 نوفمبر 2013 (معدل) انا عدلت وكتبت اسم قاعدة البيانات والباس ورد وبردة نفس المشكلة انتى جربتيها واشتغلت معاكى انا فعلا شغال من الفورم بتاعت حضرتك تم تعديل 8 نوفمبر 2013 بواسطة محمدمحمدطة اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
ميسم الكرام بتاريخ: 8 نوفمبر 2013 تقديم بلاغ مشاركة بتاريخ: 8 نوفمبر 2013 حسناً ..لنشرح الفورم التي ارفقتها أنا أو لعمل نافذة الدخول بصورة عامة ... لعمل نافذة الدخول يجب عمل مايلي: تعمل جدول وليكن اسمه Login هذا الجدول يتكون من حقلين ..... حقل يمثل لي اسم المستخدم وليكن اسمه user_n والاحقل الاخر يمثل لي كلمة المرور وليكن اسمه Pass_w.... تمام لحد الان ..جيد قم بعملية ادخال لإسم المستخدم ..ولكلمة المرور التي ترغب بهم ..وطبعاً هما ليس بالضرورة يكونان نفس اسم المستخدم وكلمة المرور اللذان استخدمهما في الدخول الى الاسكيما....حسناً يعني استخدم الايعاز insert لعملية الادخال هكذا... INSERT INTO Login (STU_ID, STU_NAME) VALUES ('aaa', 'aba'); الان انا دخلت بالجدول اسم المستخدم هو aaa وكلمة المرور التي اريد ان استخدمها هي aba على سبيل المثال يعني...ثم اعمل commit الان قم بعمل نافذة الدخول على هذا الجدول..والباقي لدى حضرتك بالفورم التي ارفقتها....عند التنفيذ تكتب في النافذة التي صممتها بحقل اسم المستخدم تكتبaaa وبحقل كلمة المرور تكتب aba لانه انا قد دخلت للإسكيما التي اعمل عليها من خلال الكود الذي كتبته على الtrigger On_login على مستوى الفورم ..وهذا الغرض من تصميم نافذة الدخول هو لحماية التطبيق الذي عملته ..وحتى امنع المستخدم من معرفة الusername والpassword الخاصين بالاسكيما اما انا ماشاهدته ..فكما واضح ان حضرتك لم تعمل على جدول بل قمت بتصميم فورم بدون ارتباط block بجدول كما ذكرت بالاعلى ..اتمنى اني وضحت الموضوع..إن شاء الله او يمكننك مراجعة الرابط التالي ... http://www.araboug.org/ib/index.php?showtopic=4336 اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Saqeralslahi بتاريخ: 29 يناير 2017 تقديم بلاغ مشاركة بتاريخ: 29 يناير 2017 اكتب الكود ده ;global.test:=0: فى When-new-form-instance ..... واكنب الكود ده global.test:=:global.test+1;: If :GLOBAL.TEST>3 THEN EXIT_FORM(NO_VALIDATE); ;End if تحت زرار Login وفيه فورمه انا عاملها كانت لموضوع Login حملها وشوف الكود اللى جواها حملت الملف وفتحته مالقيت اي كود اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Saqeralslahi بتاريخ: 29 يناير 2017 تقديم بلاغ مشاركة بتاريخ: 29 يناير 2017 السلام عليكم لوسمحتم ايش الخطا في هذا الكود طريقة عمله :في زر تسجيل الدخول اذا ادخل 3 مرات خاطئة يغلق البرنامج login..txt 1 اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
ميسم الكرام بتاريخ: 30 يناير 2017 تقديم بلاغ مشاركة بتاريخ: 30 يناير 2017 اكتب الكود ده ;global.test:=0: فى When-new-form-instance ..... واكنب الكود ده global.test:=:global.test+1;: If :GLOBAL.TEST>3 THEN EXIT_FORM(NO_VALIDATE); ;End if تحت زرار Login وفيه فورمه انا عاملها كانت لموضوع Login حملها وشوف الكود اللى جواها حملت الملف وفتحته مالقيت اي كود لإن الملف المرفق بإصدار 10g وربما حضرتك قمت بفتح الملف بإصدار أقدم اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
ميسم الكرام بتاريخ: 30 يناير 2017 تقديم بلاغ مشاركة بتاريخ: 30 يناير 2017 قمت بفتح الملف ونسخ الكود هنا :GLOBAL.TEST:=:GLOBAL.TEST+1; DECLARE USR USERS.USER_NAME%TYPE; PASS USERS.PASSWORD%TYPE; TYP USERS.TYPE%TYPE; CURSOR CUR IS SELECT USER_NAME,PASSWORD FROM USERS WHERE TYPE = :T; BEGIN /* for i in cur loop IF i.user_name =:USERS.USER_NAME AND i.PASSword=:USERS.PASSWORD AND :T='user' THEN MESSAGE('res man'); ELSIF i.user_name =:USERS.USER_NAME AND i.PASSword=:USERS.PASSWORD AND :T='admin' THEN MESSAGE('admin man'); ELSe MESSAGE('INVALID IN USERNAME OR PASSWORD'); END IF; */ IF NOT CUR%ISOPEN THEN OPEN CUR; END IF; LOOP FETCH CUR INTO USR,PASS; EXIT WHEN CUR%notfound; END LOOP; IF :USERS.USER_NAME=USR AND :USERS.PASSWORD=PASS AND :T='user' THEN SET_ITEM_PROPERTY('LBL',VISIBLE,PROPERTY_FALSE); -- OPEN_FORM('ADD_NEW_STAFF',ACTIVATE,NO_SESSION,NO_SHARE_LIBRARY_DATA,''); NEW_FORM('ADD_NEW_PATIENT'); ELSIF :USERS.USER_NAME=USR AND :USERS.PASSWORD=PASS AND :T='admin' THEN SET_ITEM_PROPERTY('LBL',VISIBLE,PROPERTY_FALSE); SET_ITEM_PROPERTY('LBL',VISIBLE,PROPERTY_FALSE); -- OPEN_FORM('ADD_NEW_STAFF',ACTIVATE,NO_SESSION,NO_SHARE_LIBRARY_DATA,''); NEW_FORM('ADD_NEW_STAFF'); ELSIF :GLOBAL.TEST>3 THEN EXIT_FORM(NO_VALIDATE); ELSE SET_ITEM_PROPERTY('LBL',VISIBLE,PROPERTY_TRUE); :USERS.LBL:= 'ÎØà Ýì ÅÓã ÇáãÓÊÎÏã Ãæ ßáãÉ ÇáÓÑ..áÇÍÙ: áÏíß 3 ãÍÇæáÇÊ ÝÞØ æÈÚÏåÇ ÓÊÛáÞ ÇáÝæÑãå'; IF :GLOBAL.TEST=3 THEN :USERS.LBL:='ÂÎÑ ÝÑÕå ÞÈá ÇáÎÑæÌ ãä ÇáÝæÑãå'; END IF; END IF; close cur; END; 2 اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Recommended Posts
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.