MARCELO بتاريخ: 11 مايو 2014 تقديم بلاغ مشاركة بتاريخ: 11 مايو 2014 (معدل) بسم الله الرحمن الرحيم لدي مشروع صغير وشبه تم لكن لدي مشكلة فى فورم تسجيل الدخول وعند محاولة الدخول الدخول حتى لو كانت البيانات صحيحة ما يعمل تسجيل دخول اليكم الصورة وهذا هو ال trigger المكتوبة على زر ال Login declare t number; BEGIN SELECT name INTO :name FROM adminz WHERE name =:name AND pass =:pass; open_form('c:\car\MAIN.fmx'); EXCEPTION WHEN NO_DATA_FOUND THEN :GLOBAL.COUNT := :GLOBAL.COUNT + 1; IF :GLOBAL.COUNT = 1 THEN t :=show_alert('wrong'); ELSIF :GLOBAL.COUNT = 2 THEN t :=show_alert('wrong'); ELSIF :GLOBAL.COUNT = 3 THEN EXIT_FORM; END IF; END; وايضا لدي جدول كالتالي :- create table adminz) id number , name varcahr(20), pass varchar(30)); ارجو المساعدة تحياتي تم تعديل 11 مايو 2014 بواسطة Ahmad.Hasan اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Ahmad.Hasan بتاريخ: 11 مايو 2014 تقديم بلاغ مشاركة بتاريخ: 11 مايو 2014 جرب تغيير الكود كالتالي: DECLARE t NUMBER; BEGIN SELECT NAME INTO :NAME FROM adminz WHERE UPPER (NAME) = UPPER (:NAME) AND UPPER (pass) = UPPER (:pass); OPEN_FORM ('c:\car\MAIN.fmx'); EXCEPTION WHEN NO_DATA_FOUND THEN :GLOBAL.COUNT := :GLOBAL.COUNT + 1; IF :GLOBAL.COUNT = 1 THEN t := SHOW_ALERT ('wrong'); ELSIF :GLOBAL.COUNT = 2 THEN t := SHOW_ALERT ('wrong'); ELSIF :GLOBAL.COUNT = 3 THEN EXIT_FORM; END IF; END; أو استفد من الكود الموجود في الموضوع التالي: http://www.araboug.org/ib/index.php?showtopic=35569&hl= اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
MARCELO بتاريخ: 11 مايو 2014 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 11 مايو 2014 الف شكر على الرد ولكن تبقى المشكلة كما الكود لا يعمل ويطلع الرسالة الموجودة فى الصورة اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Ahmad.Hasan بتاريخ: 11 مايو 2014 تقديم بلاغ مشاركة بتاريخ: 11 مايو 2014 جرب تطبيق الكود الموجود في الموضوع التالي: http://www.araboug.org/ib/index.php?showtopic=35569&hl= اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
MARCELO بتاريخ: 11 مايو 2014 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 11 مايو 2014 جاري المحاولة شكرا لك عزيزي اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
MARCELO بتاريخ: 11 مايو 2014 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 11 مايو 2014 شكرا لك يا مشرف بس يا ريت لو تقدر تعدل على الكود الخاص بي حتى يعمللاني مش عامل اجراءاتمنى المساعدة فى الكود الخاص بي اذا امكن وشكرا مرة ثانية اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
ramy_orcl بتاريخ: 11 مايو 2014 تقديم بلاغ مشاركة بتاريخ: 11 مايو 2014 اخى تم تعديل الكود واذا لم يعمل ابلعنى ارسل لك فورمة جاهزة /* Formatted on 2014/05/11 16:40 (Formatter Plus v4.8.8) */ DECLARE v_user_name VARCHAR2 (100); v_pass VARCHAR2 (100); BEGIN SELECT NAME, pass INTO v_user_name, v_pass FROM adminz WHERE NAME = :NAME AND pass = :pass; IF v_user_name = :NAME AND v_pass = :pass THEN OPEN_FORM ('c:\car\MAIN.fmx'); ELSE MESSAGE (''); END IF; EXCEPTION WHEN NO_DATA_FOUND THEN :GLOBAL.COUNT := :GLOBAL.COUNT + 1; IF :GLOBAL.COUNT = 1 THEN t := SHOW_ALERT ('wrong'); ELSIF :GLOBAL.COUNT = 2 THEN t := SHOW_ALERT ('wrong'); ELSIF :GLOBAL.COUNT = 3 THEN EXIT_FORM; END IF; END; اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
MARCELO بتاريخ: 12 مايو 2014 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 12 مايو 2014 للاسف عزيزي ايضا لم يعمل ما يحير فى الامر ان الفوم يتفذ الاستثناء الخاص بعدم وجود بيانات ؟؟؟؟؟؟؟فى حين اني اقوم بادخال بيانات وبيانات صحيحة ليست اي بياناتفى انتظاركم اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
أحمد جادو بتاريخ: 13 مايو 2014 تقديم بلاغ مشاركة بتاريخ: 13 مايو 2014 (معدل) برجاء التأكد أن الجدول به بيانات وليس فارغ تم تعديل 13 مايو 2014 بواسطة أحمد جادو اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
iqman بتاريخ: 31 مايو 2014 تقديم بلاغ مشاركة بتاريخ: 31 مايو 2014 رائع و مفيد اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Recommended Posts
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.