object LocalSchemaMainForm: TLocalSchemaMainForm Left = 140 Top = 73 AutoScroll = False BorderWidth = 5 Caption = 'Local Schema Sample' ClientHeight = 317 ClientWidth = 502 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 0 Top = 4 Width = 84 Height = 13 Caption = 'From CustomerID:' end object Label2: TLabel Left = 217 Top = 4 Width = 74 Height = 13 Caption = 'To CustomerID:' end object DBGrid1: TDBGrid Left = 0 Top = 25 Width = 502 Height = 262 Align = alBottom Anchors = [akLeft, akTop, akRight, akBottom] DataSource = DataSource TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object eCust1: TEdit Left = 88 Top = 0 Width = 121 Height = 21 TabOrder = 1 Text = 'ALFKI' end object eCust2: TEdit Left = 296 Top = 0 Width = 121 Height = 21 TabOrder = 2 Text = 'BOTTM' end object Panel1: TPanel Left = 0 Top = 287 Width = 502 Height = 30 Align = alBottom BevelOuter = bvNone TabOrder = 3 DesignSize = ( 502 30) object DBNavigator1: TDBNavigator Left = 0 Top = 5 Width = 230 Height = 25 DataSource = DataSource Anchors = [akLeft] TabOrder = 0 end object bOpenClose: TButton Left = 240 Top = 5 Width = 75 Height = 25 Anchors = [akLeft] Caption = 'Open/Close' TabOrder = 1 OnClick = bOpenCloseClick end object bApplyUpdates: TButton Left = 315 Top = 5 Width = 97 Height = 25 Anchors = [akLeft] Caption = 'Apply Updates' TabOrder = 2 OnClick = bApplyUpdatesClick end end object ConnectionManager: TDAConnectionManager MaxPoolSize = 10 PoolTimeoutSeconds = 60 PoolBehaviour = pbWait WaitIntervalSeconds = 1 Connections = < item Name = 'ADO' ConnectionString = 'ADO?Server=localhost;Database=Northwind;UserID=sa;Password=;AuxD' + 'river=SQLOLEDB.1' Default = True Tag = 0 end> DriverManager = DriverManager PoolingEnabled = True Left = 24 Top = 152 end object DriverManager: TDADriverManager DriverDirectory = 'C:\Dev\DataAbstract\Bin\' AutoLoad = False TraceActive = False TraceFlags = [] Left = 56 Top = 152 end object ADODriver: TDAADODriver Left = 88 Top = 152 end object BINAdapter: TDABinDataStreamer Left = 120 Top = 152 end object DataSource: TDADataSource DataTable = DataTable Left = 72 Top = 200 end object DataTable: TDACDSDataTable RemoteUpdatesOptions = [] 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> Params = < item Name = 'CustA' DataType = datString BlobType = dabtUnknown ParamType = daptInput end item Name = 'CustB' DataType = datString BlobType = dabtUnknown ParamType = daptInput end> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False ReadOnly = False LocalSchema = DASchema LocalDataStreamer = BINAdapter DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Customers' IndexDefs = <> Left = 64 Top = 192 end object DASchema: TDASchema ConnectionManager = ConnectionManager Datasets = < item Params = < item Name = 'CustA' DataType = datString BlobType = dabtUnknown ParamType = daptInput end item Name = 'CustB' DataType = datString BlobType = dabtUnknown ParamType = daptInput end> Statements = < item Connection = 'ADO' TargetTable = 'Customers' SQL = 'SELECT '#10' CustomerID, CompanyName, ContactName, ContactTitle, ' + #10' Address, City, Region, PostalCode, Country, Phone, '#10' Fax' + #10' FROM'#10' Customers'#10' WHERE CustomerID>=:CustA and CustomerID<' + '=:CustB' 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' DataType = datString Size = 5 BlobType = dabtUnknown ParamType = daptInput end item Name = 'CompanyName' DataType = datString Size = 40 BlobType = dabtUnknown ParamType = daptInput end item Name = 'ContactName' DataType = datString Size = 30 BlobType = dabtUnknown ParamType = daptInput end item Name = 'ContactTitle' DataType = datString Size = 30 BlobType = dabtUnknown ParamType = daptInput end item Name = 'Address' DataType = datString Size = 60 BlobType = dabtUnknown ParamType = daptInput end item Name = 'City' DataType = datString Size = 15 BlobType = dabtUnknown ParamType = daptInput end item Name = 'Region' DataType = datString Size = 15 BlobType = dabtUnknown ParamType = daptInput end item Name = 'PostalCode' DataType = datString Size = 10 BlobType = dabtUnknown ParamType = daptInput end item Name = 'Country' DataType = datString Size = 15 BlobType = dabtUnknown ParamType = daptInput end item Name = 'Phone' DataType = datString Size = 24 BlobType = dabtUnknown ParamType = daptInput end item Name = 'Fax' DataType = datString Size = 24 BlobType = dabtUnknown ParamType = daptInput end item Name = 'TestNumeric' DataType = datFloat BlobType = dabtUnknown ParamType = daptInput end> Statements = < item Connection = 'ADO' TargetTable = 'Customers' SQL = 'INSERT'#10' INTO Customers'#10' (CustomerID, CompanyName, ContactNam' + 'e, ContactTitle, Address, City, Region, PostalCode, Country, Pho' + 'ne, Fax, TestNumeric)'#10' VALUES'#10' (:CustomerID, :CompanyName, :' + 'ContactName, :ContactTitle, :Address, :City, :Region, :PostalCod' + 'e, :Country, :Phone, :Fax, :TestNumeric)' StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_Customers' end item Params = < item Name = 'OLD_CustomerID' DataType = datString Size = 5 BlobType = dabtUnknown ParamType = daptInput end> Statements = < item Connection = 'ADO' TargetTable = 'Customers' SQL = 'DELETE '#10' FROM'#10' Customers'#10' WHERE'#10' (CustomerID = :OLD_Cust' + 'omerID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_Customers' end item Params = < item Name = 'CustomerID' DataType = datString Size = 5 BlobType = dabtUnknown ParamType = daptInput end item Name = 'CompanyName' DataType = datString Size = 40 BlobType = dabtUnknown ParamType = daptInput end item Name = 'ContactName' DataType = datString Size = 30 BlobType = dabtUnknown ParamType = daptInput end item Name = 'ContactTitle' DataType = datString Size = 30 BlobType = dabtUnknown ParamType = daptInput end item Name = 'Address' DataType = datString Size = 60 BlobType = dabtUnknown ParamType = daptInput end item Name = 'City' DataType = datString Size = 15 BlobType = dabtUnknown ParamType = daptInput end item Name = 'Region' DataType = datString Size = 15 BlobType = dabtUnknown ParamType = daptInput end item Name = 'PostalCode' DataType = datString Size = 10 BlobType = dabtUnknown ParamType = daptInput end item Name = 'Country' DataType = datString Size = 15 BlobType = dabtUnknown ParamType = daptInput end item Name = 'Phone' DataType = datString Size = 24 BlobType = dabtUnknown ParamType = daptInput end item Name = 'Fax' DataType = datString Size = 24 BlobType = dabtUnknown ParamType = daptInput end item Name = 'TestNumeric' DataType = datFloat BlobType = dabtUnknown ParamType = daptInput end item Name = 'OLD_CustomerID' DataType = datString Size = 5 BlobType = dabtUnknown ParamType = daptInput end> Statements = < item Connection = 'ADO' TargetTable = 'Customers' SQL = 'UPDATE Customers'#10' SET '#10' CustomerID = :CustomerID, '#10' Compa' + 'nyName = :CompanyName, '#10' ContactName = :ContactName, '#10' Con' + 'tactTitle = :ContactTitle, '#10' Address = :Address, '#10' City = ' + ':City, '#10' Region = :Region, '#10' PostalCode = :PostalCode, '#10' ' + ' Country = :Country, '#10' Phone = :Phone, '#10' Fax = :Fax, '#10' ' + ' TestNumeric = :TestNumeric'#10' WHERE'#10' (CustomerID = :OLD_Custo' + 'merID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Update_Customers' end> RelationShips = <> UpdateRules = <> Left = 160 Top = 152 end object BusinessProcessor: TDABusinessProcessor Schema = DASchema ReferencedDataset = 'Customers' ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 112 Top = 200 end end