arrays/1Darray/Unit1.lfm

object Form1: TForm1
  Left = 222
  Height = 620
  Top = 246
  Width = 882
  Caption = '1D Array Example'
  ClientHeight = 620
  ClientWidth = 882
  DefaultMonitor = dmPrimary
  OnCreate = FormCreate
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.8.1.0'
  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 = 24
        Top = 32
        Width = 264
        DataField = 'TITLE'
        DataSource = DataSource1
        CharCase = ecNormal
        MaxLength = 0
        TabOrder = 0
      end
      object Label1: TLabel
        Left = 8
        Height = 14
        Top = 16
        Width = 73
        Caption = 'Department'
        ParentColor = False
      end
      object Label2: TLabel
        Left = 296
        Height = 14
        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 = 19
          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:	88
Committed:	Mon Jan 1 11:31:29 2018 UTC (6 years, 3 months ago) by tony
File size:	6389 byte(s)
Log Message:	Tidy up examples
#	User	Rev	Content
1	tony	45	object Form1: TForm1
2	tony	88	Left = 222
3	tony	45	Height = 620
4	tony	88	Top = 246
5	tony	45	Width = 882
6			Caption = '1D Array Example'
7			ClientHeight = 620
8			ClientWidth = 882
9	tony	68	DefaultMonitor = dmPrimary
10	tony	45	OnCreate = FormCreate
11			OnShow = FormShow
12	tony	88	Position = poScreenCenter
13			LCLVersion = '1.8.1.0'
14	tony	45	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	tony	68	Height = 24
43	tony	45	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	tony	68	Height = 14
54	tony	45	Top = 16
55			Width = 73
56			Caption = 'Department'
57			ParentColor = False
58			end
59			object Label2: TLabel
60			Left = 296
61	tony	68	Height = 14
62	tony	45	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.Name = 'Sans'
100			ColumnLabelFont.Style = [fsBold]
101			RowLabelColumnWidth = 64
102			TextAlignment = taRightJustify
103			Align = alClient
104			AutoFillColumns = True
105			FixedColor = clHighlightText
106			Options = [goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goSmoothScroll]
107			ScrollBars = ssNone
108			TabOrder = 0
109			ColCount = 12
110	tony	88	RowCount = 19
111	tony	45	ColWidths = (
112			41
113			41
114			41
115			41
116			41
117			41
118			41
119			41
120			41
121			41
122			41
123			43
124			)
125			end
126			end
127			end
128			end
129			object SaveBtn: TButton
130			Left = 776
131			Height = 30
132			Top = 584
133			Width = 75
134			Anchors = [akRight, akBottom]
135			Caption = 'Save'
136			OnClick = SaveBtnClick
137			TabOrder = 1
138			end
139			object CancelBtn: TButton
140			Left = 696
141			Height = 30
142			Top = 584
143			Width = 75
144			Anchors = [akRight, akBottom]
145			Caption = 'Cancel'
146			OnClick = CancelBtnClick
147			TabOrder = 2
148			end
149			object Button1: TButton
150			Left = 21
151			Height = 30
152			Top = 584
153			Width = 75
154			Anchors = [akLeft, akBottom]
155			Caption = 'Insert'
156			OnClick = Button1Click
157			TabOrder = 3
158			end
159			object Button2: TButton
160			Left = 104
161			Height = 30
162			Top = 584
163			Width = 75
164			Anchors = [akLeft, akBottom]
165			Caption = 'Delete'
166			OnClick = Button2Click
167			TabOrder = 4
168			end
169			object IBDatabase1: TIBDatabase
170			Connected = False
171			AfterConnect = IBDatabase1AfterConnect
172			CreateIfNotExists = True
173			AllowStreamedConnected = False
174			DatabaseName = '/tmp/1Dtest.fdb'
175			Params.Strings = (
176			'user_name=SYSDBA'
177			'lc_ctype=UTF8'
178			)
179			DefaultTransaction = IBTransaction1
180			IdleTimer = 0
181			TraceFlags = []
182			UseDefaultSystemCodePage = False
183			OnCreateDatabase = IBDatabase1CreateDatabase
184			left = 283
185			top = 244
186			end
187			object IBTransaction1: TIBTransaction
188			Active = False
189			DefaultDatabase = IBDatabase1
190			AfterTransactionEnd = IBTransaction1AfterTransactionEnd
191			left = 327
192			top = 244
193			end
194			object IBDataSet1: TIBDataSet
195			AllowAutoActivateTransaction = True
196			Database = IBDatabase1
197			Transaction = IBTransaction1
198			AfterDelete = IBDataSet1AfterEdit
199			AfterEdit = IBDataSet1AfterEdit
200			AfterInsert = IBDataSet1AfterEdit
201			AfterOpen = IBDataSet1AfterOpen
202			BufferChunks = 1000
203			CachedUpdates = False
204			DeleteSQL.Strings = (
205			'Delete From TESTDATA A'
206			'Where A.ROWID = :ROWID'
207			)
208			InsertSQL.Strings = (
209			'Insert Into TESTDATA(ROWID, TITLE, MYARRAY)'
210			'Values(:ROWID, :TITLE, :MYARRAY)'
211			)
212			RefreshSQL.Strings = (
213			'Select A.ROWID, A.TITLE, A.MYARRAY From TESTDATA A'
214			'Where A.ROWID = :ROWID'
215			)
216			SelectSQL.Strings = (
217			'Select A.ROWID, A.TITLE, A.MYARRAY From TESTDATA A'
218			'order by 1 asc'
219			)
220			ModifySQL.Strings = (
221			'Update TESTDATA A Set '
222			' A.ROWID = :ROWID,'
223			' A.TITLE = :TITLE,'
224			' A.MYARRAY = :MYARRAY'
225			'Where A.ROWID = :OLD_ROWID'
226			)
227			GeneratorField.Generator = 'ROWNUMBER'
228			GeneratorField.Field = 'ROWID'
229			GeneratorField.ApplyOnEvent = gaeOnNewRecord
230			GenerateParamNames = False
231			DataSetCloseAction = dcSaveChanges
232			left = 408
233			top = 244
234			object IBDataSet1ROWID: TIntegerField
235			FieldKind = fkData
236			FieldName = 'ROWID'
237			Index = 0
238			LookupCache = False
239			ProviderFlags = [pfInUpdate, pfInWhere]
240			ReadOnly = False
241			Required = True
242			end
243			object IBDataSet1TITLE: TIBStringField
244			FieldKind = fkData
245			FieldName = 'TITLE'
246			Index = 1
247			LookupCache = False
248			ProviderFlags = [pfInUpdate, pfInWhere]
249			ReadOnly = False
250			Required = False
251			Size = 32
252			end
253			object IBDataSet1MYARRAY: TIBArrayField
254			FieldKind = fkData
255			FieldName = 'MYARRAY'
256			Index = 2
257			LookupCache = False
258			ProviderFlags = [pfInUpdate, pfInWhere]
259			ReadOnly = False
260			Required = False
261			end
262			end
263			object DataSource1: TDataSource
264			DataSet = IBDataSet1
265			left = 368
266			top = 244
267			end
268			end