arrays/1Darray/Unit1.lfm

object Form1: TForm1
  Left = 1767
  Height = 620
  Top = 267
  Width = 882
  Caption = '1D Array Example'
  ClientHeight = 620
  ClientWidth = 882
  DefaultMonitor = dmPrimary
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '1.8.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 = 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 = 18
          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:	68
Committed:	Tue Oct 17 10:07:58 2017 UTC (6 years, 6 months ago) by tony
File size:	6362 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).
#	User	Rev	Content
1	tony	45	object Form1: TForm1
2	tony	68	Left = 1767
3	tony	45	Height = 620
4	tony	68	Top = 267
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	68	LCLVersion = '1.8.0.4'
13	tony	45	object DBControlGrid1: TDBControlGrid
14			Left = 20
15			Height = 543
16			Top = 32
17			Width = 833
18			AlternateColor = 16640469
19			AltColorStartNormal = True
20			Anchors = [akTop, akLeft, akRight, akBottom]
21			Color = clWindow
22			DataSource = DataSource1
23			DefaultPositionAtEnd = False
24			DrawPanel = Panel1
25			Options = [dgpIndicator]
26			TabOrder = 0
27			ColWidths = (
28			12
29			819
30			)
31			object Panel1: TPanel
32			Left = 12
33			Height = 96
34			Top = 0
35			Width = 819
36			ClientHeight = 96
37			ClientWidth = 819
38			TabOrder = 0
39			object DBEdit1: TDBEdit
40			Left = 8
41	tony	68	Height = 24
42	tony	45	Top = 32
43			Width = 264
44			DataField = 'TITLE'
45			DataSource = DataSource1
46			CharCase = ecNormal
47			MaxLength = 0
48			TabOrder = 0
49			end
50			object Label1: TLabel
51			Left = 8
52	tony	68	Height = 14
53	tony	45	Top = 16
54			Width = 73
55			Caption = 'Department'
56			ParentColor = False
57			end
58			object Label2: TLabel
59			Left = 296
60	tony	68	Height = 14
61	tony	45	Top = 16
62			Width = 67
63			Caption = 'Sales Value'
64			ParentColor = False
65			end
66			object Panel2: TPanel
67			Left = 297
68			Height = 44
69			Top = 30
70			Width = 496
71			BevelOuter = bvNone
72			Caption = 'If you can see this, goto http://bugs.freepascal.org/view.php?id=30892'
73			ClientHeight = 44
74			ClientWidth = 496
75			TabOrder = 1
76			object IBArrayGrid1: TIBArrayGrid
77			Left = 0
78			Height = 44
79			Top = 0
80			Width = 496
81			DataField = 'MYARRAY'
82			DataSource = DataSource1
83			ColumnLabels.Strings = (
84			'Jan'
85			'Feb'
86			'Mar'
87			'Apr'
88			'May'
89			'Jun'
90			'Jul'
91			'Aug'
92			'Sep'
93			'Oct'
94			'Nov'
95			'Dec'
96			)
97			ColumnLabelFont.Height = -13
98			ColumnLabelFont.Name = 'Sans'
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	tony	68	RowCount = 18
110	tony	45	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 = '/tmp/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