intraweb下开发的权限管理问题!!

[hjf8086]

我在intraweb下要实现权限管理,在数据库建立了一个密码表.现在的问题是,不知道怎么对session进行操作.请教各位能给个实例看看吗?

[mypiip]

unit ServerController;
TUserSession = class(TComponent)
public
DataModule1:TDataModule1;
User_Name,User_pwd,User_权限:ansistring;//定义变量
constructor Create(AOwner: TComponent); override;
end;
在启动单元
if (Trim(IwEditUser.Text) = '') or (trim(IwEditPwd.text) = '') then
begin
webapplication.ShowMessage('请确定用户名或密码不能为空！');
exit;
end
else
begin
with DataModule1 do
begin
table_User.active := true;
if not Table_User.Locate('Clerk_Name;Clerk_Pwd',
VarArrayOf([trim(IwEditUser.Text), trim(IwEditPwd.Text)]), []) then
begin
WebApplication.ShowMessage('无效的用户名或口令，请重新输入');
Exit;
end
else
begin
UserSession.User_Name:=Table_User.Fieldbyname('Name').AsString;
UserSession.User_权限:=Table_User.fieldbyName('权限').asinteger;
TIWAppForm(WebApplication.ActiveForm).Release;
TIWForm2.Create(WebApplication).Show;
end;
end;
end;

[hjf8086]

mypiip(逆水行舟)
非常感谢!!