24 |
|
{ Corporation. All Rights Reserved. } |
25 |
|
{ Contributor(s): Jeff Overcash } |
26 |
|
{ } |
27 |
+ |
{ IBX For Lazarus (Firebird Express) } |
28 |
+ |
{ Contributor: Tony Whyman, MWA Software http://www.mwasoftware.co.uk } |
29 |
+ |
{ Portions created by MWA Software are copyright McCallum Whyman } |
30 |
+ |
{ Associates Ltd 2011 } |
31 |
|
{************************************************************************} |
32 |
|
|
33 |
|
unit IBDBReg; |
39 |
|
*) |
40 |
|
{$A+} (* Aligned records: On *) |
41 |
|
{$B-} (* Short circuit boolean expressions: Off *) |
38 |
– |
{$G+} (* Imported data: On *) |
42 |
|
{$H+} (* Huge Strings: On *) |
43 |
|
{$J-} (* Modification of Typed Constants: Off *) |
44 |
|
{$M+} (* Generate run-time type information: On *) |
46 |
|
{$Q-} (* Overflow checks: Off *) |
47 |
|
{$R-} (* Range checks: Off *) |
48 |
|
{$T+} (* Typed address: On *) |
46 |
– |
{$U+} (* Pentim-safe FDIVs: On *) |
49 |
|
{$W-} (* Always generate stack frames: Off *) |
50 |
|
{$X+} (* Extended syntax: On *) |
51 |
|
{$Z1} (* Minimum Enumeration Size: 1 Byte *) |
52 |
|
|
53 |
|
interface |
54 |
|
|
55 |
< |
uses {Windows,} SysUtils, Classes, Graphics, Dialogs, Controls, Forms, TypInfo, |
56 |
< |
DB, IBTable, IBDatabase, IBEventsEditor, |
57 |
< |
IBUpdateSQL, IBXConst, ComponentEditors, PropEdits, DBPropEdits, FieldsEditor; |
55 |
> |
uses SysUtils, Classes, Graphics, Dialogs, Controls, Forms, TypInfo, |
56 |
> |
DB, IBTable, IBDatabase, IBEventsEditor, LazarusPackageIntf, |
57 |
> |
IBUpdateSQL, IBUpdate, ComponentEditors, PropEdits, DBPropEdits, FieldsEditor, |
58 |
> |
dbFieldLinkPropEditor, dbFieldListPropEditor, IBDialogs; |
59 |
|
|
60 |
|
type |
61 |
|
|
91 |
|
procedure GetValues(Proc: TGetStrProc); override; |
92 |
|
end; |
93 |
|
|
94 |
+ |
{ TDBStringProperty } |
95 |
+ |
|
96 |
|
TDBStringProperty = class(TStringProperty) |
97 |
+ |
private |
98 |
+ |
function ConnecttoDB: boolean; |
99 |
|
public |
100 |
|
function GetAttributes: TPropertyAttributes; override; |
101 |
|
procedure GetValueList(List: TStrings); virtual; |
102 |
|
procedure GetValues(Proc: TGetStrProc); override; |
103 |
+ |
procedure Edit; override; |
104 |
|
end; |
105 |
|
|
106 |
+ |
{ TIBIndexFieldNamesProperty } |
107 |
+ |
|
108 |
|
TIBIndexFieldNamesProperty = class(TDBStringProperty) |
109 |
|
public |
110 |
|
procedure GetValueList(List: TStrings); override; |
132 |
|
function GetVerbCount: Integer; override; |
133 |
|
end; |
134 |
|
|
135 |
+ |
{ TIBArrayGridEditor } |
136 |
+ |
|
137 |
+ |
TIBArrayGridEditor = class(TComponentEditor) |
138 |
+ |
public |
139 |
+ |
procedure ExecuteVerb(Index: Integer); override; |
140 |
+ |
function GetVerb(Index: Integer): string; override; |
141 |
+ |
function GetVerbCount: Integer; override; |
142 |
+ |
end; |
143 |
+ |
|
144 |
|
{ TIBQueryEditor } |
145 |
|
|
146 |
< |
TIBQueryEditor = class(TComponentEditor) |
146 |
> |
TIBQueryEditor = class(TFieldsComponentEditor) |
147 |
|
public |
148 |
|
procedure ExecuteVerb(Index: Integer); override; |
149 |
|
function GetVerb(Index: Integer): string; override; |
152 |
|
|
153 |
|
{ TIBStoredProcEditor } |
154 |
|
|
155 |
< |
TIBStoredProcEditor = class(TComponentEditor) |
155 |
> |
TIBStoredProcEditor = class(TFieldsComponentEditor) |
156 |
|
public |
157 |
|
procedure ExecuteVerb(Index: Integer); override; |
158 |
|
function GetVerb(Index: Integer): string; override; |
161 |
|
|
162 |
|
{ TIBDataSetEditor } |
163 |
|
|
164 |
< |
TIBDataSetEditor = class(TComponentEditor) |
164 |
> |
TIBDataSetEditor = class(TFieldsComponentEditor) |
165 |
|
public |
166 |
|
procedure ExecuteVerb(Index: Integer); override; |
167 |
|
function GetVerb(Index: Integer): string; override; |
177 |
|
function GetVerbCount: Integer; override; |
178 |
|
end; |
179 |
|
|
180 |
+ |
{ TIBSQLEditor } |
181 |
+ |
|
182 |
+ |
TIBSQLEditor = class(TComponentEditor) |
183 |
+ |
public |
184 |
+ |
procedure ExecuteVerb(Index: Integer); override; |
185 |
+ |
function GetVerb(Index: Integer): string; override; |
186 |
+ |
function GetVerbCount: Integer; override; |
187 |
+ |
end; |
188 |
+ |
|
189 |
+ |
{ TIBServiceEditor} |
190 |
+ |
|
191 |
+ |
TIBServiceEditor = class(TComponentEditor) |
192 |
+ |
public |
193 |
+ |
procedure ExecuteVerb(Index: Integer); override; |
194 |
+ |
function GetVerb(Index: Integer): string; override; |
195 |
+ |
function GetVerbCount: Integer; override; |
196 |
+ |
end; |
197 |
+ |
|
198 |
|
TIBStoredProcParamsProperty = class(TCollectionPropertyEditor) |
199 |
|
public |
200 |
|
procedure Edit; override; |
201 |
|
end; |
202 |
< |
(* |
202 |
> |
|
203 |
> |
{ TIBTableFieldLinkProperty } |
204 |
> |
|
205 |
|
TIBTableFieldLinkProperty = class(TFieldLinkProperty) |
206 |
|
private |
207 |
|
FTable: TIBTable; |
208 |
|
protected |
209 |
+ |
function GetIndexDefs: TIndexDefs; override; |
210 |
|
function GetIndexFieldNames: string; override; |
211 |
|
function GetMasterFields: string; override; |
212 |
|
procedure SetIndexFieldNames(const Value: string); override; |
214 |
|
public |
215 |
|
procedure Edit; override; |
216 |
|
end; |
217 |
< |
*) |
217 |
> |
|
218 |
|
{ TSQLPropertyEditor } |
219 |
|
|
220 |
|
TSQLPropertyEditor = class(TStringsPropertyEditor) |
229 |
|
procedure Edit; override; |
230 |
|
end; |
231 |
|
|
232 |
+ |
{TIBSQLSQLPropertyEditor } |
233 |
+ |
|
234 |
+ |
TIBSQLSQLPropertyEditor = class(TSQLPropertyEditor) |
235 |
+ |
public |
236 |
+ |
procedure Edit; override; |
237 |
+ |
end; |
238 |
+ |
|
239 |
|
{ TIBDatasetSQLProperty } |
240 |
|
|
241 |
|
TIBDatasetSQLProperty = class(TSQLPropertyEditor) |
332 |
|
procedure Edit; override; |
333 |
|
end; |
334 |
|
|
335 |
+ |
{ TDBDynamicGridFieldProperty } |
336 |
+ |
|
337 |
+ |
TDBDynamicGridFieldProperty = class(TFieldProperty) |
338 |
+ |
public |
339 |
+ |
procedure FillValues(const Values: TStringList); override; |
340 |
+ |
end; |
341 |
+ |
|
342 |
+ |
{ TDBLookupPropertiesGridFieldProperty } |
343 |
+ |
|
344 |
+ |
TDBLookupPropertiesGridFieldProperty = class(TFieldProperty) |
345 |
+ |
public |
346 |
+ |
procedure FillValues(const Values: TStringList); override; |
347 |
+ |
end; |
348 |
+ |
|
349 |
+ |
{ TIBTreeViewFieldProperty } |
350 |
+ |
|
351 |
+ |
TIBTreeViewFieldProperty = class(TFieldProperty) |
352 |
+ |
public |
353 |
+ |
procedure FillValues(const Values: TStringList); override; |
354 |
+ |
end; |
355 |
+ |
|
356 |
+ |
{ TIBDynamicGridIndexNamesProperty } |
357 |
+ |
|
358 |
+ |
TIBDynamicGridIndexNamesProperty = class(TIndexFieldNamesProperty) |
359 |
+ |
protected |
360 |
+ |
function GetFieldDefs: TFieldDefs; override; |
361 |
+ |
function GetIndexFieldNames: string; override; |
362 |
+ |
procedure SetIndexFieldNames(const Value: string); override; |
363 |
+ |
end; |
364 |
+ |
|
365 |
+ |
{ TIBFieldDefsProperty } |
366 |
+ |
|
367 |
+ |
TIBFieldDefsProperty = class(TCollectionPropertyEditor) |
368 |
+ |
public |
369 |
+ |
procedure Edit; override; |
370 |
+ |
end; |
371 |
+ |
|
372 |
+ |
{ TIBIndexDefsProperty } |
373 |
+ |
|
374 |
+ |
TIBIndexDefsProperty = class(TCollectionPropertyEditor) |
375 |
+ |
public |
376 |
+ |
procedure Edit; override; |
377 |
+ |
end; |
378 |
+ |
|
379 |
+ |
|
380 |
|
procedure Register; |
381 |
|
|
382 |
|
implementation |
383 |
|
|
384 |
< |
uses IB, IBQuery, IBStoredProc, IBCustomDataSet, |
385 |
< |
IBIntf, IBSQL, (*IBSQLMonitor,*) IBDatabaseInfo, IBEvents, |
386 |
< |
IBServices, (*IBInstall,*) IBDatabaseEdit, IBTransactionEdit, |
387 |
< |
IBBatchMove, DBLoginDlg, IBExtract,LResources, IBSelectSQLEditor, |
384 |
> |
uses IB, IBQuery, IBStoredProc, IBCustomDataSet, FBMessages, |
385 |
> |
IBSQL, IBSQLMonitor, IBDatabaseInfo, IBEvents, IBTypes, |
386 |
> |
IBServices, IBDatabaseEdit, IBTransactionEdit, |
387 |
> |
IBBatchMove, IBExtract,LResources, IBSelectSQLEditor, |
388 |
|
IBModifySQLEditor,IBDeleteSQLEditor,IBRefreshSQLEditor, |
389 |
< |
IBInsertSQLEditor, IBGeneratorEditor, IBUpdateSQLEditor, IBDataSetEditor; |
389 |
> |
IBInsertSQLEditor, IBGeneratorEditor, IBUpdateSQLEditor, IBDataSetEditor, |
390 |
> |
IBSQLEditor, ibserviceeditor, LCLVersion, IBDynamicGrid, IBLookupComboEditBox, |
391 |
> |
IBTreeView, DBControlGrid, ibxscript, IBLocalDBSupport, IBDSDialogs, |
392 |
> |
IBArrayGrid, IBVersion, IBDataOutput; |
393 |
> |
|
394 |
> |
const |
395 |
> |
IBPalette1 = 'Firebird'; {do not localize} |
396 |
> |
IBPalette2 = 'Firebird Admin'; {do not localize} |
397 |
> |
IBPalette3 = 'Firebird Data Controls'; {do not localize} |
398 |
> |
|
399 |
> |
resourcestring |
400 |
> |
SInterbaseExpressVersion = 'Firebird Express for Lazarus ' + IBX_VERSION; |
401 |
> |
SEditSQL = 'Edit SQL'; |
402 |
> |
SIBSQLEditor = 'IBSQL Editor'; |
403 |
> |
SIBServiceEditor = 'Edit IB Service'; |
404 |
> |
SIBUpdateSQLEditor = '&UpdateSQL Editor...'; |
405 |
> |
SIBDataSetEditor = '&Dataset Editor...'; |
406 |
> |
SExecute = 'E&xecute'; |
407 |
> |
SIBDatabaseEditor = 'Da&tabase Editor...'; |
408 |
> |
SIBTransactionEditor = '&Transaction Editor...'; |
409 |
> |
SIBUpdateLayout = 'Update Layout'; |
410 |
|
|
411 |
|
procedure Register; |
412 |
|
begin |
413 |
< |
RegisterComponents(IBPalette1, [TIBTable, TIBQuery, |
414 |
< |
TIBStoredProc, TIBDatabase, TIBTransaction, TIBUpdateSQL, TIBBatchMove, |
415 |
< |
TIBDataSet, TIBSQL, TIBDatabaseInfo, (*TIBSQLMonitor,*) TIBEvents, TIBExtract]); |
416 |
< |
if (TryIBLoad) and IBServiceAPIPresent then |
413 |
> |
if not TryIBLoad then |
414 |
> |
begin |
415 |
> |
MessageDlg('IBX is unable to locate the Firebird Library - have you remembered to install it?',mtError,[mbOK],0); |
416 |
> |
Exit; |
417 |
> |
end; |
418 |
> |
|
419 |
> |
RegisterNoIcon([TIBStringField, TIBBCDField, TIBMemoField, TIBArrayField]); |
420 |
> |
{$if lcl_fullversion < 01010000} |
421 |
> |
{see http://bugs.freepascal.org/view.php?id=19035 } |
422 |
> |
RegisterNoIcon([TIntegerField]); |
423 |
> |
{$endif} |
424 |
> |
RegisterComponents(IBPalette1, [ TIBQuery, TIBDataSet, |
425 |
> |
TIBDatabase, TIBTransaction, TIBUpdateSQL, TIBUpdate, TIBEvents, |
426 |
> |
TIBSQL, TIBDatabaseInfo, TIBSQLMonitor, |
427 |
> |
TIBStoredProc,TIBBatchMove, TIBTable,TIBExtract, TIBXScript, TIBLocalDBSupport, |
428 |
> |
TIBBlockFormatOut,TIBCSVDataOut,TIBInsertStmtsOut]); |
429 |
> |
if FirebirdAPI.HasServiceAPI then |
430 |
|
RegisterComponents(IBPalette2, [TIBConfigService, TIBBackupService, |
431 |
|
TIBRestoreService, TIBValidationService, TIBStatisticalService, |
432 |
|
TIBLogService, TIBSecurityService, TIBServerProperties]); |
433 |
< |
RegisterClasses([TIBStringField, TIBBCDField]); |
434 |
< |
// RegisterFields([TIBStringField, TIBBCDField]); --not sure if this is needed in lazarus |
433 |
> |
|
434 |
> |
|
435 |
> |
RegisterComponents(IBPalette3,[TIBLookupComboEditBox,TIBDynamicGrid,TIBTreeView,TDBControlGrid, TIBArrayGrid]); |
436 |
|
RegisterPropertyEditor(TypeInfo(TIBFileName), TIBDatabase, 'DatabaseName', TIBFileNameProperty); {do not localize} |
437 |
|
RegisterPropertyEditor(TypeInfo(string), TIBStoredProc, 'StoredProcName', TIBStoredProcNameProperty); {do not localize} |
438 |
|
RegisterPropertyEditor(TypeInfo(TParams), TIBStoredProc, 'Params', TIBStoredProcParamsProperty); |
439 |
|
RegisterPropertyEditor(TypeInfo(string), TIBTable, 'TableName', TIBTableNameProperty); {do not localize} |
440 |
|
RegisterPropertyEditor(TypeInfo(string), TIBTable, 'IndexName', TIBIndexNameProperty); {do not localize} |
441 |
|
RegisterPropertyEditor(TypeInfo(string), TIBTable, 'IndexFieldNames', TIBIndexFieldNamesProperty); {do not localize} |
442 |
< |
// RegisterPropertyEditor(TypeInfo(string), TIBTable, 'MasterFields', TIBTableFieldLinkProperty); {do not localize} |
442 |
> |
RegisterPropertyEditor(TypeInfo(string), TIBTable, 'MasterFields', TIBTableFieldLinkProperty); {do not localize} |
443 |
> |
RegisterPropertyEditor(TypeInfo(TFieldDefs), TIBTable, 'FieldDefs', TIBFieldDefsProperty); {do not localize} |
444 |
> |
RegisterPropertyEditor(TypeInfo(TIndexDefs), TIBTable, 'IndexDefs', TIBIndexDefsProperty); {do not localize} |
445 |
|
RegisterPropertyEditor(TypeInfo(TStrings), TIBQuery, 'SQL', TIBQuerySQLProperty); {do not localize} |
446 |
|
RegisterPropertyEditor(TypeInfo(TStrings), TIBDataSet, 'SelectSQL', TIBDatasetSQLProperty); {do not localize} |
447 |
|
RegisterPropertyEditor(TypeInfo(TStrings), TIBDataSet, 'ModifySQL', TIBUpdateSQLProperty); {do not localize} |
448 |
|
RegisterPropertyEditor(TypeInfo(TStrings), TIBDataSet, 'InsertSQL', TIBInsertSQLProperty); {do not localize} |
449 |
|
RegisterPropertyEditor(TypeInfo(TStrings), TIBDataSet, 'RefreshSQL', TIBRefreshSQLProperty); {do not localize} |
450 |
|
RegisterPropertyEditor(TypeInfo(TStrings), TIBDataSet, 'DeleteSQL', TIBDeleteSQLProperty); {do not localize} |
451 |
< |
RegisterPropertyEditor(TypeInfo(TStrings), TIBSQL, 'SQL', TIBSQLProperty); {do not localize} |
451 |
> |
RegisterPropertyEditor(TypeInfo(TStrings), TIBSQL, 'SQL', TIBSQLSQLPropertyEditor); {do not localize} |
452 |
|
RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdateSQL, 'RefreshSQL', TIBUpdateSQLRefreshSQLProperty); {do not localize} |
453 |
|
RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdateSQL, 'ModifySQL', TIBUpdateSQLUpdateProperty); {do not localize} |
454 |
|
RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdateSQL, 'InsertSQL', TIBUpdateSQLInsertSQLProperty); {do not localize} |
455 |
|
RegisterPropertyEditor(TypeInfo(TStrings), TIBUpdateSQL, 'DeleteSQL', TIBUpdateSQLDeleteProperty); {do not localize} |
456 |
|
RegisterPropertyEditor(TypeInfo(TStrings), TIBEvents, 'Events', TIBEventListProperty); {do not localize} |
457 |
< |
RegisterPropertyEditor(TypeInfo(TPersistent), TIBDataSet, 'Generator', TIBGeneratorProperty); {do not localize} |
457 |
> |
RegisterPropertyEditor(TypeInfo(TPersistent), TIBDataSet, 'GeneratorField', TIBGeneratorProperty); {do not localize} |
458 |
> |
RegisterPropertyEditor(TypeInfo(TPersistent), TIBQuery, 'GeneratorField', TIBGeneratorProperty); {do not localize} |
459 |
|
|
460 |
|
RegisterComponentEditor(TIBDatabase, TIBDatabaseEditor); |
461 |
|
RegisterComponentEditor(TIBTransaction, TIBTransactionEditor); |
463 |
|
RegisterComponentEditor(TIBDataSet, TIBDataSetEditor); |
464 |
|
RegisterComponentEditor(TIBQuery, TIBQueryEditor); |
465 |
|
RegisterComponentEditor(TIBStoredProc, TIBStoredProcEditor); |
466 |
+ |
RegisterComponentEditor(TIBSQL, TIBSQLEditor); |
467 |
+ |
RegisterComponentEditor(TIBCustomService, TIBServiceEditor); |
468 |
+ |
RegisterComponentEditor(TIBArrayGrid, TIBArrayGridEditor); |
469 |
+ |
|
470 |
+ |
|
471 |
+ |
{Firebird Data Access Controls} |
472 |
+ |
RegisterPropertyEditor(TypeInfo(string), TDBLookupProperties, 'KeyField', TDBDynamicGridFieldProperty); |
473 |
+ |
RegisterPropertyEditor(TypeInfo(string), TDBLookupProperties, 'ListField', TDBDynamicGridFieldProperty); |
474 |
+ |
RegisterPropertyEditor(TypeInfo(string), TIBDynamicGrid, 'IndexFieldNames', TIBDynamicGridIndexNamesProperty); |
475 |
+ |
RegisterPropertyEditor(TypeInfo(string), TDBLookupProperties, 'DataFieldName', TDBLookupPropertiesGridFieldProperty); |
476 |
+ |
RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'KeyField', TIBTreeViewFieldProperty); |
477 |
+ |
RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'TextField', TIBTreeViewFieldProperty); |
478 |
+ |
RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'ParentField', TIBTreeViewFieldProperty); |
479 |
+ |
RegisterPropertyEditor(TypeInfo(string), TIBTreeView, 'HasChildField', TIBTreeViewFieldProperty); |
480 |
+ |
|
481 |
+ |
IBGUIInterface := TIBDSLCLInterface.Create; |
482 |
+ |
end; |
483 |
+ |
|
484 |
+ |
procedure LoadDataSourceFields(DataSource: TDataSource; List: TStrings); |
485 |
+ |
var |
486 |
+ |
DataSet: TDataSet; |
487 |
+ |
i: Integer; |
488 |
+ |
begin |
489 |
+ |
if Assigned(DataSource) then |
490 |
+ |
begin |
491 |
+ |
DataSet := DataSource.DataSet; |
492 |
+ |
if Assigned(DataSet) then |
493 |
+ |
begin |
494 |
+ |
if DataSet.Fields.Count > 0 then |
495 |
+ |
DataSet.GetFieldNames(List) |
496 |
+ |
else |
497 |
+ |
begin |
498 |
+ |
DataSet.FieldDefs.Update; |
499 |
+ |
for i := 0 to DataSet.FieldDefs.Count - 1 do |
500 |
+ |
List.Add(DataSet.FieldDefs[i].Name); |
501 |
+ |
end; |
502 |
+ |
end; |
503 |
+ |
end; |
504 |
+ |
end; |
505 |
+ |
|
506 |
+ |
{ TIBIndexDefsProperty } |
507 |
+ |
|
508 |
+ |
procedure TIBIndexDefsProperty.Edit; |
509 |
+ |
var IndexDefs: TIndexDefs; |
510 |
+ |
begin |
511 |
+ |
IndexDefs := TIndexDefs(GetObjectValue); |
512 |
+ |
if IndexDefs <> nil then |
513 |
+ |
IndexDefs.Update; |
514 |
+ |
inherited Edit; |
515 |
+ |
end; |
516 |
+ |
|
517 |
+ |
{ TIBFieldDefsProperty } |
518 |
+ |
|
519 |
+ |
procedure TIBFieldDefsProperty.Edit; |
520 |
+ |
var FieldDefs: TFieldDefs; |
521 |
+ |
begin |
522 |
+ |
FieldDefs := TFieldDefs(GetObjectValue); |
523 |
+ |
if FieldDefs <> nil then |
524 |
+ |
FieldDefs.Update; |
525 |
+ |
inherited Edit; |
526 |
+ |
end; |
527 |
+ |
|
528 |
+ |
{ TIBArrayGridEditor } |
529 |
+ |
|
530 |
+ |
procedure TIBArrayGridEditor.ExecuteVerb(Index: Integer); |
531 |
+ |
begin |
532 |
+ |
if Index < inherited GetVerbCount then |
533 |
+ |
inherited ExecuteVerb(Index) |
534 |
+ |
else |
535 |
+ |
case Index of |
536 |
+ |
0: TIBArrayGrid(Component).UpdateLayout; |
537 |
+ |
end; |
538 |
+ |
end; |
539 |
+ |
|
540 |
+ |
function TIBArrayGridEditor.GetVerb(Index: Integer): string; |
541 |
+ |
begin |
542 |
+ |
if Index < inherited GetVerbCount then |
543 |
+ |
Result := inherited GetVerb(Index) else |
544 |
+ |
begin |
545 |
+ |
Dec(Index, inherited GetVerbCount); |
546 |
+ |
case Index of |
547 |
+ |
0: Result := SIBUpdateLayout; |
548 |
+ |
1 : Result := SInterbaseExpressVersion ; |
549 |
+ |
end; |
550 |
+ |
end; |
551 |
+ |
end; |
552 |
+ |
|
553 |
+ |
function TIBArrayGridEditor.GetVerbCount: Integer; |
554 |
+ |
begin |
555 |
+ |
Result := 2; |
556 |
+ |
end; |
557 |
+ |
|
558 |
+ |
{ TDBLookupPropertiesGridFieldProperty } |
559 |
+ |
|
560 |
+ |
procedure TDBLookupPropertiesGridFieldProperty.FillValues( |
561 |
+ |
const Values: TStringList); |
562 |
+ |
var |
563 |
+ |
P: TDBLookupProperties; |
564 |
+ |
begin |
565 |
+ |
P :=TDBLookupProperties(GetComponent(0)); |
566 |
+ |
if not (P is TDBLookupProperties) then exit; |
567 |
+ |
LoadDataSourceFields(TIBDynamicGrid(P.Owner.Grid).DataSource, Values); |
568 |
+ |
end; |
569 |
+ |
|
570 |
+ |
{ TIBTreeViewFieldProperty } |
571 |
+ |
|
572 |
+ |
procedure TIBTreeViewFieldProperty.FillValues(const Values: TStringList); |
573 |
+ |
var ListSource: TDataSource; |
574 |
+ |
begin |
575 |
+ |
ListSource := TIBTreeView(GetComponent(0)).DataSource; |
576 |
+ |
LoadDataSourceFields(ListSource, Values); |
577 |
+ |
end; |
578 |
+ |
|
579 |
+ |
{ TIBDynamicGridIndexNamesProperty } |
580 |
+ |
|
581 |
+ |
function TIBDynamicGridIndexNamesProperty.GetFieldDefs: TFieldDefs; |
582 |
+ |
var Grid: TIBDynamicGrid; |
583 |
+ |
begin |
584 |
+ |
Result := nil; |
585 |
+ |
Grid := TIBDynamicGrid(GetComponent(0)); |
586 |
+ |
if assigned(Grid.DataSource) and assigned(Grid.DataSource.DataSet) then |
587 |
+ |
Result := Grid.DataSource.DataSet.FieldDefs |
588 |
+ |
end; |
589 |
+ |
|
590 |
+ |
function TIBDynamicGridIndexNamesProperty.GetIndexFieldNames: string; |
591 |
+ |
var Grid: TIBDynamicGrid; |
592 |
+ |
begin |
593 |
+ |
Grid := TIBDynamicGrid(GetComponent(0)); |
594 |
+ |
Result := Grid.IndexFieldNames |
595 |
+ |
end; |
596 |
+ |
|
597 |
+ |
procedure TIBDynamicGridIndexNamesProperty.SetIndexFieldNames( |
598 |
+ |
const Value: string); |
599 |
+ |
var Grid: TIBDynamicGrid; |
600 |
+ |
begin |
601 |
+ |
Grid := TIBDynamicGrid(GetComponent(0)); |
602 |
+ |
Grid.IndexFieldNames := Value |
603 |
+ |
end; |
604 |
+ |
|
605 |
+ |
{ TDBDynamicGridFieldProperty } |
606 |
+ |
|
607 |
+ |
procedure TDBDynamicGridFieldProperty.FillValues(const Values: TStringList); |
608 |
+ |
var |
609 |
+ |
P: TDBLookupProperties; |
610 |
+ |
begin |
611 |
+ |
P :=TDBLookupProperties(GetComponent(0)); |
612 |
+ |
if not (P is TDBLookupProperties) then exit; |
613 |
+ |
LoadDataSourceFields(P.ListSource, Values); |
614 |
+ |
end; |
615 |
+ |
|
616 |
+ |
{ TIBServiceEditor } |
617 |
+ |
|
618 |
+ |
procedure TIBServiceEditor.ExecuteVerb(Index: Integer); |
619 |
+ |
begin |
620 |
+ |
if Index < inherited GetVerbCount then |
621 |
+ |
inherited ExecuteVerb(Index) else |
622 |
+ |
begin |
623 |
+ |
Dec(Index, inherited GetVerbCount); |
624 |
+ |
case Index of |
625 |
+ |
0 : if ibserviceeditor.EditIBService(TIBCustomService(Component)) then Designer.Modified; |
626 |
+ |
end; |
627 |
+ |
end; |
628 |
+ |
end; |
629 |
+ |
|
630 |
+ |
function TIBServiceEditor.GetVerb(Index: Integer): string; |
631 |
+ |
begin |
632 |
+ |
if Index < inherited GetVerbCount then |
633 |
+ |
Result := inherited GetVerb(Index) else |
634 |
+ |
begin |
635 |
+ |
Dec(Index, inherited GetVerbCount); |
636 |
+ |
case Index of |
637 |
+ |
0: Result := SIBServiceEditor; |
638 |
+ |
1 : Result := SInterbaseExpressVersion; |
639 |
+ |
end; |
640 |
+ |
end; |
641 |
+ |
end; |
642 |
+ |
|
643 |
+ |
function TIBServiceEditor.GetVerbCount: Integer; |
644 |
+ |
begin |
645 |
+ |
Result := inherited GetVerbCount + 2; |
646 |
|
end; |
647 |
|
|
648 |
|
{ TIBFileNameProperty } |
651 |
|
with TOpenDialog.Create(Application) do |
652 |
|
try |
653 |
|
InitialDir := ExtractFilePath(GetStrValue); |
654 |
< |
Filter := 'Database Files|*.gdb'; {do not localize} |
654 |
> |
Filter := SDatabaseFilter; {do not localize} |
655 |
|
if Execute then |
656 |
|
SetStrValue(FileName); |
657 |
|
finally |
679 |
|
i : integer; |
680 |
|
begin |
681 |
|
StoredProc := GetComponent(0) as TIBStoredProc; |
682 |
+ |
if StoredProc.Database = nil then |
683 |
+ |
Exit; |
684 |
+ |
|
685 |
|
with StoredProc do |
686 |
+ |
try |
687 |
|
for I := 0 to StoredProcedureNames.Count - 1 do |
688 |
|
Proc (StoredProcedureNames[i]); |
689 |
+ |
except on E: Exception do |
690 |
+ |
MessageDlg(E.Message,mtError,[mbOK],0) |
691 |
+ |
end; |
692 |
|
end; |
693 |
|
|
694 |
|
{ TIBTableNameProperty } |
695 |
|
|
696 |
|
procedure TIBTableNameProperty.GetValues(Proc: TGetStrProc); |
697 |
|
var |
698 |
< |
TableName : TIBTable; |
698 |
> |
Table : TIBTable; |
699 |
|
i : integer; |
700 |
|
begin |
701 |
< |
TableName := GetComponent(0) as TIBTable; |
702 |
< |
with TableName do |
701 |
> |
Table := GetComponent(0) as TIBTable; |
702 |
> |
if Table.Database = nil then |
703 |
> |
Exit; |
704 |
> |
with Table do |
705 |
|
for I := 0 to TableNames.Count - 1 do |
706 |
|
Proc (TableNames[i]); |
707 |
|
end; |
708 |
|
|
709 |
|
{ TDBStringProperty } |
710 |
|
|
711 |
+ |
function TDBStringProperty.ConnecttoDB: boolean; |
712 |
+ |
var DataSet: TIBCustomDataSet; |
713 |
+ |
begin |
714 |
+ |
Result := false; |
715 |
+ |
DataSet := (GetComponent(0) as TIBCustomDataSet); |
716 |
+ |
if assigned(Dataset.Database) then |
717 |
+ |
begin |
718 |
+ |
try |
719 |
+ |
DataSet.Database.Connected := true; |
720 |
+ |
except on E: Exception do |
721 |
+ |
ShowMessage(E.Message) |
722 |
+ |
end; |
723 |
+ |
Result := DataSet.Database.Connected |
724 |
+ |
end; |
725 |
+ |
end; |
726 |
+ |
|
727 |
|
function TDBStringProperty.GetAttributes: TPropertyAttributes; |
728 |
|
begin |
729 |
|
Result := [paValueList, paSortList, paMultiSelect]; |
738 |
|
I: Integer; |
739 |
|
Values: TStringList; |
740 |
|
begin |
741 |
+ |
if not ConnecttoDB then Exit; |
742 |
|
Values := TStringList.Create; |
743 |
|
try |
744 |
|
GetValueList(Values); |
748 |
|
end; |
749 |
|
end; |
750 |
|
|
751 |
+ |
procedure TDBStringProperty.Edit; |
752 |
+ |
begin |
753 |
+ |
if ConnecttoDB then |
754 |
+ |
inherited Edit; |
755 |
+ |
end; |
756 |
+ |
|
757 |
|
{ Utility Functions } |
758 |
|
|
759 |
|
function GetPropertyValue(Instance: TPersistent; const PropName: string): TPersistent; |
815 |
|
Query: TIBQuery; |
816 |
|
begin |
817 |
|
Query := GetComponent(0) as TIBQuery; |
818 |
< |
if Assigned(Query.Database) and |
478 |
< |
IBSelectSQLEditor.EditSQL(Query.Database,Query.Transaction,Query.SQL) then Modified; |
818 |
> |
if IBSelectSQLEditor.EditSQL(Query,Query.SQL) then Modified; |
819 |
|
end; |
820 |
|
|
821 |
|
{ TIBDatasetSQLProperty } |
825 |
|
IBDataset: TIBDataset; |
826 |
|
begin |
827 |
|
IBDataset := GetComponent(0) as TIBDataset; |
828 |
< |
if Assigned(IBDataSet.Database) and |
489 |
< |
IBSelectSQLEditor.EditSQL(IBDataSet.Database,IBDataSet.Transaction,IBDataSet.SelectSQL) then Modified; |
828 |
> |
if IBSelectSQLEditor.EditSQL(IBDataSet,IBDataSet.SelectSQL) then Modified; |
829 |
|
end; |
830 |
|
|
831 |
|
{ TIBSQLProperty } |
835 |
|
IBSQL: TIBSQL; |
836 |
|
begin |
837 |
|
IBSQL := GetComponent(0) as TIBSQL; |
838 |
< |
if IBSelectSQLEditor.EditSQL(IBSQL.Database,IBSQL.Transaction,IBSQL.SQL) then Modified; |
838 |
> |
if IBSQLEditor.EditSQL(IBSQL) then Modified; |
839 |
|
end; |
840 |
|
|
841 |
|
{ TIBUpdateSQLEditor } |
849 |
|
begin |
850 |
|
case Index of |
851 |
|
0 : Result := SIBUpdateSQLEditor; |
852 |
< |
1: Result := SInterbaseExpressVersion; |
852 |
> |
1: Result := SInterbaseExpressVersion ; |
853 |
|
end; |
854 |
|
end; |
855 |
|
|
856 |
|
function TIBUpdateSQLEditor.GetVerbCount: Integer; |
857 |
|
begin |
858 |
< |
Result := 2; |
858 |
> |
Result := 2; |
859 |
|
end; |
860 |
|
|
861 |
|
{ TIBDataSetEditor } |
862 |
|
|
863 |
|
procedure TIBDataSetEditor.ExecuteVerb(Index: Integer); |
525 |
– |
var |
526 |
– |
IBDataset: TIBDataset; |
864 |
|
begin |
865 |
+ |
if Index < inherited GetVerbCount then |
866 |
+ |
inherited ExecuteVerb(Index) else |
867 |
+ |
begin |
868 |
+ |
Dec(Index, inherited GetVerbCount); |
869 |
|
case Index of |
870 |
|
0: |
871 |
|
if IBDataSetEditor.EditIBDataSet(TIBDataSet(Component)) then |
872 |
|
Designer.Modified; |
873 |
|
1: (Component as TIBDataSet).ExecSQL; |
874 |
|
end; |
875 |
+ |
end; |
876 |
|
end; |
877 |
|
|
878 |
|
function TIBDataSetEditor.GetVerb(Index: Integer): string; |
884 |
|
case Index of |
885 |
|
0: Result := SIBDataSetEditor; |
886 |
|
1: Result := SExecute; |
887 |
< |
2: Result := SInterbaseExpressVersion; |
887 |
> |
2: Result := SInterbaseExpressVersion ; |
888 |
|
end; |
889 |
|
end; |
890 |
|
end; |
891 |
|
|
892 |
|
function TIBDataSetEditor.GetVerbCount: Integer; |
893 |
|
begin |
894 |
< |
Result := 3; |
894 |
> |
Result := inherited GetVerbCount + 3; |
895 |
|
end; |
896 |
|
|
897 |
|
{ TIBEventListProperty } |
910 |
|
Events := TStringList.Create; |
911 |
|
try |
912 |
|
Events.Assign( IBEvents.Events); |
913 |
< |
if EditAlerterEvents( Events) then IBEvents.Events.Assign(Events); |
913 |
> |
if EditAlerterEvents( Events) then |
914 |
> |
begin |
915 |
> |
IBEvents.Events.Assign(Events); |
916 |
> |
Modified |
917 |
> |
end; |
918 |
|
finally |
919 |
|
Events.Free; |
920 |
|
end; |
941 |
|
Dec(Index, inherited GetVerbCount); |
942 |
|
case Index of |
943 |
|
0: Result := SIBDatabaseEditor; |
944 |
< |
1 : Result := SInterbaseExpressVersion; |
944 |
> |
1 : Result := SInterbaseExpressVersion ; |
945 |
|
end; |
946 |
|
end; |
947 |
|
end; |
964 |
|
begin |
965 |
|
case Index of |
966 |
|
0: Result := SIBTransactionEditor; |
967 |
< |
1: Result := SInterbaseExpressVersion; |
967 |
> |
1: Result := SInterbaseExpressVersion ; |
968 |
|
end; |
969 |
|
end; |
970 |
|
|
979 |
|
var |
980 |
|
Query: TIBQuery; |
981 |
|
begin |
982 |
+ |
if Index < inherited GetVerbCount then |
983 |
+ |
inherited ExecuteVerb(Index) else |
984 |
+ |
begin |
985 |
|
Query := Component as TIBQuery; |
986 |
|
Dec(Index, inherited GetVerbCount); |
987 |
|
case Index of |
988 |
|
0: Query.ExecSQL; |
989 |
< |
1: if ibselectsqleditor.EditSQL(Query.Database,Query.Transaction,Query.SQL) then Designer.Modified; |
989 |
> |
1: if ibselectsqleditor.EditSQL(Query,Query.SQL) then Designer.Modified; |
990 |
|
end; |
991 |
+ |
end; |
992 |
|
end; |
993 |
|
|
994 |
|
function TIBQueryEditor.GetVerb(Index: Integer): string; |
1000 |
|
case Index of |
1001 |
|
0: Result := SExecute; |
1002 |
|
1: Result := SEditSQL; |
1003 |
< |
2: Result := SInterbaseExpressVersion; |
1003 |
> |
2: Result := SInterbaseExpressVersion ; |
1004 |
|
end; |
1005 |
|
end; |
1006 |
|
end; |
1007 |
|
|
1008 |
|
function TIBQueryEditor.GetVerbCount: Integer; |
1009 |
|
begin |
1010 |
< |
Result := 3; |
1010 |
> |
Result := inherited GetVerbCount + 3; |
1011 |
|
end; |
1012 |
|
|
1013 |
|
{ TIBStoredProcEditor } |
1014 |
|
|
1015 |
|
procedure TIBStoredProcEditor.ExecuteVerb(Index: Integer); |
1016 |
|
begin |
1017 |
+ |
if Index < inherited GetVerbCount then |
1018 |
+ |
inherited ExecuteVerb(Index) else |
1019 |
+ |
begin |
1020 |
+ |
Dec(Index, inherited GetVerbCount); |
1021 |
|
if Index = 0 then (Component as TIBStoredProc).ExecProc; |
1022 |
+ |
end; |
1023 |
|
end; |
1024 |
|
|
1025 |
|
function TIBStoredProcEditor.GetVerb(Index: Integer): string; |
1026 |
|
begin |
1027 |
+ |
if Index < inherited GetVerbCount then |
1028 |
+ |
Result := inherited GetVerb(Index) else |
1029 |
+ |
begin |
1030 |
+ |
Dec(Index, inherited GetVerbCount); |
1031 |
|
case Index of |
1032 |
|
0: Result := SExecute; |
1033 |
< |
1: Result := SInterbaseExpressVersion; |
1033 |
> |
1: Result := SInterbaseExpressVersion ; |
1034 |
|
end; |
1035 |
+ |
end; |
1036 |
|
end; |
1037 |
|
|
1038 |
|
function TIBStoredProcEditor.GetVerbCount: Integer; |
1056 |
|
end; |
1057 |
|
inherited Edit; |
1058 |
|
end; |
1059 |
< |
(* |
1059 |
> |
|
1060 |
|
{ TIBTableFieldLinkProperty } |
1061 |
|
|
1062 |
|
procedure TIBTableFieldLinkProperty.Edit; |
1063 |
|
begin |
1064 |
|
FTable := DataSet as TIBTable; |
1065 |
+ |
if assigned(FTable.Database) then |
1066 |
+ |
FTable.Database.Connected := true; |
1067 |
|
inherited Edit; |
1068 |
|
end; |
1069 |
|
|
1070 |
+ |
function TIBTableFieldLinkProperty.GetIndexDefs: TIndexDefs; |
1071 |
+ |
begin |
1072 |
+ |
Result := FTable.IndexDefs |
1073 |
+ |
end; |
1074 |
+ |
|
1075 |
|
function TIBTableFieldLinkProperty.GetIndexFieldNames: string; |
1076 |
|
begin |
1077 |
|
Result := FTable.IndexFieldNames; |
1090 |
|
procedure TIBTableFieldLinkProperty.SetMasterFields(const Value: string); |
1091 |
|
begin |
1092 |
|
FTable.MasterFields := Value; |
1093 |
< |
end;*) |
1093 |
> |
end; |
1094 |
|
|
1095 |
|
{ TIBUpdateSQLProperty } |
1096 |
|
|
1099 |
|
IBDataset: TIBDataset; |
1100 |
|
begin |
1101 |
|
IBDataset := GetComponent(0) as TIBDataset; |
1102 |
< |
if Assigned(IBDataSet.Database) and |
736 |
< |
IBModifySQLEditor.EditSQL(IBDataSet.Database,IBDataSet.Transaction,IBDataSet.ModifySQL) then Modified; |
1102 |
> |
if IBModifySQLEditor.EditSQL(IBDataSet,IBDataSet.ModifySQL) then Modified; |
1103 |
|
end; |
1104 |
|
|
1105 |
|
{ TIBUpdateSQLUpdateProperty } |
1106 |
|
|
1107 |
|
procedure TIBUpdateSQLUpdateProperty.Edit; |
1108 |
|
begin |
1109 |
< |
if not GetObjects then |
1110 |
< |
ShowMessage('Not Linked to an IBQuery object or Database not assigned') |
745 |
< |
else |
746 |
< |
if IBModifySQLEditor.EditSQL(FDatabase,FDatabase.DefaultTransaction,FIBUpdateSQL.ModifySQL) then Modified; |
1109 |
> |
GetObjects; |
1110 |
> |
if IBModifySQLEditor.EditSQL(FIBUpdateSQL.DataSet,FIBUpdateSQL.ModifySQL) then Modified; |
1111 |
|
end; |
1112 |
|
|
1113 |
|
{ TIBRefreshSQLProperty } |
1117 |
|
IBDataset: TIBDataset; |
1118 |
|
begin |
1119 |
|
IBDataset := GetComponent(0) as TIBDataset; |
1120 |
< |
if Assigned(IBDataSet.Database) and |
757 |
< |
IBRefreshSQLEditor.EditSQL(IBDataSet.Database,IBDataSet.Transaction,IBDataSet.RefreshSQL) then Modified; |
1120 |
> |
if IBRefreshSQLEditor.EditSQL(IBDataSet,IBDataSet.RefreshSQL) then Modified; |
1121 |
|
end; |
1122 |
|
|
1123 |
|
{ TIBUpdateSQLRefreshSQLProperty } |
1124 |
|
|
1125 |
|
procedure TIBUpdateSQLRefreshSQLProperty.Edit; |
1126 |
|
begin |
1127 |
< |
if not GetObjects then |
1128 |
< |
ShowMessage('Not Linked to an IBQuery object or Database not assigned') |
766 |
< |
else |
767 |
< |
if IBRefreshSQLEditor.EditSQL(FDatabase,FDatabase.DefaultTransaction,FIBUpdateSQL.RefreshSQL) then Modified; |
1127 |
> |
GetObjects; |
1128 |
> |
if IBRefreshSQLEditor.EditSQL(FIBUpdateSQL.DataSet,FIBUpdateSQL.RefreshSQL) then Modified; |
1129 |
|
end; |
1130 |
|
|
1131 |
|
{ TIBDeleteSQLProperty } |
1132 |
|
|
1133 |
|
procedure TIBDeleteSQLProperty.Edit; |
1134 |
|
var |
1135 |
< |
IBDataset: TIBDataset; |
1135 |
> |
IBDataset: TIBDataSet; |
1136 |
|
begin |
1137 |
< |
IBDataset := GetComponent(0) as TIBDataset; |
1138 |
< |
if Assigned(IBDataSet.Database) and |
778 |
< |
IBDeleteSQLEditor.EditSQL(IBDataSet.Database,IBDataSet.Transaction,IBDataSet.DeleteSQL) then Modified; |
1137 |
> |
IBDataset := GetComponent(0) as TIBDataSet; |
1138 |
> |
if IBDeleteSQLEditor.EditSQL(IBDataSet,IBDataSet.DeleteSQL) then Modified; |
1139 |
|
end; |
1140 |
|
|
1141 |
|
{ TIBUpdateSQLDeleteProperty } |
1147 |
|
|
1148 |
|
procedure TIBUpdateSQLDeleteProperty.Edit; |
1149 |
|
begin |
1150 |
< |
if not GetObjects then |
1151 |
< |
ShowMessage('Not Linked to an IBQuery object or Database not assigned') |
792 |
< |
else |
793 |
< |
if IBDeleteSQLEditor.EditSQL(FDatabase,FDatabase.DefaultTransaction,FIBUpdateSQL.DeleteSQL) then Modified; |
1150 |
> |
GetObjects; |
1151 |
> |
if IBDeleteSQLEditor.EditSQL(FIBUpdateSQL.DataSet,FIBUpdateSQL.DeleteSQL) then Modified; |
1152 |
|
end; |
1153 |
|
|
1154 |
|
{ TUpdateSQLPropertyEditor } |
1159 |
|
FIBUpdateSQL := GetComponent(0) as TIBUpdateSQL; |
1160 |
|
if not assigned(FIBUpdateSQL) or not assigned(FIBUpdateSQL.DataSet) then |
1161 |
|
Exit; |
1162 |
+ |
FDatabase := nil; |
1163 |
|
if FIBUpdateSQL.DataSet is TIBQuery then |
1164 |
|
begin |
1165 |
|
FDatabase := (FIBUpdateSQL.DataSet as TIBQuery).Database; |
1171 |
|
|
1172 |
|
procedure TIBInsertSQLProperty.Edit; |
1173 |
|
var |
1174 |
< |
IBDataset: TIBDataset; |
1174 |
> |
IBDataset: TIBDataSet; |
1175 |
|
begin |
1176 |
< |
IBDataset := GetComponent(0) as TIBDataset; |
1177 |
< |
if Assigned(IBDataSet.Database) and |
819 |
< |
IBInsertSQLEditor.EditSQL(IBDataSet.Database,IBDataSet.Transaction,IBDataSet.InsertSQL) then Modified; |
1176 |
> |
IBDataset := GetComponent(0) as TIBDataSet; |
1177 |
> |
if IBInsertSQLEditor.EditSQL(IBDataSet,IBDataSet.InsertSQL) then Modified; |
1178 |
|
end; |
1179 |
|
|
1180 |
|
{ TIBUpdateSQLInsertSQLProperty } |
1181 |
|
|
1182 |
|
procedure TIBUpdateSQLInsertSQLProperty.Edit; |
1183 |
|
begin |
1184 |
< |
if not GetObjects then |
1185 |
< |
ShowMessage('Not Linked to an IBQuery object or Database not assigned') |
828 |
< |
else |
829 |
< |
if IBInsertSQLEditor.EditSQL(FDatabase,FDatabase.DefaultTransaction,FIBUpdateSQL.InsertSQL) then Modified; |
1184 |
> |
GetObjects; |
1185 |
> |
if IBInsertSQLEditor.EditSQL(FIBUpdateSQL.Dataset,FIBUpdateSQL.InsertSQL) then Modified; |
1186 |
|
end; |
1187 |
|
|
1188 |
|
{ TIBGeneratorProperty } |
1197 |
|
if IBGeneratorEditor.EditGenerator(GetPersistentReference as TIBGenerator) then Modified; |
1198 |
|
end; |
1199 |
|
|
1200 |
+ |
{ TIBSQLEditor } |
1201 |
+ |
|
1202 |
+ |
procedure TIBSQLEditor.ExecuteVerb(Index: Integer); |
1203 |
+ |
begin |
1204 |
+ |
if IBSQLEditor.EditSQL(TIBSQL(Component)) then Modified; |
1205 |
+ |
end; |
1206 |
+ |
|
1207 |
+ |
function TIBSQLEditor.GetVerb(Index: Integer): string; |
1208 |
+ |
begin |
1209 |
+ |
case Index of |
1210 |
+ |
0 : Result := SIBSQLEditor; |
1211 |
+ |
1: Result := SInterbaseExpressVersion ; |
1212 |
+ |
end; |
1213 |
+ |
end; |
1214 |
+ |
|
1215 |
+ |
function TIBSQLEditor.GetVerbCount: Integer; |
1216 |
+ |
begin |
1217 |
+ |
Result:= 2 |
1218 |
+ |
end; |
1219 |
+ |
|
1220 |
+ |
{ TIBSQLSQLPropertyEditor } |
1221 |
+ |
|
1222 |
+ |
procedure TIBSQLSQLPropertyEditor.Edit; |
1223 |
+ |
var |
1224 |
+ |
IBSQL: TIBSQL; |
1225 |
+ |
begin |
1226 |
+ |
IBSQL := GetComponent(0) as TIBSQL; |
1227 |
+ |
if IBSQLEditor.EditSQL(IBSQL) then Modified; |
1228 |
+ |
end; |
1229 |
+ |
|
1230 |
|
initialization |
1231 |
|
{$I IBDBReg.lrs} |
1232 |
|
end. |