Componentes.Terceros.UserControl/official/2.20/Source/UCDataInfo.pas

unit UCDataInfo;

interface

uses
  Classes;

type
  TUCTableUsers = class(TPersistent)
  private
    FEmail:      String;
    FTypeRec:    String;
    FUserID:     String;
    FPrivileged: String;
    FUserName:   String;
    FTable:      String;
    FProfile:    String;
    FLogin:      String;
    FPassword:   String;
    FKey:        String;
    fDateExpired: String;
    fUserExpired: String;
    fFieldUserDaysSun: String;
  protected
  public
    constructor Create(AOwner: TComponent);
    destructor Destroy; override;
    procedure Assign(Source: TPersistent); override;
  published
    property FieldUserID: String read FUserID write FUserID;
    property FieldUserName: String read FUserName write FUserName;
    property FieldLogin: String read FLogin write FLogin;
    property FieldPassword: String read FPassword write FPassword;
    property FieldEmail: String read FEmail write FEmail;
    property FieldPrivileged: String read FPrivileged write FPrivileged;
    property FieldTypeRec: String read FTypeRec write FTypeRec;
    property FieldProfile: String read FProfile write FProfile;
    property FieldKey: String read FKey write FKey;
    property FieldDateExpired: String read fDateExpired write fDateExpired; { By Vicente Barros Leonel }
    property FieldUserExpired: String read fUserExpired write fUserExpired; { By vicente barros leonel }
    property FieldUserDaysSun: String read fFieldUserDaysSun write fFieldUserDaysSun; { By vicente barros leonel }
    property TableName: String read FTable write FTable;
  end;

  TUCTableRights = class(TPersistent)
  private
    FUserID:        String;
    FFormName:      String;
    FModule:        String;
    FTable:         String;
    FComponentName: String;
    FKey:           String;
  protected
  public
    constructor Create(AOwner: TComponent);
    destructor Destroy; override;
    procedure Assign(Source: TPersistent); override;
  published
    property FieldUserID: String read FUserID write FUserID;
    property FieldModule: String read FModule write FModule;
    property FieldComponentName: String read FComponentName write FComponentName;
    property FieldFormName: String read FFormName write FFormName;
    property FieldKey: String read FKey write FKey;
    property TableName: String read FTable write FTable;
  end;

  TUCTableUsersLogged = class(TPersistent)
  private
    FTableName:     String;
    FData:          String;
    FApplicationID: String;
    FUserID:        String;
    FLogonID:       String;
    FMachineName:   String;
    { private declarations }
  protected
    { protected declarations }
  public
    { public declarations }
    constructor Create(AOwner: TComponent);
    destructor Destroy; override;
    procedure Assign(Source: TPersistent); override;
  published
    { published declarations }
    property FieldLogonID: String read FLogonID write FLogonID;
    property FieldUserID: String read FUserID write FUserID;
    property FieldApplicationID: String read FApplicationID write FApplicationID;
    property FieldMachineName: String read FMachineName write FMachineName;
    property FieldData: String read FData write FData;
    property TableName: String read FTableName write FTableName;
  end;

 TUCTableHistorico = class(TPersistent)
  private
    FTable: String;
    FApplicationID: String;
    FUserID: String;
    fDateEvent: String;
    fFieldForm: String;
    fFieldEvent: String;
    fFieldObs: String;
    fCaptionForm: string;
    fEventTime: String;
    fFieldTableName: String;
  protected
  public
    constructor Create(AOwner: TComponent);
    destructor Destroy; override;
    procedure Assign(Source: TPersistent); override;
  published
    property TableName          : String read FTable write FTable; // nome da tabela
    property FieldApplicationID : String read FApplicationID write FApplicationID;
    property FieldUserID        : String read FUserID write FUserID;
    property FieldEventDate     : String read fDateEvent write fDateEvent;
    property FieldEventTime     : String read fEventTime Write fEventTime;
    property FieldForm          : String read fFieldForm write fFieldForm;
    property FieldCaptionForm   : string read fCaptionForm write fCaptionForm;
    Property FieldEvent         : String read fFieldEvent write fFieldEvent;
    property FieldObs           : String read fFieldObs write fFieldObs;
    property FieldTableName     : String read fFieldTableName write fFieldTableName; // grava o nome da tabela monitorada
  end;

implementation

