بسم الله الرحمن الرحيم

لدي مشروع صغير وشبه تم لكن لدي مشكلة فى فورم تسجيل الدخول

وعند محاولة الدخول الدخول حتى لو كانت البيانات صحيحة ما يعمل تسجيل دخول اليكم الصورة

 

وهذا هو ال 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 مايو 201411 سنة بواسطة Ahmad.Hasan

جرب تغيير الكود كالتالي:

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=

الف شكر على الرد ولكن تبقى المشكلة كما الكود لا يعمل ويطلع الرسالة الموجودة فى الصورة

جرب تطبيق الكود الموجود في الموضوع التالي:

 

http://www.araboug.org/ib/index.php?showtopic=35569&hl=

جاري المحاولة شكرا لك عزيزي

شكرا لك يا مشرف بس يا ريت لو تقدر تعدل على الكود الخاص بي حتى يعمل
لاني مش عامل اجراء
اتمنى المساعدة فى الكود الخاص بي اذا امكن وشكرا مرة ثانية

اخى تم تعديل الكود واذا لم يعمل ابلعنى ارسل لك فورمة جاهزة

/* 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;

للاسف عزيزي ايضا لم يعمل

ما يحير فى الامر ان الفوم يتفذ الاستثناء الخاص بعدم وجود بيانات ؟؟؟؟؟؟؟
فى حين اني اقوم بادخال بيانات وبيانات صحيحة ليست اي بيانات
فى انتظاركم

برجاء التأكد أن الجدول به بيانات وليس فارغ

تم تعديل 13 مايو 201411 سنة بواسطة أحمد جادو

رائع و مفيد