看系统的代码,然后楼主自己检查一下自己的环境。
业务模型\系统空间\简洁风格\界面库\窗体库\系统登录对话框
const
cDeputied = '[已经被代理]';
function TSYSTEMLOGINDIALOG.DeputiedPosition: Boolean;
var
I: Integer;
begin
Result := True;
if (cbPosition.ItemIndex = -1) or SysUtils.SameText(cbPosition.Items[cbPosition.ItemIndex], '自动') then
begin
for I := 0 to cbPosition.Items.Count - 1 do
if not SysUtils.SameText(cbPosition.Items[I], '自动') then
begin
Result := StrUtils.AnsiStartsText(cDeputied, cbPosition.Items[I]);
if not Result then
break;
end;
if Result then
begin
JSDialogs.ShowWarning('没有岗位或所有的岗位都被代理出去了不能登录!要登录先回收相应的被代理的岗位。', '登录');
Exit;
end;
end; |