188 lines
5.4 KiB
Plaintext
188 lines
5.4 KiB
Plaintext
inherited fEditorTiendaWeb: TfEditorTiendaWeb
|
|
Caption = 'Configurar el acceso a la tienda web'
|
|
ClientWidth = 471
|
|
OnShow = FormShow
|
|
ExplicitWidth = 477
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
inherited pnlBotones: TFlowPanel
|
|
Width = 471
|
|
ExplicitTop = 374
|
|
ExplicitWidth = 471
|
|
inherited Button1: TButton
|
|
Left = 375
|
|
ExplicitLeft = 375
|
|
end
|
|
inherited Button2: TButton
|
|
Left = 285
|
|
ExplicitLeft = 285
|
|
end
|
|
end
|
|
inherited FlowPanel1: TFlowPanel
|
|
Width = 471
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 471
|
|
inherited Label1: TLabel
|
|
Width = 255
|
|
Caption = 'Configurar el acceso a la tienda web'
|
|
ExplicitWidth = 255
|
|
end
|
|
inherited Label2: TLabel
|
|
Height = 15
|
|
Caption = 'Indique los par'#225'metros de conexi'#243'n a la tienda web'
|
|
ExplicitHeight = 15
|
|
end
|
|
end
|
|
object cbActivo: TcxDBCheckBox [2]
|
|
Left = 59
|
|
Top = 112
|
|
Caption = 'Habilitar la tienda web para esta empresa'
|
|
DataBinding.DataField = 'TIENDA_ACTIVA'
|
|
Properties.ImmediatePost = True
|
|
Properties.NullStyle = nssUnchecked
|
|
Properties.ValueChecked = 1
|
|
Properties.ValueUnchecked = 0
|
|
Properties.OnEditValueChanged = cbActivoPropertiesEditValueChanged
|
|
Style.LookAndFeel.Kind = lfStandard
|
|
Style.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.Kind = lfStandard
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 2
|
|
Width = 377
|
|
end
|
|
object GroupBox1: TGroupBox [3]
|
|
Left = 59
|
|
Top = 139
|
|
Width = 381
|
|
Height = 198
|
|
Caption = 'Configuraci'#243'n de la tienda'
|
|
TabOrder = 3
|
|
DesignSize = (
|
|
381
|
|
198)
|
|
object Label3: TLabel
|
|
Left = 54
|
|
Top = 36
|
|
Width = 44
|
|
Height = 13
|
|
Alignment = taRightJustify
|
|
Caption = 'Servidor:'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 26
|
|
Top = 62
|
|
Width = 72
|
|
Height = 13
|
|
Alignment = taRightJustify
|
|
Caption = 'Base de datos:'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 58
|
|
Top = 102
|
|
Width = 40
|
|
Height = 13
|
|
Alignment = taRightJustify
|
|
Caption = 'Usuario:'
|
|
end
|
|
object Label6: TLabel
|
|
Left = 38
|
|
Top = 129
|
|
Width = 60
|
|
Height = 13
|
|
Alignment = taRightJustify
|
|
Caption = 'Contrase'#241'a:'
|
|
end
|
|
object edtBDSERVER: TcxDBTextEdit
|
|
Left = 104
|
|
Top = 32
|
|
DataBinding.DataField = 'BDSERVER'
|
|
Style.LookAndFeel.Kind = lfStandard
|
|
Style.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.Kind = lfStandard
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 0
|
|
Width = 250
|
|
end
|
|
object edtBDUSER: TcxDBTextEdit
|
|
Left = 104
|
|
Top = 99
|
|
DataBinding.DataField = 'BDUSER'
|
|
Style.LookAndFeel.Kind = lfStandard
|
|
Style.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.Kind = lfStandard
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 2
|
|
Width = 250
|
|
end
|
|
object edtBDPASS: TcxDBTextEdit
|
|
Left = 104
|
|
Top = 126
|
|
DataBinding.DataField = 'BDPASS'
|
|
Properties.PasswordChar = '*'
|
|
Style.LookAndFeel.Kind = lfStandard
|
|
Style.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.Kind = lfStandard
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 3
|
|
Width = 250
|
|
end
|
|
object edtBDNAME: TcxDBTextEdit
|
|
Left = 104
|
|
Top = 59
|
|
DataBinding.DataField = 'BDNAME'
|
|
Style.LookAndFeel.Kind = lfStandard
|
|
Style.LookAndFeel.NativeStyle = True
|
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
StyleFocused.LookAndFeel.NativeStyle = True
|
|
StyleHot.LookAndFeel.Kind = lfStandard
|
|
StyleHot.LookAndFeel.NativeStyle = True
|
|
TabOrder = 1
|
|
Width = 250
|
|
end
|
|
object bComprobar: TButton
|
|
Left = 192
|
|
Top = 155
|
|
Width = 161
|
|
Height = 25
|
|
Action = actComprobarAcceso
|
|
Anchors = [akTop, akRight]
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
inherited ActionList1: TActionList
|
|
inherited actAceptar: TAction
|
|
OnExecute = actAceptarExecute
|
|
end
|
|
inherited actCancelar: TAction
|
|
OnExecute = actCancelarExecute
|
|
end
|
|
object actComprobarAcceso: TAction
|
|
Caption = 'C&omprobar acceso'
|
|
OnExecute = actComprobarAccesoExecute
|
|
OnUpdate = actComprobarAccesoUpdate
|
|
end
|
|
end
|
|
object dsTiendaWeb: TDADataSource
|
|
Left = 80
|
|
Top = 264
|
|
end
|
|
end
|