TUserControl

type TUserControl = class(TComponent)

protected

  FRetry: Integer;

  FFormTrocarSenha: TCustomForm;

  FFormLogin: TCustomForm;

  FFormGeral: TCustomForm;

  procedure Loaded; override;

  procedure CriaFormTrocarSenha; dynamic;

  procedure ActionLogoff(); dynamic;

  procedure ActionTSBtGrava();

  procedure SetUserSettings();

  procedure SetfrmLoginWindow();

  procedure Notification(); override;

  procedure RegistraCurrentUser();

  procedure ApplyRightsObj();

  procedure ShowLogin;

  procedure ApplyRights;

  procedure CriaTabelaLog;

  procedure CriaTabelaRights();

  procedure CriaTabelaUsuarios();

  procedure CriaTabelaMsgs();

  procedure AtualizarVersao;

  procedure TryAutoLogon;

  procedure AddUCControlMonitor();

  procedure DeleteUCControlMonitor();

  procedure ApplyRightsUCControlMonitor;

  procedure LockControlsUCControlMonitor;

  procedure AddLoginMonitor();

  procedure DeleteLoginMonitor();

  procedure NotificationLoginMonitor;

  procedure ShowNewConfig;

public

  procedure Logoff;

  procedure Execute;

  procedure StartLogin;

  procedure ShowChangePassword;

  procedure ChangeUser();

  procedure ChangePassword();

  procedure AddRight();

  procedure AddRightEX();

  procedure HideField();

  procedure Log();

  function VerificaLogin();

  function GetLocalUserName;

  function GetLocalComputerName;

  function AddUser();

  function ExisteUsuario();

  property CurrentUser: TUCCurrentUser; [rw]

  property UserSettings: TUCUserSettings; [rw]

  constructor Create(); override;

  destructor Destroy; override;

  function GetAllUsers();

published

  property Criptografia: TUCCriptografia; [rw]

  property AutoStart: Boolean; [rw]

  property ApplicationID: string; [rw]

  property ControlRight: TUCControlRight; [rw]

  property User: TUCUser; [rw]

  property UserProfile: TUCUserProfile; [rw]

  property UserPasswordChange: TUCUserPasswordChange; [rw]

  property UsersLogged: TUCUsersLogged; [rw]

  property UsersLogoff: TUCUserLogoff; [rw]

  property LogControl: TUCLogControl; [rw]

  property Language: TUCLanguage; [rw]

  property EncryptKey: Word; [rw]

  property NotAllowedItems: TUCNotAllowedItems; [rw]

  property Login: TUCLogin; [rw]

  property ExtraRights: TUCExtraRights; [rw]

  property LoginMode: TUCLoginMode; [rw]

  property TableUsers: TUCTableUsers; [rw]

  property TableRights: TUCTableRights; [rw]

  property TableUsersLogged: TUCTableUsersLogged; [rw]

  property DataConnector: TUCDataConnector; [rw]

  property CheckValidationKey: Boolean; [rw]

  property OnLogin: TOnLogin; [rw]

  property OnStartApplication: TNotifyEvent; [rw]

  property OnLoginSucess: TOnLoginSucess; [rw]

  property OnLoginError: TOnLoginError; [rw]

  property OnApplyRightsMenuIt: TOnApplyRightsMenuItem; [rw]

  property OnApplyRightsActionIt: TOnApllyRightsActionItem; [rw]

  property OnCustomUsersForm: TCustomUserForm; [rw]

  property OnCustomUsersProfileForm: TCustomUserProfileForm; [rw]

  property OnCustomLoginForm: TCustomLoginForm; [rw]

  property OnCustomChangePasswordForm: TCustomUserPasswordChangeForm; [rw]

  property OnCustomLogControlForm: TCustomLogControlForm; [rw]

  property OnCustomInitialMsg: TCustomInitialMessage; [rw]

  property OnCustomUserLoggedForm: TCustomUserForm; [rw]

  property OnAddUser: TOnAddUser; [rw]

  property OnChangeUser: TOnChangeUser; [rw]

  property OnDeleteUser: TOnDeleteUser; [rw]

  property OnAddProfile: TOnAddProfile; [rw]

  property OnDeleteProfile: TOnDeleteProfile; [rw]

  property OnChangePassword: TOnChangePassword; [rw]

  property OnLogoff: TOnLogoff; [rw]

  property OnAfterLogin: TNotifyEvent; [rw]

end;

TUserControl

TObject