【结】打开主界面后，弹出提示对话框？？

jwei · 发表于 2009-12-22 11:39:55

参考7楼：http://bbs.justep.com/forum.php? ... =TSystemLoginDialog

为什么我在工作台中，运行上段代码，总是执行edit1.text:='自动';
procedure TMAINFORM.BizFormShow(Sender: TObject);
begin
if TSystemLoginDialog.GetPersonMember = nil then
Edit1.Text:='岗位'
else
edit1.text:='自动';
end;

说明：我是想在工作台打开时，根据登录岗位不同，系统能提示一个对话框，这就需要根据是否自动还是岗位登录做出判断

atiger · 发表于 2009-12-22 11:48:23

你的意思是TSystemLoginDialog.GetPersonMember 这个永远是nil？是哪个版本，我测试一下

jwei · 发表于 2009-12-22 13:19:27

X3_3088

atiger · 发表于 2009-12-22 14:08:45

不会呀，我测试是可以的。你选择了登陆的岗位了吗？还是自动的，就是你看看左下脚见附件，出来部门、岗位了吗？还是仅仅就一个人员呢

另外，你的逻辑写的不对吧
if TSystemLoginDialog.GetPersonMember = nil then
Edit1.Text:='岗位'
else
edit1.text:='自动';
end;
nil是自动登陆，不是nil是选择了岗位，你写反了

jwei · 发表于 2009-12-22 14:23:41

if TSystemLoginDialog.GetPersonMember = nil then
Edit1.Text:='自动'
else
edit1.text:='岗位';

左下角岗位、部门都可以出来，这个肯定没有问题。
我是说，上面这段代码，在工作台中运行，不管我是否选择自动，还是选择了岗位，执行结果都是：Edit1.Text:='自动'
我的目的是，如果用户选择自动登录，执行Edit1.Text:='自动'
，选择岗位，执行edit1.text:='岗位';

atiger · 发表于 2009-12-22 14:49:19

不会呀，我在3088上测试，是不同的。
知道了，你引用的 “系统登录对话框”是 “业务模型\系统空间\用户界面基础\界面库\系统接口\系统登录对话框”还是“业务模型\系统空间\简洁风格\界面库\窗体库\系统登录对话框”，应该是后面那个

jwei · 发表于 2009-12-22 15:32:59

引用的 “系统登录对话框”是 “业务模型\系统空间\用户界面基础\界面库\系统接口\系统登录对话框”还是“业务模型\系统空间\简洁风格\界面库\窗体库\系统登录对话框”？

换成后面这个解决问题！
谢谢了

atiger · 发表于 2009-12-22 15:43:25

ok
不客气，结

		自动登录	找回密码
密码			立即注册

【结】打开主界面后，弹出提示对话框？？

?

??

OK