Buat formulir untuk login khusus. Buat item teks untuk username dan password dll dan tombol login. Ketika pengguna mengklik tombol login itu, panggil rutin plsql ini.
deklarasikan
vPassword fox_user.password%type; -- dapatkan jenis bidang sandi dari tabel master pengguna Anda
plid paramlist;
begin
-- periksa apakah nama pengguna adalah null
jika :appstart.usn adalah null maka
error_message('Nama pengguna harus dimasukkan.');
go_item('appstart.usn');
raise Form_Trigger_Failure;
end if;
-- periksa apakah sandi sudah null
jika :appstart.psw adalah null maka
error_message('Password harus dimasukkan.');
go_item('appstart.psw');
raise Form_Trigger_Failure;
end if;
pilih kata sandi menjadi vpassword
dari fox_user
di mana rtrim(userid) =rtrim(:appstart.usn);
-- dekripsi kata sandi menggunakan enkripsi Anda sendiri / metode dekripsi.
-- di bawah ini dekripsi adalah unit program yang saya gunakan
jika :appstart.psw !=decrypt(vpassword) maka
error_message('Kata Sandi Pengguna Tidak Valid. Logon Ditolak! ');
go_item('appstart.psw');
raise form_trigger_Failure;
end if;
-- jika username dan password valid maka buat daftar parameter untuk meneruskan formulir panggilan
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);
pengecualian
ketika no_data_found maka
error_message('Invalid Userid. Silakan masukkan userid dan password yang valid. Logon Denied!');
go_item('appstart.usn');
ketika too_many_rows maka
error_message('Internal error...');
ketika orang lain kemudian
null;
end;