Maak een formulier voor aangepaste aanmelding. Maak tekstitems voor gebruikersnaam en wachtwoord enz. en een login-knop. Wanneer de gebruiker op die login-knop klikt, roep deze plsql-routine op.
declareren
vPassword fox_user.password%type; -- haal een wachtwoordveldtype uit uw gebruikershoofdtabel
plid paramlist;
begin
-- controleer of gebruikersnaam null is
if :appstart.usn is null dan
error_message('User name must be enter.');
go_item('appstart.usn');
raise Form_Trigger_Failure;
end if;
-- controleer of het wachtwoord is null
als :appstart.psw null is, dan
error_message('Wachtwoord moet worden ingevoerd.');
go_item('appstart.psw');
raise Form_Trigger_Failure;
beëindig als;
selecteer wachtwoord in vpassword
van fox_user
waar rtrim(userid) =rtrim(:appstart.usn);
-- ontsleutel wachtwoord met je eigen codering / decrypt-methode.
-- hieronder vermeld decrypt is een programma-eenheid die ik heb gebruikt
if :appstart.psw !=decrypt(vpassword) then
error_message('Ongeldig wachtwoord voor de gebruiker. Aanmelding geweigerd! ');
go_item('appstart.psw');
raise form_trigger_Failure;
end if;
-- indien geldige gebruikersnaam en wachtwoord dan maak een parameterlijst om het aanroepformulier door te geven
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);
uitzondering
wanneer no_data_found then
error_message('Ongeldige gebruikersnaam. Voer een geldig gebruikers-ID en wachtwoord in. Aanmelden geweigerd!');
go_item('appstart.usn');
wanneer too_many_rows dan
error_message('Interne fout...');
wanneer anderen dan
null;
end;
