【结贴】在某功能中需要对用户身份进行二次认证，如何进行？**

hero419

有个薪资查询的功能，为了安全期间，在进入这个功能的时候需要用户输入登陆密码。

在信息里，我做了一个窗体，里边有个edit（密码输入）和一个botton（确认密码）控件，现在已经实现在打开这个功能前弹出这个窗体（在数据集的beforeopen事件里弹出窗体），想知道这个botton的事件怎么写，大概内容就是那edit里的文本对比数据库中当前用户的密码：
密码正确的话，窗体关闭，进入功能；
密码错误的话，报错；
不点击button，选择×关闭窗体，窗体关闭，SysUtils.Abort。

谢谢了。

lixy

在dorun里面做，在论坛里面搜索下dorun

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=19603

hero419

不好意思，我没看出来dorun和我的需求的关系，能说详细点么？

lixy

http://bbs.justep.com/forum.php? ... amp;highlight=dorun

hero419

这个帖子我也找了，但不明白是啥意思。

还有，我原来的想法是不是不可行？

lixy

如何在功能里面控制功能是否可以打开，看上面那几个链接
取密码看看：
业务模型\系统空间\系统运行库\系统初始化
static function TINIT.InternalLogon(AParam: String): Boolean;

hero419

自己解决了，功能主窗体为验证窗体，同时还有个数据显示窗体。在验证窗体中验证用户有效性，botton事件如下，如果验证通过则show数据显示窗体。

procedure TDLYZ.Button1Click(Sender: TObject);
var
  lPerson : Business.Model.Org.TPerson;
  MainForm: TMainform;
begin
         lPerson := Business.Model.Org.OrgSys.OrgSystem.GetPerson(SystemCore.TSYSTEMCORE.Operator.Positions[0].PersonID);  //根据当前人员id找到人员对象
         if Password.Text = lPerson.Password then
         begin
         Business.Forms.jsDialogs.ShowMsg('密码正确','正确');
         MainForm := TMainForm.Create(self.context);
         MainForm.ShowModal;
         MainForm.Free;
         TXZYL.Create.MainForm := MainForm ;
         end
         else
         Business.Forms.jsDialogs.ShowMsg('密码错误','错误');
end;