起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 136|回复: 2

SYSTEM登录系统??

[复制链接]
发表于 2009-12-17 11:12:41 | 显示全部楼层 |阅读模式
用户想取消自动登录,但当用户为'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);
回复

使用道具 举报

发表于 2009-12-17 11:35:04 | 显示全部楼层
调试看一下
业务模型\系统空间\简洁风格\界面库\窗体库\系统登录对话框

procedure TSYSTEMLOGINDIALOG.Logon(AutoSelect: Boolean);
...
  if not CanAutoPosition and (cbPosition.ItemIndex = -1) then
    raise Exception.Create('请选择岗位');
这段代码
回复 支持 反对

使用道具 举报

 楼主| 发表于 2009-12-17 15:42:13 | 显示全部楼层

!

if sysutils.uppercase(edtUserName.Text) <> 'SYSTEM' then
  begin
    if not CanAutoPosition and (cbPosition.ItemIndex = -1 ) then
    raise Exception.Create('请选择岗位');
  end;
解决!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-13 05:35 , Processed in 0.046849 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表