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
#	User	Rev	Content
1	tony	45	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