{ TUCTableRights }

procedure TUCTableRights.Assign(Source: TPersistent);
begin
  if Source is TUCTableRights then
  begin
    Self.FieldUserID        := TUCTableRights(Source).FieldUserID;
    Self.FieldModule        := TUCTableRights(Source).FieldModule;
    Self.FieldComponentName := TUCTableRights(Source).FieldComponentName;
    Self.FieldFormName      := TUCTableRights(Source).FieldFormName;
    Self.FieldKey           := TUCTableRights(Source).FieldKey;
  end
  else
    inherited;
end;

constructor TUCTableRights.Create(AOwner: TComponent);
begin
  inherited Create;
end;

destructor TUCTableRights.Destroy;
begin

  inherited;
end;

{ TUCTableUsers }

procedure TUCTableUsers.Assign(Source: TPersistent);
begin
  if Source is TUCTableUsers then
  begin
    Self.FieldUserID      := TUCTableUsers(Source).FieldUserID;
    Self.FieldUserName    := TUCTableUsers(Source).FieldUserName;
    Self.FieldLogin       := TUCTableUsers(Source).FieldLogin;
    Self.FieldPassword    := TUCTableUsers(Source).FieldPassword;
    Self.FieldEmail       := TUCTableUsers(Source).FieldEmail;
    Self.FieldPrivileged  := TUCTableUsers(Source).FieldPrivileged;
    Self.FieldProfile     := TUCTableUsers(Source).FieldProfile;
    Self.FieldKey         := TUCTableUsers(Source).FieldKey;
    Self.FieldDateExpired := TUCTableUsers(Source).FieldDateExpired; {By Vicente Barros Leonel}
    Self.FieldUserExpired := TUCTableUsers(Source).FieldUserExpired; {By Vicente Barros Leonel}
    Self.FieldUserDaysSun := TUCTableUsers(Source).FieldUserDaysSun; { By vicente barros leonel }
    Self.TableName        := TUCTableUsers(Source).TableName;
  end
  else
    inherited;
end;

constructor TUCTableUsers.Create(AOwner: TComponent);
begin
  inherited Create;
end;

destructor TUCTableUsers.Destroy;
begin
  inherited;
end;

{ TUCTableUsersLogged }

procedure TUCTableUsersLogged.Assign(Source: TPersistent);
begin
  if Source is TUCTableUsersLogged then
  begin
    Self.FieldLogonID       := TUCTableUsersLogged(Source).FieldLogonID;
    Self.FieldUserID        := TUCTableUsersLogged(Source).FieldUserID;
    Self.FieldApplicationID := TUCTableUsersLogged(Source).FieldApplicationID;
    Self.FieldMachineName   := TUCTableUsersLogged(Source).FieldMachineName;
    Self.FieldData          := TUCTableUsersLogged(Source).FieldData;
    Self.TableName          := TUCTableUsersLogged(Source).TableName;
  end
  else
    inherited;
end;

constructor TUCTableUsersLogged.Create(AOwner: TComponent);
begin

end;

destructor TUCTableUsersLogged.Destroy;
begin
  inherited;
end;

{ TUCTableHistorico }

procedure TUCTableHistorico.Assign(Source: TPersistent);
begin
  if Source is TUCTableHistorico then
  begin
    Self.FieldApplicationID := TUCTableHistorico(Source).FieldApplicationID;
    Self.FieldUserID        := TUCTableHistorico(Source).FieldUserID;
    Self.FieldEventDate     := TUCTableHistorico(Source).FieldEventDate;
    Self.TableName          := TUCTableHistorico(Source).TableName;
    Self.FieldForm          := TUCTableHistorico(Source).FieldForm;
    Self.FieldEvent         := TUCTableHistorico(Source).FieldEvent;
    Self.FieldObs           := TUCTableHistorico(Source).FieldObs;
    Self.FieldCaptionForm   := TUCTableHistorico(Source).FieldCaptionForm;
    Self.FieldEventTime     := TUCTableHistorico(Source).FieldEventTime;
    Self.FieldTableName     := TUCTableHistorico(Source).FieldTableName;
  end
  else
    inherited;
end;

constructor TUCTableHistorico.Create(AOwner: TComponent);
begin
  inherited Create;
end;

destructor TUCTableHistorico.Destroy;
begin
  inherited;
end;

end.