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/Source/Modulos/Tienda web/Views/uEditorTiendaWeb.dfm
david 344ba18b08 Tienda web:
- 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
2008-06-16 16:43:21 +00:00

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