خوب بود ، البته این روش یه روش خیلی ساده است و معمولا یوزر و پسورد در دیتابیس یا فایل یا رجیستری ذخیره میشه و از روش های مختلف برای کنترل سطح دسترسی نرم افزار استفاده میشود.
به عنوان مثال :
کد:
کد:
...
var
password : MD5Digest ;
begin
password :=MD5String(MaskEdit1.Text) ;
if dm.users.Locate("id;password;",VarArrayOf([Edit1.Text,MD5Print(password)]),[loCaseInsensitive]) then
begin
if dm.users["data_base"]= true then
main.database_tab.Enabled:=true
else
Main.database_tab.Enabled:=false;
main.Show;
end
else
begin
ShowMessage("نام کاربري يا کلمه عبور اشتباه مي باشد");
end;
علاقه مندي ها (Bookmarks)