कस्टम लॉगिन के लिए एक फॉर्म बनाएं। उपयोगकर्ता नाम और पासवर्ड आदि और एक लॉगिन बटन के लिए टेक्स्ट आइटम बनाएं। जब उपयोगकर्ता उस लॉगिन बटन पर क्लिक करता है तो इस plsql रूटीन को कॉल करें।
घोषित करें
vPassword Fox_user.password%type; -- अपनी उपयोगकर्ता मास्टर टेबल से एक पासवर्ड फ़ील्ड प्रकार प्राप्त करें
plid paramlist;
प्रारंभ
-- जांचें कि क्या उपयोगकर्ता नाम शून्य है
यदि :appstart.usn रिक्त है तो
error_message('उपयोगकर्ता नाम दर्ज किया जाना चाहिए।');
go_item('appstart.usn');
Form_Trigger_Failure बढ़ाएं;
अगर समाप्त करें;
-- जांचें कि क्या पासवर्ड है शून्य
अगर :appstart.psw शून्य है तो
error_message('पासवर्ड दर्ज किया जाना चाहिए।');
go_item('appstart.psw');
Form_Trigger_Failure बढ़ाएं;
end if;
fpass_user
से vpassword में पासवर्ड चुनें
जहां rtrim(userid) =rtrim(:appstart.usn);
-- अपने खुद के एन्क्रिप्ट का उपयोग करके पासवर्ड डिक्रिप्ट करें / डिक्रिप्ट विधि।
-- नीचे उल्लिखित डिक्रिप्ट एक प्रोग्राम इकाई है जिसका मैंने उपयोग किया था
अगर :appstart.psw !=decrypt(vpassword) तो
error_message('उपयोगकर्ता के लिए अमान्य पासवर्ड। लॉगऑन अस्वीकृत! ');
go_item('appstart.psw');
form_trigger_Failure बढ़ाएं;
अगर खत्म करें;
-- अगर मान्य उपयोगकर्ता नाम और पासवर्ड है तो कॉलिंग फॉर्म पास करने के लिए पैरामीटर सूची बनाएं
plid :=get_parameter_list('formdata');
अगर नहीं id_null(plid) तो
Destroy_parameter_list(plid);
end if;
plid :=Create_Parameter_list('formdata');
Add_parameter(plid, 'userid', text_parameter, :appstart.usn);
new_form('main', full_rollback, no_query_only, plid);
अपवाद
जब no_data_found तब
error_message('अमान्य उपयोगकर्ता आईडी. कृपया मान्य उपयोगकर्ता आईडी और पासवर्ड डालें. लॉगऑन अस्वीकृत!');
go_item('appstart.usn');
जब भी_many_rows तब
error_message('आंतरिक त्रुटि...');
जब अन्य तब
शून्य;
समाप्त;
