unit1.dfm

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

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 = '[e-mail]'
    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'