ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/arrays/1Darray/Unit1.lfm
Revision: 380
Committed: Mon Jan 10 10:13:17 2022 UTC (2 years, 2 months ago) by tony
File size: 6352 byte(s)
Log Message:
propset for eol-style

File Contents

# Content
1 object Form1: TForm1
2 Left = 570
3 Height = 620
4 Top = 225
5 Width = 882
6 Caption = '1D Array Example'
7 ClientHeight = 620
8 ClientWidth = 882
9 DefaultMonitor = dmPrimary
10 OnCreate = FormCreate
11 OnShow = FormShow
12 Position = poScreenCenter
13 LCLVersion = '1.8.1.0'
14 object DBControlGrid1: TDBControlGrid
15 Left = 20
16 Height = 543
17 Top = 32
18 Width = 833
19 AlternateColor = 16640469
20 AltColorStartNormal = True
21 Anchors = [akTop, akLeft, akRight, akBottom]
22 Color = clWindow
23 DataSource = DataSource1
24 DefaultPositionAtEnd = False
25 DrawPanel = Panel1
26 Options = [dgpIndicator]
27 TabOrder = 0
28 ColWidths = (
29 12
30 819
31 )
32 object Panel1: TPanel
33 Left = 12
34 Height = 96
35 Top = 0
36 Width = 819
37 ClientHeight = 96
38 ClientWidth = 819
39 TabOrder = 0
40 object DBEdit1: TDBEdit
41 Left = 8
42 Height = 24
43 Top = 32
44 Width = 264
45 DataField = 'TITLE'
46 DataSource = DataSource1
47 CharCase = ecNormal
48 MaxLength = 0
49 TabOrder = 0
50 end
51 object Label1: TLabel
52 Left = 8
53 Height = 14
54 Top = 16
55 Width = 73
56 Caption = 'Department'
57 ParentColor = False
58 end
59 object Label2: TLabel
60 Left = 296
61 Height = 14
62 Top = 16
63 Width = 67
64 Caption = 'Sales Value'
65 ParentColor = False
66 end
67 object Panel2: TPanel
68 Left = 297
69 Height = 44
70 Top = 30
71 Width = 496
72 BevelOuter = bvNone
73 Caption = 'If you can see this, goto http://bugs.freepascal.org/view.php?id=30892'
74 ClientHeight = 44
75 ClientWidth = 496
76 TabOrder = 1
77 object IBArrayGrid1: TIBArrayGrid
78 Left = 0
79 Height = 44
80 Top = 0
81 Width = 496
82 DataField = 'MYARRAY'
83 DataSource = DataSource1
84 ColumnLabels.Strings = (
85 'Jan'
86 'Feb'
87 'Mar'
88 'Apr'
89 'May'
90 'Jun'
91 'Jul'
92 'Aug'
93 'Sep'
94 'Oct'
95 'Nov'
96 'Dec'
97 )
98 ColumnLabelFont.Height = -13
99 ColumnLabelFont.Style = [fsBold]
100 RowLabelColumnWidth = 64
101 TextAlignment = taRightJustify
102 Align = alClient
103 AutoFillColumns = True
104 FixedColor = clHighlightText
105 Options = [goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
106 ScrollBars = ssNone
107 TabOrder = 0
108 ColCount = 12
109 RowCount = 4
110 ColWidths = (
111 41
112 41
113 41
114 41
115 41
116 41
117 41
118 41
119 41
120 41
121 41
122 43
123 )
124 end
125 end
126 end
127 end
128 object SaveBtn: TButton
129 Left = 776
130 Height = 30
131 Top = 584
132 Width = 75
133 Anchors = [akRight, akBottom]
134 Caption = 'Save'
135 OnClick = SaveBtnClick
136 TabOrder = 1
137 end
138 object CancelBtn: TButton
139 Left = 696
140 Height = 30
141 Top = 584
142 Width = 75
143 Anchors = [akRight, akBottom]
144 Caption = 'Cancel'
145 OnClick = CancelBtnClick
146 TabOrder = 2
147 end
148 object Button1: TButton
149 Left = 21
150 Height = 30
151 Top = 584
152 Width = 75
153 Anchors = [akLeft, akBottom]
154 Caption = 'Insert'
155 OnClick = Button1Click
156 TabOrder = 3
157 end
158 object Button2: TButton
159 Left = 104
160 Height = 30
161 Top = 584
162 Width = 75
163 Anchors = [akLeft, akBottom]
164 Caption = 'Delete'
165 OnClick = Button2Click
166 TabOrder = 4
167 end
168 object IBDatabase1: TIBDatabase
169 Connected = False
170 AfterConnect = IBDatabase1AfterConnect
171 CreateIfNotExists = True
172 AllowStreamedConnected = False
173 DatabaseName = '$DATADIR$1Dtest.fdb'
174 Params.Strings = (
175 'user_name=SYSDBA'
176 'lc_ctype=UTF8'
177 )
178 DefaultTransaction = IBTransaction1
179 IdleTimer = 0
180 TraceFlags = []
181 UseDefaultSystemCodePage = False
182 OnCreateDatabase = IBDatabase1CreateDatabase
183 left = 283
184 top = 244
185 end
186 object IBTransaction1: TIBTransaction
187 Active = False
188 DefaultDatabase = IBDatabase1
189 AfterTransactionEnd = IBTransaction1AfterTransactionEnd
190 left = 327
191 top = 244
192 end
193 object IBDataSet1: TIBDataSet
194 AllowAutoActivateTransaction = True
195 Database = IBDatabase1
196 Transaction = IBTransaction1
197 AfterDelete = IBDataSet1AfterEdit
198 AfterEdit = IBDataSet1AfterEdit
199 AfterInsert = IBDataSet1AfterEdit
200 AfterOpen = IBDataSet1AfterOpen
201 BufferChunks = 1000
202 CachedUpdates = False
203 DeleteSQL.Strings = (
204 'Delete From TESTDATA A'
205 'Where A.ROWID = :ROWID'
206 )
207 InsertSQL.Strings = (
208 'Insert Into TESTDATA(ROWID, TITLE, MYARRAY)'
209 'Values(:ROWID, :TITLE, :MYARRAY)'
210 )
211 RefreshSQL.Strings = (
212 'Select A.ROWID, A.TITLE, A.MYARRAY From TESTDATA A'
213 'Where A.ROWID = :ROWID'
214 )
215 SelectSQL.Strings = (
216 'Select A.ROWID, A.TITLE, A.MYARRAY From TESTDATA A'
217 'order by 1 asc'
218 )
219 ModifySQL.Strings = (
220 'Update TESTDATA A Set '
221 ' A.ROWID = :ROWID,'
222 ' A.TITLE = :TITLE,'
223 ' A.MYARRAY = :MYARRAY'
224 'Where A.ROWID = :OLD_ROWID'
225 )
226 GeneratorField.Generator = 'ROWNUMBER'
227 GeneratorField.Field = 'ROWID'
228 GeneratorField.ApplyOnEvent = gaeOnNewRecord
229 GenerateParamNames = False
230 DataSetCloseAction = dcSaveChanges
231 left = 408
232 top = 244
233 object IBDataSet1ROWID: TIntegerField
234 FieldKind = fkData
235 FieldName = 'ROWID'
236 Index = 0
237 LookupCache = False
238 ProviderFlags = [pfInUpdate, pfInWhere]
239 ReadOnly = False
240 Required = True
241 end
242 object IBDataSet1TITLE: TIBStringField
243 FieldKind = fkData
244 FieldName = 'TITLE'
245 Index = 1
246 LookupCache = False
247 ProviderFlags = [pfInUpdate, pfInWhere]
248 ReadOnly = False
249 Required = False
250 Size = 32
251 end
252 object IBDataSet1MYARRAY: TIBArrayField
253 FieldKind = fkData
254 FieldName = 'MYARRAY'
255 Index = 2
256 LookupCache = False
257 ProviderFlags = [pfInUpdate, pfInWhere]
258 ReadOnly = False
259 Required = False
260 end
261 end
262 object DataSource1: TDataSource
263 DataSet = IBDataSet1
264 left = 368
265 top = 244
266 end
267 end

Properties

Name Value
svn:eol-style native