object Form3: TForm3
  Width = 1024
  Height = 793
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Tahoma'
  Font.Style = []
  ParentFont = False
  OnCreate = WebFormCreate
  object WebPanel1: TWebPanel
    Left = 0
    Top = 0
    Width = 433
    Height = 793
    HeightPercent = 100.000000000000000000
    WidthPercent = 100.000000000000000000
    Align = alLeft
    BorderColor = clSilver
    BorderStyle = bsSingle
    Color = clWhite
    object WebPanel3: TWebPanel
      Left = 0
      Top = 0
      Width = 433
      Height = 97
      HeightPercent = 100.000000000000000000
      WidthPercent = 100.000000000000000000
      Align = alTop
      BorderColor = clSilver
      BorderStyle = bsSingle
      object WebDBNavigator1: TWebDBNavigator
        Left = 16
        Top = 16
        Width = 361
        Height = 25
        HeightPercent = 100.000000000000000000
        WidthPercent = 100.000000000000000000
        DataSource = dsProvince
        Hints.Strings = (
          'First'
          'Prior'
          'Next'
          'Last'
          'Edit'
          'Post'
          'Insert'
          'Delete'
          'Cancel')
      end
      object WebDBEdit1: TWebDBEdit
        Left = 16
        Top = 56
        Width = 170
        Height = 22
        ChildOrder = 1
        HeightPercent = 100.000000000000000000
        Text = 'WebDBEdit1'
        WidthPercent = 100.000000000000000000
        DataField = 'prName'
        DataSource = dsProvince
      end
      object WebButton1: TWebButton
        Left = 192
        Top = 56
        Width = 74
        Height = 25
        Caption = 'Save'
        ChildOrder = 2
        HeightPercent = 100.000000000000000000
        WidthPercent = 100.000000000000000000
        OnClick = WebButton1Click
      end
      object WebButton2: TWebButton
        Left = 272
        Top = 56
        Width = 105
        Height = 25
        Caption = 'Apply Change'
        ChildOrder = 2
        HeightPercent = 100.000000000000000000
        WidthPercent = 100.000000000000000000
        OnClick = WebButton2Click
      end
    end
    object WebDBGrid1: TWebDBGrid
      Left = 0
      Top = 97
      Width = 433
      Height = 696
      Align = alClient
      Columns = <
        item
          DataField = 'prID'
          Title = 'Province ID'
        end
        item
          DataField = 'prName'
          Title = 'Province Name'
          Width = 150
        end
        item
          DataField = 'Schools'
          Title = 'Schools'
          Width = 100
        end>
      DataSource = dsProvince
      FixedCols = 1
      TabOrder = 1
      HeightPercent = 100.000000000000000000
      WidthPercent = 100.000000000000000000
      ColWidths = (
        24
        64
        150
        100)
    end
  end
  object WebPanel2: TWebPanel
    Left = 438
    Top = 0
    Width = 586
    Height = 793
    HeightPercent = 100.000000000000000000
    WidthPercent = 100.000000000000000000
    Align = alClient
    BorderColor = clSilver
    BorderStyle = bsSingle
    ChildOrder = 1
    Color = clWhite
    object WebPanel4: TWebPanel
      Left = 0
      Top = 0
      Width = 586
      Height = 97
      HeightPercent = 100.000000000000000000
      WidthPercent = 100.000000000000000000
      Align = alTop
      BorderColor = clSilver
      BorderStyle = bsSingle
      object WebDBNavigator2: TWebDBNavigator
        Left = 16
        Top = 16
        Width = 361
        Height = 25
        HeightPercent = 100.000000000000000000
        WidthPercent = 100.000000000000000000
        DataSource = dsSchool
        Hints.Strings = (
          'First'
          'Prior'
          'Next'
          'Last'
          'Edit'
          'Post'
          'Insert'
          'Delete'
          'Cancel')
      end
      object WebDBEdit2: TWebDBEdit
        Left = 16
        Top = 56
        Width = 170
        Height = 22
        ChildOrder = 1
        HeightPercent = 100.000000000000000000
        Text = 'WebDBEdit1'
        WidthPercent = 100.000000000000000000
        DataField = 'scName'
        DataSource = dsSchool
      end
      object WebButton3: TWebButton
        Left = 192
        Top = 56
        Width = 74
        Height = 25
        Caption = 'Save'
        ChildOrder = 2
        HeightPercent = 100.000000000000000000
        WidthPercent = 100.000000000000000000
        OnClick = WebButton3Click
      end
      object WebButton4: TWebButton
        Left = 272
        Top = 56
        Width = 105
        Height = 25
        Caption = 'Apply Change'
        ChildOrder = 2
        HeightPercent = 100.000000000000000000
        WidthPercent = 100.000000000000000000
        OnClick = WebButton4Click
      end
    end
    object WebDBGrid2: TWebDBGrid
      Left = 0
      Top = 97
      Width = 586
      Height = 696
      Align = alClient
      Columns = <
        item
          DataField = 'scID'
          Title = 'School ID'
        end
        item
          DataField = 'scName'
          Title = 'School name'
          Width = 200
        end
        item
          DataField = 'CalcField'
          Title = 'CalcField'
        end>
      DataSource = dsSchool
      FixedCols = 1
      TabOrder = 1
      HeightPercent = 100.000000000000000000
      WidthPercent = 100.000000000000000000
      ColWidths = (
        24
        64
        200
        64)
    end
  end
  object WebSplitter1: TWebSplitter
    Left = 433
    Top = 0
    Width = 5
    Height = 793
    HeightPercent = 100.000000000000000000
    WidthPercent = 100.000000000000000000
    Align = alLeft
    ChildOrder = 2
    Color = clBtnFace
  end
  object XDataWebConnection1: TXDataWebConnection
    URL = 'http://localhost:2001/tms/xdata'
    Left = 128
    Top = 288
  end
  object wdsProvince: TXDataWebDataSet
    AfterApplyUpdates = wdsProvinceAfterApplyUpdates
    AfterScroll = wdsProvinceAfterScroll
    OnNewRecord = wdsProvinceNewRecord
    EntitySetName = 'Province'
    Connection = XDataWebConnection1
    QueryString = '$expand=schools'
    Left = 128
    Top = 368
    object wdsProvinceprID: TIntegerField
      FieldName = 'prID'
      Required = True
    end
    object wdsProvinceprName: TStringField
      FieldName = 'prName'
      Required = True
      Size = 50
    end
    object wdsProvinceSchools: TXDataWebDatasetField
      FieldName = 'Schools'
      ReadOnly = True
    end
  end
  object wdsSchool: TXDataWebDataSet
    AfterDelete = wdsSchoolAfterDelete
    OnCalcFields = wdsSchoolCalcFields
    OnNewRecord = wdsSchoolNewRecord
    EntitySetName = 'School'
    Connection = XDataWebConnection1
    Left = 128
    Top = 440
    object wdsSchoolscID: TIntegerField
      FieldName = 'scID'
      Required = True
    end
    object wdsSchoolscName: TStringField
      FieldName = 'scName'
      Required = True
      Size = 100
    end
    object wdsSchoolCalcField: TStringField
      FieldKind = fkCalculated
      FieldName = 'CalcField'
      Calculated = True
    end
  end
  object dsProvince: TWebDataSource
    DataSet = wdsProvince
    Left = 256
    Top = 368
  end
  object dsSchool: TWebDataSource
    DataSet = wdsSchool
    Left = 256
    Top = 440
  end
end
