ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/scriptengine/unit2.lfm
Revision: 68
Committed: Tue Oct 17 10:07:58 2017 UTC (6 years, 5 months ago) by tony
File size: 1510 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).

File Contents

# Content
1 object SelectSQLResults: TSelectSQLResults
2 Left = 429
3 Height = 436
4 Top = 275
5 Width = 693
6 Anchors = []
7 Caption = 'Select SQL Results'
8 ClientHeight = 436
9 ClientWidth = 693
10 DefaultMonitor = dmPrimary
11 OnClose = FormClose
12 OnShow = FormShow
13 Position = poDefault
14 LCLVersion = '1.8.0.4'
15 object IBDynamicGrid1: TIBDynamicGrid
16 Left = 0
17 Height = 436
18 Top = 0
19 Width = 693
20 Align = alClient
21 Color = clWindow
22 Columns = <>
23 DataSource = DataSource1
24 Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgAutoSizeColumns]
25 Scrollbars = ssAutoBoth
26 TabOrder = 0
27 ExpandEditorPanelBelowRow = False
28 Descending = False
29 EditorBorderStyle = bsSingle
30 DefaultPositionAtEnd = False
31 end
32 object SelectQuery: TIBQuery
33 AllowAutoActivateTransaction = True
34 Database = Form1.IBDatabase1
35 Transaction = IBTransaction1
36 BufferChunks = 1000
37 CachedUpdates = False
38 GenerateParamNames = False
39 GeneratorField.ApplyOnEvent = gaeOnNewRecord
40 Params = <>
41 DataSetCloseAction = dcDiscardChanges
42 left = 591
43 top = 61
44 end
45 object IBTransaction1: TIBTransaction
46 Active = False
47 DefaultDatabase = Form1.IBDatabase1
48 Params.Strings = (
49 'concurrency'
50 'nowait'
51 )
52 left = 591
53 top = 110
54 end
55 object DataSource1: TDataSource
56 DataSet = SelectQuery
57 left = 537
58 top = 64
59 end
60 end