84 lines
2.3 KiB
Plaintext
84 lines
2.3 KiB
Plaintext
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
|