Vytvořte formulář pro vlastní přihlášení. Vytvořte textové položky pro uživatelské jméno a heslo atd. a tlačítko pro přihlášení. Když uživatel klikne na toto přihlašovací tlačítko, zavolejte tuto rutinu plsql.
deklarovat
vPassword fox_user.password%type; -- získejte typ pole hesla z vaší hlavní tabulky uživatelů
plid paramlist;
begin
-- zkontrolujte, zda je uživatelské jméno null
pokud je :appstart.usn null, pak
error_message('Musí být zadáno uživatelské jméno.');
go_item('appstart.usn');
raise Form_Trigger_Failure;
end if;
-- zkontrolujte, zda je heslo null
if :appstart.psw je null then
error_message('Je nutné zadat heslo.');
go_item('appstart.psw');
zvýšit Form_Trigger_Failure;
end if;
vyberte heslo do vpassword
z fox_user
kde rtrim(userid) =rtrim(:appstart.usn);
-- dešifrujte heslo pomocí vlastního šifrování / dešifrovací metoda.
-- níže uvedené dešifrování je programová jednotka, kterou jsem použil
if :appstart.psw !=decrypt(vpassword) then
error_message('Neplatné heslo pro uživatele. Přihlášení odmítnuto! ');
go_item('appstart.psw');
raise form_trigger_Failure;
end if;
-- pokud je platné uživatelské jméno a heslo, pak vytvořte seznam parametrů pro předání volajícího formuláře
plid :=get_parameter_list('formdata');
if Not id_null(plid) then
Destroy_parameter_list(plid);
end if;
plid :=Create_Parameter_list('formdata');
Add_parameter(plid, 'uživatelské jméno', textový_parametr, :appstart.usn);
new_form('main', full_rollback, no_query_only, plid);
výjimka
když no_data_found then
error_message('Neplatné ID uživatele. Zadejte prosím platné ID uživatele a heslo. Přihlášení zamítnuto!');
go_item('appstart.usn');
když too_many_rows then
error_message('Interní chyba...');
když ostatní potom
null;
end;
