ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/design/ibmodifysqleditor.lfm
(Generate patch)

Comparing ibx/trunk/design/ibmodifysqleditor.lfm (file contents):
Revision 7 by tony, Sun Aug 5 18:28:19 2012 UTC vs.
Revision 106 by tony, Thu Jan 18 14:37:35 2018 UTC

# Line 1 | Line 1
1 < object IBModifySQLEditorForm: TIBModifySQLEditorForm
2 <  Left = 508
3 <  Height = 438
4 <  Top = 250
5 <  Width = 749
6 <  ActiveControl = TableNamesCombo
1 > inherited IBModifySQLEditorForm: TIBModifySQLEditorForm
2 >  Left = 949
3 >  Height = 512
4    Caption = 'Modify SQL Editor'
5 <  ClientHeight = 438
6 <  ClientWidth = 749
7 <  OnShow = FormShow
8 <  LCLVersion = '0.9.30'
9 <  object Label1: TLabel
10 <    Left = 16
14 <    Height = 18
15 <    Top = 16
16 <    Width = 78
17 <    Caption = 'Table Name'
18 <    ParentColor = False
19 <  end
20 <  object Label2: TLabel
21 <    Left = 19
22 <    Height = 18
23 <    Top = 84
24 <    Width = 39
25 <    Caption = 'Fields'
26 <    ParentColor = False
27 <  end
28 <  object Label3: TLabel
29 <    Left = 279
30 <    Height = 18
31 <    Top = 16
32 <    Width = 26
33 <    Caption = 'SQL'
34 <    ParentColor = False
35 <  end
36 <  object Label4: TLabel
37 <    Left = 23
38 <    Height = 18
39 <    Top = 285
40 <    Width = 87
41 <    Caption = 'Primary Keys'
42 <    ParentColor = False
43 <  end
44 <  object SQLText: TMemo
45 <    Left = 279
46 <    Height = 328
47 <    Top = 36
48 <    Width = 439
49 <    Anchors = [akTop, akLeft, akRight, akBottom]
50 <    ScrollBars = ssAutoBoth
51 <    TabOrder = 0
5 >  ClientHeight = 512
6 >  inherited Button1: TButton
7 >    Top = 457
8 >  end
9 >  inherited Button2: TButton
10 >    Top = 457
11    end
12 <  object Button1: TButton
13 <    Left = 552
55 <    Height = 30
56 <    Top = 379
57 <    Width = 72
58 <    Anchors = [akRight, akBottom]
59 <    Caption = 'OK'
60 <    Default = True
61 <    ModalResult = 1
62 <    TabOrder = 1
63 <  end
64 <  object Button2: TButton
65 <    Left = 640
66 <    Height = 30
67 <    Top = 380
68 <    Width = 72
69 <    Anchors = [akRight, akBottom]
70 <    Cancel = True
71 <    Caption = 'Cancel'
72 <    ModalResult = 2
73 <    TabOrder = 2
74 <  end
75 <  object TableNamesCombo: TComboBox
76 <    Left = 23
77 <    Height = 29
78 <    Top = 38
79 <    Width = 201
80 <    ItemHeight = 0
81 <    OnCloseUp = TableNamesComboCloseUp
82 <    TabOrder = 3
83 <  end
84 <  object FieldList: TListBox
85 <    Left = 21
86 <    Height = 146
87 <    Hint = 'Select Fields to include in Update Statement, or leave unselected to select all'
88 <    Top = 102
89 <    Width = 204
90 <    ItemHeight = 0
91 <    MultiSelect = True
92 <    OnDblClick = FieldListDblClick
93 <    ParentShowHint = False
94 <    ShowHint = True
95 <    TabOrder = 4
96 <    TopIndex = -1
97 <  end
98 <  object GenerateBtn: TButton
99 <    Left = 280
100 <    Height = 30
101 <    Top = 380
102 <    Width = 101
103 <    Anchors = [akRight, akBottom]
104 <    Caption = 'Generate SQL'
12 >  inherited GenerateBtn: TButton
13 >    Top = 457
14      OnClick = GenerateBtnClick
106    TabOrder = 5
15    end
16 <  object TestBtn: TButton
17 <    Left = 416
110 <    Height = 30
111 <    Top = 380
112 <    Width = 66
113 <    Anchors = [akRight, akBottom]
114 <    Caption = 'Test'
115 <    OnClick = TestBtnClick
116 <    TabOrder = 6
16 >  inherited TestBtn: TButton
17 >    Top = 457
18    end
19 <  object QuoteFields: TCheckBox
20 <    Left = 16
21 <    Height = 22
22 <    Top = 380
23 <    Width = 132
24 <    Caption = '&Quote Identifiers'
19 >  inherited PageControl: TPageControl
20 >    inherited SelectPage: TTabSheet
21 >      inherited Label2: TLabel
22 >        Left = 7
23 >        Top = 224
24 >        Width = 106
25 >        Caption = 'Updateable Fields'
26 >      end
27 >      inherited Label4: TLabel
28 >        Left = 7
29 >      end
30 >      inherited FieldNamesGrid: TIBDynamicGrid
31 >        Height = 104
32 >        Top = 240
33 >      end
34 >      inherited PrimaryKeysGrid: TIBDynamicGrid
35 >        Height = 48
36 >      end
37 >      inherited SelectSelectAll: TCheckBox
38 >        Top = 344
39 >      end
40 >      object Label5: TLabel[8]
41 >        Left = 9
42 >        Height = 14
43 >        Top = 152
44 >        Width = 138
45 >        Caption = 'Computed By Columns'
46 >        ParentColor = False
47 >      end
48 >      object ReadOnlyGrid: TIBDynamicGrid[9]
49 >        Left = 9
50 >        Height = 48
51 >        Top = 168
52 >        Width = 209
53 >        Color = clWindow
54 >        Columns = <        
55 >          item
56 >            ButtonStyle = cbsCheckboxColumn
57 >            Title.Caption = 'SELECTED'
58 >            Width = 30
59 >            FieldName = 'SELECTED'
60 >            AutoSizeColumn = False
61 >            InitialSortColumn = False
62 >            DBLookupProperties.ItemHeight = 0
63 >            DBLookupProperties.ItemWidth = 0
64 >            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
65 >          end        
66 >          item
67 >            Title.Caption = 'COLUMNNAME'
68 >            Width = 64
69 >            FieldName = 'COLUMNNAME'
70 >            AutoSizeColumn = True
71 >            InitialSortColumn = False
72 >            DBLookupProperties.ItemHeight = 0
73 >            DBLookupProperties.ItemWidth = 0
74 >            DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
75 >          end>
76 >        FixedCols = 0
77 >        Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
78 >        Scrollbars = ssAutoVertical
79 >        TabOrder = 5
80 >        ExpandEditorPanelBelowRow = False
81 >        Descending = False
82 >        EditorBorderStyle = bsSingle
83 >        DefaultPositionAtEnd = False
84 >      end
85 >    end
86 >    inherited ExecutePage: TTabSheet
87 >      inherited Label18: TLabel
88 >        Visible = False
89 >      end
90 >      inherited SelectProcedure: TLabel
91 >        Width = 81
92 >        Caption = 'Execute Only'
93 >      end
94 >      inherited InputProcGrid: TIBDynamicGrid
95 >        Height = 224
96 >      end
97 >      inherited OutputProcGrid: TIBDynamicGrid
98 >        Visible = False
99 >      end
100 >    end
101 >  end
102 >  inherited IBSQLEditFrame1: TIBSQLEditFrame
103 >    Left = 282
104 >    Height = 389
105 >    Top = 24
106 >    Width = 448
107 >    Anchors = [akTop, akLeft, akRight, akBottom]
108 >    ClientHeight = 389
109 >    ClientWidth = 448
110      TabOrder = 7
111 +    DesignLeft = 1974
112 +    DesignTop = 200
113 +    inherited SQLText: TSynEdit
114 +      Height = 363
115 +      Width = 448
116 +    end
117 +    inherited ToolBar1: TToolBar
118 +      Width = 448
119 +    end
120 +    inherited FieldNameList: TIBQuery
121 +      ParamData = <      
122 +        item
123 +          DataType = ftUnknown
124 +          Name = 'RDB$RELATION_NAME'
125 +          ParamType = ptInput
126 +        end>
127 +    end
128 +    inherited PrimaryKeys: TIBQuery
129 +      ParamData = <      
130 +        item
131 +          DataType = ftUnknown
132 +          Name = 'RDB$RELATION_NAME'
133 +          ParamType = ptInput
134 +        end>
135 +    end
136 +    inherited UserProcedures: TIBQuery
137 +      AfterScroll = UserProceduresAfterScroll
138 +    end
139 +    inherited ProcInputParams: TIBQuery
140 +      ParamData = <      
141 +        item
142 +          DataType = ftUnknown
143 +          Name = 'RDB$PROCEDURE_NAME'
144 +          ParamType = ptInput
145 +        end>
146 +    end
147 +    inherited ProcOutputParams: TIBQuery
148 +      ParamData = <      
149 +        item
150 +          DataType = ftUnknown
151 +          Name = 'RDB$PROCEDURE_NAME'
152 +          ParamType = ptInput
153 +        end>
154 +    end
155 +    inherited SQLTransaction: TIBTransaction
156 +      Params.Strings = (      )
157 +    end
158 +    inherited IdentityCols: TIBQuery
159 +      ParamData = <      
160 +        item
161 +          DataType = ftUnknown
162 +          Name = 'RDB$RELATION_NAME'
163 +          ParamType = ptInput
164 +        end>
165 +    end
166 +    inherited ReadOnlyFields: TIBQuery
167 +      ParamData = <      
168 +        item
169 +          DataType = ftUnknown
170 +          Name = 'RDB$RELATION_NAME'
171 +          ParamType = ptInput
172 +        end>
173 +    end
174 +    inherited ReadOnlyFieldsSource: TDataSource
175 +      left = 436
176 +      top = 203
177 +    end
178    end
179 <  object PrimaryKeyList: TListBox
180 <    Left = 23
128 <    Height = 59
129 <    Top = 304
130 <    Width = 200
131 <    ItemHeight = 0
132 <    OnDblClick = PrimaryKeyListDblClick
133 <    TabOrder = 8
134 <    TopIndex = -1
135 <  end
136 <  object IncludePrimaryKeys: TCheckBox
137 <    Left = 19
179 >  object IncludePrimaryKeys: TCheckBox[9]
180 >    Left = 24
181      Height = 22
182 <    Top = 256
183 <    Width = 239
184 <    Caption = 'Include Primary keys in Field List'
185 <    Checked = True
143 <    OnClick = TableNamesComboCloseUp
144 <    State = cbChecked
145 <    TabOrder = 9
146 <  end
147 <  object IBTransaction1: TIBTransaction
148 <    Active = False
149 <    left = 209
150 <    top = 388
182 >    Top = 465
183 >    Width = 241
184 >    Caption = 'Include Primary keys in Update SQL'
185 >    TabOrder = 8
186    end
187   end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines