object Form1: TForm1 Left = 70 Top = 51 Width = 807 Height = 632 BorderWidth = 5 Caption = 'DataStream Tester' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object DBGrid1: TDBGrid Left = 0 Top = 228 Width = 789 Height = 163 Align = alClient DataSource = dsCustomers TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object DBGrid2: TDBGrid Left = 0 Top = 426 Width = 789 Height = 163 Align = alBottom DataSource = dsOrders TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object Panel1: TPanel Left = 0 Top = 391 Width = 789 Height = 35 Align = alBottom BevelOuter = bvNone TabOrder = 2 object DBNavigator2: TDBNavigator Left = 240 Top = 5 Width = 240 Height = 25 DataSource = dsOrders TabOrder = 0 end object Button3: TButton Left = 152 Top = 5 Width = 75 Height = 25 Caption = 'Open/Close' TabOrder = 1 OnClick = Button3Click end object cbApplyOrdersSchema: TCheckBox Left = 4 Top = 9 Width = 133 Height = 17 Caption = 'Apply Orders Schema' Checked = True State = cbChecked TabOrder = 2 end end object Panel2: TPanel Left = 0 Top = 193 Width = 789 Height = 35 Align = alTop BevelOuter = bvNone TabOrder = 3 object cbApplyCustomersSchema: TCheckBox Left = 4 Top = 9 Width = 141 Height = 17 Caption = 'Apply Customers Schema' Checked = True State = cbChecked TabOrder = 0 end object Button2: TButton Left = 160 Top = 5 Width = 75 Height = 25 Caption = 'Open/Close' TabOrder = 1 OnClick = Button2Click end object DBNavigator1: TDBNavigator Left = 248 Top = 5 Width = 240 Height = 25 DataSource = dsCustomers TabOrder = 2 end end object Panel3: TPanel Left = 0 Top = 0 Width = 789 Height = 193 Align = alTop BevelOuter = bvNone Caption = 'Panel3' TabOrder = 4 object Panel4: TPanel Left = 524 Top = 0 Width = 265 Height = 193 Align = alRight BevelOuter = bvNone TabOrder = 0 object btn_TestDatasets: TButton Left = 8 Top = 75 Width = 129 Height = 25 Caption = 'Test Datasets' TabOrder = 0 OnClick = btn_TestDatasetsClick end object cbSkipCustomers: TCheckBox Left = 8 Top = 40 Width = 97 Height = 17 Caption = 'Skip Customers' TabOrder = 1 end object cbSkipOrders: TCheckBox Left = 8 Top = 56 Width = 97 Height = 17 Caption = 'Skip Orders' TabOrder = 2 end object btn_TurnMD: TButton Left = 8 Top = 139 Width = 129 Height = 25 Caption = 'Turn M/D on/off' TabOrder = 3 OnClick = btn_TurnMDClick end object cbCloseBeforeTest: TCheckBox Left = 8 Top = 11 Width = 113 Height = 17 Caption = 'Close Before Test' Checked = True State = cbChecked TabOrder = 4 end object btn_ShowDeltaCounters: TButton Left = 8 Top = 168 Width = 129 Height = 25 Caption = 'Show Delta Counters' TabOrder = 5 OnClick = btn_ShowDeltaCountersClick end object btn_TestDeltas: TButton Left = 8 Top = 107 Width = 129 Height = 25 Caption = 'Test Deltas' TabOrder = 6 OnClick = btn_TestDeltasClick end object btn_ClearMemo: TButton Left = 144 Top = 168 Width = 97 Height = 25 Caption = 'Clear Memo' TabOrder = 7 OnClick = btn_ClearMemoClick end end object Memo: TMemo Left = 0 Top = 0 Width = 524 Height = 193 Align = alClient ScrollBars = ssVertical TabOrder = 1 end end object DADriverManager1: TDADriverManager DriverDirectory = '%SYSTEM%\' AutoLoad = False TraceActive = False TraceFlags = [] Left = 16 Top = 8 end object DAConnectionManager1: TDAConnectionManager MaxPoolSize = 10 PoolTimeoutSeconds = 60 PoolBehaviour = pbWait WaitIntervalSeconds = 1 Connections = < item Name = 'ADO' ConnectionString = 'ADO?Server=.;Database=Northwind;UserID=sa;AuxDriver=SQLOLEDB.1;p' + 'assword=;' Default = True Tag = 0 end> DriverManager = DADriverManager1 PoolingEnabled = True Left = 80 Top = 8 end object DASchema1: TDASchema ConnectionManager = DAConnectionManager1 Datasets = < item Params = <> 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' 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 item Params = <> Statements = < item Connection = 'ADO' TargetTable = 'Orders' SQL = 'SELECT '#10' OrderID, CustomerID, EmployeeID, OrderDate, Required' + 'Date, '#10' ShippedDate, ShipVia, Freight, ShipName, ShipAddress,' + ' '#10' ShipCity, ShipRegion, ShipPostalCode, ShipCountry'#10' FROM'#10' ' + ' Orders' StatementType = stSQL ColumnMappings = < item DatasetField = 'OrderID' TableField = 'OrderID' end item DatasetField = 'CustomerID' TableField = 'CustomerID' end item DatasetField = 'EmployeeID' TableField = 'EmployeeID' end item DatasetField = 'OrderDate' TableField = 'OrderDate' end item DatasetField = 'RequiredDate' TableField = 'RequiredDate' end item DatasetField = 'ShippedDate' TableField = 'ShippedDate' end item DatasetField = 'ShipVia' TableField = 'ShipVia' end item DatasetField = 'Freight' TableField = 'Freight' end item DatasetField = 'ShipName' TableField = 'ShipName' end item DatasetField = 'ShipAddress' TableField = 'ShipAddress' end item DatasetField = 'ShipCity' TableField = 'ShipCity' end item DatasetField = 'ShipRegion' TableField = 'ShipRegion' end item DatasetField = 'ShipPostalCode' TableField = 'ShipPostalCode' end item DatasetField = 'ShipCountry' TableField = 'ShipCountry' end> end> Name = 'Orders' Fields = < item Name = 'OrderID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'CustomerID' DataType = datString Size = 5 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'EmployeeID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'OrderDate' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'RequiredDate' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShippedDate' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipVia' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'Freight' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipName' DataType = datString Size = 40 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipAddress' DataType = datString Size = 60 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipCity' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipRegion' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipPostalCode' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ShipCountry' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end> Commands = <> RelationShips = <> UpdateRules = <> Left = 48 Top = 8 end object DAADODriver1: TDAADODriver Left = 112 Top = 8 end object dtCustomers: 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 = 276 Top = 27 end object dsCustomers: TDADataSource DataTable = dtCustomers Left = 292 Top = 43 end object dtOrders: 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 = 340 Top = 27 end object dsOrders: TDADataSource DataTable = dtOrders Left = 356 Top = 43 end object DABinDataStreamer: TDABinDataStreamer Left = 146 Top = 8 end end