传递值的问题，请大家指点一下。

Question

通过loginform登陆进入系统之后，怎么样才能确定当前是哪个用户在进行操作？
然后让当前用户的名称在状态烂显示。
还有就是如果我划分权限。比如0是超级用户，1是普通管理员，那么有怎么样在状态烂显示出来。通过判断来显示权限。以及对个个栏目权限不同来进行划分显示。

Answer 1

在用户登录是记录用户的用户名、权限，然后赋值给一个全局变量或者保存到ini文件中，在读出来就可以

Answer 2

在frmmain中的public下定义一个（或几个）全局变量。
在登录成功后把用户名和密码负值给这些全局变量，别的单元局可以用了。

Answer 3

cjfzy(他山之石，可以攻玉。)
老兄,你有没有具体的例子给我看看?
谢谢了

Answer 4

给你一些代码，不知能不能帮上function TMainF.CheckUser(AUserName , AUserPwd : string):integer;
var
  Query : TQuery;
begin
  try
    Query := TQuery.Create(nil);
    Query.DatabaseName := DBName;
    Query.SQL.Add('select * from tsyhb where UserName=:UserName');
    Query.ParamByName('UserName').AsString := AUserName;
    Query.Open;
    if Query.RecordCount = 0 then
    begin
      MessageDlg('用户名错误',mtError,[mbok],0);
      Result := -1;
      Exit;
    end else begin
      if Query.FieldByName('UserPwd').AsString <> AUserPwd then
      begin
        MessageDlg('用户名或口令错误',mtError,[mbok],0);
        Result := -1;
        Exit;
      end
      else Result := Query.FieldByName('Class').AsInteger;
    end;
    Query.Close;
    Query.Free;
  except
     Result := -1;
     MessageDlg('连接数据库出错',mtError,[mbok],0);
  end;
end;procedure TMainF.Init(P: integer);
begin
  case P of
    -1 : begin
           N5.Enabled := True;
           N12.Enabled := True;
           rk.Enabled := False;
           SpeedButton3.Enabled := False;
           ql.Enabled := False;
           SpeedButton4.Enabled := False;
           xg.Enabled := False;
           SpeedButton5.Enabled := False;
           jh.Enabled := False;
           SpeedButton6.Enabled := False;
           cx.Enabled := False;
           SpeedButton7.Enabled := False;
           ybyh.Enabled := False;
           SpeedButton8.Enabled := False;
           tsyh.Enabled := False;
           SpeedButton9.Enabled := False;
           sjlj.Enabled := True;
           SpeedButton10.Enabled := True;
           StatusBar1.Panels[0].Text := '没有用户登录';
           StatusBar1.Panels[1].Text := '';           UserName := '';
           UserPwd := '';
           InitView;
         end;
    0  : begin
           N5.Enabled := True;
           N12.Enabled := True;
           rk.Enabled := True;
           SpeedButton3.Enabled := True;
           ql.Enabled := True;
           SpeedButton4.Enabled := True;
           xg.Enabled := True;
           SpeedButton5.Enabled := True;
           jh.Enabled := True;
           SpeedButton6.Enabled := True;
           cx.Enabled := True;
           SpeedButton7.Enabled := True;
           ybyh.Enabled := True;
           SpeedButton8.Enabled := True;
           tsyh.Enabled := True;
           SpeedButton9.Enabled := True;
           sjlj.Enabled := True;
           SpeedButton10.Enabled := True;
           StatusBar1.Panels[0].Text := '用户名：'+UserName;
           StatusBar1.Panels[1].Text := '用户描述：超级用户';
         end;
    1  : begin
           N5.Enabled := True;
           N12.Enabled := True;
           rk.Enabled := True;
           SpeedButton3.Enabled := True;
           ql.Enabled := True;
           SpeedButton4.Enabled := True;
           xg.Enabled := True;
           SpeedButton5.Enabled := True;
           jh.Enabled := True;
           SpeedButton6.Enabled := True;
           cx.Enabled := True;
           SpeedButton7.Enabled := True;
           sjlj.Enabled := True;
           SpeedButton10.Enabled := True;
           ybyh.Enabled := True;
           SpeedButton8.Enabled := True;
           tsyh.Enabled := False;
           SpeedButton9.Enabled := False;
           StatusBar1.Panels[0].Text := '用户名：'+UserName;
           StatusBar1.Panels[1].Text := '用户描述：一般管理员';
         end;
    2  : begin
           N5.Enabled := True;
           N12.Enabled := True;
           rk.Enabled := False;
           SpeedButton3.Enabled := False;
           ql.Enabled := False;
           SpeedButton4.Enabled := False;
           xg.Enabled := False;
           SpeedButton5.Enabled := False;
           jh.Enabled := True;
           SpeedButton6.Enabled := True;
           cx.Enabled := True;
           SpeedButton7.Enabled := True;
           sjlj.Enabled := True;
           SpeedButton10.Enabled := True;
           ybyh.Enabled := False;
           SpeedButton8.Enabled := False;
           tsyh.Enabled := False;
           SpeedButton9.Enabled := False;
           StatusBar1.Panels[0].Text := '用户名：'+UserName;
           StatusBar1.Panels[1].Text := '用户描述：操作员';
          end;
  end;
end;

Answer 5

netgirl((网络女孩)) 
我是新手
有什么问题嘛？