examples/scriptengine/unit2.lfm

object SelectSQLResults: TSelectSQLResults
  Left = 429
  Height = 436
  Top = 275
  Width = 693
  Anchors = []
  Caption = 'Select SQL Results'
  ClientHeight = 436
  ClientWidth = 693
  DefaultMonitor = dmPrimary
  OnClose = FormClose
  OnShow = FormShow
  Position = poDefault
  LCLVersion = '1.8.0.4'
  object IBDynamicGrid1: TIBDynamicGrid
    Left = 0
    Height = 436
    Top = 0
    Width = 693
    Align = alClient
    Color = clWindow
    Columns = <>
    DataSource = DataSource1
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgAutoSizeColumns]
    Scrollbars = ssAutoBoth
    TabOrder = 0
    ExpandEditorPanelBelowRow = False
    Descending = False
    EditorBorderStyle = bsSingle
    DefaultPositionAtEnd = False
  end
  object SelectQuery: TIBQuery
    AllowAutoActivateTransaction = True
    Database = Form1.IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    GenerateParamNames = False
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    Params = <>
    DataSetCloseAction = dcDiscardChanges
    left = 591
    top = 61
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = Form1.IBDatabase1
    Params.Strings = (
      'concurrency'
      'nowait'
    )
    left = 591
    top = 110
  end
  object DataSource1: TDataSource
    DataSet = SelectQuery
    left = 537
    top = 64
  end
end
Revision:	68
Committed:	Tue Oct 17 10:07:58 2017 UTC (6 years, 6 months ago) by tony
File size:	1510 byte(s)
Log Message:	IBX: Editor Positioning tidy up FBINTF: Trap uninitialised SQL parameters on SQL Exec. Avoids Unknown SQL Type errors. Consistent setting of Modified (SQLParam).
#	User	Rev	Content
1	tony	37	object SelectSQLResults: TSelectSQLResults
2			Left = 429
3			Height = 436
4			Top = 275
5			Width = 693
6			Anchors = []
7			Caption = 'Select SQL Results'
8			ClientHeight = 436
9			ClientWidth = 693
10	tony	68	DefaultMonitor = dmPrimary
11	tony	37	OnClose = FormClose
12			OnShow = FormShow
13	tony	68	Position = poDefault
14			LCLVersion = '1.8.0.4'
15	tony	37	object IBDynamicGrid1: TIBDynamicGrid
16			Left = 0
17			Height = 436
18			Top = 0
19			Width = 693
20			Align = alClient
21			Color = clWindow
22			Columns = <>
23			DataSource = DataSource1
24			Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgAutoSizeColumns]
25			Scrollbars = ssAutoBoth
26			TabOrder = 0
27			ExpandEditorPanelBelowRow = False
28			Descending = False
29			EditorBorderStyle = bsSingle
30			DefaultPositionAtEnd = False
31			end
32			object SelectQuery: TIBQuery
33	tony	45	AllowAutoActivateTransaction = True
34	tony	37	Database = Form1.IBDatabase1
35			Transaction = IBTransaction1
36			BufferChunks = 1000
37			CachedUpdates = False
38			GenerateParamNames = False
39			GeneratorField.ApplyOnEvent = gaeOnNewRecord
40			Params = <>
41			DataSetCloseAction = dcDiscardChanges
42			left = 591
43			top = 61
44			end
45			object IBTransaction1: TIBTransaction
46			Active = False
47			DefaultDatabase = Form1.IBDatabase1
48			Params.Strings = (
49			'concurrency'
50			'nowait'
51			)
52			left = 591
53			top = 110
54			end
55			object DataSource1: TDataSource
56			DataSet = SelectQuery
57			left = 537
58			top = 64
59			end
60			end