unit1.dfm

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

object Form1: TForm1
  Left = 170
  Top = 180
  Width = 610
  Height = 350
  Caption = 'TESTES - User Control - ADO Basic Demo'
  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 Edit1: TEdit
    Left = 16
    Top = 264
    Width = 121
    Height = 21
    TabOrder = 0
    Text = 'teste de log'
  end
  object Button1: TButton
    Left = 144
    Top = 264
    Width = 75
    Height = 25
    Caption = 'log'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 296
    Top = 56
    Width = 75
    Height = 25
    Caption = 'bt1'
    TabOrder = 2
    OnClick = Action1Execute
  end
  object Button3: TButton
    Left = 296
    Top = 88
    Width = 75
    Height = 25
    Caption = 'bt2'
    TabOrder = 3
    OnClick = Action1Execute
  end
  object Button4: TButton
    Left = 296
    Top = 120
    Width = 75
    Height = 25
    Caption = 'bt3'
    TabOrder = 4
    OnClick = Action1Execute
  end
  object Button5: TButton
    Left = 384
    Top = 56
    Width = 75
    Height = 25
    Caption = 'usuarios'
    TabOrder = 5
  end
  object Button6: TButton
    Left = 384
    Top = 88
    Width = 75
    Height = 25
    Caption = 'perfil'
    TabOrder = 6
  end
  object Button7: TButton
    Left = 384
    Top = 120
    Width = 75
    Height = 25
    Caption = 'log do sistema'
    TabOrder = 7
  end
  object Button8: TButton
    Left = 384
    Top = 152
    Width = 75
    Height = 25
    Caption = 'troca senha'
    TabOrder = 8
  end
  object Button9: TButton
    Left = 384
    Top = 184
    Width = 75
    Height = 25
    Caption = 'logout'
    TabOrder = 9
    OnClick = Action8Execute
  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 = 56
    Top = 88
  end
  object UCADOConn1: TUCADOConn
    Connection = ADOConnection1
    Left = 88
    Top = 88
  end
  object UserControl1: TUserControl
    AutoStart = False
    ApplicationID = 'ADOBasic'
    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.User = 'admin'
    Login.AutoLogon.Password = '#delphi'
    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 = 'TesteUCLog'
    LogControl.MenuItem = logdosistema
    ExtraRight = <
      item
        FormName = 'Form1'
        CompName = 'Button1'
        Caption = 'log'
        GroupName = 'Bot'#245'es Form Inicial'
      end
      item
        FormName = 'Form1'
        CompName = 'Button2'
        Caption = 'bt1'
        GroupName = 'Bot'#245'es Form Inicial'
      end
      item
        FormName = 'Form1'
        CompName = 'Button3'
        Caption = 'bt2'
        GroupName = 'Bot'#245'es Form Inicial'
      end
      item
        FormName = 'Form1'
        CompName = 'Button4'
        Caption = 'bt3'
        GroupName = 'Bot'#245'es Form Inicial'
      end
      item
        FormName = 'Form1'
        CompName = 'Button5'
        Caption = 'usuarios'
        GroupName = 'Bot'#245'es Form Inicial'
      end
      item
        FormName = 'Form1'
        CompName = 'Button6'
        Caption = 'perfil'
        GroupName = 'Bot'#245'es Form Inicial'
      end
      item
        FormName = 'Form1'
        CompName = 'Button7'
        Caption = 'log do sistema'
        GroupName = 'Bot'#245'es Form Inicial'
      end
      item
        FormName = 'Form1'
        CompName = 'Button8'
        Caption = 'troca senha'
        GroupName = 'Bot'#245'es Form Inicial'
      end
      item
        FormName = 'Form1'
        CompName = 'Button9'
        Caption = 'logout'
        GroupName = 'Bot'#245'es Form Inicial'
      end>
    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 = 'UCKey2'
    TableUsers.TableName = 'testeobjTabUsers'
    TableRights.FieldUserID = 'UCIdUser'
    TableRights.FieldModule = 'UCModule'
    TableRights.FieldComponentName = 'UCCompName'
    TableRights.FieldFormName = 'UCFormName'
    TableRights.FieldKey = 'UCKey'
    TableRights.TableName = 'testeobjTabRights'
    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 = 'Arquivo'
      object Abrir1: TMenuItem
        Caption = 'bt3'
        OnClick = Action1Execute
      end
      object Salvar1: TMenuItem
        Caption = '-'
      end
      object Salvar2: TMenuItem