uadodemo.dfm

delphi 控件有需要的可以下载看看,可以用的,希望对你用 帮助

      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 N8: TMenuItem
        Caption = '-'
      end
      object LogdoSistema1: 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 ActionList1: TActionList
    Left = 32
    object Action1: TAction
      Category = 'Grupo1'
      Caption = 'Action1'
      OnExecute = Action1Execute
    end
    object Action2: TAction
      Category = 'Grupo1'
      Caption = 'Action2'
      OnExecute = Action1Execute
    end
    object Action3: TAction
      Category = 'Grupo1'
      Caption = 'Action3'
      OnExecute = Action1Execute
    end
    object Action4: TAction
      Category = 'Grupo2'
      Caption = 'Action4'
      OnExecute = Action1Execute
    end
    object Action5: TAction
      Category = 'Grupo2'
      Caption = 'Action5'
      OnExecute = Action1Execute
    end
    object Action6: TAction
      Category = 'Grupo2'
      Caption = 'Action6'
      OnExecute = Action1Execute
    end
    object Action7: TAction
      Category = 'Grupo3'
      Caption = 'Action7'
      OnExecute = Action1Execute
    end
    object Action8: TAction
      Category = 'Grupo3'
      Caption = 'Action8'
      OnExecute = Action1Execute
    end
    object Action9: TAction
      Category = 'Grupo3'
      Caption = 'Action9'
      OnExecute = Action1Execute
    end
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\base.mdb;Persist' +
      ' Security Info=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 64
  end
  object MailUserControl1: TMailUserControl
    ServidorSMTP = 'smtp.mail.yahoo.com.br'
    Usuario = 'usercontrol2'
    Senha = 'uc2demo'
    NomeRemetente = 'DEMO - UserControl Package v2.0 beta4'
    EmailRemetente = '[e-mail]'
    AdicionaUsuario.Ativo = True
    AdicionaUsuario.Titulo = 'Seu login foi inclu'#237'do no sistema'
    AdicionaUsuario.Mensagem.Strings = (
      'Foi criado seu login de acesso no sistema.'
      ''
      'Dados do Login:'
      ''
      'NOME : :nome'
      'LOGIN : :login'
      'SENHA : :senha'
      'EMAIL :  :email'
      'PERFIL : :perfil'
      ''
      '-----------------------------------------------'
      'UserControl Package v2.18a'
      'QmD')
    AlteraUsuario.Ativo = True
    AlteraUsuario.Titulo = 'Aviso de altera'#231#227'o de login'
    AlteraUsuario.Mensagem.Strings = (
      'Seu login foi alterado. '
      ''
      'Dados do Login:'
      ''
      'NOME : :nome'
      'LOGIN : :login'
      'SENHA : :senha'
      'EMAIL :  :email'
      'PERFIL : :perfil'
      ''
      '-----------------------------------------------'
      'UserControl Package v2.18a'
      'QmD')
    EsqueceuSenha.Ativo = True
    EsqueceuSenha.Titulo = 'Solicita'#231#227'o de envio da senha'
    EsqueceuSenha.Mensagem.Strings = (
      'Ol'#225' :nome,'
      'foi solicitado o envio de sua senha por email.'
      ''
      'Anote os dados necess'#225'rios para efetuar login:'
      ''
      'LOGIN : :login'
      'SENHA : :senha'
      ''
      '-----------------------------------------------'
      'UserControl Package v2.18a'
      'QmD')
    EsqueceuSenha.LabelLoginForm = 'Esqueci a senha'
    EsqueceuSenha.MensagemEmailEnviado = 'A senha foi enviada para o seu email.'
    SenhaForcada.Ativo = True
    SenhaForcada.Titulo = 'Senha alterada pelo  Administrador'
    SenhaForcada.Mensagem.Strings = (
      ':nome'
      ''
      'Sua senha do sistema foi alterada pelo administrador.'
      ''
      'Anote sua nova senha de acesso: :senha'
      ''
      '-----------------------------------------------'
      'UserControl Package v2.18a'
      'QmD')
    SenhaTrocada.Ativo = True
    SenhaTrocada.Titulo = 'Confirma'#231#227'o de altera'#231#227'o da senha'
    SenhaTrocada.Mensagem.Strings = (
      'Ol'#225' :nome'
      ''
      'Voc'#234' alterou a senha do sistema para : :senha'
      ''
      '-----------------------------------------------'
      'UserControl Package v2.18a'
      'QmD')
    Left = 160
  end
  object UCSettings1: TUCSettings
    AppMessages.MsgsForm_BtNew = '&Nova Mensagem'
    AppMessages.MsgsForm_BtReplay = '&Responder'
    AppMessages.MsgsForm_BtForward = 'E&ncaminhar'
    AppMessages.MsgsForm_BtDelete = '&Excluir'
    AppMessages.MsgsForm_BtClose = '&Close'
    AppMessages.MsgsForm_WindowCaption = 'Mensagens do Sistema'
    AppMessages.MsgsForm_ColFrom = 'Remetente'
    AppMessages.MsgsForm_ColSubject = 'Assunto'
    AppMessages.MsgsForm_ColDate = 'Data'
    AppMessages.MsgsForm_PromptDelete = 'Confirma excluir as mensagens selecionadas ?'
    AppMessages.MsgsForm_PromptDelete_WindowCaption = 'Delete messages'
    AppMessages.MsgsForm_NoMessagesSelected = '!No Messages selected'#161
    AppMessages.MsgsForm_NoMessagesSelected_WindowCaption = 'Information'
    AppMessages.MsgRec_BtClose = '&Fechar'
    AppMessages.MsgRec_WindowCaption = 'Mensagem'
    AppMessages.MsgRec_Title = 'Mensagem Recebida'
    AppMessages.MsgRec_LabelFrom = 'De :'
    AppMessages.MsgRec_LabelDate = 'Date'
    AppMessages.MsgRec_LabelSubject = 'Assunto'
    AppMessages.MsgRec_LabelMessage = 'Mensagem'
    AppMessages.MsgSend_BtSend = '&Enviar'
    AppMessages.MsgSend_BtCancel = '&Cancelar'
    AppMessages.MsgSend_WindowCaption = 'Mensagem'
    AppMessages.MsgSend_Title = 'Enviar Nova Mensagem'
    AppMessages.MsgSend_GroupTo = 'Para'
    AppMessages.MsgSend_RadioUser = 'Usu'#225'rio :'
    AppMessages.MsgSend_RadioAll = 'Todos'
    AppMessages.MsgSend_GroupMessage = 'Mensagem'
    AppMessages.MsgSend_LabelSubject = 'Subject'
    AppMessages.MsgSend_LabelMessageText = 'Message text'
    CommonMessages.AutoLogonError = 'Falha de Auto Logon!'#13#10'Informe um usu'#225'rio e senha v'#225'lidos.'
    CommonMessages.ChangePasswordError.InvalidCurrentPassword = 'Senha Atual n'#227'o confere!'
    CommonMessages.ChangePasswordError.NewPasswordError = 'Os campos: Nova Senha e Confirma'#231#227'o devem ser iguais.'
    CommonMessages.ChangePasswordError.NewEqualCurrent = 'Nova senha igual a senha atual'
    CommonMessages.ChangePasswordError.PasswordRequired = 'A Senha '#233' obrigat'#243'ria'
    CommonMessages.ChangePasswordError.MinPasswordLength = 'A senha deve conter no m'#237'nimo %d caracteres'
    CommonMessages.ChangePasswordError.InvalidNewPassword = 'Proibido utilizar senhas obvias!'
    CommonMessages.InvalidLogin = 'Usu'#225'rio ou Senha n'#227'o inv'#225'lidos!'
    CommonMessages.InitialMessage.Strings = (
      'ATEN'#199#195'O Login Inicial:'
      ''
      'Usu'#225'rio : Admin'
      'Senha : #delphi'
      ''
      'Defina as permiss'#245'es para este usu'#225'rio.')
    CommonMessages.MaxLoginAttemptsError = 
      '%d Tentativas de login inv'#225'ido. Por motivos de segun'#231'a o '#13#10'siste' +
      'ma ser'#225' fechado.'
    CommonMessages.PasswordChanged = 'Senha alterada com sucesso!'
    CommonMessages.BlankPassword = 'Retirada senha do Login %s'
    Login.WindowCaption = 'Login'
    Login.LabelUser = 'Usu'#225'rio '
    Login.LabelPassword = 'Senha : '
    Login.BtOk = 'OK'
    Login.BtCancel = '&Cancelar'
    Login.TopImage.Data = {
      07544269746D6170B6790000424DB67900000000000036040000280000007601
      0000500000000100080000000000807500000000000000000000000100000000
      00009BB5D8007493BA00ACC2E000BBBBBB00CBD9EB007D9BC20051719900F6F8
      FB00F2F5FA0095B0D500FCFDFE00EDF2F800A7B6BC0055759D00F8FAFC00B1C5
      E1005979A10089A8D200CDD5D9003E5E88004D7199003D5D8700FAFBFD008888
      8800E5ECF500DDE6F200DDDDDD00E2EAF400A5BDDD00405F880042628C0089A6
      CC008297A0005D7DA500C5D4E900A1B9DA006685AD004569920045679000B4C8
      E300EEEEEE00BDCEE60099B3D600A9C0DE008BA8CD009EA5B0006181A9006E8D
      B400D0DCED006989B10099999900809DC40085A2C80044638C00C1D1E8004462
      8C008EAACF0091ACD100486890005579A100E7EEF6003E5F890040608A005D82
      AB00C0CBCF008CAAD400D5E0EF00496C950042618A004A6A93008FACD500D8E3
      F0004C6C9400D2DEEE007795BD0046668E004E6E960050709700B8CBE400BBCD
      E500CCCCCC00C8D7EA00648BB2006D93BA0044648E00A2BADB004A6B94009BAC
      B300708EB5004E6F980085A5CF00DAE4F10058789E0043638D0050759D00506E
      9600D6E1EF00F4F7FB00A7BEDE00829FC600FDFEFE0041608B0054749A007A98
      BF0093AFD600BECFE60044628A00666666004060880086A6D0004C6B92004867
      8E00EAEFF700AAAAAA0049688E006C8AB1004D6E940053729A00476690006584
      AB007290B8005C7CA300333333005F7EA60046648E005A7DA50056779E00E6EA