object DARBService: TDARBService
  OldCreateOrder = True
  OnActivate = DataAbstractServiceActivate
  OnDeactivate = DataAbstractServiceDeactivate
  AcquireConnection = True
  ServiceSchema = DASchema
  ServiceDataStreamer = BinDataStreamer
  ExportedDataTables = <>
  Left = 345
  Top = 207
  Height = 300
  Width = 300
  object DASchema: TDASchema
    ConnectionManager = ReportBuilder_ServerMainForm.DAConnectionManager1
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'ADO'
            TargetTable = 'Customers'
            SQL = 
              'SELECT '#13#10'    CustomerID, CompanyName, ContactName, ContactTitle,' +
              ' '#13#10'    Address, City, Region, PostalCode, Country, Phone, '#13#10'    ' +
              'Fax'#13#10'  FROM'#13#10'    Customers'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CustomerID'
                TableField = 'CustomerID'
              end
              item
                DatasetField = 'CompanyName'
                TableField = 'CompanyName'
              end
              item
                DatasetField = 'ContactName'
                TableField = 'ContactName'
              end
              item
                DatasetField = 'ContactTitle'
                TableField = 'ContactTitle'
              end
              item
                DatasetField = 'Address'
                TableField = 'Address'
              end
              item
                DatasetField = 'City'
                TableField = 'City'
              end
              item
                DatasetField = 'Region'
                TableField = 'Region'
              end
              item
                DatasetField = 'PostalCode'
                TableField = 'PostalCode'
              end
              item
                DatasetField = 'Country'
                TableField = 'Country'
              end
              item
                DatasetField = 'Phone'
                TableField = 'Phone'
              end
              item
                DatasetField = 'Fax'
                TableField = 'Fax'
              end>
          end>
        Name = 'Customers'
        Fields = <
          item
            Name = 'CustomerID'
            DataType = datString
            Size = 5
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CompanyName'
            DataType = datString
            Size = 40
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ContactName'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ContactTitle'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'Address'
            DataType = datString
            Size = 60
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'City'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'Region'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PostalCode'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'Country'
            DataType = datString
            Size = 15
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'Phone'
            DataType = datString
            Size = 24
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'Fax'
            DataType = datString
            Size = 24
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <
      item
        Params = <
          item
            Name = 'CustomerID'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'CompanyName'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'ContactName'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'ContactTitle'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'Address'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'City'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'Region'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'PostalCode'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'Country'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'Phone'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'Fax'
            BlobType = dabtUnknown
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'ADO'
            TargetTable = 'Customers'
            SQL = 
              'INSERT'#13#10'  INTO Customers'#13#10'    (CustomerID, CompanyName, ContactN' +
              'ame, ContactTitle, Address, City, Region, PostalCode, Country, P' +
              'hone, Fax)'#13#10'  VALUES'#13#10'    (:CustomerID, :CompanyName, :ContactNa' +
              'me, :ContactTitle, :Address, :City, :Region, :PostalCode, :Count' +
              'ry, :Phone, :Fax)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_Customers'
      end
      item
        Params = <
          item
            Name = 'OLD_CustomerID'
            BlobType = dabtUnknown
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'ADO'
            TargetTable = 'Customers'
            SQL = 
              'DELETE '#13#10'  FROM'#13#10'    Customers'#13#10'  WHERE'#13#10'    (CustomerID = :OLD_' +
              'CustomerID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_Customers'
      end
      item
        Params = <
          item
            Name = 'CustomerID'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'CompanyName'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'ContactName'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'ContactTitle'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'Address'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'City'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'Region'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'PostalCode'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'Country'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'Phone'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'Fax'
            BlobType = dabtUnknown
            ParamType = daptInput
          end
          item
            Name = 'OLD_CustomerID'
            BlobType = dabtUnknown
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'ADO'
            TargetTable = 'Customers'
            SQL = 
              'UPDATE Customers'#13#10'  SET '#13#10'    CustomerID = :CustomerID, '#13#10'    Co' +
              'mpanyName = :CompanyName, '#13#10'    ContactName = :ContactName, '#13#10'  ' +
              '  ContactTitle = :ContactTitle, '#13#10'    Address = :Address, '#13#10'    ' +
              'City = :City, '#13#10'    Region = :Region, '#13#10'    PostalCode = :Postal' +
              'Code, '#13#10'    Country = :Country, '#13#10'    Phone = :Phone, '#13#10'    Fax ' +
              '= :Fax'#13#10'  WHERE'#13#10'    (CustomerID = :OLD_CustomerID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_Customers'
      end>
    RelationShips = <>
    UpdateRules = <>
    Left = 24
    Top = 6
  end
  object ppReport: TppDBPipeline
    DataSource = dsReport
    UserName = 'Pipeline'
    Left = 68
    Top = 117
  end
  object dtReport: TDACDSDataTable
    RemoteUpdatesOptions = []
    Fields = <>
    Params = <>
    MasterMappingMode = mmDataRequest
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    ReadOnly = False
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    IndexDefs = <>
    Left = 22
    Top = 69
  end
  object dsReport: TDADataSource
    DataTable = dtReport
    Left = 22
    Top = 117
  end
  object Report: TppReport
    AutoStop = False
    DataPipeline = ppReport
    PrinterSetup.BinName = 'Default'
    PrinterSetup.DocumentName = 'Report'
    PrinterSetup.PaperName = 'A4 210 x 297 mm'
    PrinterSetup.PrinterName = 'Default'
    PrinterSetup.mmMarginBottom = 6350
    PrinterSetup.mmMarginLeft = 6350
    PrinterSetup.mmMarginRight = 6350
    PrinterSetup.mmMarginTop = 6350
    PrinterSetup.mmPaperHeight = 297000
    PrinterSetup.mmPaperWidth = 210000
    PrinterSetup.PaperSize = 9
    Units = utMillimeters
    DeviceType = 'ArchiveFile'
    EmailSettings.ReportFormat = 'PDF'
    OutlineSettings.CreateNode = True
    OutlineSettings.CreatePageNodes = True
    OutlineSettings.Enabled = True
    OutlineSettings.Visible = True
    ShowCancelDialog = False
    ShowPrintDialog = False
    TextSearchSettings.DefaultString = '<FindText>'
    TextSearchSettings.Enabled = True
    Left = 68
    Top = 70
    Version = '10.02'
    mmColumnWidth = 0
    DataPipelineName = 'ppReport'
    object ppHeaderBand1: TppHeaderBand
      mmBottomOffset = 0
      mmHeight = 13229
      mmPrintPosition = 0
    end
    object ppDetailBand1: TppDetailBand
      mmBottomOffset = 0
      mmHeight = 13229
      mmPrintPosition = 0
    end
    object ppFooterBand1: TppFooterBand
      mmBottomOffset = 0
      mmHeight = 13229
      mmPrintPosition = 0
    end
  end
  object BinDataStreamer: TDABinDataStreamer
    Left = 85
    Top = 5
  end
end