object MasterDetailPanelForm: TMasterDetailPanelForm
  Left = 159
  Top = 119
  Caption = 'InfoPower 4000 - Master/Detail View Using Drop-Down Panel'
  ClientHeight = 444
  ClientWidth = 562
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 72
    Top = 40
    Width = 25
    Height = 25
  end
  object CustomerGrid: TwwDBGrid
    Left = 0
    Top = 0
    Width = 562
    Height = 444
    LineStyle = gls3D
    ControlType.Strings = (
      'Orders;CustomEdit;wwExpandButton1;F'
      'Company;URL-Link;Company'
      'State;CustomEdit;wwDBEdit2;F')
    Selected.Strings = (
      'Orders'#9'3'#9' '#9'F'
      'CustNo'#9'22'#9'Cust No'#9'F'
      'Country'#9'19'#9'Country'#9'F'
      'LastInvoiceDate'#9'17'#9'Last Invoice Date'#9'F'
      'Company'#9'19'#9'Company'#9'F')
    IniAttributes.FileName = 'm:\ip2001\temp.ini'
    IniAttributes.Delimiter = ';;'
    IniAttributes.UnicodeIniFile = False
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    Color = clInfoBk
    DataSource = DataSource1
    TabOrder = 0
    TitleAlignment = taLeftJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
    OnCalcTitleImage = CustomerGridCalcTitleImage
    TitleImageList = ImageList1
    PaintOptions.AlternatingRowColor = clTeal
    PaintOptions.BackgroundOptions = [coBlendFixedRow, coBlendFixedColumn]
    ExplicitWidth = 733
  end
  object wwExpandButton1: TwwExpandButton
    Left = 61
    Top = 24
    Width = 22
    Height = 16
    DisableThemes = False
    Grid = InvoicePanel
    AutoShrink = False
    OnAfterExpand = wwExpandButton1AfterExpand
    GridIndents.X = 11
    Caption = 'False'
    TabOrder = 1
    ButtonAlignment = taCenter
  end
  object wwExpandButton2: TwwExpandButton
    Left = 224
    Top = 24
    Width = 22
    Height = 16
    DisableThemes = False
    Grid = ItemsGrid
    GridIndents.X = 17
    Caption = 'False'
    TabOrder = 3
    ButtonAlignment = taCenter
  end
  object InvoicePanel: TPanel
    Left = 88
    Top = 24
    Width = 449
    Height = 233
    BorderStyle = bsSingle
    TabOrder = 4
    Visible = False
    object InvoiceGrid: TwwDBGrid
      Left = 1
      Top = 26
      Width = 443
      Height = 202
      ControlType.Strings = (
        'Items;CustomEdit;wwExpandButton2;F'
        'ShipDate;CustomEdit;wwDBDateTimePicker1;F')
      Selected.Strings = (
        'Items'#9'3'#9'Items'#9'F'
        'OrderNo'#9'4'#9'Order~No'#9'F'
        'SaleDate'#9'10'#9'Sale'#9'F'#9'Date'
        'ShipDate'#9'9'#9'Ship'#9'F'#9'Date'
        'ShipToContact'#9'15'#9'Ship To Contact'#9'F'
        'CustNo'#9'10'#9'Cust No.'#9'F'
        'ItemsTotal'#9'11'#9'Items~Total'#9'F')
      IniAttributes.FileName = 'delphi32.ini.ini'
      IniAttributes.Delimiter = ';;'
      IniAttributes.UnicodeIniFile = False
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      Align = alClient
      Color = clWhite
      Ctl3D = False
      DataSource = DataSource2
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgShowFooter, dgFooter3DCells, dgProportionalColResize]
      ParentCtl3D = False
      TabOrder = 0
      TitleAlignment = taCenter
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      TitleLines = 2
      TitleButtons = False
      UseTFields = False
      OnKeyDown = InvoiceGridKeyDown
      OnUpdateFooter = InvoiceGridUpdateFooter
      TitleImageList = ImageList1
      PaintOptions.FastRecordScrolling = False
      PaintOptions.BackgroundOptions = [coBlendFixedRow, coBlendFixedColumn]
    end
    object wwDBNavigator1: TwwDBNavigator
      Left = 1
      Top = 1
      Width = 443
      Height = 25
      AutosizeStyle = asSizeNavButtons
      DataSource = DataSource2
      RepeatInterval.InitialDelay = 500
      RepeatInterval.Interval = 100
      Align = alTop
      object wwDBNavigator1First: TwwNavButton
        Left = 0
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Move to first record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1First'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 0
        Style = nbsFirst
      end
      object wwDBNavigator1PriorPage: TwwNavButton
        Left = 32
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Move backward 10 records'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1PriorPage'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 1
        Style = nbsPriorPage
      end
      object wwDBNavigator1Prior: TwwNavButton
        Left = 64
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Move to prior record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Prior'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 2
        Style = nbsPrior
      end
      object wwDBNavigator1Next: TwwNavButton
        Left = 96
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Move to next record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Next'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 3
        Style = nbsNext
      end
      object wwDBNavigator1NextPage: TwwNavButton
        Left = 128
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Move forward 10 records'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1NextPage'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 4
        Style = nbsNextPage
      end
      object wwDBNavigator1Last: TwwNavButton
        Left = 160
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Move to last record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Last'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 5
        Style = nbsLast
      end
      object wwDBNavigator1Insert: TwwNavButton
        Left = 192
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Insert new record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Insert'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 6
        Style = nbsInsert
      end
      object wwDBNavigator1Delete: TwwNavButton
        Left = 224
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Delete current record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Delete'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 7
        Style = nbsDelete
      end
      object wwDBNavigator1Edit: TwwNavButton
        Left = 256
        Top = 0
        Width = 32
        Height = 25
        Hint = 'Edit current record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Edit'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 8
        Style = nbsEdit
      end
      object wwDBNavigator1Post: TwwNavButton
        Left = 288
        Top = 0
        Width = 31
        Height = 25
        Hint = 'Post changes of current record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Post'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 9
        Style = nbsPost
      end
      object wwDBNavigator1Cancel: TwwNavButton
        Left = 319
        Top = 0
        Width = 31
        Height = 25
        Hint = 'Cancel changes made to current record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Cancel'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 10
        Style = nbsCancel
      end
      object wwDBNavigator1Refresh: TwwNavButton
        Left = 350
        Top = 0
        Width = 31
        Height = 25
        Hint = 'Refresh the contents of the dataset'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1Refresh'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 11
        Style = nbsRefresh
      end
      object wwDBNavigator1SaveBookmark: TwwNavButton
        Left = 381
        Top = 0
        Width = 31
        Height = 25
        Hint = 'Bookmark current record'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1SaveBookmark'
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 12
        Style = nbsSaveBookmark
      end
      object wwDBNavigator1RestoreBookmark: TwwNavButton
        Left = 412
        Top = 0
        Width = 31
        Height = 25
        Hint = 'Go back to saved bookmark'
        ImageIndex = -1
        NumGlyphs = 2
        Spacing = 4
        Transparent = False
        Caption = 'wwDBNavigator1RestoreBookmark'
        Enabled = False
        DisabledTextColors.ShadeColor = clGray
        DisabledTextColors.HighlightColor = clBtnHighlight
        Index = 13
        Style = nbsRestoreBookmark
      end
    end
  end
  object ItemsGrid: TwwDBGrid
    Left = 176
    Top = 224
    Width = 265
    Height = 92
    Selected.Strings = (
      'ItemNo'#9'9'#9'Item No'#9'F'
      'PartNo'#9'8'#9'Part No'#9'F'
      'Qty'#9'10'#9'Qty'#9'F'
      'Discount'#9'8'#9'Discount'#9'F')
    IniAttributes.FileName = 'delphi32.ini.ini'
    IniAttributes.Delimiter = ';;'
    IniAttributes.UnicodeIniFile = False
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = False
    Ctl3D = False
    DataSource = DataSource3
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgProportionalColResize]
    ParentCtl3D = False
    TabOrder = 2
    TitleAlignment = taRightJustify
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
    Visible = False
    PaintOptions.BackgroundOptions = [coBlendFixedRow, coBlendFixedColumn]
  end
  object DataSource1: TDataSource
    DataSet = CustomerClientDataSet
    Left = 608
    Top = 32
  end
  object DataSource2: TDataSource
    DataSet = InvoiceClientDataSet
    Left = 608
    Top = 64
  end
  object DataSource3: TDataSource
    DataSet = ItemsClientDataSet1
    Left = 608
    Top = 104
  end
  object ImageList1: TImageList
    Left = 696
    Top = 144
    Bitmap = {
      [encoded data, 17216 characters]
      000000000000}
  end
  object InvoiceClientDataSet: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = False
    Constraints = <>
    DisableStringTrim = False
    FieldDefs = <
      item
        Name = 'CustNo'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'Company'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Addr1'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Addr2'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'City'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 15
      end
      item
        Name = 'State'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Zip'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Country'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Phone'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 15
      end
      item
        Name = 'FAX'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 15
      end
      item
        Name = 'TaxRate'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'Contact'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'LastInvoiceDate'
        Attributes = [faUnNamed]
        DataType = ftDateTime
      end
      item
        Name = 'OrderNo'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'CustNo_1'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'SaleDate'
        Attributes = [faUnNamed]
        DataType = ftDateTime
      end
      item
        Name = 'ShipDate'
        Attributes = [faUnNamed]
        DataType = ftDateTime
      end
      item
        Name = 'EmpNo'
        Attributes = [faUnNamed]
        DataType = ftInteger
      end
      item
        Name = 'ShipToContact'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'ShipToAddr1'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'ShipToAddr2'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'ShipToCity'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 15
      end
      item
        Name = 'ShipToState'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'ShipToZip'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'ShipToCountry'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'ShipToPhone'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 15
      end
      item
        Name = 'ShipVIA'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 7
      end
      item
        Name = 'PO'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Terms'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 6
      end
      item
        Name = 'PaymentMethod'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 7
      end
      item
        Name = 'ItemsTotal'
        Attributes = [faUnNamed]
        DataType = ftCurrency
      end
      item
        Name = 'TaxRate_1'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'Freight'
        Attributes = [faUnNamed]
        DataType = ftCurrency
      end
      item
        Name = 'AmountPaid'
        Attributes = [faUnNamed]
        DataType = ftCurrency
      end>
    IndexDefs = <>
    IndexFieldNames = 'CustNo'
    FetchOnDemand = True
    MasterFields = 'CustNo'
    MasterSource = DataSource1
    ObjectView = True
    PacketRecords = 0
    Params = <>
    ReadOnly = False
    StoreDefs = False
    Left = 648
    Top = 64
    Data = {
      [encoded data, 91776 characters]
      6666479C40000000000000000000000000000000006666666666479C40}
    object InvoiceClientDataSetCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object InvoiceClientDataSetCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object InvoiceClientDataSetAddr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object InvoiceClientDataSetAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object InvoiceClientDataSetCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object InvoiceClientDataSetState: TStringField
      FieldName = 'State'
    end
    object InvoiceClientDataSetZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object InvoiceClientDataSetCountry: TStringField
      FieldName = 'Country'
    end
    object InvoiceClientDataSetPhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object InvoiceClientDataSetFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object InvoiceClientDataSetTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object InvoiceClientDataSetContact: TStringField
      FieldName = 'Contact'
    end
    object InvoiceClientDataSetLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
    object InvoiceClientDataSetOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object InvoiceClientDataSetCustNo_1: TFloatField
      FieldName = 'CustNo_1'
    end
    object InvoiceClientDataSetSaleDate: TDateTimeField
      FieldName = 'SaleDate'
    end
    object InvoiceClientDataSetShipDate: TDateTimeField
      FieldName = 'ShipDate'
    end
    object InvoiceClientDataSetEmpNo: TIntegerField
      FieldName = 'EmpNo'
    end
    object InvoiceClientDataSetShipToContact: TStringField
      FieldName = 'ShipToContact'
    end
    object InvoiceClientDataSetShipToAddr1: TStringField
      FieldName = 'ShipToAddr1'
      Size = 30
    end
    object InvoiceClientDataSetShipToAddr2: TStringField
      FieldName = 'ShipToAddr2'
      Size = 30
    end
    object InvoiceClientDataSetShipToCity: TStringField
      FieldName = 'ShipToCity'
      Size = 15
    end
    object InvoiceClientDataSetShipToState: TStringField
      FieldName = 'ShipToState'
    end
    object InvoiceClientDataSetShipToZip: TStringField
      FieldName = 'ShipToZip'
      Size = 10
    end
    object InvoiceClientDataSetShipToCountry: TStringField
      FieldName = 'ShipToCountry'
    end
    object InvoiceClientDataSetShipToPhone: TStringField
      FieldName = 'ShipToPhone'
      Size = 15
    end
    object InvoiceClientDataSetShipVIA: TStringField
      FieldName = 'ShipVIA'
      Size = 7
    end
    object InvoiceClientDataSetPO: TStringField
      FieldName = 'PO'
      Size = 15
    end
    object InvoiceClientDataSetTerms: TStringField
      FieldName = 'Terms'
      Size = 6
    end
    object InvoiceClientDataSetPaymentMethod: TStringField
      FieldName = 'PaymentMethod'
      Size = 7
    end
    object InvoiceClientDataSetItemsTotal: TCurrencyField
      FieldName = 'ItemsTotal'
    end
    object InvoiceClientDataSetTaxRate_1: TFloatField
      FieldName = 'TaxRate_1'
    end
    object InvoiceClientDataSetFreight: TCurrencyField
      FieldName = 'Freight'
    end
    object InvoiceClientDataSetAmountPaid: TCurrencyField
      FieldName = 'AmountPaid'
    end
    object InvoiceClientDataSetItems: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'Items'
      Calculated = True
    end
  end
  object CustomerClientDataSet: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = False
    Constraints = <>
    DisableStringTrim = False
    FieldDefs = <
      item
        Name = 'CustNo'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'Company'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Addr1'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Addr2'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 30
      end
      item
        Name = 'City'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 15
      end
      item
        Name = 'State'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Zip'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Country'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Phone'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 15
      end
      item
        Name = 'FAX'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 15
      end
      item
        Name = 'TaxRate'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'Contact'
        Attributes = [faUnNamed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'LastInvoiceDate'
        Attributes = [faUnNamed]
        DataType = ftDateTime
      end>
    IndexDefs = <>
    FetchOnDemand = True
    ObjectView = True
    Params = <>
    ReadOnly = False
    StoreDefs = False
    Left = 648
    Top = 32
    Data = {
      [encoded data, 16192 characters]
      4C6F75697365204672616E6B7300446FBD72A0CC42}
    object CustomerClientDataSetOrders: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'Orders'
      Calculated = True
    end
    object CustomerClientDataSetCustNo: TFloatField
      FieldName = 'CustNo'
    end
    object CustomerClientDataSetCompany: TStringField
      FieldName = 'Company'
      Size = 30
    end
    object CustomerClientDataSetAddr1: TStringField
      FieldName = 'Addr1'
      Size = 30
    end
    object CustomerClientDataSetAddr2: TStringField
      FieldName = 'Addr2'
      Size = 30
    end
    object CustomerClientDataSetCity: TStringField
      FieldName = 'City'
      Size = 15
    end
    object CustomerClientDataSetState: TStringField
      FieldName = 'State'
    end
    object CustomerClientDataSetZip: TStringField
      FieldName = 'Zip'
      Size = 10
    end
    object CustomerClientDataSetCountry: TStringField
      FieldName = 'Country'
    end
    object CustomerClientDataSetPhone: TStringField
      FieldName = 'Phone'
      Size = 15
    end
    object CustomerClientDataSetFAX: TStringField
      FieldName = 'FAX'
      Size = 15
    end
    object CustomerClientDataSetTaxRate: TFloatField
      FieldName = 'TaxRate'
    end
    object CustomerClientDataSetContact: TStringField
      FieldName = 'Contact'
    end
    object CustomerClientDataSetLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
  end
  object ItemsClientDataSet1: TClientDataSet
    Active = True
    Aggregates = <>
    AggregatesActive = False
    Constraints = <>
    DisableStringTrim = False
    FieldDefs = <
      item
        Name = 'OrderNo'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'ItemNo'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'PartNo'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end
      item
        Name = 'Qty'
        Attributes = [faUnNamed]
        DataType = ftInteger
      end
      item
        Name = 'Discount'
        Attributes = [faUnNamed]
        DataType = ftFloat
      end>
    IndexDefs = <>
    IndexFieldNames = 'OrderNo'
    FetchOnDemand = True
    MasterFields = 'OrderNo'
    MasterSource = DataSource2
    ObjectView = True
    PacketRecords = 0
    Params = <>
    ReadOnly = False
    StoreDefs = False
    Left = 648
    Top = 104
    Data = {
      [encoded data, 74112 characters]
      0000000000}
    object ItemsClientDataSet1OrderNo: TFloatField
      FieldName = 'OrderNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object ItemsClientDataSet1ItemNo: TFloatField
      FieldName = 'ItemNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object ItemsClientDataSet1PartNo: TFloatField
      FieldName = 'PartNo'
    end
    object ItemsClientDataSet1Qty: TIntegerField
      FieldName = 'Qty'
    end
    object ItemsClientDataSet1Discount: TFloatField
      FieldName = 'Discount'
    end
  end
end
