david
2a98435b14
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@68 b6239004-a887-0f4b-9937-50029ccdca16
170 lines
3.5 KiB
Plaintext
170 lines
3.5 KiB
Plaintext
object ClientForm: TClientForm
|
|
Left = 232
|
|
Top = 277
|
|
Width = 574
|
|
Height = 387
|
|
Caption = 'Union Tables Sample'
|
|
Color = clBtnFace
|
|
ParentFont = True
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 558
|
|
Height = 57
|
|
Align = alTop
|
|
Constraints.MinWidth = 558
|
|
TabOrder = 0
|
|
object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
|
|
Left = 0
|
|
Top = 0
|
|
Width = 212
|
|
Height = 48
|
|
Cursor = crHandPoint
|
|
end
|
|
object Label1: TLabel
|
|
Left = 218
|
|
Top = 8
|
|
Width = 103
|
|
Height = 13
|
|
Caption = 'Default table for insert'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 377
|
|
Top = 8
|
|
Width = 166
|
|
Height = 13
|
|
Caption = 'Dynamic Where filter on Name field'
|
|
end
|
|
object cbInsertTo: TComboBox
|
|
Left = 218
|
|
Top = 27
|
|
Width = 145
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
ItemIndex = 0
|
|
TabOrder = 0
|
|
Text = 'Providers'
|
|
Items.Strings = (
|
|
'Providers'
|
|
'Clients')
|
|
end
|
|
object edFilter: TEdit
|
|
Left = 377
|
|
Top = 27
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 1
|
|
end
|
|
object chFilterOn: TCheckBox
|
|
Left = 504
|
|
Top = 27
|
|
Width = 33
|
|
Height = 17
|
|
Caption = 'On'
|
|
TabOrder = 2
|
|
OnClick = chFilterOnClick
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 57
|
|
Width = 558
|
|
Height = 41
|
|
Align = alTop
|
|
TabOrder = 1
|
|
object btLoad: TButton
|
|
Left = 8
|
|
Top = 6
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Load'
|
|
TabOrder = 0
|
|
OnClick = btLoadClick
|
|
end
|
|
object btInsert: TButton
|
|
Left = 89
|
|
Top = 6
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Insert'
|
|
TabOrder = 1
|
|
OnClick = btInsertClick
|
|
end
|
|
object btUpdate: TButton
|
|
Left = 170
|
|
Top = 6
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Update'
|
|
TabOrder = 2
|
|
OnClick = btUpdateClick
|
|
end
|
|
object btDelete: TButton
|
|
Left = 251
|
|
Top = 6
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Delete'
|
|
TabOrder = 3
|
|
OnClick = btDeleteClick
|
|
end
|
|
end
|
|
object dgData: TDBGrid
|
|
Left = 0
|
|
Top = 98
|
|
Width = 558
|
|
Height = 253
|
|
Align = alClient
|
|
DataSource = ClientDataModule.ds_UnionAddresses
|
|
TabOrder = 2
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Id'
|
|
Width = 55
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Name'
|
|
Width = 81
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'ContactPhone'
|
|
Width = 115
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'ContactAddress'
|
|
Width = 96
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = '@SourceTable'
|
|
Width = 94
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'SourceTableName'
|
|
Width = 95
|
|
Visible = True
|
|
end>
|
|
end
|
|
end
|