297 lines
8.4 KiB
Plaintext
297 lines
8.4 KiB
Plaintext
object QuickOpenMainForm: TQuickOpenMainForm
|
|
Left = 116
|
|
Top = 122
|
|
AutoScroll = False
|
|
Caption = 'Quick Open'
|
|
ClientHeight = 311
|
|
ClientWidth = 539
|
|
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 OpenButton: TButton
|
|
Left = 8
|
|
Top = 8
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Open'
|
|
TabOrder = 0
|
|
OnClick = OpenButtonClick
|
|
end
|
|
object DBGrid1: TDBGrid
|
|
Left = 8
|
|
Top = 40
|
|
Width = 523
|
|
Height = 269
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
DataSource = dsCustomers
|
|
TabOrder = 1
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
|
TitleFont.Color = clWindowText
|
|
TitleFont.Height = -11
|
|
TitleFont.Name = 'MS Sans Serif'
|
|
TitleFont.Style = []
|
|
end
|
|
object DADriverManager1: TDADriverManager
|
|
DriverDirectory = '%SYSTEM%\'
|
|
TraceActive = False
|
|
TraceFlags = []
|
|
Left = 12
|
|
Top = 11
|
|
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>
|
|
Commands = <>
|
|
RelationShips = <>
|
|
UpdateRules = <>
|
|
Left = 45
|
|
Top = 11
|
|
end
|
|
object DAConnectionManager1: TDAConnectionManager
|
|
Connections = <
|
|
item
|
|
Name = 'ADO'
|
|
ConnectionString =
|
|
'ADO?Server=localhost;Database=Northwind;UserID=sa;AuxDriver=SQLO' +
|
|
'LEDB.1;password='
|
|
Default = True
|
|
Tag = 0
|
|
end>
|
|
DriverManager = DADriverManager1
|
|
PoolingEnabled = True
|
|
Left = 76
|
|
Top = 11
|
|
end
|
|
object DAADODriver1: TDAADODriver
|
|
Left = 109
|
|
Top = 11
|
|
end
|
|
object DataTable: TDACDSDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <>
|
|
Params = <>
|
|
MasterMappingMode = mmDataRequest
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteFetchEnabled = False
|
|
ReadOnly = False
|
|
LocalSchema = DASchema1
|
|
LocalDataStreamer = DABINAdapter
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
LogicalName = 'Customers'
|
|
IndexDefs = <>
|
|
Left = 140
|
|
Top = 11
|
|
end
|
|
object dsCustomers: TDADataSource
|
|
DataSet = DataTable.Dataset
|
|
DataTable = DataTable
|
|
Left = 156
|
|
Top = 27
|
|
end
|
|
object DABINAdapter: TDABinDataStreamer
|
|
Left = 192
|
|
Top = 8
|
|
end
|
|
end
|