|
|
简直 每个应用系统都有相应的权限管理功能。对于大型多用户应用系统，一般是将权限设置保存在数据库中。但是对于小型的单用户应用系统和非数据库应用系统，就没有必要将权限设置保存在数据库中，但是用文件来保存既不方.便 又不安全，由于 文件很可能被删除或破坏 。其实，灵活天时 用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("SOFTWAREMicroSoftwhh726",TRUE);
sUser := RegF.ReadString("user");
sPass := RegF.ReadString("pass");
<font face=Verdana>if ((length(sUser) |
|
|
|
|
|
|
|
|
|
