david
2a98435b14
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@68 b6239004-a887-0f4b-9937-50029ccdca16
133 lines
3.0 KiB
Plaintext
133 lines
3.0 KiB
Plaintext
object ClientForm: TClientForm
|
|
Left = 55
|
|
Top = 235
|
|
Width = 800
|
|
Height = 560
|
|
Caption = 'Dynamic Where Sample'
|
|
Color = clBtnFace
|
|
Constraints.MaxWidth = 800
|
|
Constraints.MinWidth = 800
|
|
ParentFont = True
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 784
|
|
Height = 49
|
|
Align = alTop
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
784
|
|
49)
|
|
object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
|
|
Left = 0
|
|
Top = 0
|
|
Width = 212
|
|
Height = 48
|
|
Cursor = crHandPoint
|
|
end
|
|
object Label1: TLabel
|
|
Left = 218
|
|
Top = 3
|
|
Width = 131
|
|
Height = 13
|
|
Caption = '&Dynamic Where Conditions:'
|
|
FocusControl = cbConditions
|
|
end
|
|
object cbConditions: TComboBox
|
|
Left = 218
|
|
Top = 22
|
|
Width = 554
|
|
Height = 21
|
|
Style = csDropDownList
|
|
Anchors = [akLeft, akTop, akRight]
|
|
ItemHeight = 13
|
|
ItemIndex = 0
|
|
TabOrder = 0
|
|
Text = 'Position is Sales Manager'
|
|
OnChange = cbConditionsChange
|
|
Items.Strings = (
|
|
'Position is Sales Manager'
|
|
'Position is Sales Manager And City is Chicago'
|
|
'City is Chicago or Atlanta'
|
|
'FirstName doesn'#39't begin with A'
|
|
|
|
'(Position is Sales Representative Or Zip is NULL) And (City is K' +
|
|
'irkland or Seattle). Returns NO RECORDS!'
|
|
'No Conditions'
|
|
'Country_Name is France (wrong field name is provided)')
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 49
|
|
Width = 784
|
|
Height = 128
|
|
Align = alTop
|
|
TabOrder = 1
|
|
DesignSize = (
|
|
784
|
|
128)
|
|
object Label2: TLabel
|
|
Left = 8
|
|
Top = 6
|
|
Width = 25
|
|
Height = 13
|
|
Caption = 'XML:'
|
|
end
|
|
object edXML: TMemo
|
|
Left = 8
|
|
Top = 25
|
|
Width = 764
|
|
Height = 89
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object Panel4: TPanel
|
|
Left = 0
|
|
Top = 177
|
|
Width = 784
|
|
Height = 41
|
|
Align = alTop
|
|
TabOrder = 2
|
|
object btLoad: TButton
|
|
Left = 8
|
|
Top = 6
|
|
Width = 75
|
|
Height = 25
|
|
Caption = '&Load'
|
|
TabOrder = 0
|
|
OnClick = btLoadClick
|
|
end
|
|
object btValidate: TButton
|
|
Left = 89
|
|
Top = 6
|
|
Width = 75
|
|
Height = 25
|
|
Caption = '&Validate XML'
|
|
TabOrder = 1
|
|
OnClick = btValidateClick
|
|
end
|
|
end
|
|
object dgData: TDBGrid
|
|
Left = 0
|
|
Top = 218
|
|
Width = 784
|
|
Height = 306
|
|
Align = alClient
|
|
DataSource = ClientDataModule.ds_Workers
|
|
TabOrder = 3
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
end
|
|
end
|