object Form1: TForm1
  Left = 170
  Top = 180
  Caption = 'User Control - ADO Basic Demo'
  ClientHeight = 296
  ClientWidth = 602
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 272
    Top = 72
    Width = 233
    Height = 177
    Caption = 'Verifica acesso: Componente x Login x Senha'
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 56
      Width = 32
      Height = 13
      Margins.Bottom = 0
      Caption = 'Login :'
    end
    object Label2: TLabel
      Left = 16
      Top = 88
      Width = 37
      Height = 13
      Margins.Bottom = 0
      Caption = 'Senha :'
    end
    object Label3: TLabel
      Left = 16
      Top = 32
      Width = 63
      Height = 13
      Margins.Bottom = 0
      Caption = 'Componente:'
    end
    object edLogin: TEdit
      Left = 88
      Top = 56
      Width = 121
      Height = 21
      TabOrder = 0
      Text = 'Admin'
    end
    object edSenha: TEdit
      Left = 88
      Top = 88
      Width = 121
      Height = 21
      TabOrder = 1
      Text = '#delphi'
    end
    object Button1: TButton
      Left = 86
      Top = 136
      Width = 75
      Height = 25
      Caption = 'Verifica'
      TabOrder = 2
      OnClick = Button1Click
    end
    object edComp: TEdit
      Left = 88
      Top = 24
      Width = 121
      Height = 21
      TabOrder = 3
      Text = 'Cadastrodeusuarios1'
    end
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=T:\Componentes\User' +
      'Control\Demos\Base.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 56
    Top = 88
  end
  object UCADOConn1: TUCADOConn
    Connection = ADOConnection1
    Left = 88
    Top = 88
  end
  object UserControl1: TUserControl
    AutoStart = True
    ApplicationID = 'ADOBasic'
    ControlRight.MainMenu = MainMenu1
    LogControl.TableLog = 'UCLog'
    LogControl.MenuItem = logdosistema
    Language = ucSpanish
    EncryptKey = 0
    Login.InitialLogin.User = 'Admin'
    Login.InitialLogin.Email = 'qmd@onda.com.br'
    Login.InitialLogin.Password = '#delphi'
    Login.MaxLoginAttempts = 0
    ExtraRights = <>
    TableUsers.FieldUserID = 'UCIdUser'
    TableUsers.FieldUserName = 'UCUserName'
    TableUsers.FieldLogin = 'UCLogin'
    TableUsers.FieldPassword = 'UCPassword'
    TableUsers.FieldEmail = 'UCEmail'
    TableUsers.FieldPrivileged = 'UCPrivileged'
    TableUsers.FieldTypeRec = 'UCTypeRec'
    TableUsers.FieldProfile = 'UCProfile'
    TableUsers.FieldKey = 'UCKey'
    TableUsers.FieldDateExpired = 'UCPASSEXPIRED'
    TableUsers.FieldUserExpired = 'UCUserExpired'
    TableUsers.FieldUserDaysSun = 'UCUserDaysSun'
    TableUsers.TableName = 'UCTabUsers'
    TableRights.FieldUserID = 'UCIdUser'
    TableRights.FieldModule = 'UCModule'
    TableRights.FieldComponentName = 'UCCompName'
    TableRights.FieldFormName = 'UCFormName'
    TableRights.FieldKey = 'UCKey'
    TableRights.TableName = 'UCTabRights'
    TableUsersLogged.FieldLogonID = 'UCIdLogon'
    TableUsersLogged.FieldUserID = 'UCIdUser'
    TableUsersLogged.FieldApplicationID = 'UCApplicationId'
    TableUsersLogged.FieldMachineName = 'UCMachineName'
    TableUsersLogged.FieldData = 'UCData'
    TableUsersLogged.TableName = 'UCTabUsersLogged'
    TableHistory.TableName = 'UCTABHistory'
    TableHistory.FieldApplicationID = 'ApplicationID'
    TableHistory.FieldUserID = 'UserID'
    TableHistory.FieldEventDate = 'EventDate'
    TableHistory.FieldEventTime = 'EventTime'
    TableHistory.FieldForm = 'Form'
    TableHistory.FieldCaptionForm = 'FormCaption'
    TableHistory.FieldEvent = 'Event'
    TableHistory.FieldObs = 'Obs'
    TableHistory.FieldTableName = 'tName'
    DataConnector = UCADOConn1
    Left = 120
    Top = 88
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    OwnerDraw = True
    Left = 56
    Top = 56
    object Arquivo1: TMenuItem
      Caption = 'Arquivo'
      object Abrir1: TMenuItem
        Caption = 'Abrir'
      end
      object Salvar1: TMenuItem
        Caption = '-'
      end
      object Salvar2: TMenuItem
        Caption = 'Salvar'
      end
      object Salvarcomo1: TMenuItem
        Caption = 'Salvar como...'
      end
      object Fechar1: TMenuItem
        Caption = 'Fechar'
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Dados1: TMenuItem
        Caption = 'Dados'
        object Importar1: TMenuItem
          Caption = 'Importar'
        end
        object Exportar1: TMenuItem
          Caption = 'Exportar'
        end
        object N4: TMenuItem
          Caption = '-'
        end
        object Vincular1: TMenuItem
          Caption = 'Vincular'
        end
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Sair2: TMenuItem
        Caption = 'Sair'
      end
    end
    object Editar1: TMenuItem
      Caption = 'Editar'
      object Copiar1: TMenuItem
        Caption = 'Copiar'
      end
      object Colar1: TMenuItem
        Caption = 'Colar'
      end
      object Recortar1: TMenuItem
        Caption = 'Recortar'
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Selecionartudo1: TMenuItem
        Caption = 'Selecionar tudo'
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object AreadeTransferencia1: TMenuItem
        Caption = 'Area de Transferencia'
        object Exibir2: TMenuItem
          Caption = 'Exibir'
        end
        object Esvaziar1: TMenuItem
          Caption = 'Esvaziar'
        end
      end
    end
    object Exibir1: TMenuItem
      Caption = 'Exibir'
      object Zoom1: TMenuItem
        Caption = 'Zoom...'
        object Normal1: TMenuItem
          Caption = 'Normal'
          Checked = True
          GroupIndex = 1
          RadioItem = True
        end
        object Grande1: TMenuItem
          Caption = 'Grande'
          GroupIndex = 1
          RadioItem = True
        end
        object Ajustarnajanela1: TMenuItem
          Caption = 'Ajustar na janela'
          GroupIndex = 1
          RadioItem = True
        end
        object N6: TMenuItem
          Caption = '-'
          GroupIndex = 1
        end
        object Personalizar1: TMenuItem
          Caption = 'Personalizar'
          GroupIndex = 1
        end
      end
      object amanhonormal1: TMenuItem
        Caption = 'Tamanho normal'
      end
      object elacheia1: TMenuItem
        Caption = 'Tela cheia'
      end
    end
    object Relatorios1: TMenuItem
      Caption = 'Relatorios'
      object Relatorio11: TMenuItem
        Caption = 'Relatorio 1'
      end
      object Relatorio21: TMenuItem
        Caption = 'Relatorio 2'
      end
      object Relatorio31: TMenuItem
        Caption = 'Relatorio 3'
      end
      object Relatorio41: TMenuItem
        Caption = 'Relatorio 4'
      end
    end
    object Segurana1: TMenuItem
      Caption = 'Seguran'#231'a'
      object Cadastrodeusuarios1: TMenuItem
        Caption = 'Cadastro de usuarios'
      end
      object Perfildeusurios1: TMenuItem
        Caption = 'Perfil de usuarios'
      end
      object logdosistema: TMenuItem
        Caption = 'Log do Sistema'
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object rocarsenha1: TMenuItem
        Caption = 'Trocar senha'
      end
      object EfetuarLogoff1: TMenuItem
        Caption = 'Efetuar Logoff'
        OnClick = EfetuarLogoff1Click
      end
    end
  end
  object UCSettings1: TUCSettings
    AppMessages.MsgsForm_BtNew = '&Nuevo Mensaje'
    AppMessages.MsgsForm_BtReplay = '&Responder'
    AppMessages.MsgsForm_BtForward = '&Reenviar'
    AppMessages.MsgsForm_BtDelete = '&Borrar'
    AppMessages.MsgsForm_BtClose = '&Cerrar'
    AppMessages.MsgsForm_WindowCaption = 'Mensajes de Sistema'
    AppMessages.MsgsForm_ColFrom = 'Remitente'
    AppMessages.MsgsForm_ColSubject = 'Asunto'
    AppMessages.MsgsForm_ColDate = 'Fecha'
    AppMessages.MsgsForm_PromptDelete = #191'Est'#225' seguro de eliminar los mensajes seleccionados?'
    AppMessages.MsgsForm_PromptDelete_WindowCaption = 'Eliminar mensajes'
    AppMessages.MsgsForm_NoMessagesSelected = '!Ning'#250'n mensaje seleccionado'#161
    AppMessages.MsgsForm_NoMessagesSelected_WindowCaption = 'Informaci'#243'n'
    AppMessages.MsgRec_BtClose = '&Cerrar'
    AppMessages.MsgRec_WindowCaption = 'Mensaje'
    AppMessages.MsgRec_Title = 'Mensaje Recibido'
    AppMessages.MsgRec_LabelFrom = 'De:'
    AppMessages.MsgRec_LabelDate = 'Fecha'
    AppMessages.MsgRec_LabelSubject = 'Asunto'
    AppMessages.MsgRec_LabelMessage = 'Mensaje'
    AppMessages.MsgSend_BtSend = '&Enviar'
    AppMessages.MsgSend_BtCancel = '&Cancelar'
    AppMessages.MsgSend_WindowCaption = 'Mensaje'
    AppMessages.MsgSend_Title = 'Enviar Nuevo Mensaje'
    AppMessages.MsgSend_GroupTo = 'Para:'
    AppMessages.MsgSend_RadioUser = 'Usuario:'
    AppMessages.MsgSend_RadioAll = 'Todos'
    AppMessages.MsgSend_GroupMessage = 'Mensaje'
    AppMessages.MsgSend_LabelSubject = 'Asunto'
    AppMessages.MsgSend_LabelMessageText = 'Texto del mensaje'
    CommonMessages.AutoLogonError = 
      'Error de Ingreso Autom'#225'tico!'#13#10'Especifique un Usuario y Contrase'#241 +
      'a V'#225'lidos.'
    CommonMessages.ChangePasswordError.InvalidCurrentPassword = #161'Contrase'#241'a Actual Incorrecta!'
    CommonMessages.ChangePasswordError.NewPasswordError = 
      'Los campos Contrase'#241'a Nueva y Confirme Contrase'#241'a deben ser igua' +
      'les'
    CommonMessages.ChangePasswordError.NewEqualCurrent = 'Nueva Contrase'#241'a y Contrase'#241'a Actual deben ser diferentes'
    CommonMessages.ChangePasswordError.PasswordRequired = #161'La Contrase'#241'a es obligatoria!'
    CommonMessages.ChangePasswordError.MinPasswordLength = 'La Contrase'#241'a debe tener un m'#237'nimo de %d caracteres'
    CommonMessages.ChangePasswordError.InvalidNewPassword = #161'Prohibido utilizar contrase'#241'as NO Seguras!'
    CommonMessages.InvalidLogin = 'Usuario y/o Contrase'#241'a Incorrectos!'
    CommonMessages.InitialMessage.Strings = (
      'ATENCION! Conecci'#243'n Inicial:'
      ''
      'Usuario : :user'
      'Contrase'#241'a : :password'
      ''
      'Defina permisos para este usuario')
    CommonMessages.MaxLoginAttemptsError = '%d Intentos de conecci'#243'n inv'#225'lidos !'
    CommonMessages.PasswordChanged = #161'Se ha cambiado la Contrase'#241'a con '#233'xito!'
    CommonMessages.BlankPassword = 'Contrase'#241'a vac'#237'a para el Usuario %s'
    CommonMessages.UsuarioExiste = 'O Usu'#225'rio "%s" j'#225' est'#225' cadastrado no sistema !!'
    CommonMessages.PasswordExpired = 'Aten'#231#227'o, sua senha expirou, favor troca-la'
    CommonMessages.ForcaTrocaSenha = 'Mudan'#231'a de senha obrigat'#243'ria'
    Login.WindowCaption = 'Conecci'#243'n'
    Login.LabelUser = 'Usuario: '
    Login.LabelPassword = 'Contrase'#241'a:'
    Login.BtOk = 'Aceptar'
    Login.BtCancel = '&Cancelar'
    Login.TopImage.Data = {
[encoded data, 69154 characters]
      0000}
    Login.LeftImage.Data = {
[encoded data, 5183 characters]
      0000}
    Login.LabelTentativa = 'Tentativa : '
    Login.LabelTentativas = 'M'#225'ximo de Tentativas : '
    Log.WindowCaption = 'Seguridad'
    Log.LabelDescription = 'Visor de Eventos'
    Log.LabelUser = 'Usuario:'
    Log.LabelDate = 'Fecha:'
    Log.LabelLevel = 'Nivel M'#237'nimo: '
    Log.ColAppID = 'AppID'
    Log.ColLevel = 'Nivel'
    Log.ColMessage = 'Mensaje'
    Log.ColUser = 'Usuario'
    Log.ColDate = 'Fecha'
    Log.BtFilter = '&Aplicar Filtro'
    Log.BtDelete = '&Borrar Bit'#225'cora'
    Log.BtClose = '&Cerrar'
    Log.PromptDelete = 
      #191'Est'#225' seguro de Eliminar todos todos los registros de Bit'#225'cora s' +
      'eleccionados?'
    Log.PromptDelete_WindowCaption = 'Confirmaci'#243'n'
    Log.OptionUserAll = 'Todos'
    Log.OptionLevelLow = 'Bajo'
    Log.OptionLevelNormal = 'Normal'
    Log.OptionLevelHigh = 'Alto'
    Log.OptionLevelCritic = 'Cr'#237'tico'
    Log.DeletePerformed = 
      'Borrado de registros de bit'#225'cora realizado: Usuario = "%s" | Fec' +
      'ha = %s a %s | Nivel <= %s'
    UsersForm.WindowCaption = 'Seguridad'
    UsersForm.LabelDescription = 'Administraci'#243'n de Usuarios'
    UsersForm.ColName = 'Nombre'
    UsersForm.ColLogin = 'Usuario'
    UsersForm.ColEmail = 'Correo'
    UsersForm.BtAdd = '&Nuevo'
    UsersForm.BtChange = '&Editar'
    UsersForm.BtDelete = 'E&liminar'
    UsersForm.PromptDelete = #191'Est'#225' seguro de Eliminar al Usuario "%s"?'
    UsersForm.PromptDelete_WindowCaption = 'Eliminar usuario'
    UsersForm.BtRights = '&Accesos'
    UsersForm.BtPassword = 'C&ontrase'#241'a'
    UsersForm.BtClose = '&Cerrar'
    AddChangeUser.WindowCaption = 'Administraci'#243'n de Usuarios'
    AddChangeUser.LabelAdd = 'Nuevo Usuario'
    AddChangeUser.LabelChange = 'Editar Usuario'
    AddChangeUser.LabelName = 'Nombre:'
    AddChangeUser.LabelLogin = 'Usuario: '
    AddChangeUser.LabelEmail = 'Correo: '
    AddChangeUser.LabelPerfil = 'Perfil: '
    AddChangeUser.CheckPrivileged = 'Usuario Privilegiado'
    AddChangeUser.BtSave = '&Guardar'
    AddChangeUser.BtCancel = 'Cancelar'
    AddChangeUser.CheckExpira = 'Senha do usu'#225'rio n'#227'o expira'
    AddChangeUser.Day = 'Dias'
    AddChangeUser.ExpiredIn = 'Expira em'
    AddChangeProfile.WindowCaption = 'Perfiles de Usuarios'
    AddChangeProfile.LabelAdd = 'Nuevo Perfil'
    AddChangeProfile.LabelChange = 'Editar Perfil'
    AddChangeProfile.LabelName = 'Descripci'#243'n: '
    AddChangeProfile.BtSave = '&Guardar'
    AddChangeProfile.BtCancel = 'Cancelar'
    UsersProfile.WindowCaption = 'Seguridad'
    UsersProfile.LabelDescription = 'Perfil de Usuario'
    UsersProfile.ColProfile = 'Perfil'
    UsersProfile.BtAdd = '&Nuevo'
    UsersProfile.BtChange = '&Editar'
    UsersProfile.BtDelete = 'E&liminar'
    UsersProfile.BtRights = '&Accesos'
    UsersProfile.PromptDelete = 
      'Existe(n) usuario(s) con el Perfil "%s". '#191'Est'#225' seguro de elimina' +
      'r el perfil?'
    UsersProfile.PromptDelete_WindowCaption = 'Eliminar perfil'
    UsersProfile.BtClose = '&Cerrar'
    Rights.WindowCaption = 'Seguridad'
    Rights.LabelUser = 'Permisos de Usuario : '
    Rights.LabelProfile = 'Permisos del Perfil : '
    Rights.PageMenu = 'Elementos del Men'#250
    Rights.PageActions = 'Acciones'
    Rights.PageControls = 'Controles'
    Rights.BtUnlock = '&Permitir'
    Rights.BtLock = '&Bloquear'
    Rights.BtSave = '&Guardar'
    Rights.BtCancel = '&Cancelar'
    ChangePassword.WindowCaption = 'Seguridad'
    ChangePassword.LabelDescription = 'Cambiar Contrase'#241'a'
    ChangePassword.LabelCurrentPassword = 'Contrase'#241'a Actual:'
    ChangePassword.LabelNewPassword = 'Nueva Contrase'#241'a:'
    ChangePassword.LabelConfirm = 'Confirme Contrase'#241'a:'
    ChangePassword.BtSave = '&Guardar'
    ChangePassword.BtCancel = 'Cancelar'
    ResetPassword.WindowCaption = 'Ingrese Contrase'#241'a de Usuario: "%s"'
    ResetPassword.LabelPassword = 'Contrase'#241'a: '
    History.Evento_Insert = 'Nuevo'
    History.Evento_Delete = 'Eliminar'
    History.Evento_Edit = 'Editar'
    History.Evento_NewRecord = 'Nuevo registro'
    History.Hist_All = 'Todos'
    History.Msg_LimpHistorico = 'Excluir el contenido entero del hist'#243'rico ?'
    History.Msg_MensConfirma = 'Confirme'
    History.Msg_LogEmptyHistory = 'El usuario %s borra la historia de mesa en %s '
    History.LabelDescricao = 'Hist'#243'rico de tabelas'
    History.LabelUser = 'Usuario'
    History.LabelForm = 'Formul'#225'rio'
    History.LabelEvento = 'Evento'
    History.LabelTabela = 'Tabela'
    History.LabelDataEvento = 'Data'
    History.LabelHoraEvento = 'Hora'
    History.Msg_NewRecord = '%s Inserte el nuevo registro'
    History.Hist_MsgExceptPropr = 'Por favor informe la propiedad %s'
    History.Hist_BtnFiltro = '&Aplicar Filtro'
    History.Hist_BtnExcluir = '&Borrar Hist'#243'rico'
    History.Hist_BtnFechar = '&Cerrar'
    TypeFieldsDB.Type_VarChar = 'VarChar'
    TypeFieldsDB.Type_Char = 'Char'
    TypeFieldsDB.Type_Int = 'Int'
    TypeFieldsDB.Type_MemoField = 'BLOB SUB_TYPE 1 SEGMENT SIZE 1024'
    Language = ucSpanish
    Left = 56
    Top = 128
  end
  object UCXPStyle1: TUCXPStyle
    Active = True
    XPSettings.DimLevel = 30
    XPSettings.GrayLevel = 10
    XPSettings.Font.Charset = ANSI_CHARSET
    XPSettings.Font.Color = clMenuText
    XPSettings.Font.Height = -11
    XPSettings.Font.Name = 'Tahoma'
    XPSettings.Font.Style = []
    XPSettings.Color = clBtnFace
    XPSettings.DrawMenuBar = False
    XPSettings.IconBackColor = clBtnFace
    XPSettings.MenuBarColor = clBtnFace
    XPSettings.SelectColor = clHighlight
    XPSettings.SelectBorderColor = clHighlight
    XPSettings.SelectFontColor = clMenuText
    XPSettings.DisabledColor = clInactiveCaption
    XPSettings.SeparatorColor = clBtnFace
    XPSettings.CheckedColor = clHighlight
    XPSettings.IconWidth = 24
    XPSettings.DrawSelect = True
    XPSettings.UseSystemColors = True
    XPSettings.UseDimColor = False
    XPSettings.OverrideOwnerDraw = False
    XPSettings.Gradient = False
    XPSettings.FlatMenu = False
    XPSettings.AutoDetect = False
    XPSettings.BitBtnColor = clBtnFace
    XPSettings.ColorsChanged = False
    UCSettings = UCSettings1
    Left = 88
    Top = 128
  end
  object QVerAcesso: TADOQuery
    Connection = ADOConnection1
    Parameters = <
      item
        Name = 'login'
        Size = -1
        Value = Null
      end
      item
        Name = 'componente'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'SELECT UCPassword FROM UCTabUsers'
      
        'INNER JOIN UCTabRights ON UCTabUsers.uciduser = UCTabRights.ucid' +
        'user'
      
        'WHERE UCTabUsers.UCLogin = :login and  UCTabRights.UCCompName = ' +
        ':componente')
    Left = 288
    Top = 200
  end
end
