760 lines
21 KiB
Plaintext
760 lines
21 KiB
Plaintext
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
|