object Form1: TForm1
  Left = 290
  Top = 172
  Width = 610
  Height = 350
  Caption = 'User Control - ADO Basic Demo - English'
  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 ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\..\Base.mdb;Pers' +
      'ist Security Info=False'
    LoginPrompt = False
    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 = 'ADOBasicEN'
    ControlRight.MainMenu = MainMenu1
    UsersForm.MenuItem = Cadastrodeusuarios1
    UsersForm.UsePrivilegedField = False
    UsersForm.ProtectAdmin = True
    EncryptKey = 0
    NotAllowedItems.MenuVisible = True
    NotAllowedItems.ActionVisible = True
    Login.AutoLogon.Active = False
    Login.AutoLogon.MessageOnError = False
    Login.InitialLogin.User = 'Admin'
    Login.InitialLogin.Email = 'qmd@usercontrol.com.br'
    Login.InitialLogin.Password = '#delphi'
    Login.MaxLoginAttempts = 0
    Login.GetLoginName = lnNone
    LogControl.Active = True
    LogControl.TableLog = 'UCLogEN'
    LogControl.MenuItem = logdosistema
    ExtraRight = <>
    LoginMode = lmActive
    UsersProfile.Active = True
    UsersProfile.MenuItem = Perfildeusurios1
    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.TableName = 'UCTabUsersEN'
    TableRights.FieldUserID = 'UCIdUser'
    TableRights.FieldModule = 'UCModule'
    TableRights.FieldComponentName = 'UCCompName'
    TableRights.FieldFormName = 'UCFormName'
    TableRights.FieldKey = 'UCKey'
    TableRights.TableName = 'UCTabRightsEN'
    ChangePasswordForm.MenuItem = rocarsenha1
    ChangePasswordForm.ForcePassword = False
    ChangePasswordForm.MinPasswordLength = 0
    DataConnector = UCADOConn1
    CheckValidationKey = False
    Left = 120
    Top = 88
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    OwnerDraw = True
    Left = 56
    Top = 56
    object Arquivo1: TMenuItem
      Caption = 'File'
      object Abrir1: TMenuItem
        Caption = 'Open'
      end
      object Salvar1: TMenuItem
        Caption = '-'
      end
      object Salvar2: TMenuItem
        Caption = 'Save'
      end
      object Salvarcomo1: TMenuItem
        Caption = 'Save as...'
      end
      object Fechar1: TMenuItem
        Caption = 'Close'
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Dados1: TMenuItem
        Caption = 'Data'
        object Importar1: TMenuItem
          Caption = 'Import'
        end
        object Exportar1: TMenuItem
          Caption = 'Export'
        end
        object N4: TMenuItem
          Caption = '-'
        end
        object Vincular1: TMenuItem
          Caption = 'Link'
        end
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Sair2: TMenuItem
        Caption = 'Exit'
      end
    end
    object Editar1: TMenuItem
      Caption = 'Edit'
      object Copiar1: TMenuItem
        Caption = 'Copy'
      end
      object Colar1: TMenuItem
        Caption = 'Paste'
      end
      object Recortar1: TMenuItem
        Caption = 'Cut'
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Selecionartudo1: TMenuItem
        Caption = 'Select all'
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object AreadeTransferencia1: TMenuItem
        Caption = 'Clipboard'
        object Exibir2: TMenuItem
          Caption = 'View'
        end
        object Esvaziar1: TMenuItem
          Caption = 'Empty'
        end
      end
    end
    object Exibir1: TMenuItem
      Caption = 'View'
      object Zoom1: TMenuItem
        Caption = 'Zoom...'
        object Normal1: TMenuItem
          Caption = 'Normal'
          Checked = True
          GroupIndex = 1
          RadioItem = True
        end
        object Grande1: TMenuItem
          Caption = 'Large'
          GroupIndex = 1
          RadioItem = True
        end
        object Ajustarnajanela1: TMenuItem
          Caption = 'Zoom to fit'
          GroupIndex = 1
          RadioItem = True
        end
        object N6: TMenuItem
          Caption = '-'
          GroupIndex = 1
        end
        object Personalizar1: TMenuItem
          Caption = 'Custom'
          GroupIndex = 1
        end
      end
      object amanhonormal1: TMenuItem
        Caption = 'Normal Size'
      end
      object elacheia1: TMenuItem
        Caption = 'Full Screen'
      end
    end
    object Relatorios1: TMenuItem
      Caption = 'Reports'
      object Relatorio11: TMenuItem
        Caption = 'Report 1'
      end
      object Relatorio21: TMenuItem
        Caption = 'Report 2'
      end
      object Relatorio31: TMenuItem
        Caption = 'Report 3'
      end
      object Relatorio41: TMenuItem
        Caption = 'Report 4'
      end
    end
    object Segurana1: TMenuItem
      Caption = 'Security'
      object Cadastrodeusuarios1: TMenuItem
        Caption = 'User Manager'
      end
      object Perfildeusurios1: TMenuItem
        Caption = 'Profile Manager'
      end
      object logdosistema: TMenuItem
        Caption = 'Log System'
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object rocarsenha1: TMenuItem
        Caption = 'Change Password'
      end
      object EfetuarLogoff1: TMenuItem
        Caption = 'Logoff'
        OnClick = EfetuarLogoff1Click
      end
    end
  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
    Left = 88
    Top = 128
  end
  object UCSettings1: TUCSettings
    AppMessages.MsgsForm_BtNew = '&New Message'
    AppMessages.MsgsForm_BtReplay = '&Replay'
    AppMessages.MsgsForm_BtForward = '&Forward'
    AppMessages.MsgsForm_BtDelete = '&Delete'
    AppMessages.MsgsForm_BtClose = '&Close'
    AppMessages.MsgsForm_WindowCaption = 'System Messages'
    AppMessages.MsgsForm_ColFrom = 'Sender'
    AppMessages.MsgsForm_ColSubject = 'Subject'
    AppMessages.MsgsForm_ColDate = 'Date'
    AppMessages.MsgsForm_PromptDelete = 'Confirm deletion of selected messages ?'
    AppMessages.MsgsForm_PromptDelete_WindowCaption = 'Delete messages'
    AppMessages.MsgsForm_NoMessagesSelected = '!No Messages selected'#161
    AppMessages.MsgsForm_NoMessagesSelected_WindowCaption = 'Information'
    AppMessages.MsgRec_BtClose = '&Close'
    AppMessages.MsgRec_WindowCaption = 'Message'
    AppMessages.MsgRec_Title = 'Message Received'
    AppMessages.MsgRec_LabelFrom = 'From :'
    AppMessages.MsgRec_LabelDate = 'Date'
    AppMessages.MsgRec_LabelSubject = 'Subject'
    AppMessages.MsgRec_LabelMessage = 'Message'
    AppMessages.MsgSend_BtSend = '&Send'
    AppMessages.MsgSend_BtCancel = '&Cancel'
    AppMessages.MsgSend_WindowCaption = 'Message'
    AppMessages.MsgSend_Title = 'Send new message'
    AppMessages.MsgSend_GroupTo = 'To :'
    AppMessages.MsgSend_RadioUser = 'User :'
    AppMessages.MsgSend_RadioAll = 'All'
    AppMessages.MsgSend_GroupMessage = 'Message'
    AppMessages.MsgSend_LabelSubject = 'Subject'
    AppMessages.MsgSend_LabelMessageText = 'Message text'
    CommonMessages.AutoLogonError = 'Auto Logon error!'#13#10'Inform a valid User and password.'
    CommonMessages.ChangePasswordError.InvalidCurrentPassword = 'Current password is Invalid !'
    CommonMessages.ChangePasswordError.NewPasswordError = 'New Password and Confirm fields must be equal'
    CommonMessages.ChangePasswordError.NewEqualCurrent = 'New password and current password must be different'
    CommonMessages.ChangePasswordError.PasswordRequired = 'Password required!'
    CommonMessages.ChangePasswordError.MinPasswordLength = 'Minimal Password length  %d'
    CommonMessages.ChangePasswordError.InvalidNewPassword = 'Invalid password type!'
    CommonMessages.InvalidLogin = 'Invalid user or password!'
    CommonMessages.InitialMessage.Strings = (
      'Initial Login:'
      ''
      'User : :user'
      'Password : :password'
      ''
      'Define user rights')
    CommonMessages.MaxLoginAttemptsError = '%d Invalid login attempt !'
    CommonMessages.PasswordChanged = 'Password modified successfully !'
    CommonMessages.BlankPassword = 'Empty password to Login %s'
    Login.WindowCaption = 'Login'
    Login.LabelUser = 'User : '
    Login.LabelPassword = 'Password :'
    Login.BtOk = 'OK'
    Login.BtCancel = '&Cancel'
    Login.TopImage.Data = {
[encoded data, 69154 characters]
      0000}
    Login.LeftImage.Data = {
[encoded data, 5183 characters]
      0000}
    Log.WindowCaption = 'Security'
    Log.LabelDescription = 'Event Viewer'
    Log.LabelUser = 'User :'
    Log.LabelDate = 'Date :'
    Log.LabelLevel = 'Min. Level : '
    Log.ColLevel = 'Level'
    Log.ColMessage = 'Message'
    Log.ColUser = 'User'
    Log.ColDate = 'Date'
    Log.BtFilter = '&Apply filter'
    Log.BtDelete = '&Delete Log'
    Log.BtClose = '&Close'
    Log.PromptDelete = 'Confirm deletion of all selected log records ?'
    Log.PromptDelete_WindowCaption = 'Delete confirmation'
    Log.OptionUserAll = 'All'
    Log.OptionLevelLow = 'Baixo'
    Log.OptionLevelNormal = 'Normal'
    Log.OptionLevelHigh = 'Alto'
    Log.OptionLevelCritic = 'Cr'#237'tico'
    Log.DeletePerformed = 
      'Deletion of system log done: User = "%s" | Date = %s a %s | Leve' +
      'l <= %s'
    UsersForm.WindowCaption = 'Security'
    UsersForm.LabelDescription = 'User Manager'
    UsersForm.ColName = 'Name'
    UsersForm.ColLogin = 'Login'
    UsersForm.ColEmail = 'Mail'
    UsersForm.BtAdd = '&Add'
    UsersForm.BtChange = 'C&hange'
    UsersForm.BtDelete = '&Delete'
    UsersForm.PromptDelete = 'Delete user "%s" ?'
    UsersForm.PromptDelete_WindowCaption = 'Delete user'
    UsersForm.BtRights = '&Rights'
    UsersForm.BtPassword = '&Password'
    UsersForm.BtClose = '&Close'
    AddChangeUser.WindowCaption = 'User Manager'
    AddChangeUser.LabelAdd = 'Add User'
    AddChangeUser.LabelChange = 'Change User'
    AddChangeUser.LabelName = 'Name :'
    AddChangeUser.LabelLogin = 'Login : '
    AddChangeUser.LabelEmail = 'Mail : '
    AddChangeUser.CheckPrivileged = 'Privileged user'
    AddChangeUser.BtSave = '&Save'
    AddChangeUser.BtCancel = 'Cancel'
    AddChangeProfile.WindowCaption = 'User Profile'
    AddChangeProfile.LabelAdd = 'Add Profile'
    AddChangeProfile.LabelChange = 'Change Profile'
    AddChangeProfile.LabelName = 'Profile : '
    AddChangeProfile.BtSave = '&Save'
    AddChangeProfile.BtCancel = 'Cancel'
    UsersProfile.WindowCaption = 'Security'
    UsersProfile.LabelDescription = 'User profile'
    UsersProfile.ColProfile = 'Profile'
    UsersProfile.BtAdd = '&Add'
    UsersProfile.BtChange = '&Change'
    UsersProfile.BtDelete = '&Delete'
    UsersProfile.BtRights = '&Rights'
    UsersProfile.PromptDelete = 'Found user with the "%s" profile. Confirm deletion ?'
    UsersProfile.PromptDelete_WindowCaption = 'Delete profile'
    UsersProfile.BtClose = '&Close'
    Rights.WindowCaption = 'Security'
    Rights.LabelUser = 'User Rights : '
    Rights.LabelProfile = 'Profile Rights : '
    Rights.PageMenu = 'Menu Items'
    Rights.PageActions = 'Actions'
    Rights.BtUnlock = '&Unlock'
    Rights.BtLock = '&Lock'
    Rights.BtSave = '&Save'
    Rights.BtCancel = '&Cancel'
    ChangePassword.WindowCaption = 'Security'
    ChangePassword.LabelDescription = 'Change Password'
    ChangePassword.LabelCurrentPassword = 'Current Password :'
    ChangePassword.LabelNewPassword = 'New Password :'
    ChangePassword.LabelConfirm = 'Confirm :'
    ChangePassword.BtSave = '&Save'
    ChangePassword.BtCancel = 'Cancel'
    ResetPassword.WindowCaption = 'Set user password : "%s"'
    ResetPassword.LabelPassword = 'Password : '
    XPStyleSet.DimLevel = 30
    XPStyleSet.GrayLevel = 10
    XPStyleSet.Font.Charset = ANSI_CHARSET
    XPStyleSet.Font.Color = clMenuText
    XPStyleSet.Font.Height = -11
    XPStyleSet.Font.Name = 'Tahoma'
    XPStyleSet.Font.Style = []
    XPStyleSet.Color = clBtnFace
    XPStyleSet.DrawMenuBar = False
    XPStyleSet.IconBackColor = clBtnFace
    XPStyleSet.MenuBarColor = clBtnFace
    XPStyleSet.SelectColor = clHighlight
    XPStyleSet.SelectBorderColor = clHighlight
    XPStyleSet.SelectFontColor = clMenuText
    XPStyleSet.DisabledColor = clInactiveCaption
    XPStyleSet.SeparatorColor = clBtnFace
    XPStyleSet.CheckedColor = clHighlight
    XPStyleSet.IconWidth = 24
    XPStyleSet.DrawSelect = True
    XPStyleSet.UseSystemColors = True
    XPStyleSet.UseDimColor = False
    XPStyleSet.OverrideOwnerDraw = False
    XPStyleSet.Gradient = False
    XPStyleSet.FlatMenu = False
    XPStyleSet.AutoDetect = False
    XPStyleSet.BitBtnColor = clBtnFace
    XPStyleSet.ColorsChanged = True
    XPStyle = True
    WindowsPosition = poDesktopCenter
    Left = 56
    Top = 128
  end
end
