- poder indicar individualmente qué artículos están en la tienda o no - arreglado el problema con ñ y tildes al volcar información a MySQL. git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@247 c93665c3-c93d-084d-9b98-7d5f4a9c3376
238 lines
7.2 KiB
Plaintext
238 lines
7.2 KiB
Plaintext
object fEditorTiendaWeb: TfEditorTiendaWeb
|
|
Left = 195
|
|
Top = 108
|
|
BorderStyle = bsDialog
|
|
Caption = 'Tienda web'
|
|
ClientHeight = 356
|
|
ClientWidth = 367
|
|
Color = clBtnFace
|
|
ParentFont = True
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 367
|
|
Height = 322
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
BorderWidth = 5
|
|
ParentColor = True
|
|
TabOrder = 0
|
|
object PageControl1: TPageControl
|
|
Left = 5
|
|
Top = 5
|
|
Width = 357
|
|
Height = 312
|
|
ActivePage = TabSheet1
|
|
Align = alClient
|
|
TabOrder = 0
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'Tienda web'
|
|
DesignSize = (
|
|
349
|
|
284)
|
|
object cbActivo: TcxDBCheckBox
|
|
Left = 3
|
|
Top = 16
|
|
Caption = 'Habilitar la tienda web para esta empresa'
|
|
DataBinding.DataField = 'TIENDA_ACTIVA'
|
|
DataBinding.DataSource = dsTiendaWeb
|
|
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 = 0
|
|
Width = 377
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 8
|
|
Top = 43
|
|
Width = 333
|
|
Height = 198
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Caption = 'Probar conexi'#243'n con la tienda'
|
|
TabOrder = 1
|
|
Visible = False
|
|
DesignSize = (
|
|
333
|
|
198)
|
|
object Label1: TLabel
|
|
Left = 54
|
|
Top = 36
|
|
Width = 44
|
|
Height = 13
|
|
Alignment = taRightJustify
|
|
Caption = 'Servidor:'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 26
|
|
Top = 62
|
|
Width = 72
|
|
Height = 13
|
|
Alignment = taRightJustify
|
|
Caption = 'Base de datos:'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 58
|
|
Top = 102
|
|
Width = 40
|
|
Height = 13
|
|
Alignment = taRightJustify
|
|
Caption = 'Usuario:'
|
|
end
|
|
object Label5: 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'
|
|
DataBinding.DataSource = dsTiendaWeb
|
|
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 = 209
|
|
end
|
|
object edtBDUSER: TcxDBTextEdit
|
|
Left = 104
|
|
Top = 99
|
|
DataBinding.DataField = 'BDUSER'
|
|
DataBinding.DataSource = dsTiendaWeb
|
|
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 = 209
|
|
end
|
|
object edtBDPASS: TcxDBTextEdit
|
|
Left = 104
|
|
Top = 126
|
|
DataBinding.DataField = 'BDPASS'
|
|
DataBinding.DataSource = dsTiendaWeb
|
|
Properties.EchoMode = eemPassword
|
|
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 = 209
|
|
end
|
|
object edtBDNAME: TcxDBTextEdit
|
|
Left = 104
|
|
Top = 59
|
|
DataBinding.DataField = 'BDNAME'
|
|
DataBinding.DataSource = dsTiendaWeb
|
|
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 = 209
|
|
end
|
|
object bComprobar: TButton
|
|
Left = 104
|
|
Top = 155
|
|
Width = 161
|
|
Height = 25
|
|
Action = actComprobar
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Probar la conexi'#243'n'
|
|
TabOrder = 4
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 322
|
|
Width = 367
|
|
Height = 34
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
ParentColor = True
|
|
TabOrder = 1
|
|
DesignSize = (
|
|
367
|
|
34)
|
|
object OKBtn: TButton
|
|
Left = 207
|
|
Top = 2
|
|
Width = 75
|
|
Height = 25
|
|
Action = actAceptar
|
|
Anchors = [akTop, akRight]
|
|
TabOrder = 0
|
|
end
|
|
object CancelBtn: TButton
|
|
Left = 286
|
|
Top = 2
|
|
Width = 75
|
|
Height = 25
|
|
Action = actCancelar
|
|
Anchors = [akTop, akRight]
|
|
Cancel = True
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object ActionList1: TActionList
|
|
Left = 40
|
|
Top = 264
|
|
object actAceptar: TAction
|
|
Caption = '&Aceptar'
|
|
OnExecute = actAceptarExecute
|
|
end
|
|
object actCancelar: TAction
|
|
Caption = '&Cancelar'
|
|
OnExecute = actCancelarExecute
|
|
end
|
|
object actComprobar: TAction
|
|
Caption = 'Comprobar la conexi'#243'n'
|
|
OnExecute = actComprobarExecute
|
|
OnUpdate = actComprobarUpdate
|
|
end
|
|
end
|
|
object dsTiendaWeb: TDADataSource
|
|
Left = 80
|
|
Top = 264
|
|
end
|
|
end
|