用户想取消自动登录,但当用户为'SYSTEM'时,按照下面代码,以SYSTEM用户登录时,提示:请选择岗位,如何解决!
参照帖子:http://bbs.justep.com/showthread.php?threadid=19936
6楼的设置
业务模型\系统空间\简洁风格\界面库\系统接口
if sysutils.uppercase(ALogonID)= 'SYSTEM' then
Result := TSystemLoginDialog.ShowLogonForm(ALogonID, APassword, APerson, True)
else
Result := TSystemLoginDialog.ShowLogonForm(ALogonID, APassword, APerson, false); |