This repository has been archived on 2024-11-28. You can view files and clone it, but cannot push or open issues or pull requests.
LuisLeon_FactuGES/Modulos/Tienda web/Views/_uEditorTiendaWeb.dfm

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