object NewService: TNewService OldCreateOrder = True ServiceSchema = Schema ServiceDataStreamer = BinAdapter ExportedDataTables = < item DataTable = dtComboDataset end item DataTable = dtWindowsDir end> BeforeGetDatasetData = DataAbstractServiceBeforeGetDatasetData ValidateDatasetAccess = DataAbstractServiceValidateDatasetAccess Left = 339 Top = 191 Height = 149 Width = 326 object BinAdapter: TDABinDataStreamer Left = 32 Top = 8 end object Schema: TDASchema ConnectionManager = MemoryData_ServerDataModule.ConnectionManager DataDictionary = MemoryData_ServerDataModule.DataDictionary Datasets = < item Params = <> Statements = < item Connection = 'Northwind' TargetTable = 'Employees' SQL = 'SELECT '#10' EmployeeID, LastName, FirstName, Title, TitleOfCourt' + 'esy, '#10' BirthDate, HireDate, Address, City, Region, PostalCode' + ', '#10' Country, HomePhone, Extension, Photo, Notes, ReportsTo, '#10 + ' PhotoPath'#10' FROM'#10' Employees' StatementType = stSQL ColumnMappings = < item DatasetField = 'EmployeeID' TableField = 'EmployeeID' end item DatasetField = 'LastName' TableField = 'LastName' end item DatasetField = 'FirstName' TableField = 'FirstName' end item DatasetField = 'Title' TableField = 'Title' end item DatasetField = 'TitleOfCourtesy' TableField = 'TitleOfCourtesy' end item DatasetField = 'BirthDate' TableField = 'BirthDate' end item DatasetField = 'HireDate' TableField = 'HireDate' 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 = 'HomePhone' TableField = 'HomePhone' end item DatasetField = 'Extension' TableField = 'Extension' end item DatasetField = 'Photo' TableField = 'Photo' end item DatasetField = 'Notes' TableField = 'Notes' end item DatasetField = 'ReportsTo' TableField = 'ReportsTo' end item DatasetField = 'PhotoPath' TableField = 'PhotoPath' end> end> Name = 'Employees' Fields = < item Name = 'EmployeeID' DataType = datAutoInc BlobType = dabtUnknown Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'LastName' DataType = datString Size = 20 BlobType = dabtUnknown Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FirstName' DataType = datString Size = 10 BlobType = dabtUnknown Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'Title' DataType = datString Size = 30 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TitleOfCourtesy' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'BirthDate' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'HireDate' DataType = datDateTime 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 = 'HomePhone' DataType = datString Size = 24 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'Extension' DataType = datString Size = 4 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'Photo' DataType = datBlob BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'Notes' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ReportsTo' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PhotoPath' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = <> Statements = < item Connection = 'Northwind' TargetTable = 'Customers' SQL = 'SELECT '#10' CustomerID, CompanyName, ContactName, ContactTitle, ' + #10' Address, City, Region, PostalCode, Country, Phone, '#10' Fax' + #10' FROM'#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 Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'CompanyName' DataType = datString Size = 40 BlobType = dabtUnknown Required = True 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 item Params = <> Statements = < item Connection = 'Northwind' TargetTable = 'Region' SQL = 'SELECT '#10' RegionID, RegionDescription'#10' FROM'#10' Region' StatementType = stSQL ColumnMappings = < item DatasetField = 'RegionID' TableField = 'RegionID' end item DatasetField = 'RegionDescription' TableField = 'RegionDescription' end> end> Name = 'Regions' Fields = < item Name = 'RegionID' DataType = datAutoInc BlobType = dabtUnknown Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'RegionDescription' DataType = datString Size = 50 BlobType = dabtUnknown Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end> Commands = <> RelationShips = < item Name = 'FK_Employees_Employees' MasterDatasetName = 'Employees' MasterFields = 'EmployeeID' DetailDatasetName = 'Employees' DetailFields = 'ReportsTo' end> UpdateRules = <> Left = 32 Top = 56 end object dtComboDataset: TDACDSDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'AutoIncField' DataType = datAutoInc BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'TextField' DataType = datString Size = 50 BlobType = dabtUnknown DisplayWidth = 50 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> Params = < item Name = 'CustomParameter' DataType = datString Size = 50 BlobType = dabtUnknown ParamType = daptInput end> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'ComboDataset' IndexDefs = <> Left = 128 Top = 56 end object dtWindowsDir: TDACDSDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'FileName' DataType = datString Size = 200 BlobType = dabtUnknown DisplayWidth = 50 Alignment = taLeftJustify InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'FileSize' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> Params = < item Name = 'Directory' DataType = datString Size = 200 BlobType = dabtUnknown ParamType = daptInput end> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'DirectoryData' IndexDefs = <> Left = 216 Top = 56 end end