unit ULURObju;
{ Generated by MakeComp 1.03 from ULURTYPE.PAS. Don't modify manually !!! }
interface
uses Classes, SysUtils, Graphics, UlanType, ULRecTyp, ULObju, 
  ULURType;

type
  TULURObj = class(TULObj)
  protected
    function GetUserID: TUserID;
    procedure SetUserID(AUserID: TUserID);
    function GetUserName: TUserName;
    procedure SetUserName(AUserName: TUserName);
    function GetRealUserName: TRealUserName;
    procedure SetRealUserName(ARealUserName: TRealUserName);
    function GetPassword: TPassword;
    procedure SetPassword(APassword: TPassword);
    function GetMinRecLen: TULRecLen; override;
  public
    constructor Create(AOwner:TULObj);
    function GetULRecDesc: PULRecDesc; override;
  published
    property UserID: TUserID
      read GetUserID write SetUserID;
    property UserName: TUserName
      read GetUserName write SetUserName;
    property RealUserName: TRealUserName
      read GetRealUserName write SetRealUserName;
    property Password: TPassword
      read GetPassword write SetPassword;
  end;

const
  ULURFldDescs: array[0..3] of TULFldDesc = (
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4096;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'UserID';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TUserID';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'UserName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TUserName';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'RealUserName';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TRealUserName';
    ),
    (
     Caption: '';
     Hint: '';
     EditWidth: 0;
     BrowseWidth: 0;
     Flags: 4097;
     UserCoef: 0.00;
     NumDec: 0;
     ValuesSourceRecID: 0;
     FieldColorCount : 0;
     FieldColors : nil;
     Filter: '';
     DefDir: '';
     StripPrefix: '';
     EditMask: '';
     MaxID: 0;
     FieldName: 'Password';
     KeyFieldName: '';
     ListFieldName: '';
     Typ: '';
     VarSize: false;
     PasType: 'TPassword';
    )
  );

  ULURRecDesc: TULRecDesc = (
    Caption: 'User';
    ChildRecIDsStr: '';
    ChildRecIDs: nil;
    ChildRecIDCount: 0;
    FldCount: 4;
    Flds: @ULURFldDescs;
    Flags: rfEnabled OR rfVisible;
    SortExp: '';
    EditFieldList: '';
    BrowseFieldList: '';
    MenuFieldList: '';
    BrowseChildRecIDs: '';
    NameProp: '';
    MainProp: '';
    DefDir: '';
    OpenFilter: '';
    SaveFilter: '';
    Table: '';
    Indexes: ''
   );

implementation

{TULURObj}
function TULURObj.GetMinRecLen: TULRecLen;
begin
  GetMinRecLen := sizeof(TULURRec);
end;

constructor TULURObj.Create(AOwner: TULObj);
begin
  inherited Create(TComponent(AOwner), ULURID);
end;

function TULURObj.GetULRecDesc: PULRecDesc;
begin
  Result := @ULURRecDesc;
end;

procedure TULURObj.SetUserID(AUserID: TUserID);
begin
  if PULURRec(Rec)^.UserID <> AUserID then begin
    PULURRec(Rec)^.UserID := AUserID;
    if ULURFldDescs[0].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULURObj.GetUserID: TUserID;
begin
  GetUserID := PULURRec(Rec)^.UserID;
end;

procedure TULURObj.SetUserName(AUserName: TUserName);
begin
  if PULURRec(Rec)^.UserName <> AUserName then begin
    PULURRec(Rec)^.UserName := AUserName;
    if ULURFldDescs[1].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULURObj.GetUserName: TUserName;
begin
  GetUserName := PULURRec(Rec)^.UserName;
end;

procedure TULURObj.SetRealUserName(ARealUserName: TRealUserName);
begin
  if PULURRec(Rec)^.RealUserName <> ARealUserName then begin
    PULURRec(Rec)^.RealUserName := ARealUserName;
    if ULURFldDescs[2].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULURObj.GetRealUserName: TRealUserName;
begin
  GetRealUserName := PULURRec(Rec)^.RealUserName;
end;

procedure TULURObj.SetPassword(APassword: TPassword);
begin
  if PULURRec(Rec)^.Password <> APassword then begin
    PULURRec(Rec)^.Password := APassword;
    if ULURFldDescs[3].VarSize then 
      ClearFieldsLen;
    DoChange;
  end;
end;

function TULURObj.GetPassword: TPassword;
begin
  GetPassword := PULURRec(Rec)^.Password;
end;

{/TULURObj}

end.
