david
2a98435b14
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@68 b6239004-a887-0f4b-9937-50029ccdca16
543 lines
14 KiB
Plaintext
543 lines
14 KiB
Plaintext
object ClientForm: TClientForm
|
|
Left = 85
|
|
Top = 158
|
|
Width = 746
|
|
Height = 642
|
|
Caption = 'Combined DA Sample'
|
|
Color = clBtnFace
|
|
Constraints.MaxWidth = 746
|
|
Constraints.MinWidth = 746
|
|
ParentFont = True
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 730
|
|
Height = 57
|
|
Align = alTop
|
|
TabOrder = 0
|
|
object DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton
|
|
Left = 0
|
|
Top = 0
|
|
Width = 212
|
|
Height = 48
|
|
Cursor = crHandPoint
|
|
end
|
|
object rgFailureBehavior: TRadioGroup
|
|
Left = 218
|
|
Top = 0
|
|
Width = 399
|
|
Height = 48
|
|
Caption = 'Failure behavior'
|
|
Columns = 4
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'Show Reconcile'
|
|
'Raise exception'
|
|
'Both'
|
|
'None')
|
|
TabOrder = 0
|
|
end
|
|
object rgReducedDelta: TRadioGroup
|
|
Left = 623
|
|
Top = 0
|
|
Width = 98
|
|
Height = 48
|
|
Caption = 'Reduced deltas'
|
|
Columns = 2
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'Yes'
|
|
'No')
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
object pcSamples: TPageControl
|
|
Left = 0
|
|
Top = 57
|
|
Width = 730
|
|
Height = 549
|
|
ActivePage = tsClientsOrders
|
|
Align = alClient
|
|
TabOrder = 1
|
|
OnChange = pcSamplesChange
|
|
object tsClientsOrders: TTabSheet
|
|
Caption = 'Clients and Orders [Business rules]'
|
|
object Label2: TLabel
|
|
Left = 0
|
|
Top = 105
|
|
Width = 722
|
|
Height = 13
|
|
Align = alTop
|
|
Caption = ' Clients:'
|
|
end
|
|
object Splitter1: TSplitter
|
|
Left = 0
|
|
Top = 289
|
|
Width = 722
|
|
Height = 5
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 722
|
|
Height = 105
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 414
|
|
Height = 13
|
|
Caption =
|
|
'This page shows using "Business Rules"and " Failure Behaviour" f' +
|
|
'eatures '
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Memo1: TMemo
|
|
Left = 0
|
|
Top = 19
|
|
Width = 414
|
|
Height = 54
|
|
TabStop = False
|
|
BorderStyle = bsNone
|
|
Color = clBtnFace
|
|
Lines.Strings = (
|
|
'There are three custom business rules on the table "Clients"'
|
|
'1. Deleting any client is not allowed.'
|
|
'2. Value of the Client.Discount field cannot be negative.'
|
|
'3. Value of the Client.Discount field cannot be greater than 50.')
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
end
|
|
object btLoadCustomersOrders: TButton
|
|
Left = 619
|
|
Top = 8
|
|
Width = 98
|
|
Height = 25
|
|
Caption = 'Load Data'
|
|
TabOrder = 1
|
|
OnClick = btLoadCustomersOrdersClick
|
|
end
|
|
object btDeleteCustomer: TButton
|
|
Left = 619
|
|
Top = 39
|
|
Width = 98
|
|
Height = 25
|
|
Caption = 'Delete Customer'
|
|
TabOrder = 2
|
|
OnClick = btDeleteCustomerClick
|
|
end
|
|
object btApplyChangesCustomers: TButton
|
|
Left = 619
|
|
Top = 70
|
|
Width = 98
|
|
Height = 25
|
|
Caption = 'Apply Changes'
|
|
TabOrder = 3
|
|
OnClick = btApplyChangesCustomersClick
|
|
end
|
|
end
|
|
object dgClients: TDBGrid
|
|
Left = 0
|
|
Top = 118
|
|
Width = 722
|
|
Height = 171
|
|
Align = alTop
|
|
DataSource = ClientDataModule.ds_BPClients
|
|
TabOrder = 1
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Name'
|
|
Width = 285
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Phone'
|
|
Width = 101
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Discount'
|
|
Width = 79
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Remarks'
|
|
Width = 238
|
|
Visible = True
|
|
end>
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 0
|
|
Top = 294
|
|
Width = 722
|
|
Height = 227
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
object Splitter2: TSplitter
|
|
Left = 313
|
|
Top = 0
|
|
Width = 5
|
|
Height = 227
|
|
end
|
|
object Panel4: TPanel
|
|
Left = 318
|
|
Top = 0
|
|
Width = 404
|
|
Height = 227
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label3: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 404
|
|
Height = 13
|
|
Align = alTop
|
|
Caption = ' Order details:'
|
|
end
|
|
object dgOrderDetails: TDBGrid
|
|
Left = 0
|
|
Top = 13
|
|
Width = 404
|
|
Height = 214
|
|
Align = alClient
|
|
DataSource = ClientDataModule.ds_OrderDetails
|
|
TabOrder = 0
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Product'
|
|
Width = 256
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Price'
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Total'
|
|
Visible = True
|
|
end>
|
|
end
|
|
end
|
|
object Panel5: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 313
|
|
Height = 227
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object Label4: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 313
|
|
Height = 13
|
|
Align = alTop
|
|
Caption = ' Orders:'
|
|
end
|
|
object dgOrders: TDBGrid
|
|
Left = 0
|
|
Top = 13
|
|
Width = 313
|
|
Height = 214
|
|
Align = alClient
|
|
DataSource = ClientDataModule.ds_Orders
|
|
TabOrder = 0
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'OrderDate'
|
|
Width = 126
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'OrderStatus'
|
|
Width = 97
|
|
Visible = True
|
|
end>
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object tsProducts: TTabSheet
|
|
Caption = 'Products [Dynamic Select and Where]'
|
|
ImageIndex = 1
|
|
object Label6: TLabel
|
|
Left = 0
|
|
Top = 73
|
|
Width = 722
|
|
Height = 13
|
|
Align = alTop
|
|
Caption = ' Groups:'
|
|
end
|
|
object Label7: TLabel
|
|
Left = 0
|
|
Top = 121
|
|
Width = 722
|
|
Height = 13
|
|
Align = alTop
|
|
Caption = ' Products:'
|
|
end
|
|
object Panel6: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 722
|
|
Height = 73
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label5: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 376
|
|
Height = 13
|
|
Caption = 'This page shows "Dynamic Select" and "Dynamic Where" features.'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Memo2: TMemo
|
|
Left = 0
|
|
Top = 19
|
|
Width = 414
|
|
Height = 54
|
|
TabStop = False
|
|
BorderStyle = bsNone
|
|
Color = clBtnFace
|
|
Lines.Strings = (
|
|
|
|
'Please notice that when we use "Dynamic Select" feature then "Se' +
|
|
'nd Reduced Delta" '
|
|
'option will be forced to ON')
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
end
|
|
object btLoadProducts: TButton
|
|
Left = 619
|
|
Top = 8
|
|
Width = 98
|
|
Height = 25
|
|
Caption = 'Load Data'
|
|
TabOrder = 1
|
|
OnClick = btLoadProductsClick
|
|
end
|
|
object btApplyChangesProducts: TButton
|
|
Left = 619
|
|
Top = 39
|
|
Width = 98
|
|
Height = 25
|
|
Caption = 'Apply Changes'
|
|
TabOrder = 2
|
|
OnClick = btApplyChangesProductsClick
|
|
end
|
|
end
|
|
object dgProducts: TDBGrid
|
|
Left = 0
|
|
Top = 134
|
|
Width = 722
|
|
Height = 387
|
|
Align = alClient
|
|
DataSource = ClientDataModule.ds_Products
|
|
TabOrder = 1
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'ProductCode'
|
|
Width = 144
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'ProductName'
|
|
Width = 452
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'ProductWarranty'
|
|
Width = 105
|
|
Visible = True
|
|
end>
|
|
end
|
|
object Panel8: TPanel
|
|
Left = 0
|
|
Top = 86
|
|
Width = 722
|
|
Height = 35
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel8'
|
|
TabOrder = 2
|
|
DesignSize = (
|
|
722
|
|
35)
|
|
object cbGroups: TDBLookupComboBox
|
|
Left = 0
|
|
Top = 4
|
|
Width = 722
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
DataField = 'GroupId'
|
|
DataSource = ClientDataModule.ds_SelectedGroup
|
|
KeyField = 'GroupId'
|
|
ListField = 'GroupName'
|
|
ListFieldIndex = 1
|
|
ListSource = ClientDataModule.ds_Groups
|
|
TabOrder = 0
|
|
OnCloseUp = cbGroupsCloseUp
|
|
end
|
|
end
|
|
end
|
|
object tsAddress: TTabSheet
|
|
Caption = 'Address book [Union Tables]'
|
|
ImageIndex = 2
|
|
object Panel7: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 722
|
|
Height = 73
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label8: TLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 230
|
|
Height = 13
|
|
Caption = 'This page shows "Union Table" feature. '
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Memo3: TMemo
|
|
Left = 0
|
|
Top = 19
|
|
Width = 414
|
|
Height = 54
|
|
TabStop = False
|
|
BorderStyle = bsNone
|
|
Color = clBtnFace
|
|
Lines.Strings = (
|
|
'Notice that records with category'
|
|
'0 - from "Clients" table'
|
|
'1 - from "Suppliers" table')
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
end
|
|
object btLoadAddresses: TButton
|
|
Left = 619
|
|
Top = 8
|
|
Width = 98
|
|
Height = 25
|
|
Caption = 'Load Data'
|
|
TabOrder = 1
|
|
OnClick = btLoadAddressesClick
|
|
end
|
|
object btApplyChangesAddresses: TButton
|
|
Left = 619
|
|
Top = 39
|
|
Width = 98
|
|
Height = 25
|
|
Caption = 'Apply Changes'
|
|
TabOrder = 2
|
|
OnClick = btApplyChangesAddressesClick
|
|
end
|
|
end
|
|
object dgAddresses: TDBGrid
|
|
Left = 0
|
|
Top = 73
|
|
Width = 722
|
|
Height = 448
|
|
Align = alClient
|
|
DataSource = ClientDataModule.ds_UnionAddresses
|
|
TabOrder = 1
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
Columns = <
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Id'
|
|
Width = 148
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'Name'
|
|
Width = 223
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'ContactPhone'
|
|
Width = 96
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = 'ContactAddress'
|
|
Width = 169
|
|
Visible = True
|
|
end
|
|
item
|
|
Expanded = False
|
|
FieldName = '@SourceTable'
|
|
Title.Caption = 'Category'
|
|
Visible = True
|
|
end>
|
|
end
|
|
end
|
|
end
|
|
end
|