trunk/design/ibdataseteditor.lfm

object IBDataSetEditorForm: TIBDataSetEditorForm
  Left = 442
  Height = 410
  Top = 421
  Width = 662
  ActiveControl = PageControl
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'DataSet 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 = FieldsPage
    Anchors = [akTop, akLeft, akRight, akBottom]
    TabIndex = 0
    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 = 327
        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 = 325
        Columns = 5
        ItemIndex = 0
        Items.Strings = (
          '&Select'
          '&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, 11 months ago) by tony
File size:	9676 byte(s)
Log Message:	Fixes merged into public release
#	User	Rev	Content
1	tony	5	object IBDataSetEditorForm: TIBDataSetEditorForm
2	tony	80	Left = 442
3	tony	5	Height = 410
4	tony	80	Top = 421
5	tony	5	Width = 662
6			ActiveControl = PageControl
7			BorderIcons = [biSystemMenu]
8			BorderStyle = bsDialog
9			Caption = 'DataSet Editor'
10			ClientHeight = 410
11			ClientWidth = 662
12			OnClose = FormClose
13			OnShow = FormShow
14	tony	67	Position = poScreenCenter
15	tony	80	LCLVersion = '1.8.1.0'
16	tony	5	object PageControl: TPageControl
17			Left = 8
18			Height = 352
19			Top = 8
20			Width = 641
21	tony	21	ActivePage = FieldsPage
22	tony	5	Anchors = [akTop, akLeft, akRight, akBottom]
23	tony	21	TabIndex = 0
24	tony	5	TabOrder = 0
25			object FieldsPage: TTabSheet
26			Caption = 'Options'
27	tony	67	ClientHeight = 320
28			ClientWidth = 635
29	tony	5	object GroupBox1: TGroupBox
30			Left = 8
31	tony	67	Height = 315
32	tony	5	Top = 4
33	tony	67	Width = 617
34	tony	5	Anchors = [akTop, akLeft, akRight, akBottom]
35			Caption = ' SQL Generation '
36	tony	67	ClientHeight = 300
37			ClientWidth = 615
38	tony	5	TabOrder = 0
39			object Label1: TLabel
40			Left = 12
41	tony	67	Height = 14
42	tony	5	Top = 18
43	tony	19	Width = 73
44	tony	5	Caption = 'Table &Name:'
45			ParentColor = False
46			end
47			object Label3: TLabel
48	tony	80	Left = 288
49	tony	67	Height = 14
50	tony	80	Top = 16
51	tony	19	Width = 62
52	tony	5	Caption = '&Key Fields:'
53			ParentColor = False
54			end
55			object Label4: TLabel
56	tony	7	Left = 458
57	tony	67	Height = 14
58	tony	7	Top = 18
59	tony	19	Width = 85
60	tony	5	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	tony	80	TabOrder = 0
71	tony	5	end
72			object QuoteFields: TCheckBox
73			Left = 9
74	tony	67	Height = 22
75	tony	19	Top = 160
76	tony	67	Width = 125
77	tony	5	Caption = '&Quote Identifiers'
78	tony	80	TabOrder = 1
79	tony	5	end
80	tony	7	object IncludePrimaryKeys: TCheckBox
81	tony	19	Left = 9
82	tony	67	Height = 22
83	tony	19	Top = 192
84	tony	80	Width = 241
85			Caption = 'Include Primary keys in Update SQL'
86			TabOrder = 2
87	tony	7	end
88	tony	19	object GenerateParams: TCheckBox
89			Left = 9
90	tony	67	Height = 22
91	tony	19	Top = 128
92	tony	67	Width = 171
93	tony	19	Caption = 'Allow DSQL Placeholders'
94	tony	80	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	tony	19	TabOrder = 6
153	tony	80	ExpandEditorPanelBelowRow = False
154			Descending = False
155			EditorBorderStyle = bsSingle
156			DefaultPositionAtEnd = False
157	tony	19	end
158	tony	80	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	tony	5	end
206			end
207			object SQLPage: TTabSheet
208			Caption = 'SQL'
209	tony	67	ClientHeight = 320
210			ClientWidth = 635
211	tony	5	OnShow = SQLPageShow
212			object Label2: TLabel
213			Left = 10
214	tony	80	Height = 14
215	tony	5	Top = 81
216	tony	19	Width = 56
217	tony	5	Caption = 'S&QL Text:'
218			ParentColor = False
219			end
220			object StatementType: TRadioGroup
221			Left = 10
222	tony	80	Height = 49
223	tony	5	Top = 9
224	tony	80	Width = 327
225	tony	5	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	tony	80	ClientHeight = 34
237			ClientWidth = 325
238	tony	5	Columns = 5
239			ItemIndex = 0
240			Items.Strings = (
241			'&Select'
242			'&Modify'
243			'&Insert'
244			'&Delete'
245			'&Refresh'
246			)
247			OnClick = StatementTypeClick
248	tony	80	TabOrder = 0
249	tony	5	end
250	tony	7	object TestBtn: TButton
251	tony	19	Left = 539
252	tony	5	Height = 25
253			Top = 31
254			Width = 75
255			Anchors = [akTop, akRight]
256			Caption = 'Test'
257	tony	7	OnClick = TestBtnClick
258	tony	80	TabOrder = 1
259			end
260			inline IBSQLEditFrame1: TIBSQLEditFrame
261			Left = 12
262			Height = 217
263			Top = 95
264			Width = 616
265			Anchors = [akTop, akLeft, akRight, akBottom]
266			ClientHeight = 217
267			ClientWidth = 616
268	tony	5	TabOrder = 2
269	tony	80	inherited SQLText: TSynEdit
270			Height = 191
271			Width = 616
272			OnChange = SQLMemoChange
273			end
274			inherited ToolBar1: TToolBar
275			Width = 616
276			end
277			inherited FieldNameList: TIBQuery
278			ParamData = <
279			item
280			DataType = ftUnknown
281			Name = 'RDB$RELATION_NAME'
282			ParamType = ptInput
283			end>
284			end
285			inherited PrimaryKeys: TIBQuery
286			ParamData = <
287			item
288			DataType = ftUnknown
289			Name = 'RDB$RELATION_NAME'
290			ParamType = ptInput
291			end>
292			end
293			inherited ProcInputParams: TIBQuery
294			ParamData = <
295			item
296			DataType = ftUnknown
297			Name = 'RDB$PROCEDURE_NAME'
298			ParamType = ptInput
299			end>
300			end
301			inherited ProcOutputParams: TIBQuery
302			ParamData = <
303			item
304			DataType = ftUnknown
305			Name = 'RDB$PROCEDURE_NAME'
306			ParamType = ptInput
307			end>
308			end
309	tony	5	end
310			end
311			end
312			object OkButton: TButton
313			Left = 480
314			Height = 25
315			Top = 376
316			Width = 75
317			Anchors = [akRight, akBottom]
318			Caption = '&OK'
319			Default = True
320			ModalResult = 1
321			TabOrder = 1
322			end
323			object CancelButton: TButton
324			Left = 573
325			Height = 25
326			Top = 376
327			Width = 75
328			Anchors = [akRight, akBottom]
329			Cancel = True
330			Caption = 'Cancel'
331			ModalResult = 2
332			TabOrder = 2
333			end
334			end