559 lines
16 KiB
Plaintext
559 lines
16 KiB
Plaintext
|
object SQLAccessMainForm: TSQLAccessMainForm
|
||
|
|
Left = 319
|
||
|
|
Top = 116
|
||
|
|
AutoScroll = False
|
||
|
|
BorderWidth = 5
|
||
|
|
Caption = 'SQL Access'
|
||
|
|
ClientHeight = 444
|
||
|
|
ClientWidth = 576
|
||
|
|
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 PageControl1: TPageControl
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 576
|
||
|
|
Height = 444
|
||
|
|
ActivePage = TabSheet1
|
||
|
|
Align = alClient
|
||
|
|
TabIndex = 0
|
||
|
|
TabOrder = 0
|
||
|
|
object TabSheet1: TTabSheet
|
||
|
|
BorderWidth = 5
|
||
|
|
Caption = 'Where'
|
||
|
|
object Label1: TLabel
|
||
|
|
Left = 0
|
||
|
|
Top = 76
|
||
|
|
Width = 34
|
||
|
|
Height = 13
|
||
|
|
Caption = 'ID Like'
|
||
|
|
end
|
||
|
|
object Label2: TLabel
|
||
|
|
Left = 0
|
||
|
|
Top = 100
|
||
|
|
Width = 143
|
||
|
|
Height = 13
|
||
|
|
Caption = 'CompanyName Different Than'
|
||
|
|
end
|
||
|
|
object Label3: TLabel
|
||
|
|
Left = 0
|
||
|
|
Top = 124
|
||
|
|
Width = 114
|
||
|
|
Height = 13
|
||
|
|
Caption = 'PhoneNumber Equal To'
|
||
|
|
end
|
||
|
|
object Label4: TLabel
|
||
|
|
Left = 0
|
||
|
|
Top = 148
|
||
|
|
Width = 44
|
||
|
|
Height = 13
|
||
|
|
Caption = 'Order By:'
|
||
|
|
end
|
||
|
|
object ExecuteButton: TButton
|
||
|
|
Left = 410
|
||
|
|
Top = 143
|
||
|
|
Width = 113
|
||
|
|
Height = 22
|
||
|
|
Caption = 'E&xecute'
|
||
|
|
TabOrder = 5
|
||
|
|
OnClick = ExecuteButtonClick
|
||
|
|
end
|
||
|
|
object Memo: TMemo
|
||
|
|
Left = 0
|
||
|
|
Top = 199
|
||
|
|
Width = 558
|
||
|
|
Height = 207
|
||
|
|
Align = alBottom
|
||
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||
|
|
Font.Charset = ANSI_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'Courier New'
|
||
|
|
Font.Style = []
|
||
|
|
ParentFont = False
|
||
|
|
TabOrder = 6
|
||
|
|
end
|
||
|
|
object rgConnections: TRadioGroup
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 558
|
||
|
|
Height = 65
|
||
|
|
Align = alTop
|
||
|
|
Caption = 'Connection'
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object eID: TEdit
|
||
|
|
Left = 152
|
||
|
|
Top = 72
|
||
|
|
Width = 255
|
||
|
|
Height = 21
|
||
|
|
TabOrder = 1
|
||
|
|
Text = 'A%'
|
||
|
|
end
|
||
|
|
object eCompanyName: TEdit
|
||
|
|
Left = 152
|
||
|
|
Top = 96
|
||
|
|
Width = 255
|
||
|
|
Height = 21
|
||
|
|
TabOrder = 2
|
||
|
|
Text = 'Noname'
|
||
|
|
end
|
||
|
|
object ePhoneNumber: TEdit
|
||
|
|
Left = 152
|
||
|
|
Top = 120
|
||
|
|
Width = 255
|
||
|
|
Height = 21
|
||
|
|
TabOrder = 3
|
||
|
|
Text = '13456789'
|
||
|
|
end
|
||
|
|
object cbOrderBy: TComboBox
|
||
|
|
Left = 152
|
||
|
|
Top = 144
|
||
|
|
Width = 255
|
||
|
|
Height = 21
|
||
|
|
ItemHeight = 13
|
||
|
|
TabOrder = 4
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object TabSheet2: TTabSheet
|
||
|
|
BorderWidth = 5
|
||
|
|
Caption = 'Macros'
|
||
|
|
ImageIndex = 1
|
||
|
|
object ProcessSQLButton: TButton
|
||
|
|
Left = 325
|
||
|
|
Top = 6
|
||
|
|
Width = 75
|
||
|
|
Height = 22
|
||
|
|
Caption = 'ProcessSQL'
|
||
|
|
TabOrder = 1
|
||
|
|
OnClick = ProcessSQLButtonClick
|
||
|
|
end
|
||
|
|
object Memo1: TMemo
|
||
|
|
Left = 0
|
||
|
|
Top = 74
|
||
|
|
Width = 558
|
||
|
|
Height = 141
|
||
|
|
Align = alBottom
|
||
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||
|
|
Lines.Strings = (
|
||
|
|
'SELECT * FROM Orders WHERE OrderDate>{DateTime()}'
|
||
|
|
'SELECT * FROM Orders WHERE OrderDate>{Date()}'
|
||
|
|
'SELECT * FROM Orders WHERE OrderDate>{AddTime(Date(), 2, day)}'
|
||
|
|
|
||
|
|
'SELECT * FROM Orders WHERE OrderDate>{FormatDateTime('#39'12/22/2003' +
|
||
|
|
' 22:10:22.123'#39')}'
|
||
|
|
'SELECT * FROM Orders WHERE OrderDate>{FormatDate('#39'12/22/2003'#39')}'
|
||
|
|
'SELECT {Length(CustomerID)} FROM Orders'
|
||
|
|
'SELECT {TrimLeft(CustomerID)} FROM Orders'
|
||
|
|
'SELECT {TrimRight(CustomerID)} FROM Orders'
|
||
|
|
'SELECT {UpperCase(CustomerID)} FROM Orders'
|
||
|
|
'SELECT {Copy(CustomerID, 2, 3)} FROM Orders')
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
object Memo2: TMemo
|
||
|
|
Left = 0
|
||
|
|
Top = 219
|
||
|
|
Width = 558
|
||
|
|
Height = 187
|
||
|
|
Align = alBottom
|
||
|
|
TabOrder = 4
|
||
|
|
end
|
||
|
|
object rgProcessors: TRadioGroup
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 322
|
||
|
|
Height = 71
|
||
|
|
Caption = 'Processor'
|
||
|
|
Columns = 2
|
||
|
|
ItemIndex = 0
|
||
|
|
Items.Strings = (
|
||
|
|
'TMSSQLMacroProcessor'
|
||
|
|
'TIBMacroProcessor'
|
||
|
|
'TOracleMacroProcessor'
|
||
|
|
'TDBISAMMacroProcessor')
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object Panel1: TPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 215
|
||
|
|
Width = 558
|
||
|
|
Height = 4
|
||
|
|
Align = alBottom
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 3
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object DriverManager: TDADriverManager
|
||
|
|
DriverDirectory = '%SYSTEM%\'
|
||
|
|
TraceActive = False
|
||
|
|
TraceFlags = []
|
||
|
|
Left = 24
|
||
|
|
Top = 216
|
||
|
|
end
|
||
|
|
object DAADODriver: TDAADODriver
|
||
|
|
Left = 54
|
||
|
|
Top = 216
|
||
|
|
end
|
||
|
|
object DAConnectionManager: TDAConnectionManager
|
||
|
|
Connections = <
|
||
|
|
item
|
||
|
|
Name = 'NorthwindCustomers'
|
||
|
|
ConnectionString =
|
||
|
|
'ADO?Server=localhost;AuxDriver=SQLOLEDB.1;UserID=sa;Database=Nor' +
|
||
|
|
'thwind;password='
|
||
|
|
Description = 'Query that point to the Customers table'
|
||
|
|
Default = True
|
||
|
|
Tag = 0
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'NorthwindShippers'
|
||
|
|
ConnectionString =
|
||
|
|
'ADO?Server=localhost;AuxDriver=SQLOLEDB.1;UserID=sa;Database=Nor' +
|
||
|
|
'thwind;password='
|
||
|
|
Description = 'Query that point to the Shippers table'
|
||
|
|
Default = False
|
||
|
|
Tag = 0
|
||
|
|
end>
|
||
|
|
DriverManager = DriverManager
|
||
|
|
PoolingEnabled = False
|
||
|
|
Left = 88
|
||
|
|
Top = 216
|
||
|
|
end
|
||
|
|
object DASchema: TDASchema
|
||
|
|
ConnectionManager = DAConnectionManager
|
||
|
|
Datasets = <
|
||
|
|
item
|
||
|
|
Params = <>
|
||
|
|
Statements = <
|
||
|
|
item
|
||
|
|
Connection = 'NorthwindCustomers'
|
||
|
|
TargetTable = 'Customers'
|
||
|
|
SQL = 'SELECT CustomerID,CompanyName,Phone FROM Customers'
|
||
|
|
StatementType = stSQL
|
||
|
|
ColumnMappings = <
|
||
|
|
item
|
||
|
|
DatasetField = 'ID'
|
||
|
|
TableField = 'CustomerID'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
DatasetField = 'CompanyName'
|
||
|
|
TableField = 'CompanyName'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
DatasetField = 'PhoneNumber'
|
||
|
|
TableField = 'Phone'
|
||
|
|
end>
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Connection = 'NorthwindShippers'
|
||
|
|
TargetTable = 'Shippers'
|
||
|
|
SQL = 'SELECT ShipperID, CompanyName, Phone FROM Shippers'
|
||
|
|
StatementType = stSQL
|
||
|
|
ColumnMappings = <
|
||
|
|
item
|
||
|
|
DatasetField = 'ID'
|
||
|
|
TableField = 'ShipperID'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
DatasetField = 'CompanyName'
|
||
|
|
TableField = 'CompanyName'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
DatasetField = 'PhoneNumber'
|
||
|
|
TableField = 'Phone'
|
||
|
|
end>
|
||
|
|
end>
|
||
|
|
Name = 'Customers'
|
||
|
|
Fields = <
|
||
|
|
item
|
||
|
|
Name = 'ID'
|
||
|
|
DataType = datString
|
||
|
|
Size = 5
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Required = True
|
||
|
|
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 = 'PhoneNumber'
|
||
|
|
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 = 'NorthwindShippers'
|
||
|
|
TargetTable = 'Orders'
|
||
|
|
SQL =
|
||
|
|
'SELECT OrderID, CustomerID, EmployeeID, OrderDate, RequiredDate,' +
|
||
|
|
#10' ShippedDate, ShipVia, Freight, ShipName, ShipAddress,'#10' ShipCit' +
|
||
|
|
'y, ShipRegion, ShipPostalCode, ShipCountry'#10' FROM 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 = 24
|
||
|
|
Top = 248
|
||
|
|
end
|
||
|
|
end
|