Componentes.Terceros.RemObj.../internal/5.0.35.741/1/Data Abstract for Delphi/Samples/Reduced Delta/ReducedDeltaService_Impl.dfm
2009-02-28 17:16:16 +00:00

153 lines
4.1 KiB
Plaintext

object ReducedDeltaService: TReducedDeltaService
OldCreateOrder = True
SessionManager = ReducedDeltaServerDataModule.SessionManager
ServiceSchema = Schema
ServiceDataStreamer = DataStreamer
ExportedDataTables = <>
Left = 424
Top = 208
Height = 212
Width = 216
object Schema: TDASchema
ConnectionManager = ReducedDeltaServerDataModule.ConnectionManager
DataDictionary = ReducedDeltaServerDataModule.DataDictionary
Datasets = <
item
Params = <>
Statements = <
item
ConnectionType = 'MSSQL'
Default = True
TargetTable = 'Customers'
StatementType = stAutoSQL
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 = datWideString
Size = 5
Required = True
InPrimaryKey = True
end
item
Name = 'CompanyName'
DataType = datWideString
Size = 40
Required = True
end
item
Name = 'ContactName'
DataType = datWideString
Size = 30
end
item
Name = 'ContactTitle'
DataType = datWideString
Size = 30
end
item
Name = 'Address'
DataType = datWideString
Size = 60
end
item
Name = 'City'
DataType = datWideString
Size = 15
end
item
Name = 'Region'
DataType = datWideString
Size = 15
end
item
Name = 'PostalCode'
DataType = datWideString
Size = 10
end
item
Name = 'Country'
DataType = datWideString
Size = 15
end
item
Name = 'Phone'
DataType = datWideString
Size = 24
end
item
Name = 'Fax'
DataType = datWideString
Size = 24
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <>
RelationShips = <>
UpdateRules = <>
Version = 0
Left = 32
Top = 56
end
object DataStreamer: TDABin2DataStreamer
Left = 32
Top = 8
end
object BusinessProcessor: TDABusinessProcessor
OnBeforeProcessChange = BusinessProcessorBeforeProcessChange
Schema = Schema
ReferencedDataset = 'Customers'
ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 32
Top = 104
end
end