Delphi在C/S架构项目中考虑到SQLServer客户端断电的用户登录问题

原创于 2012-10-03 13:52:24 发布 · 2.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#sqlserver #delphi #服务器 #function #string #object

Delphi 专栏收录该内容

60 篇文章

订阅专栏

本文介绍了一种在C/S架构下实现同一账号仅允许单次登录的方法。通过使用临时表来记录已登录的用户状态，并提供了两个核心函数：检查用户是否已登录及注册已登录用户的记录。

在C/S架构项目中，往往限制同一时间一个账号只能登录一次，考虑到客户端突然断电的情况。
登录前要验证临时表是否存在，登录后要创建临时表。

// 注册已经登录的账户
function TfrmLogin.RegUserLogined(AdoConn: TADOConnection;
  AUserID: string): Boolean;
var
  Qry: TADOQuery;
  SQLStr: string;
begin
  //
  try
    QryCreate(Qry,AdoConn);
    try
      SQLStr := Format('CREATE TABLE ##XXX%s(%s INT); ', [AUserID, AUserID]);
      Qry.SQL.Text := SQLStr;
      Qry.ExecSQL;
    finally
      Qry.Free;
    end;
  except
    Result := False;
    Exit;
  end;
  Result := True;
end;
// 判断账户是否已经登录
function TfrmLogin.ThisUserHadLogined(AdoConn: TADOConnection;
  AUserID: string): Boolean;
var
  Qry: TADOQuery;
  SQLStr: string;
begin
  //
  try
    QryCreate(Qry,AdoConn);
    try
      SQLStr := Format('SELECT OBJECT_ID(N''tempdb..##XXX%s'', N''U'') AS TabID', [AUserID]);
      Qry.SQL.Text := SQLStr;
      Qry.Open;
      result := not Qry.FieldByName('TabID').IsNull;
    finally
      Qry.Free;
    end;
  except
    Result := False;
    Exit;
  end;
end;

procedure TfrmLogin.QryCreate(var aQuery: TADOQuery; Connecion: TAdoConnection);
begin
  aQuery := TADOQuery.create(nil);
  aQuery.Connection := Connecion;
end;