home *** CD-ROM | disk | FTP | other *** search
- object NewProfile: TNewProfile
- Left = 349
- Top = 229
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = 'Novo Perfil'
- ClientHeight = 228
- ClientWidth = 284
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- KeyPreview = True
- Position = poScreenCenter
- OnActivate = FormActivate
- OnKeyDown = FormKeyDown
- PixelsPerInch = 96
- TextHeight = 14
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 284
- Height = 228
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 2
- TabOrder = 0
- object Panel3: TPanel
- Left = 2
- Top = 2
- Width = 280
- Height = 224
- Align = alClient
- TabOrder = 0
- object lblPROF_DESCRIPTION: TLabel
- Left = 8
- Top = 8
- Width = 98
- Height = 14
- Caption = 'PROF_DESCRIPTION'
- FocusControl = DBEdit5
- end
- object lblINTERVAL_CHANGE_PWD: TLabel
- Left = 8
- Top = 82
- Width = 128
- Height = 14
- Caption = 'INTERVAL_CHANGE_PWD'
- FocusControl = DBEdit6
- end
- object OKBtn: TButton
- Left = 122
- Top = 191
- Width = 71
- Height = 25
- Caption = 'OK'
- TabOrder = 5
- OnClick = OKBtnClick
- end
- object CancelBtn: TButton
- Left = 198
- Top = 191
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancelar'
- ModalResult = 2
- TabOrder = 6
- end
- object DBEdit5: TDBEdit
- Left = 8
- Top = 24
- Width = 185
- Height = 22
- DataField = 'PROF_DESCRIPTION'
- DataSource = Users.dsProfiles
- TabOrder = 0
- end
- object DBEdit6: TDBEdit
- Left = 8
- Top = 98
- Width = 129
- Height = 22
- DataField = 'INTERVAL_CHANGE_PWD'
- DataSource = Users.dsProfiles
- TabOrder = 2
- end
- object cbxMUST_CHANGE_PWD: TDBCheckBox
- Left = 8
- Top = 58
- Width = 145
- Height = 17
- Caption = 'MUST_CHANGE_PWD'
- DataField = 'MUST_CHANGE_PWD'
- DataSource = Users.dsProfiles
- TabOrder = 1
- ValueChecked = '1'
- ValueUnchecked = '0'
- OnClick = cbxMUST_CHANGE_PWDClick
- end
- object rgpHIDE_DISABLE_MENU: TDBRadioGroup
- Left = 7
- Top = 132
- Width = 265
- Height = 50
- Caption = 'HIDE_DISABLE_MENU'
- Columns = 2
- DataField = 'HIDE_DISABLE_MENU'
- DataSource = Users.dsProfiles
- Items.Strings = (
- '&Hide Menu Items'
- '&Disible Menu Items')
- TabOrder = 4
- Values.Strings = (
- '1'
- '2')
- end
- object cbxAUDIT_MODE: TDBCheckBox
- Left = 147
- Top = 103
- Width = 117
- Height = 17
- Caption = 'AUDIT_MODE'
- DataField = 'AUDIT_MODE'
- DataSource = Users.dsUsers
- TabOrder = 3
- ValueChecked = '1'
- ValueUnchecked = '0'
- end
- end
- end
- end
-