Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2548454
  • 博文数量: 2110
  • 博客积分: 18861
  • 博客等级: 上将
  • 技术积分: 24420
  • 用 户 组: 普通用户
  • 注册时间: 2008-04-05 18:23
文章分类

全部博文(2110)

文章存档

2011年(139)

2010年(1971)

我的朋友

分类: WINDOWS

2010-04-28 14:45:32

  几乎每个应用系统都有相应的权限管理功能。对于大型多用户应用系统,一般是将权限设置保存在数据库中。但是对于小型的单用户应用系统和非数据库应用系统,就没有必要将权限设置保存在数据库中,但是用文件来保存既不方便又不安全,因为文件很可能被删除或毁坏。其实,灵活地利用Windows注册表的特点,可以很方便地为应用系统设置用户名和口令,这种方法不但编程简便,而且安全性比较高。下面举例说明,该例程在Windows98,Delphi4环境下调试通过。

    设计流程为:先判断是否为第一次使用,如果为第一次使用,则要求设置新的用户名和口令,系统将用户名和口令保存起来;如果不是第一次使用,则要求输入用户名和口令才能登录。

    在Delphi开发环境中,新建一个工程Project1,在Project1中增加一个窗体Form1;在Form1上增加两个按纽,一个为确定,另一个为取消;再在Form1上增加两个Text框EditUser和EditPass,分别为用户名和口令输入框。定义窗体级全局变量RegF:TRegistry。并在interface的Uses中加上Registry。
增加函数Wsz_IfFirst,判断是否是第一次使用;增加过程Wsz_SaveUse,保存用户名和口令;增加函数Wsz_CheckUser,判断用户名和口令是否正确。然后在Form1的FormShow事件和确定按纽事件中分别调用这三个函数和过程,达到设计要求。

//判断是否是第一次使用
function Wsz_IfFirst:Boolean;
var
 sUser:string;
 sPass:string;
begin
 result := false;
 RegF:=TRegistry.Create;
 RegF.RootKey :=HKEY_LOCAL_MACHINE;
 RegF.OpenKey("SOFTWARE\MicroSoft\whh726",TRUE);
 sUser := RegF.ReadString("user");
 sPass := RegF.ReadString("pass");
 if ((length(sUser)<=0) and (length(sPass)<=0)) then
result := true ;
RegF.Free;
 end;
file://判断用户名和口令是否正确
function Wsz_CheckUser(MyUser:string;MyPass :string):Boolean;
var
 sUser:string;
 sPass:string;
begin
 result:= false;
 RegF:=TRegistry.Create;
 RegF.RootKey :=HKEY_LOCAL_MACHINE;
 RegF.OpenKey("SOFTWARE\MicroSoft\whh726",TRUE);
 sUser := RegF.ReadString("user");
 sPass := RegF.ReadString("pass");
 if (sUser=MyUser) and (sPass=MyPass) then
result := true;
RegF.Free;
 end;
file://保存用户名和口令
procedure Wsz_SaveUser(MyUser:string;MyPass :string);
begin
 RegF:=TRegistry.Create;
 RegF.RootKey :=HKEY_LOCAL_MACHINE;
 RegF.OpenKey("SOFTWARE\MicroSoft\whh726",TRUE);
 RegF.WriteString("user",MyUser);
 RegF.WriteString("pass",MyPass);
 RegF.Free;
end;
file://取消按纽事件
procedure TWszLoginForm.BitBtnCloseClick(Sender: TObject);
begin
 Close;
end;
file://确定按纽事件
procedure TWszLoginForm.BitBtnYesClick(Sender: TObject);
var
 suser:string;
 spass:string;
begin
 suser := trim(edituser.text);
 spass := trim(editpass.text);
 if (length(suser)<=0) or (length(spass)<=0) then
 begin
Application.MessageBox("用户名和口令都必须输入!",
  "系统提示",
 MB_OK + MB_ICONINFORMATION);
 edituser.SetFocus ;
exit;
 end;
 if Wsz_IfFirst then
 begin
file://处理第一次登录的用户名和口令
if Application.MessageBox(
 "您是第一次使用本软件,请记住您的用户名和口令,
 以便下次登录。现在进入系统吗?",
 "系统提示",
 MB_OKCANCEL + MB_ICONQUESTION) = IDOK then
 begin
file://保存
Wsz_SaveUser(suser,spass);
 end
else
 begin
 edituser.SetFocus ;
 exit;
 end;
end else
 begin
if not Wsz_CheckUser(suser,spass) then
begin
Application.MessageBox
 ("对不起,用户名和口令输入不正确!", "系统提示",
MB_OK + MB_ICONINFORMATION);
 edituser.setfocus ;
exit;
end;
 end;
 file://全局变量
 GB_Wsz_User := suser;
 GB_Wsz_PASS := spass;
 Close;
 end;
 file://窗体的Show事件
procedure TWszLoginForm.FormShow(Sender: TObject);
 begin
if Wsz_IfFirst then
 begin
Application.MessageBox(
"您是第一次使用本软件,您可以随便输入用户名和口令。",
"系统提示",
MB_OK + MB_ICONINFORMATION);
end;
 end;

阅读(261) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~