unit1.dfm

UserControl2.18a FOR D7,D2005

object Form1: TForm1
  Left = 170
  Top = 180
  Width = 610
  Height = 350
  Caption = 'User Control - BDE 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 UserControl1: TUserControl
    AutoStart = True
    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.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 = 'UCLog'
    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.TableName = 'UCTabUsers'
    TableRights.FieldUserID = 'UCIdUser'
    TableRights.FieldModule = 'UCModule'
    TableRights.FieldComponentName = 'UCCompName'
    TableRights.FieldFormName = 'UCFormName'
    TableRights.TableName = 'UCTabRights'
    ChangePasswordForm.MenuItem = rocarsenha1
    ChangePasswordForm.ForcePassword = False
    ChangePasswordForm.MinPasswordLength = 0
    DataConnector = UCBDEConn1
    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 = 'Abrir'
      end
      object Salvar1: TMenuItem
        Caption = '-'
      end
      object Salvar2: TMenuItem
        Caption = 'Salvar'
      end
      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'
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object rocarsenha1: TMenuItem
        Caption = 'Trocar senha'
      end
      object EfetuarLogoff1: TMenuItem
        Caption = 'Efetuar Logoff'
        OnClick = EfetuarLogoff1Click
      end