Componentes.Terceros.RemObj.../internal/5.0.24.615/1/Data Abstract for Delphi/Samples/Fetch/FetchClientMain.dfm

927 lines
25 KiB
Plaintext

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