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