158 lines
3.5 KiB
Plaintext
158 lines
3.5 KiB
Plaintext
|
inherited StoredProcFrame: TStoredProcFrame
|
||
|
|
Width = 441
|
||
|
|
Height = 275
|
||
|
|
Align = alClient
|
||
|
|
object DBGrid: TDBGrid
|
||
|
|
Left = 0
|
||
|
|
Top = 49
|
||
|
|
Width = 441
|
||
|
|
Height = 226
|
||
|
|
Align = alClient
|
||
|
|
DataSource = DataSource
|
||
|
|
TabOrder = 0
|
||
|
|
TitleFont.Charset = DEFAULT_CHARSET
|
||
|
|
TitleFont.Color = clWindowText
|
||
|
|
TitleFont.Height = -11
|
||
|
|
TitleFont.Name = 'MS Sans Serif'
|
||
|
|
TitleFont.Style = []
|
||
|
|
end
|
||
|
|
object ToolBar: TPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 441
|
||
|
|
Height = 49
|
||
|
|
Align = alTop
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 1
|
||
|
|
object Panel1: TPanel
|
||
|
|
Left = 1
|
||
|
|
Top = 1
|
||
|
|
Width = 499
|
||
|
|
Height = 24
|
||
|
|
BevelOuter = bvNone
|
||
|
|
Color = clGreen
|
||
|
|
TabOrder = 0
|
||
|
|
object btOpen: TSpeedButton
|
||
|
|
Left = 1
|
||
|
|
Top = 1
|
||
|
|
Width = 82
|
||
|
|
Height = 22
|
||
|
|
Caption = 'Open'
|
||
|
|
Flat = True
|
||
|
|
Transparent = False
|
||
|
|
OnClick = btOpenClick
|
||
|
|
end
|
||
|
|
object btClose: TSpeedButton
|
||
|
|
Left = 84
|
||
|
|
Top = 1
|
||
|
|
Width = 82
|
||
|
|
Height = 22
|
||
|
|
Caption = 'Close'
|
||
|
|
Flat = True
|
||
|
|
Transparent = False
|
||
|
|
OnClick = btCloseClick
|
||
|
|
end
|
||
|
|
object btPrepare: TSpeedButton
|
||
|
|
Left = 167
|
||
|
|
Top = 1
|
||
|
|
Width = 82
|
||
|
|
Height = 22
|
||
|
|
Caption = 'Prepare'
|
||
|
|
Flat = True
|
||
|
|
Transparent = False
|
||
|
|
OnClick = btPrepareClick
|
||
|
|
end
|
||
|
|
object btUnPrepare: TSpeedButton
|
||
|
|
Left = 250
|
||
|
|
Top = 1
|
||
|
|
Width = 82
|
||
|
|
Height = 22
|
||
|
|
Caption = 'UnPrepare'
|
||
|
|
Flat = True
|
||
|
|
Transparent = False
|
||
|
|
OnClick = btUnPrepareClick
|
||
|
|
end
|
||
|
|
object btExecute: TSpeedButton
|
||
|
|
Left = 333
|
||
|
|
Top = 1
|
||
|
|
Width = 82
|
||
|
|
Height = 22
|
||
|
|
Caption = 'Execute'
|
||
|
|
Flat = True
|
||
|
|
Transparent = False
|
||
|
|
OnClick = btExecuteClick
|
||
|
|
end
|
||
|
|
object btPrepareSQL: TSpeedButton
|
||
|
|
Left = 416
|
||
|
|
Top = 1
|
||
|
|
Width = 82
|
||
|
|
Height = 22
|
||
|
|
Caption = 'PrepareSQL'
|
||
|
|
Flat = True
|
||
|
|
Transparent = False
|
||
|
|
OnClick = btPrepareSQLClick
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object Panel2: TPanel
|
||
|
|
Left = 1
|
||
|
|
Top = 24
|
||
|
|
Width = 499
|
||
|
|
Height = 24
|
||
|
|
BevelOuter = bvNone
|
||
|
|
Color = clGreen
|
||
|
|
TabOrder = 1
|
||
|
|
object DBNavigator: TDBNavigator
|
||
|
|
Left = 278
|
||
|
|
Top = 1
|
||
|
|
Width = 220
|
||
|
|
Height = 22
|
||
|
|
DataSource = DataSource
|
||
|
|
Flat = True
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object Panel3: TPanel
|
||
|
|
Left = 1
|
||
|
|
Top = 1
|
||
|
|
Width = 276
|
||
|
|
Height = 22
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 1
|
||
|
|
object Label1: TLabel
|
||
|
|
Left = 4
|
||
|
|
Top = 6
|
||
|
|
Width = 82
|
||
|
|
Height = 13
|
||
|
|
Caption = 'StoredProc name'
|
||
|
|
end
|
||
|
|
object edStoredProcName: TComboBox
|
||
|
|
Left = 95
|
||
|
|
Top = 1
|
||
|
|
Width = 173
|
||
|
|
Height = 21
|
||
|
|
ItemHeight = 13
|
||
|
|
TabOrder = 0
|
||
|
|
OnDropDown = edStoredProcNameDropDown
|
||
|
|
OnExit = edStoredProcNameExit
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object DataSource: TDataSource
|
||
|
|
DataSet = MSStoredProc
|
||
|
|
Left = 432
|
||
|
|
Top = 72
|
||
|
|
end
|
||
|
|
object MSStoredProc: TMSStoredProc
|
||
|
|
StoredProcName = 'Ten Most High-Paid Employees;1'
|
||
|
|
SQLRefresh.Strings = (
|
||
|
|
'WHERE'
|
||
|
|
' DEPTNO = :DEPTNO')
|
||
|
|
Connection = SDACForm.MSConnection
|
||
|
|
SQL.Strings = (
|
||
|
|
'{CALL "Ten Most High-Paid Employees";1}')
|
||
|
|
Debug = True
|
||
|
|
Left = 400
|
||
|
|
Top = 72
|
||
|
|
end
|
||
|
|
end
|