1 |
tony |
80 |
inherited IBModifySQLEditorForm: TIBModifySQLEditorForm |
2 |
tony |
105 |
Left = 949 |
3 |
|
|
Top = 264 |
4 |
tony |
5 |
Caption = 'Modify SQL Editor' |
5 |
tony |
80 |
inherited GenerateBtn: TButton |
6 |
tony |
7 |
OnClick = GenerateBtnClick |
7 |
tony |
5 |
end |
8 |
tony |
80 |
inherited PageControl: TPageControl |
9 |
|
|
inherited SelectPage: TTabSheet |
10 |
tony |
105 |
inherited Label2: TLabel |
11 |
|
|
Width = 106 |
12 |
|
|
Caption = 'Updateable Fields' |
13 |
|
|
end |
14 |
|
|
inherited Label4: TLabel |
15 |
|
|
Top = 290 |
16 |
|
|
end |
17 |
|
|
inherited FieldNamesGrid: TIBDynamicGrid |
18 |
|
|
Height = 112 |
19 |
|
|
end |
20 |
|
|
inherited PrimaryKeysGrid: TIBDynamicGrid |
21 |
|
|
Height = 48 |
22 |
|
|
end |
23 |
|
|
inherited SelectSelectAll: TCheckBox |
24 |
|
|
Top = 200 |
25 |
|
|
end |
26 |
tony |
80 |
object IncludePrimaryKeys: TCheckBox[8] |
27 |
tony |
105 |
Left = 7 |
28 |
tony |
21 |
Height = 22 |
29 |
tony |
105 |
Top = 352 |
30 |
tony |
21 |
Width = 221 |
31 |
|
|
Caption = 'Include Primary keys in Field List' |
32 |
|
|
Checked = True |
33 |
tony |
80 |
OnChange = IncludePrimaryKeysChange |
34 |
tony |
21 |
State = cbChecked |
35 |
tony |
80 |
TabOrder = 5 |
36 |
tony |
21 |
end |
37 |
tony |
105 |
object Label5: TLabel[9] |
38 |
|
|
Left = 7 |
39 |
|
|
Height = 14 |
40 |
|
|
Top = 226 |
41 |
|
|
Width = 138 |
42 |
|
|
Caption = 'Computed By Columns' |
43 |
|
|
ParentColor = False |
44 |
|
|
end |
45 |
|
|
object ReadOnlyGrid: TIBDynamicGrid[10] |
46 |
|
|
Left = 8 |
47 |
|
|
Height = 48 |
48 |
|
|
Top = 241 |
49 |
|
|
Width = 209 |
50 |
|
|
Color = clWindow |
51 |
|
|
Columns = < |
52 |
|
|
item |
53 |
|
|
ButtonStyle = cbsCheckboxColumn |
54 |
|
|
Title.Caption = 'SELECTED' |
55 |
|
|
Width = 30 |
56 |
|
|
FieldName = 'SELECTED' |
57 |
|
|
AutoSizeColumn = False |
58 |
|
|
InitialSortColumn = False |
59 |
|
|
DBLookupProperties.ItemHeight = 0 |
60 |
|
|
DBLookupProperties.ItemWidth = 0 |
61 |
|
|
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
62 |
|
|
end |
63 |
|
|
item |
64 |
|
|
Title.Caption = 'COLUMNNAME' |
65 |
|
|
Width = 64 |
66 |
|
|
FieldName = 'COLUMNNAME' |
67 |
|
|
AutoSizeColumn = True |
68 |
|
|
InitialSortColumn = False |
69 |
|
|
DBLookupProperties.ItemHeight = 0 |
70 |
|
|
DBLookupProperties.ItemWidth = 0 |
71 |
|
|
DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending] |
72 |
|
|
end> |
73 |
|
|
FixedCols = 0 |
74 |
|
|
Options = [dgEditing, dgColumnResize, dgColumnMove, dgRowLines, dgConfirmDelete, dgCancelOnExit, dgDisableDelete, dgDisableInsert] |
75 |
|
|
Scrollbars = ssAutoVertical |
76 |
|
|
TabOrder = 6 |
77 |
|
|
ExpandEditorPanelBelowRow = False |
78 |
|
|
Descending = False |
79 |
|
|
EditorBorderStyle = bsSingle |
80 |
|
|
DefaultPositionAtEnd = False |
81 |
|
|
end |
82 |
tony |
21 |
end |
83 |
tony |
80 |
inherited ExecutePage: TTabSheet |
84 |
|
|
inherited Label18: TLabel |
85 |
|
|
Visible = False |
86 |
tony |
21 |
end |
87 |
tony |
80 |
inherited SelectProcedure: TLabel |
88 |
|
|
Width = 81 |
89 |
|
|
Caption = 'Execute Only' |
90 |
tony |
21 |
end |
91 |
tony |
80 |
inherited InputProcGrid: TIBDynamicGrid |
92 |
|
|
Height = 224 |
93 |
tony |
21 |
end |
94 |
tony |
80 |
inherited OutputProcGrid: TIBDynamicGrid |
95 |
tony |
21 |
Visible = False |
96 |
|
|
end |
97 |
|
|
end |
98 |
|
|
end |
99 |
tony |
80 |
inherited IBSQLEditFrame1: TIBSQLEditFrame |
100 |
|
|
Left = 282 |
101 |
|
|
Height = 339 |
102 |
|
|
Top = 24 |
103 |
|
|
Width = 448 |
104 |
|
|
Anchors = [akTop, akLeft, akRight, akBottom] |
105 |
|
|
ClientHeight = 339 |
106 |
|
|
ClientWidth = 448 |
107 |
|
|
TabOrder = 7 |
108 |
tony |
105 |
DesignLeft = 1974 |
109 |
|
|
DesignTop = 200 |
110 |
tony |
80 |
inherited SQLText: TSynEdit |
111 |
|
|
Height = 313 |
112 |
|
|
Width = 448 |
113 |
|
|
end |
114 |
|
|
inherited ToolBar1: TToolBar |
115 |
|
|
Width = 448 |
116 |
|
|
end |
117 |
|
|
inherited FieldNameList: TIBQuery |
118 |
|
|
ParamData = < |
119 |
|
|
item |
120 |
|
|
DataType = ftUnknown |
121 |
|
|
Name = 'RDB$RELATION_NAME' |
122 |
|
|
ParamType = ptInput |
123 |
|
|
end> |
124 |
|
|
end |
125 |
|
|
inherited PrimaryKeys: TIBQuery |
126 |
|
|
ParamData = < |
127 |
|
|
item |
128 |
|
|
DataType = ftUnknown |
129 |
|
|
Name = 'RDB$RELATION_NAME' |
130 |
|
|
ParamType = ptInput |
131 |
|
|
end> |
132 |
|
|
end |
133 |
|
|
inherited UserProcedures: TIBQuery |
134 |
|
|
AfterScroll = UserProceduresAfterScroll |
135 |
|
|
end |
136 |
|
|
inherited ProcInputParams: TIBQuery |
137 |
|
|
ParamData = < |
138 |
|
|
item |
139 |
|
|
DataType = ftUnknown |
140 |
|
|
Name = 'RDB$PROCEDURE_NAME' |
141 |
|
|
ParamType = ptInput |
142 |
|
|
end> |
143 |
|
|
end |
144 |
|
|
inherited ProcOutputParams: TIBQuery |
145 |
|
|
ParamData = < |
146 |
|
|
item |
147 |
|
|
DataType = ftUnknown |
148 |
|
|
Name = 'RDB$PROCEDURE_NAME' |
149 |
|
|
ParamType = ptInput |
150 |
|
|
end> |
151 |
|
|
end |
152 |
|
|
inherited SQLTransaction: TIBTransaction |
153 |
|
|
Params.Strings = ( ) |
154 |
|
|
end |
155 |
tony |
105 |
inherited IdentityCols: TIBQuery |
156 |
|
|
ParamData = < |
157 |
|
|
item |
158 |
|
|
DataType = ftUnknown |
159 |
|
|
Name = 'RDB$RELATION_NAME' |
160 |
|
|
ParamType = ptInput |
161 |
|
|
end> |
162 |
|
|
end |
163 |
|
|
inherited ReadOnlyFields: TIBQuery |
164 |
|
|
ParamData = < |
165 |
|
|
item |
166 |
|
|
DataType = ftUnknown |
167 |
|
|
Name = 'RDB$RELATION_NAME' |
168 |
|
|
ParamType = ptInput |
169 |
|
|
end> |
170 |
|
|
end |
171 |
|
|
inherited ReadOnlyFieldsSource: TDataSource |
172 |
|
|
left = 436 |
173 |
|
|
top = 203 |
174 |
|
|
end |
175 |
tony |
7 |
end |
176 |
tony |
5 |
end |