加急！在用户现场，用户急着要结果。**

whhy

主要是关于系统界面的修改方案问题。有以下几个：
1、系统登陆对话框要改成 选择部门 选择部门下的人员 然后输入密码登陆。请提供相关数据表及字段的关联关系和需要注意的问题。最好有个基本的实现例子。
2、进入系统后，我的工作台、个人任务管理等文件夹不显示，直接显示开发的系统模块。另业务功能库菜单也不显示，直接显示**系统。
3、替换树型菜单的文件夹图片及功能的图标图片。能否实现不同的菜单和功能显示不同的图标？
4、功能分配权限的需求：无流程功能或有流程功能的第一个环节如果没有分配给这个人的权限，这个人也可以显示这个功能名称或者显示成灰色表示，但这个人点功能名称不进行任何操作。也就是单纯的显示功能名称而已。

望尽快回复，或发给我们一个现成的例子参考参考   

atiger

一个一个回复：

对于第三点，可以通过做界面方案来实现，继承“系统空间－用户界面基础－库－公共图形资源库”中图标来做。

atiger

对于第二点，请参考：http://bbs.justep.com/forum.php? ... ��&pagenumber=2

atiger

对于第一个问题，也只能通过界面方案来做，继承“系统空间－默认用户界面－系统接口－登陆对话框”来实现。

对于部门、人员的数据从“组织机构系统表”获取，

atiger

对于第四点，已经做为需求提交。

whhy

在不同空间下移动功能的时候 出现文件名无法转换的错误，这个错误有什么影响？ 怎样解决？

whhy

还有就是图标的问题 怎样实现第一级菜单显示的是一种图表，第二级菜单显示的是另一种图标？

atiger

那根据你的需求，修改界面，像你说的如果不是用Edit，那肯定有一个可以让用户输入，或者选择的地方，对吧。

whhy

登陆窗口已经搜到相关资料了 是在
function TSystemInterface.ShowLogonForm(var ALogonID, APassword: string): Boolean;
begin
  with TDLDHK.Create(nil) do
  try
    eName.Text := ALogonID;
    ePass.Text := APassword;
    if ShowModal = Business.Forms.Controls.mrOK then
    begin
      ALogonID := eName.Text;
      APassword := ePass.Text;
      Result := True;
      Forms.Application.ProcessMessages;
    end
    else
      Result := False;
  finally
      Free;
  end;
end;
实现对吧

whhy

还有屏蔽我的工作台的实现，我按照你给的帖子的代码做了 编译出错啊 那些是完整的代码吗？