Skapa ett formulär för anpassad inloggning. Skapa textobjekt för användarnamn och lösenord etc. och en inloggningsknapp. När användaren klickar på den inloggningsknappen, ring denna plsql-rutin.
deklarera
vPassword fox_user.password%type; -- hämta en lösenordsfältstyp från din användarhuvudtabell
plid paramlist;
börja
-- kontrollera om användarnamnet är null
om :appstart.usn är null då
error_message('Användarnamn måste anges.');
go_item('appstart.usn');
höj Form_Trigger_Failure;
end if;
-- kontrollera om lösenordet är null
om :appstart.psw är null så
error_message('Lösenord måste anges.');
go_item('appstart.psw');
höj Form_Trigger_Failure;
end if;
välj lösenord i vpassword
från fox_user
där rtrim(userid) =rtrim(:appstart.usn);
-- dekryptera lösenord med din egen kryptera / dekryptera metod.
-- nedan nämnda dekryptera är en programenhet som jag använde
om :appstart.psw !=decrypt(vpassword) then
error_message('Ogiltigt lösenord för användaren. Inloggning nekad! ');
go_item('appstart.psw');
höj form_trigger_Failure;
end if;
-- om giltigt användarnamn och lösenord då skapa parameterlista för att skicka det anropande formuläret
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, 'userid', text_parameter, :appstart.usn);
new_form('main', full_rollback, no_query_only, plid);
undantag
när no_data_found then
error_message('Ogiltigt användar-id. Vänligen ange ett giltigt användar-id och lösenord. Inloggning nekad!');
go_item('appstart.usn');
when too_many_rows then
error_message('Internt fel...');
när andra sedan
null;
end;
