david
fff1b2a4dc
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@3 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
140 lines
3.0 KiB
Plaintext
140 lines
3.0 KiB
Plaintext
inherited SqlFrame: TSqlFrame
|
|
Width = 443
|
|
Height = 277
|
|
Align = alClient
|
|
object Label1: TLabel
|
|
Left = 456
|
|
Top = 48
|
|
Width = 32
|
|
Height = 13
|
|
Caption = 'Label1'
|
|
end
|
|
object Splitter1: TSplitter
|
|
Left = 0
|
|
Top = 188
|
|
Width = 488
|
|
Height = 3
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
end
|
|
object ToolBar: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 488
|
|
Height = 26
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object TPanel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 350
|
|
Height = 24
|
|
BevelOuter = bvNone
|
|
Color = clGreen
|
|
TabOrder = 0
|
|
object btExecute: TSpeedButton
|
|
Left = 1
|
|
Top = 1
|
|
Width = 82
|
|
Height = 22
|
|
Caption = 'Execute'
|
|
Flat = True
|
|
Transparent = False
|
|
OnClick = btExecuteClick
|
|
end
|
|
object btBreakExec: TSpeedButton
|
|
Left = 167
|
|
Top = 1
|
|
Width = 82
|
|
Height = 22
|
|
Caption = 'Break'
|
|
Enabled = False
|
|
Flat = True
|
|
Transparent = False
|
|
OnClick = btBreakExecClick
|
|
end
|
|
object btExecInThread: TSpeedButton
|
|
Left = 84
|
|
Top = 1
|
|
Width = 82
|
|
Height = 22
|
|
Hint =
|
|
'Assing a long-drawn command to memo (e.g. `SELECT SLEEP(10);`) a' +
|
|
'nd push this button.'
|
|
Caption = 'Exec in thread'
|
|
Flat = True
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
Transparent = False
|
|
OnClick = btExecInThreadClick
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 250
|
|
Top = 1
|
|
Width = 99
|
|
Height = 22
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object cbNonBlocking: TCheckBox
|
|
Left = 7
|
|
Top = 3
|
|
Width = 86
|
|
Height = 17
|
|
Caption = 'NonBlocking'
|
|
TabOrder = 0
|
|
OnClick = cbNonBlockingClick
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object meSQL: TMemo
|
|
Left = 0
|
|
Top = 26
|
|
Width = 488
|
|
Height = 162
|
|
Align = alTop
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
OnExit = meSQLExit
|
|
end
|
|
object meResult: TMemo
|
|
Left = 0
|
|
Top = 191
|
|
Width = 488
|
|
Height = 70
|
|
TabStop = False
|
|
Align = alClient
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Courier New'
|
|
Font.Pitch = fpVariable
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ReadOnly = True
|
|
TabOrder = 2
|
|
end
|
|
object MSSQL: TMSSQL
|
|
Connection = SDACForm.MSConnection
|
|
SQL.Strings = (
|
|
'SET :Cnt = (SELECT COUNT(*) FROM Emp)')
|
|
AfterExecute = MSSQLAfterExecute
|
|
CommandTimeout = 0
|
|
Left = 224
|
|
Top = 40
|
|
ParamData = <
|
|
item
|
|
DataType = ftInteger
|
|
Name = 'Cnt'
|
|
ParamType = ptInputOutput
|
|
Value = 830
|
|
end>
|
|
end
|
|
end
|