arrays/2Darray/Unit1.lfm

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