怎样做个不同用户登陆看到不同的界面菜单？再线等待，

Question

比如人事方面的人员只可看到人事管理，财务方面的人员只可看到对应的财务管理（本姑娘先在这谢谢了）

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
    
   这里写判断，根据用户登陆情况，创建显示不同非模式from
   应藏TForm1
end;

Answer 2

参考：procedure TBackFrm.N4Click(Sender: TObject);
var
  userczFrm : TUserczFrm;
begin
  //。。
  UserczFrm := TUserczFrm.Create(Nil);
  UserczFrm.SpeedButton5.Enabled := FQX[9] = '1';
  UserczFrm.SpeedButton7.Enabled := FQX[9] = '1';
  if UserczFrm.SpeedButton5.Enabled then
    UserczFrm.PageControl1.ActivePageIndex := 0 else
    UserczFrm.PageControl1.ActivePageIndex := 1;
  with UserczFrm do
  begin
    SpeedButton2.Enabled := False;
    SpeedButton3.Enabled := False;
    Label12.Caption := DataModuleFrm.User;
    Label16.Caption := DataModuleFrm.User;
    StatusBar1.Panels[0].Text := '操作员：' + DataModuleFrm.User;
    StatusBar1.Panels[1].Text := '地  区：' + DataModuleFrm.dq;
  end;
  UserczFrm.ShowModal;
end;procedure TBackFrm.InitInf;
var
  vIndex : Integer;
begin
  //..
  for   vIndex := 1 to Length(FQX) do
  begin
    TMenuItem(FindComponent('N' + IntToStr(vIndex + 5))).Visible
      := FQX[vIndex] = '1';
  end;
  N2.Enabled := FQX[9] = '1';
end;procedure TBackFrm.FormShow(Sender: TObject);
begin
  InitInf;
end;
  private
    { Private declarations }
    Procedure InitInf;
  public
    FQX : String;
    { Public declarations }
  end;

Answer 3

LiuXing123能把源代码发到我的邮箱吗？ 谢谢

Answer 4

邮箱是：[email protected] 谢谢！