unit1.dfm

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

      'Passos executados:'
      ''
      'UserControl1.LoginMode = lmPassive'
      ''
      'incluidos os botoes protegidos no UCControls1'
      ''
      'incluidos os nomes dos botoes "protegidos" na propriedade'
      'UserControl1.Login.InitialLogin.InitialRights'
      ''
      ''
      
        'UserControl1.StartLogin incluido no evento onClick do botao logi' +
        'n'
      'para iniciar a sess'#227'o')
    TabOrder = 4
  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 = 136
    Top = 8
  end
  object UCADOConn1: TUCADOConn
    Connection = ADOConnection1
    Left = 168
    Top = 8
  end
  object UserControl1: TUserControl
    AutoStart = True
    ApplicationID = 'Passive'
    UsersForm.UsePrivilegedField = False
    UsersForm.ProtectAdmin = True
    EncryptKey = 0
    NotAllowedItems.MenuVisible = True
    NotAllowedItems.ActionVisible = True
    Login.AutoLogon.Active = False
    Login.AutoLogon.MessageOnError = True
    Login.InitialLogin.User = 'Admin'
    Login.InitialLogin.Email = '[e-mail]'
    Login.InitialLogin.Password = '#delphi'
    Login.InitialLogin.InitialRights.Strings = (
      'btProtOper'
      'btUsuarios'
      'btPerfil'
      'btSenha')
    Login.MaxLoginAttempts = 0
    Login.GetLoginName = lnNone
    LogControl.Active = False
    LogControl.TableLog = 'UCLog'
    ExtraRight = <
      item
        FormName = 'Form1'
        CompName = 'btProtOper'
        Caption = 'Opera'#231#227'o Protegida'
      end
      item
        FormName = 'Form1'
        CompName = 'btUsuarios'
        Caption = 'Cadastro de Usu'#225'rios'
      end
      item
        FormName = 'Form1'
        CompName = 'btPerfil'
        Caption = 'Cadastro de Perfil'
      end
      item
        FormName = 'Form1'
        CompName = 'btSenha'
        Caption = 'Trocar Senha'
      end>
    LoginMode = lmPassive
    UsersProfile.Active = True
    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 = 'UCTabUsers'
    TableRights.FieldUserID = 'UCIdUser'
    TableRights.FieldModule = 'UCModule'
    TableRights.FieldComponentName = 'UCCompName'
    TableRights.FieldFormName = 'UCFormName'
    TableRights.FieldKey = 'UCKey'
    TableRights.TableName = 'UCTabRights'
    ChangePasswordForm.ForcePassword = False
    ChangePasswordForm.MinPasswordLength = 0
    OnLoginSucess = UserControl1LoginSucess
    OnLogoff = UserControl1Logoff
    DataConnector = UCADOConn1
    CheckValidationKey = False
    Left = 200
    Top = 8
  end
  object UCControls1: TUCControls
    UserControl = UserControl1
    NotAllowed = naDisabled
    Left = 232
    Top = 8
  end
  object UCIdle1: TUCIdle
    UserControl = UserControl1
    Timeout = 30000
    Left = 320
    Top = 8
  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 = True
    Left = 352
    Top = 8
  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 inv'#225'lidos!'
    CommonMessages.InitialMessage.Strings = (
      'ATEN'#199#195'O Login Inicial:'
      ''
      'Usu'#225'rio : :user'
      'Senha : :password'
      ''
      'Defina as permiss'#245'es para este usu'#225'rio.')
    CommonMessages.MaxLoginAttemptsError = 
      '%d Tentativas de login inv'#225'lido. Por motivos de segun'#231'a o '#13#10'sist' +
      'ema 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
      EC0046648C0044444400777777004869920044678E0080A0C900E0E8F3006D8C
      B3005576A000AAAEB50090ADD5006080A7009EB7DA006486AF00486A93006185