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;