arrays/1Darray/Unit1.lfm

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