trunk/design/ibmodifysqleditor.lfm

inherited IBModifySQLEditorForm: TIBModifySQLEditorForm
  Left = 949
  Height = 512
  Caption = 'Modify SQL Editor'
  ClientHeight = 512
  inherited Button1: TButton
    Top = 457
  end
  inherited Button2: TButton
    Top = 457
  end
  inherited GenerateBtn: TButton
    Top = 457
    OnClick = GenerateBtnClick
  end
  inherited TestBtn: TButton
    Top = 457
  end
  inherited PageControl: TPageControl
    inherited SelectPage: TTabSheet
      inherited Label2: TLabel
        Left = 7
        Top = 224
        Width = 106
        Caption = 'Updateable Fields'
      end
      inherited Label4: TLabel
        Left = 7
      end
      inherited FieldNamesGrid: TIBDynamicGrid
        Height = 104
        Top = 240
      end
      inherited PrimaryKeysGrid: TIBDynamicGrid
        Height = 48
      end
      inherited SelectSelectAll: TCheckBox
        Top = 344
      end
      object Label5: TLabel[8]
        Left = 9
        Height = 14
        Top = 152
        Width = 138
        Caption = 'Computed By Columns'
        ParentColor = False
      end
      object ReadOnlyGrid: TIBDynamicGrid[9]
        Left = 9
        Height = 48
        Top = 168
        Width = 209
        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 = 5
        ExpandEditorPanelBelowRow = False
        Descending = False
        EditorBorderStyle = bsSingle
        DefaultPositionAtEnd = False
      end
    end
    inherited ExecutePage: TTabSheet
      inherited Label18: TLabel
        Visible = False
      end
      inherited SelectProcedure: TLabel
        Width = 81
        Caption = 'Execute Only'
      end
      inherited InputProcGrid: TIBDynamicGrid
        Height = 224
      end
      inherited OutputProcGrid: TIBDynamicGrid
        Visible = False
      end
    end
  end
  inherited IBSQLEditFrame1: TIBSQLEditFrame
    Left = 282
    Height = 389
    Top = 24
    Width = 448
    Anchors = [akTop, akLeft, akRight, akBottom]
    ClientHeight = 389
    ClientWidth = 448
    TabOrder = 7
    DesignLeft = 1974
    DesignTop = 200
    inherited SQLText: TSynEdit
      Height = 363
      Width = 448
    end
    inherited ToolBar1: TToolBar
      Width = 448
    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 UserProcedures: TIBQuery
      AfterScroll = UserProceduresAfterScroll
    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
    inherited SQLTransaction: TIBTransaction
      Params.Strings = (      )
    end
    inherited IdentityCols: TIBQuery
      ParamData = <      
        item
          DataType = ftUnknown
          Name = 'RDB$RELATION_NAME'
          ParamType = ptInput
        end>
    end
    inherited ReadOnlyFields: TIBQuery
      ParamData = <      
        item
          DataType = ftUnknown
          Name = 'RDB$RELATION_NAME'
          ParamType = ptInput
        end>
    end
    inherited ReadOnlyFieldsSource: TDataSource
      left = 436
      top = 203
    end
  end
  object IncludePrimaryKeys: TCheckBox[9]
    Left = 24
    Height = 22
    Top = 465
    Width = 241
    Caption = 'Include Primary keys in Update SQL'
    TabOrder = 8
  end
end
Revision:	106
Committed:	Thu Jan 18 14:37:35 2018 UTC (6 years, 3 months ago) by tony
File size:	4879 byte(s)
Log Message:	Updates Merged
#	User	Rev	Content
1	tony	80	inherited IBModifySQLEditorForm: TIBModifySQLEditorForm
2	tony	105	Left = 949
3	tony	106	Height = 512
4	tony	5	Caption = 'Modify SQL Editor'
5	tony	106	ClientHeight = 512
6			inherited Button1: TButton
7			Top = 457
8			end
9			inherited Button2: TButton
10			Top = 457
11			end
12	tony	80	inherited GenerateBtn: TButton
13	tony	106	Top = 457
14	tony	7	OnClick = GenerateBtnClick
15	tony	5	end
16	tony	106	inherited TestBtn: TButton
17			Top = 457
18			end
19	tony	80	inherited PageControl: TPageControl
20			inherited SelectPage: TTabSheet
21	tony	105	inherited Label2: TLabel
22	tony	106	Left = 7
23			Top = 224
24	tony	105	Width = 106
25			Caption = 'Updateable Fields'
26			end
27			inherited Label4: TLabel
28	tony	106	Left = 7
29	tony	105	end
30			inherited FieldNamesGrid: TIBDynamicGrid
31	tony	106	Height = 104
32			Top = 240
33	tony	105	end
34			inherited PrimaryKeysGrid: TIBDynamicGrid
35			Height = 48
36			end
37			inherited SelectSelectAll: TCheckBox
38	tony	106	Top = 344
39	tony	105	end
40	tony	106	object Label5: TLabel[8]
41			Left = 9
42	tony	105	Height = 14
43	tony	106	Top = 152
44	tony	105	Width = 138
45			Caption = 'Computed By Columns'
46			ParentColor = False
47			end
48	tony	106	object ReadOnlyGrid: TIBDynamicGrid[9]
49			Left = 9
50	tony	105	Height = 48
51	tony	106	Top = 168
52	tony	105	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	tony	106	TabOrder = 5
80	tony	105	ExpandEditorPanelBelowRow = False
81			Descending = False
82			EditorBorderStyle = bsSingle
83			DefaultPositionAtEnd = False
84			end
85	tony	21	end
86	tony	80	inherited ExecutePage: TTabSheet
87			inherited Label18: TLabel
88			Visible = False
89	tony	21	end
90	tony	80	inherited SelectProcedure: TLabel
91			Width = 81
92			Caption = 'Execute Only'
93	tony	21	end
94	tony	80	inherited InputProcGrid: TIBDynamicGrid
95			Height = 224
96	tony	21	end
97	tony	80	inherited OutputProcGrid: TIBDynamicGrid
98	tony	21	Visible = False
99			end
100			end
101			end
102	tony	80	inherited IBSQLEditFrame1: TIBSQLEditFrame
103			Left = 282
104	tony	106	Height = 389
105	tony	80	Top = 24
106			Width = 448
107			Anchors = [akTop, akLeft, akRight, akBottom]
108	tony	106	ClientHeight = 389
109	tony	80	ClientWidth = 448
110			TabOrder = 7
111	tony	105	DesignLeft = 1974
112			DesignTop = 200
113	tony	80	inherited SQLText: TSynEdit
114	tony	106	Height = 363
115	tony	80	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	tony	105	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	tony	7	end
179	tony	106	object IncludePrimaryKeys: TCheckBox[9]
180			Left = 24
181			Height = 22
182			Top = 465
183			Width = 241
184			Caption = 'Include Primary keys in Update SQL'
185			TabOrder = 8
186			end
187	tony	5	end