trunk/design/ibupdatesqleditor.lfm

object IBUpdateSQLEditorForm: TIBUpdateSQLEditorForm
  Left = 442
  Height = 410
  Top = 421
  Width = 662
  ActiveControl = PageControl
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'UpdateSQL Editor'
  ClientHeight = 410
  ClientWidth = 662
  OnClose = FormClose
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.8.1.0'
  object PageControl: TPageControl
    Left = 8
    Height = 352
    Top = 8
    Width = 641
    ActivePage = SQLPage
    Anchors = [akTop, akLeft, akRight, akBottom]
    TabIndex = 1
    TabOrder = 0
    object FieldsPage: TTabSheet
      Caption = 'Options'
      ClientHeight = 320
      ClientWidth = 635
      object GroupBox1: TGroupBox
        Left = 8
        Height = 315
        Top = 4
        Width = 617
        Anchors = [akTop, akLeft, akRight, akBottom]
        Caption = ' SQL Generation '
        ClientHeight = 300
        ClientWidth = 615
        TabOrder = 0
        object Label1: TLabel
          Left = 12
          Height = 14
          Top = 18
          Width = 73
          Caption = 'Table &Name:'
          ParentColor = False
        end
        object Label3: TLabel
          Left = 288
          Height = 14
          Top = 16
          Width = 62
          Caption = '&Key Fields:'
          ParentColor = False
        end
        object Label4: TLabel
          Left = 458
          Height = 14
          Top = 18
          Width = 85
          Caption = 'Update &Fields:'
          ParentColor = False
        end
        object GenerateButton: TButton
          Left = 9
          Height = 25
          Top = 83
          Width = 168
          Caption = '&Generate SQL'
          OnClick = GenerateButtonClick
          TabOrder = 0
        end
        object QuoteFields: TCheckBox
          Left = 9
          Height = 22
          Top = 160
          Width = 125
          Caption = '&Quote Identifiers'
          TabOrder = 1
        end
        object IncludePrimaryKeys: TCheckBox
          Left = 9
          Height = 22
          Top = 192
          Width = 241
          Caption = 'Include Primary keys in Update SQL'
          TabOrder = 2
        end
        object GenerateParams: TCheckBox
          Left = 9
          Height = 22
          Top = 128
          Width = 171
          Caption = 'Allow DSQL Placeholders'
          TabOrder = 3
        end
        object SelectTableNames: TIBLookupComboEditBox
          Left = 12
          Height = 27
          Top = 32
          Width = 209
          OwnerDrawEditable = False
          KeyField = 'RDB$RELATION_ID'
          ListField = 'RDB$RELATION_NAME'
          ListFieldIndex = 0
          LookupCache = False
          ScrollListDataset = True
          TabOrder = 4
          AutoInsert = False
          AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
          ItemHeight = 0
        end
        object IncludeSysTables: TCheckBox
          Left = 13
          Height = 22
          Top = 59
          Width = 158
          Caption = 'Include System Tables'
          OnChange = IncludeSysTablesChange
          TabOrder = 5
        end
        object PrimaryKeysGrid: TIBDynamicGrid
          Left = 288
          Height = 181
          Top = 35
          Width = 144
          Color = clWindow
          Columns = <          
            item
              ButtonStyle = cbsCheckboxColumn
              Title.Caption = 'SELECTED'
              Width = 30
              FieldName = 'SELECTED'
              AutoSizeColumn = False
              InitialSortColumn = False
              DBLookupProperties.ItemHeight = 0
              DBLookupProperties.ItemWidth = 0
              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
            end          
            item
              Title.Caption = 'COLUMNNAME'
              Width = 64
              FieldName = 'COLUMNNAME'
              AutoSizeColumn = True
              InitialSortColumn = False
              DBLookupProperties.ItemHeight = 0
              DBLookupProperties.ItemWidth = 0
              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
            end>
          FixedCols = 0
          Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
          Scrollbars = ssAutoVertical
          TabOrder = 6
          ExpandEditorPanelBelowRow = False
          Descending = False
          EditorBorderStyle = bsSingle
          DefaultPositionAtEnd = False
        end
        object FieldNamesGrid: TIBDynamicGrid
          Left = 458
          Height = 184
          Top = 32
          Width = 144
          Color = clWindow
          Columns = <          
            item
              ButtonStyle = cbsCheckboxColumn
              Title.Caption = 'SELECTED'
              Width = 30
              FieldName = 'SELECTED'
              AutoSizeColumn = False
              InitialSortColumn = False
              DBLookupProperties.ItemHeight = 0
              DBLookupProperties.ItemWidth = 0
              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
            end          
            item
              Title.Caption = 'COLUMNNAME'
              Width = 64
              FieldName = 'COLUMNNAME'
              AutoSizeColumn = True
              InitialSortColumn = False
              DBLookupProperties.ItemHeight = 0
              DBLookupProperties.ItemWidth = 0
              DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
            end>
          DataSource = IBSQLEditFrame.FieldsSource
          FixedCols = 0
          Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
          Scrollbars = ssAutoVertical
          TabOrder = 7
          ExpandEditorPanelBelowRow = False
          Descending = False
          EditorBorderStyle = bsSingle
          DefaultPositionAtEnd = False
        end
        object SelectSelectAll: TCheckBox
          Left = 456
          Height = 22
          Top = 216
          Width = 134
          Caption = 'Select/Deselect All'
          OnClick = SelectSelectAllClick
          TabOrder = 8
        end
      end
    end
    object SQLPage: TTabSheet
      Caption = 'SQL'
      ClientHeight = 320
      ClientWidth = 635
      OnShow = SQLPageShow
      object Label2: TLabel
        Left = 10
        Height = 14
        Top = 81
        Width = 56
        Caption = 'S&QL Text:'
        ParentColor = False
      end
      object StatementType: TRadioGroup
        Left = 10
        Height = 49
        Top = 9
        Width = 266
        AutoFill = True
        AutoSize = True
        Caption = 'Statement Type'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 5
        ClientHeight = 34
        ClientWidth = 264
        Columns = 5
        ItemIndex = 0
        Items.Strings = (
          '&Modify'
          '&Insert'
          '&Delete'
          '&Refresh'
        )
        OnClick = StatementTypeClick
        TabOrder = 0
      end
      object TestBtn: TButton
        Left = 539
        Height = 25
        Top = 31
        Width = 75
        Anchors = [akTop, akRight]
        Caption = 'Test'
        OnClick = TestBtnClick
        TabOrder = 1
      end
      inline IBSQLEditFrame1: TIBSQLEditFrame
        Left = 12
        Height = 217
        Top = 95
        Width = 616
        Anchors = [akTop, akLeft, akRight, akBottom]
        ClientHeight = 217
        ClientWidth = 616
        TabOrder = 2
        inherited SQLText: TSynEdit
          Height = 191
          Width = 616
          OnChange = SQLMemoChange
        end
        inherited ToolBar1: TToolBar
          Width = 616
        end
        inherited FieldNameList: TIBQuery
          ParamData = <          
            item
              DataType = ftUnknown
              Name = 'RDB$RELATION_NAME'
              ParamType = ptInput
            end>
        end
        inherited PrimaryKeys: TIBQuery
          ParamData = <          
            item
              DataType = ftUnknown
              Name = 'RDB$RELATION_NAME'
              ParamType = ptInput
            end>
        end
        inherited ProcInputParams: TIBQuery
          ParamData = <          
            item
              DataType = ftUnknown
              Name = 'RDB$PROCEDURE_NAME'
              ParamType = ptInput
            end>
        end
        inherited ProcOutputParams: TIBQuery
          ParamData = <          
            item
              DataType = ftUnknown
              Name = 'RDB$PROCEDURE_NAME'
              ParamType = ptInput
            end>
        end
      end
    end
  end
  object OkButton: TButton
    Left = 480
    Height = 25
    Top = 376
    Width = 75
    Anchors = [akRight, akBottom]
    Caption = '&OK'
    Default = True
    ModalResult = 1
    TabOrder = 1
  end
  object CancelButton: TButton
    Left = 573
    Height = 25
    Top = 376
    Width = 75
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
end
Revision:	80
Committed:	Mon Jan 1 11:31:07 2018 UTC (6 years, 3 months ago) by tony
File size:	9659 byte(s)
Log Message:	Fixes merged into public release
#	Content
1	object IBUpdateSQLEditorForm: TIBUpdateSQLEditorForm
2	Left = 442
3	Height = 410
4	Top = 421
5	Width = 662
6	ActiveControl = PageControl
7	BorderIcons = [biSystemMenu]
8	BorderStyle = bsDialog
9	Caption = 'UpdateSQL Editor'
10	ClientHeight = 410
11	ClientWidth = 662
12	OnClose = FormClose
13	OnShow = FormShow
14	Position = poScreenCenter
15	LCLVersion = '1.8.1.0'
16	object PageControl: TPageControl
17	Left = 8
18	Height = 352
19	Top = 8
20	Width = 641
21	ActivePage = SQLPage
22	Anchors = [akTop, akLeft, akRight, akBottom]
23	TabIndex = 1
24	TabOrder = 0
25	object FieldsPage: TTabSheet
26	Caption = 'Options'
27	ClientHeight = 320
28	ClientWidth = 635
29	object GroupBox1: TGroupBox
30	Left = 8
31	Height = 315
32	Top = 4
33	Width = 617
34	Anchors = [akTop, akLeft, akRight, akBottom]
35	Caption = ' SQL Generation '
36	ClientHeight = 300
37	ClientWidth = 615
38	TabOrder = 0
39	object Label1: TLabel
40	Left = 12
41	Height = 14
42	Top = 18
43	Width = 73
44	Caption = 'Table &Name:'
45	ParentColor = False
46	end
47	object Label3: TLabel
48	Left = 288
49	Height = 14
50	Top = 16
51	Width = 62
52	Caption = '&Key Fields:'
53	ParentColor = False
54	end
55	object Label4: TLabel
56	Left = 458
57	Height = 14
58	Top = 18
59	Width = 85
60	Caption = 'Update &Fields:'
61	ParentColor = False
62	end
63	object GenerateButton: TButton
64	Left = 9
65	Height = 25
66	Top = 83
67	Width = 168
68	Caption = '&Generate SQL'
69	OnClick = GenerateButtonClick
70	TabOrder = 0
71	end
72	object QuoteFields: TCheckBox
73	Left = 9
74	Height = 22
75	Top = 160
76	Width = 125
77	Caption = '&Quote Identifiers'
78	TabOrder = 1
79	end
80	object IncludePrimaryKeys: TCheckBox
81	Left = 9
82	Height = 22
83	Top = 192
84	Width = 241
85	Caption = 'Include Primary keys in Update SQL'
86	TabOrder = 2
87	end
88	object GenerateParams: TCheckBox
89	Left = 9
90	Height = 22
91	Top = 128
92	Width = 171
93	Caption = 'Allow DSQL Placeholders'
94	TabOrder = 3
95	end
96	object SelectTableNames: TIBLookupComboEditBox
97	Left = 12
98	Height = 27
99	Top = 32
100	Width = 209
101	OwnerDrawEditable = False
102	KeyField = 'RDB$RELATION_ID'
103	ListField = 'RDB$RELATION_NAME'
104	ListFieldIndex = 0
105	LookupCache = False
106	ScrollListDataset = True
107	TabOrder = 4
108	AutoInsert = False
109	AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
110	ItemHeight = 0
111	end
112	object IncludeSysTables: TCheckBox
113	Left = 13
114	Height = 22
115	Top = 59
116	Width = 158
117	Caption = 'Include System Tables'
118	OnChange = IncludeSysTablesChange
119	TabOrder = 5
120	end
121	object PrimaryKeysGrid: TIBDynamicGrid
122	Left = 288
123	Height = 181
124	Top = 35
125	Width = 144
126	Color = clWindow
127	Columns = <
128	item
129	ButtonStyle = cbsCheckboxColumn
130	Title.Caption = 'SELECTED'
131	Width = 30
132	FieldName = 'SELECTED'
133	AutoSizeColumn = False
134	InitialSortColumn = False
135	DBLookupProperties.ItemHeight = 0
136	DBLookupProperties.ItemWidth = 0
137	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
138	end
139	item
140	Title.Caption = 'COLUMNNAME'
141	Width = 64
142	FieldName = 'COLUMNNAME'
143	AutoSizeColumn = True
144	InitialSortColumn = False
145	DBLookupProperties.ItemHeight = 0
146	DBLookupProperties.ItemWidth = 0
147	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
148	end>
149	FixedCols = 0
150	Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
151	Scrollbars = ssAutoVertical
152	TabOrder = 6
153	ExpandEditorPanelBelowRow = False
154	Descending = False
155	EditorBorderStyle = bsSingle
156	DefaultPositionAtEnd = False
157	end
158	object FieldNamesGrid: TIBDynamicGrid
159	Left = 458
160	Height = 184
161	Top = 32
162	Width = 144
163	Color = clWindow
164	Columns = <
165	item
166	ButtonStyle = cbsCheckboxColumn
167	Title.Caption = 'SELECTED'
168	Width = 30
169	FieldName = 'SELECTED'
170	AutoSizeColumn = False
171	InitialSortColumn = False
172	DBLookupProperties.ItemHeight = 0
173	DBLookupProperties.ItemWidth = 0
174	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
175	end
176	item
177	Title.Caption = 'COLUMNNAME'
178	Width = 64
179	FieldName = 'COLUMNNAME'
180	AutoSizeColumn = True
181	InitialSortColumn = False
182	DBLookupProperties.ItemHeight = 0
183	DBLookupProperties.ItemWidth = 0
184	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
185	end>
186	DataSource = IBSQLEditFrame.FieldsSource
187	FixedCols = 0
188	Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert]
189	Scrollbars = ssAutoVertical
190	TabOrder = 7
191	ExpandEditorPanelBelowRow = False
192	Descending = False
193	EditorBorderStyle = bsSingle
194	DefaultPositionAtEnd = False
195	end
196	object SelectSelectAll: TCheckBox
197	Left = 456
198	Height = 22
199	Top = 216
200	Width = 134
201	Caption = 'Select/Deselect All'
202	OnClick = SelectSelectAllClick
203	TabOrder = 8
204	end
205	end
206	end
207	object SQLPage: TTabSheet
208	Caption = 'SQL'
209	ClientHeight = 320
210	ClientWidth = 635
211	OnShow = SQLPageShow
212	object Label2: TLabel
213	Left = 10
214	Height = 14
215	Top = 81
216	Width = 56
217	Caption = 'S&QL Text:'
218	ParentColor = False
219	end
220	object StatementType: TRadioGroup
221	Left = 10
222	Height = 49
223	Top = 9
224	Width = 266
225	AutoFill = True
226	AutoSize = True
227	Caption = 'Statement Type'
228	ChildSizing.LeftRightSpacing = 6
229	ChildSizing.TopBottomSpacing = 6
230	ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
231	ChildSizing.EnlargeVertical = crsHomogenousChildResize
232	ChildSizing.ShrinkHorizontal = crsScaleChilds
233	ChildSizing.ShrinkVertical = crsScaleChilds
234	ChildSizing.Layout = cclLeftToRightThenTopToBottom
235	ChildSizing.ControlsPerLine = 5
236	ClientHeight = 34
237	ClientWidth = 264
238	Columns = 5
239	ItemIndex = 0
240	Items.Strings = (
241	'&Modify'
242	'&Insert'
243	'&Delete'
244	'&Refresh'
245	)
246	OnClick = StatementTypeClick
247	TabOrder = 0
248	end
249	object TestBtn: TButton
250	Left = 539
251	Height = 25
252	Top = 31
253	Width = 75
254	Anchors = [akTop, akRight]
255	Caption = 'Test'
256	OnClick = TestBtnClick
257	TabOrder = 1
258	end
259	inline IBSQLEditFrame1: TIBSQLEditFrame
260	Left = 12
261	Height = 217
262	Top = 95
263	Width = 616
264	Anchors = [akTop, akLeft, akRight, akBottom]
265	ClientHeight = 217
266	ClientWidth = 616
267	TabOrder = 2
268	inherited SQLText: TSynEdit
269	Height = 191
270	Width = 616
271	OnChange = SQLMemoChange
272	end
273	inherited ToolBar1: TToolBar
274	Width = 616
275	end
276	inherited FieldNameList: TIBQuery
277	ParamData = <
278	item
279	DataType = ftUnknown
280	Name = 'RDB$RELATION_NAME'
281	ParamType = ptInput
282	end>
283	end
284	inherited PrimaryKeys: TIBQuery
285	ParamData = <
286	item
287	DataType = ftUnknown
288	Name = 'RDB$RELATION_NAME'
289	ParamType = ptInput
290	end>
291	end
292	inherited ProcInputParams: TIBQuery
293	ParamData = <
294	item
295	DataType = ftUnknown
296	Name = 'RDB$PROCEDURE_NAME'
297	ParamType = ptInput
298	end>
299	end
300	inherited ProcOutputParams: TIBQuery
301	ParamData = <
302	item
303	DataType = ftUnknown
304	Name = 'RDB$PROCEDURE_NAME'
305	ParamType = ptInput
306	end>
307	end
308	end
309	end
310	end
311	object OkButton: TButton
312	Left = 480
313	Height = 25
314	Top = 376
315	Width = 75
316	Anchors = [akRight, akBottom]
317	Caption = '&OK'
318	Default = True
319	ModalResult = 1
320	TabOrder = 1
321	end
322	object CancelButton: TButton
323	Left = 573
324	Height = 25
325	Top = 376
326	Width = 75
327	Anchors = [akRight, akBottom]
328	Cancel = True
329	Caption = 'Cancel'
330	ModalResult = 2
331	TabOrder = 2
332	end
333	end