uadodemo.dfm

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

      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'
        OnClick = Action1Execute
      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 = 40
    Top = 8
    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 = 72
    Top = 8
  end
  object ApplicationEvents1: TApplicationEvents
    OnException = ApplicationEvents1Exception
    Left = 32
    Top = 392
  end
  object UCADOConn1: TUCADOConn
    Connection = ADOConnection1
    Left = 104
    Top = 8
  end
  object UserControl1: TUserControl
    AutoStart = True
    ApplicationID = 'customlogin'
    ControlRight.ActionList = ActionList1
    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 = True
    Login.InitialLogin.User = 'Admin'
    Login.InitialLogin.Email = '[e-mail]'
    Login.InitialLogin.Password = '#delphi'
    Login.MaxLoginAttempts = 0
    Login.GetLoginName = lnNone
    LogControl.Active = True
    LogControl.TableLog = 'UCCLLog'
    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 = 'UCCLTabUsers'
    TableRights.FieldUserID = 'UCIdUser'
    TableRights.FieldModule = 'UCModule'
    TableRights.FieldComponentName = 'UCCompName'
    TableRights.FieldFormName = 'UCFormName'
    TableRights.FieldKey = 'UCKey'
    TableRights.TableName = 'UCCLTabRights'
    ChangePasswordForm.MenuItem = rocarsenha1
    ChangePasswordForm.ForcePassword = False
    ChangePasswordForm.MinPasswordLength = 0
    OnLoginSucess = ADOUserControl1LoginSucess
    OnLoginError = ADOUserControl1LoginError
    OnCustomLoginForm = ADOUserControl1CustomLoginForm
    DataConnector = UCADOConn1
    CheckValidationKey = False
    Left = 136
    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 = False
    Left = 168
    Top = 8
  end
end