object FetchClientMainForm: TFetchClientMainForm Left = 353 Top = 279 Caption = 'Fetch Client' ClientHeight = 406 ClientWidth = 447 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDesigned PixelsPerInch = 96 TextHeight = 13 object PageControl1: TPageControl Left = 0 Top = 0 Width = 447 Height = 406 ActivePage = TabSheet2 Align = alClient TabOrder = 0 object TabSheet1: TTabSheet BorderWidth = 5 Caption = 'Paged Orders' object Label1: TLabel Left = 0 Top = 9 Width = 115 Height = 13 Caption = 'Max Records Per Fetch:' end object lbFetchedRecs: TLabel Left = 222 Top = 9 Width = 117 Height = 13 Caption = 'No records fetched yet...' end object gPagedOrders: TDBGrid Left = 2 Top = 51 Width = 429 Height = 207 Align = alCustom Anchors = [akLeft, akTop, akRight, akBottom] DataSource = ds_PagedOrders TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object seMaxRecords: TSpinEdit Left = 126 Top = 4 Width = 81 Height = 22 MaxValue = 0 MinValue = 0 TabOrder = 1 Value = 40 end object bFetchPagedOrders: TButton Left = 354 Top = 3 Width = 75 Height = 25 Anchors = [akTop, akRight] Caption = 'Open/Close' TabOrder = 2 OnClick = bFetchPagedOrdersClick end object gPagedOrderDetails: TDBGrid Left = 0 Top = 264 Width = 429 Height = 104 Align = alBottom DataSource = ds_PagedOrderDetails TabOrder = 3 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object Panel1: TPanel Left = 0 Top = 259 Width = 429 Height = 5 Align = alBottom BevelOuter = bvNone TabOrder = 4 end end object TabSheet2: TTabSheet BorderWidth = 5 Caption = 'Fetch All' ImageIndex = 1 object Label2: TLabel Left = 0 Top = 3 Width = 65 Height = 13 Caption = 'Start OrderID:' end object Label3: TLabel Left = 0 Top = 27 Width = 62 Height = 13 Caption = 'End OrderID:' end object gOrders: TDBGrid Left = 2 Top = 51 Width = 427 Height = 207 Align = alCustom Anchors = [akLeft, akTop, akRight, akBottom] DataSource = ds_Orders TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object gOrderDetails: TDBGrid Left = 0 Top = 264 Width = 429 Height = 104 Align = alBottom DataSource = ds_OrderDetails TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end object bFetchAll: TButton Left = 354 Top = 3 Width = 75 Height = 25 Anchors = [akTop, akRight] Caption = 'Open/Close' TabOrder = 2 OnClick = bFetchAllClick end object seStart: TSpinEdit Left = 72 Top = 0 Width = 76 Height = 22 MaxValue = 0 MinValue = 0 TabOrder = 3 Value = 10248 end object seEnd: TSpinEdit Left = 72 Top = 24 Width = 76 Height = 22 MaxValue = 0 MinValue = 0 TabOrder = 4 Value = 10300 end object Panel2: TPanel Left = 0 Top = 259 Width = 429 Height = 5 Align = alBottom BevelOuter = bvNone TabOrder = 5 end end end object daPaged: TDARemoteDataAdapter GetSchemaCall.RemoteService = FetchClientDataModule.RemoteService GetDataCall.RemoteService = FetchClientDataModule.RemoteService UpdateDataCall.RemoteService = FetchClientDataModule.RemoteService GetScriptsCall.RemoteService = FetchClientDataModule.RemoteService RemoteService = FetchClientDataModule.RemoteService DataStreamer = FetchClientDataModule.DataStreamer FailureBehavior = fbBoth Left = 117 Top = 143 end object tbl_OrderDetails: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'OrderID' DataType = datInteger BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ProductID' DataType = datInteger BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'UnitPrice' DataType = datFloat BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'Quantity' DataType = datInteger BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'Discount' DataType = datFloat BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end> Params = < item Name = 'StartingOrderID' DataType = datInteger BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 Value = '' ParamType = daptInput end item Name = 'EndingOrderID' DataType = datInteger BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 Value = '' ParamType = daptInput end> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False RemoteDataAdapter = daFetchAll ReadOnly = False MasterSource = ds_Orders MasterFields = 'OrderID' DetailFields = 'OrderID' DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'OrderDetails' Left = 269 Top = 157 end object ds_OrderDetails: TDADataSource DataSet = tbl_OrderDetails.Dataset DataTable = tbl_OrderDetails Left = 297 Top = 157 end object tbl_Orders: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'OrderID' DataType = datAutoInc BlobType = dabtUnknown GeneratorName = 'Orders' DecimalPrecision = 0 DecimalScale = 0 Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'CustomerID' DataType = datWideString Size = 5 BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'EmployeeID' DataType = datInteger BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'OrderDate' DataType = datDateTime BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'RequiredDate' DataType = datDateTime BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShippedDate' DataType = datDateTime BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShipVia' DataType = datInteger BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'Freight' DataType = datFloat BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShipName' DataType = datWideString Size = 40 BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShipAddress' DataType = datWideString Size = 60 BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShipCity' DataType = datWideString Size = 15 BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShipRegion' DataType = datWideString Size = 15 BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShipPostalCode' DataType = datWideString Size = 10 BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShipCountry' DataType = datWideString Size = 15 BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end> Params = < item Name = 'StartingOrderID' DataType = datInteger BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 Value = '' ParamType = daptInput end item Name = 'EndingOrderID' DataType = datInteger BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 Value = '' ParamType = daptInput end> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = daFetchAll ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates, moAllInOneFetch] LogicalName = 'Orders' Left = 269 Top = 129 end object ds_Orders: TDADataSource DataSet = tbl_Orders.Dataset DataTable = tbl_Orders Left = 297 Top = 129 end object tbl_PagedOrderDetails: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'OrderID' DataType = datInteger BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ProductID' DataType = datInteger BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'UnitPrice' DataType = datFloat BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'Quantity' DataType = datInteger BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'Discount' DataType = datFloat BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = daPaged ReadOnly = False MasterSource = ds_PagedOrders MasterFields = 'OrderID' DetailFields = 'OrderID' DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PagedOrderDetails' Left = 61 Top = 157 end object ds_PagedOrderDetails: TDADataSource DataSet = tbl_PagedOrderDetails.Dataset DataTable = tbl_PagedOrderDetails Left = 89 Top = 157 end object tbl_PagedOrders: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'OrderID' DataType = datAutoInc BlobType = dabtUnknown GeneratorName = 'Orders' DecimalPrecision = 0 DecimalScale = 0 Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'CustomerID' DataType = datWideString Size = 5 BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'EmployeeID' DataType = datInteger BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'OrderDate' DataType = datDateTime BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'RequiredDate' DataType = datDateTime BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShippedDate' DataType = datDateTime BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShipVia' DataType = datInteger BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'Freight' DataType = datFloat BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShipName' DataType = datWideString Size = 40 BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShipAddress' DataType = datWideString Size = 60 BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShipCity' DataType = datWideString Size = 15 BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShipRegion' DataType = datWideString Size = 15 BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShipPostalCode' DataType = datWideString Size = 10 BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end item Name = 'ShipCountry' DataType = datWideString Size = 15 BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False ServerCalculated = False Lookup = False LookupCache = False end> Params = < item Name = 'StartingOrderID' DataType = datInteger BlobType = dabtUnknown DecimalPrecision = 0 DecimalScale = 0 Value = '' ParamType = daptInput end> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = daPaged AfterScroll = tbl_PagedOrdersAfterScroll ReadOnly = False DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PagedOrders' Left = 61 Top = 129 end object ds_PagedOrders: TDADataSource DataSet = tbl_PagedOrders.Dataset DataTable = tbl_PagedOrders Left = 89 Top = 129 end object daFetchAll: TDARemoteDataAdapter GetSchemaCall.RemoteService = FetchClientDataModule.RemoteService GetDataCall.RemoteService = FetchClientDataModule.RemoteService GetDataCall.MethodName = 'GetOrdersAndDetails' GetDataCall.Params = < item Name = 'Result' DataType = rtBinary Flag = fResult Value = Null end item Name = 'StartOrderID' DataType = rtInteger Flag = fIn Value = Null end item Name = 'EndOrderID' DataType = rtInteger Flag = fIn Value = Null end> GetDataCall.Default = False GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray' GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' GetDataCall.IncomingDataParameter = 'Result' UpdateDataCall.RemoteService = FetchClientDataModule.RemoteService GetScriptsCall.RemoteService = FetchClientDataModule.RemoteService RemoteService = FetchClientDataModule.RemoteService DataStreamer = FetchClientDataModule.DataStreamer FailureBehavior = fbBoth Left = 325 Top = 143 end end