ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/arrays/2Darray/Unit1.lfm
Revision: 68
Committed: Tue Oct 17 10:07:58 2017 UTC (6 years, 5 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).

File Contents

# Content
1 object Form1: TForm1
2 Left = 397
3 Height = 432
4 Top = 360
5 Width = 994
6 Caption = '2D Array Example'
7 ClientHeight = 432
8 ClientWidth = 994
9 DefaultMonitor = dmPrimary
10 OnCreate = FormCreate
11 OnShow = FormShow
12 Position = poDefaultSizeOnly
13 LCLVersion = '1.8.0.4'
14 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 ColCount = 27
51 RowCount = 19
52 ColWidths = (
53 80
54 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 )
81 end
82 object DBEdit1: TDBEdit
83 Left = 24
84 Height = 24
85 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