Opret en formular til brugerdefineret login. Opret tekstelementer til brugernavn og adgangskode etc. og en login-knap. Når brugeren klikker på denne login-knap, kald denne plsql-rutine.
erklær
vPassword fox_user.password%type; -- få en adgangskodefelttype fra din brugermastertabel
plid paramlist;
begynd
-- tjek om brugernavnet er null
hvis :appstart.usn er null så
error_message('Brugernavn skal indtastes.');
go_item('appstart.usn');
raise Form_Trigger_Failure;
end if;
-- tjek om adgangskoden er null
hvis :appstart.psw er null, så
error_message('Adgangskode skal indtastes.');
go_item('appstart.psw');
raise Form_Trigger_Failure;
end if;
vælg adgangskode i vpassword
fra fox_user
hvor rtrim(userid) =rtrim(:appstart.usn);
-- dekrypter adgangskode ved hjælp af din egen kryptering / dekrypteringsmetode.
-- nedenfor nævnte dekryptering er en programenhed, jeg brugte
hvis :appstart.psw !=decrypt(vpassword) then
error_message('Ugyldig adgangskode for brugeren. Logon nægtet! ');
go_item('appstart.psw');
raise form_trigger_Failure;
end if;
-- hvis gyldigt brugernavn og adgangskode, så opret parameterliste for at sende den kaldende form
plid :=get_parameter_list('formdata');
hvis ikke id_null(plid) så
Destroy_parameter_list(plid);
end if;
plid :=Create_Parameter_list('formdata');
Add_parameter(plid, 'brugerid', text_parameter, :appstart.usn);
new_form('main', full_rollback, no_query_only, plid);
undtagelse
når no_data_found then
error_message('Ugyldig bruger-id. Indtast venligst gyldigt bruger-id og adgangskode. Logon Denied!');
go_item('appstart.usn');
when too_many_rows then
error_message('Intern fejl...');
når andre så
null;
end;
