arrays/2Darray/Unit1.lfm

object Form1: TForm1
  Left = 397
  Height = 432
  Top = 360
  Width = 994
  Caption = '2D Array Example'
  ClientHeight = 432
  ClientWidth = 994
  DefaultMonitor = dmPrimary
  OnCreate = FormCreate
  OnShow = FormShow
  Position = poDefaultSizeOnly
  LCLVersion = '1.8.0.4'
  object IBArrayGrid1: TIBArrayGrid
    Left = 24
    Height = 335
    Top = 56
    Width = 945
    DataField = 'MYARRAY'
    DataSource = DataSource1
    ColumnLabels.Strings = (
      'Col1'
      'Col2'
      'Col3'
      'Col4'
      'Col5'
      'Col6'
      'Col7'
      'Col8'
    )
    ColumnLabelFont.Height = -13
    ColumnLabelFont.Name = 'Sans'
    ColumnLabelFont.Style = [fsBold]
    RowLabels.Strings = (
      'Row 1'
      'Row 2'
      'Row 3'
    )
    RowLabelAlignment = taRightJustify
    RowLabelFont.Height = -13
    RowLabelFont.Name = 'Sans'
    RowLabelFont.Style = [fsBold]
    RowLabelColumnWidth = 80
    TextAlignment = taRightJustify
    Anchors = [akTop, akLeft, akRight, akBottom]
    AutoFillColumns = True
    DefaultColWidth = 40
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
    TabOrder = 0
    ColCount = 27
    RowCount = 19
    ColWidths = (
      80
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      32
      49
    )
  end
  object DBEdit1: TDBEdit
    Left = 24
    Height = 24
    Top = 16
    Width = 232
    DataField = 'TITLE'
    DataSource = DataSource1
    CharCase = ecNormal
    MaxLength = 0
    TabOrder = 1
  end
  object DBNavigator1: TDBNavigator
    Left = 24
    Height = 25
    Top = 400
    Width = 241
    Anchors = [akLeft, akBottom]
    BevelOuter = bvNone
    ChildSizing.EnlargeHorizontal = crsScaleChilds
    ChildSizing.EnlargeVertical = crsScaleChilds
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 100
    ClientHeight = 25
    ClientWidth = 241
    DataSource = DataSource1
    Options = []
    TabOrder = 2
  end
  object IBDatabase1: TIBDatabase
    Connected = False
    AfterConnect = IBDatabase1AfterConnect
    CreateIfNotExists = True
    AllowStreamedConnected = False
    DatabaseName = '/tmp/test.fdb'
    Params.Strings = (
      'lc_ctype=UTF8'
      'user_name=SYSDBA'
    )
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    TraceFlags = []
    UseDefaultSystemCodePage = False
    OnCreateDatabase = IBDatabase1CreateDatabase
    left = 624
    top = 24
  end
  object IBTransaction1: TIBTransaction
    Active = False
    DefaultDatabase = IBDatabase1
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait'
    )
    left = 624
    top = 86
  end
  object DataSource1: TDataSource
    DataSet = IBDataSet1
    left = 624
    top = 184
  end
  object IBDataSet1: TIBDataSet
    AllowAutoActivateTransaction = True
    Database = IBDatabase1
    Transaction = IBTransaction1
    BufferChunks = 1000
    CachedUpdates = False
    DeleteSQL.Strings = (
      'Delete From TESTDATA A'
      'Where A.ROWID = :ROWID'
    )
    InsertSQL.Strings = (
      'Insert Into TESTDATA(ROWID, TITLE, MYARRAY)'
      'Values(:ROWID, :TITLE, :MYARRAY)'
    )
    RefreshSQL.Strings = (
      'Select A.ROWID, A.TITLE, A.MYARRAY From TESTDATA A'
      'Where A.ROWID = :ROWID'
    )
    SelectSQL.Strings = (
      'Select A.ROWID, A.TITLE, A.MYARRAY From TESTDATA A'
      'order by 1 asc'
    )
    ModifySQL.Strings = (
      'Update TESTDATA A Set '
      '  A.ROWID = :ROWID,'
      '  A.TITLE = :TITLE,'
      '  A.MYARRAY = :MYARRAY'
      'Where A.ROWID = :OLD_ROWID'
    )
    GeneratorField.Generator = 'ROWNUMBER'
    GeneratorField.Field = 'ROWID'
    GeneratorField.ApplyOnEvent = gaeOnNewRecord
    GenerateParamNames = False
    DataSetCloseAction = dcSaveChanges
    left = 624
    top = 144
  end
