具体如下
修改“业务模型\系统空间\系统运行库\系统函数库”中
static function TSystemUtils.ReadUserInfo(const AScope, AID: string; var AValue: string; AStream: TStream): Boolean;
...
if lQuery.IsEmpty then
...
修改为
static function TSystemUtils.ReadUserInfo(const AScope, AID: string; var AValue: string; AStream: TStream): Boolean;
...
lQuery.Open;
if lQuery.IsEmpty then
...