david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
731 lines
20 KiB
Plaintext
731 lines
20 KiB
Plaintext
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
|