end
Revision:	68
Committed:	Tue Oct 17 10:07:58 2017 UTC (6 years, 6 months ago) by tony
File size:	4083 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	45	object Form1: TForm1
2	tony	68	Left = 397
3	tony	45	Height = 432
4	tony	68	Top = 360
5	tony	45	Width = 994
6			Caption = '2D Array Example'
7			ClientHeight = 432
8			ClientWidth = 994
9	tony	68	DefaultMonitor = dmPrimary
10	tony	45	OnCreate = FormCreate
11			OnShow = FormShow
12	tony	68	Position = poDefaultSizeOnly
13			LCLVersion = '1.8.0.4'
14	tony	45	object IBArrayGrid1: TIBArrayGrid
15			Left = 24
16			Height = 335
17			Top = 56
18			Width = 945
19			DataField = 'MYARRAY'
20			DataSource = DataSource1
21			ColumnLabels.Strings = (
22			'Col1'
23			'Col2'
24			'Col3'
25			'Col4'
26			'Col5'
27			'Col6'
28			'Col7'
29			'Col8'
30			)
31			ColumnLabelFont.Height = -13
32			ColumnLabelFont.Name = 'Sans'
33			ColumnLabelFont.Style = [fsBold]
34			RowLabels.Strings = (
35			'Row 1'
36			'Row 2'
37			'Row 3'
38			)
39			RowLabelAlignment = taRightJustify
40			RowLabelFont.Height = -13
41			RowLabelFont.Name = 'Sans'
42			RowLabelFont.Style = [fsBold]
43			RowLabelColumnWidth = 80
44			TextAlignment = taRightJustify
45			Anchors = [akTop, akLeft, akRight, akBottom]
46			AutoFillColumns = True
47			DefaultColWidth = 40
48			Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
49			TabOrder = 0
50	tony	68	ColCount = 27
51			RowCount = 19
52	tony	45	ColWidths = (
53			80
54	tony	68	32
55			32
56			32
57			32
58			32
59			32
60			32
61			32
62			32
63			32
64			32
65			32
66			32
67			32
68			32
69			32
70			32
71			32
72			32
73			32
74			32
75			32
76			32
77			32
78			32
79			49
80	tony	45	)
81			end
82			object DBEdit1: TDBEdit
83			Left = 24
84	tony	68	Height = 24
85	tony	45	Top = 16
86			Width = 232
87			DataField = 'TITLE'
88			DataSource = DataSource1
89			CharCase = ecNormal
90			MaxLength = 0
91			TabOrder = 1
92			end
93			object DBNavigator1: TDBNavigator
94			Left = 24
95			Height = 25
96			Top = 400
97			Width = 241
98			Anchors = [akLeft, akBottom]
99			BevelOuter = bvNone
100			ChildSizing.EnlargeHorizontal = crsScaleChilds
101			ChildSizing.EnlargeVertical = crsScaleChilds
102			ChildSizing.ShrinkHorizontal = crsScaleChilds
103			ChildSizing.ShrinkVertical = crsScaleChilds
104			ChildSizing.Layout = cclLeftToRightThenTopToBottom
105			ChildSizing.ControlsPerLine = 100
106			ClientHeight = 25
107			ClientWidth = 241
108			DataSource = DataSource1
109			Options = []
110			TabOrder = 2
111			end
112			object IBDatabase1: TIBDatabase
113			Connected = False
114			AfterConnect = IBDatabase1AfterConnect
115			CreateIfNotExists = True
116			AllowStreamedConnected = False
117			DatabaseName = '/tmp/test.fdb'
118			Params.Strings = (
119			'lc_ctype=UTF8'
120			'user_name=SYSDBA'
121			)
122			DefaultTransaction = IBTransaction1
123			IdleTimer = 0
124			TraceFlags = []
125			UseDefaultSystemCodePage = False
126			OnCreateDatabase = IBDatabase1CreateDatabase
127			left = 624
128			top = 24
129			end
130			object IBTransaction1: TIBTransaction
131			Active = False
132			DefaultDatabase = IBDatabase1
133			Params.Strings = (
134			'read_committed'
135			'rec_version'
136			'nowait'
137			)
138			left = 624
139			top = 86
140			end
141			object DataSource1: TDataSource
142			DataSet = IBDataSet1
143			left = 624
144			top = 184
145			end
146			object IBDataSet1: TIBDataSet
147			AllowAutoActivateTransaction = True
148			Database = IBDatabase1
149			Transaction = IBTransaction1
150			BufferChunks = 1000
151			CachedUpdates = False
152			DeleteSQL.Strings = (
153			'Delete From TESTDATA A'
154			'Where A.ROWID = :ROWID'
155			)
156			InsertSQL.Strings = (
157			'Insert Into TESTDATA(ROWID, TITLE, MYARRAY)'
158			'Values(:ROWID, :TITLE, :MYARRAY)'
159			)
160			RefreshSQL.Strings = (
161			'Select A.ROWID, A.TITLE, A.MYARRAY From TESTDATA A'
162			'Where A.ROWID = :ROWID'
163			)
164			SelectSQL.Strings = (
165			'Select A.ROWID, A.TITLE, A.MYARRAY From TESTDATA A'
166			'order by 1 asc'
167			)
168			ModifySQL.Strings = (
169			'Update TESTDATA A Set '
170			' A.ROWID = :ROWID,'
171			' A.TITLE = :TITLE,'
172			' A.MYARRAY = :MYARRAY'
173			'Where A.ROWID = :OLD_ROWID'
174			)
175			GeneratorField.Generator = 'ROWNUMBER'
176			GeneratorField.Field = 'ROWID'
177			GeneratorField.ApplyOnEvent = gaeOnNewRecord
178			GenerateParamNames = False
179			DataSetCloseAction = dcSaveChanges
180			left = 624
181			top = 144
182			end
183			end