Hallöle...
In der Entwicklung kann ich es nicht nachvollziehen...
Ein Arbeitsplatz (immer der Gleiche) schmeißt folgenden Fehler:
Zitat:
Ungültiges Quell-Array
siehe Bild 1
Die
Query auf dem Datamodule hat ein Event "OnNewRecord"
siehe Bild 2
...Bei der Zuweisung des aktuellen Users...
PS: Die Tante sagt zu dem Fehler nichts...
PS: Der CurrentUser ist nicht nil!
Delphi-Quellcode:
TUser = class(TBaseObject)
strict private
{$REGION 'Fields'}
FRole_1: TUserRole;
FRole_2: TUserRole;
FRole_3: TUserRole;
FIsDefault: Boolean;
FUserGroup: TUserGroup;
FUserName: string;
FUserPassword: string;
FChangePassword: Boolean;
FUserShortName: string;
FUserShortFull: string;
FOnChangeUser: TOnChangeUserEvent;
FAccessCount: Integer;
FActive: Boolean;
FAccessLast: TDateTime;
FOffsetDayPreviousNumber: Integer;
{$ENDREGION}
procedure SetUserName(const Value: string);
public
constructor Create;
destructor Destroy; override;
property OnChangeUser: TOnChangeUserEvent read FOnChangeUser write FOnChangeUser;
property UserGroup: TUserGroup read FUserGroup write FUserGroup;
property UserName: string read FUserName write SetUserName;
property UserNameShort: string read FUserShortName write FUserShortName;
property UserNameFull: string read FUserShortFull write FUserShortFull;
property UserPassword: string read FUserPassword write FUserPassword;
property ChangePassword: Boolean read FChangePassword write FChangePassword;
property Role_1: TUserRole read FRole_1 write FRole_1;
property Role_2: TUserRole read FRole_2 write FRole_2;
property Role_3: TMUserRole read FRole_3 write FRole_3;
property IsDefault: Boolean read FIsDefault write FIsDefault;
property Active: Boolean read FActive write FActive;
property AccessLast: TDateTime read FAccessLast write FAccessLast;
property AccessCount: Integer read FAccessCount write FAccessCount;
property OffsetDayPreviousNumber: Integer read FOffsetDayPreviousNumber write FOffsetDayPreviousNumber;
function IsRightAllowed(RightID: Integer): Boolean;
end;
Wo muß ich suchen?
Danke
