object CalcFieldsService: TCalcFieldsService
  OldCreateOrder = True
  OnCreate = DataAbstractServiceCreate
  ServiceSchema = Schema
  ServiceDataStreamer = DataStreamer
  ExportedDataTables = <>
  Height = 300
  Width = 300
  object DataStreamer: TDABin2DataStreamer
    OnWriteFieldValue = DataStreamerWriteFieldValue
    Left = 32
    Top = 8
  end
  object Schema: TDASchema
    ConnectionManager = CalcFields_ServerDataForm.ConnectionManager
    DataDictionary = DataDictionary
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'ADO'
            TargetTable = 'Customers'
            SQL = 'SELECT '#10'    CustomerID, CompanyName'#10#10'  FROM'#10'    Customers'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CustomerID'
                TableField = 'CustomerID'
              end
              item
                DatasetField = 'CompanyName'
                TableField = 'CompanyName'
              end
              item
                DatasetField = 'ServerCalculated'
                TableField = '<unknown>'
              end>
          end>
        Name = 'Customers'
        Fields = <
          item
            Name = 'CustomerID'
            DataType = datString
            Size = 5
            InPrimaryKey = True
          end
          item
            Name = 'CompanyName'
            DataType = datString
            Size = 40
          end
          item
            Name = 'ServerCalculated'
            DataType = datInteger
            LogChanges = False
            ReadOnly = True
            ServerCalculated = True
          end>
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <>
    RelationShips = <>
    UpdateRules = <>
    Version = 0
    Left = 32
    Top = 56
  end
  object DataDictionary: TDADataDictionary
    Fields = <>
    Left = 32
    Top = 103
  end
  object bpCustomers: TDABusinessProcessor
    Schema = Schema
    ReferencedDataset = 'Customers'
    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 112
    Top = 56
  end
end